tugas 2.2- 2.6
Tugas 2.2 Private Sub Cmdhitung1_Click() Txt2 = Val(Txt1.Text) * 0.1 Txt3 = Val(Txt1.Text) - Val(Txt2.Text) End Sub Private sub txt1_KEYPRESS(KEYASSCII As Integer) IF KEY ASCII = 13 then Txt2 = Val(Txt1) * 0.1 Txt3 = Val(Txt1) – Val(Txt2) End If End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdulang_Click() Txt1 = "" Txt2 = "" Txt3 = "" End Sub Tugas 2.5 Private Sub biru_Click() Label1.ForeColor = vbBlue End Sub Private Sub Command1_Click() End End Sub Private Sub coret_Click() If coret.Value = 1 Then Label1.FontStrikethru = True Else Label1.FontStrikethru = False End If End Sub Private Sub hijau_Click() Label1.ForeColor = vbGreen End Sub Private Sub kuning_Click() Label1.ForeColor = vbYellow End Sub Private Sub merah_Click() Label1.ForeColor = vbRed End Sub Private Sub miring_Click() If miring.Value = 1 ...