Dhema Saputra STMIK PRINGSEWU: Desember 2018

aplikasi pembentuk tulisan tugas 2.6

Private Sub Check1_Click()
Label2.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value

End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label2 = Text1.Text
End If
End Sub

aplikasi pembentuk nama Tugas 2.5

Private Sub chkbold_Click()
'membuat teks tebal
If chkbold.Value = 1 Then
    lblteks.FontBold = True
Else
    lblteks.FontBold = False
End If

End Sub

Private Sub chkitalic_Click()
'membuat teks miring
If chkitalic.Value = 1 Then
    lblteks.FontItalic = True
Else
    lblteks.FontItalic = False
End If

End Sub

Private Sub chkstrike_Click()
'membuat teks strikeout
If chkstrike.Value = 1 Then
    lblteks.FontStrikethru = True
Else
    lblteks.FontStrikethru = False
End If

End Sub

Private Sub chkunder_Click()
'membuat teks garis bawah
If chkunder.Value = 1 Then
    lblteks.FontUnderline = True
Else
    lblteks.FontUnderline = False
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Optblue_Click()
'membuat teks berwarna biru
lblteks.ForeColor = vbBlue
End Sub

Private Sub Optgreen_Click()
'membuat teks berwarna hijau
lblteks.ForeColor = vbGreen
End Sub

Private Sub Optred_Click()
'membuat teks berwarna merah
lblteks.ForeColor = vbRed
End Sub

Private Sub Optyellow_Click()
'membuat teks berwarna kuning
lblteks.ForeColor = vbYellow
End Sub

Aplikasi Perhitungan gaji + keypress Tugas 2.4

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * 0.1
Text6 = Val(Text4) - Val(Text5)
End Sub

Private Sub cmdulang_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * 0.1
Text6 = Val(Text4) - Val(Text5)
End If
End Sub

Aplikasi Perhitungan gaji tugas 2.3

Perhitungan harga setelah diskon + keypress Tugas 2.2

Private Sub cmdhitung_Click()
Text2 = Val(Text1) * 0.1
Text3 = Val(Text1) - Val(teks2)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdulangi_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2 = Val(Text1) * 0.1
Text3 = Val(Text1) - Val(teks2)
End If
End Sub