Jelita adelia

Private Sub blue_Click() Label1.ForeColor = vbBlue End Sub Private Sub coret_Click() If coret.Value = 1 Then Label1.FontStrikethru = True Else Label1.FontStrikethru = False End If End Sub Private Sub garisbawah_Click() If garisbawah.Value = 1 Then Label1.FontUnderline = True Else Label1.FontUnderline = False End If End Sub Private Sub hijau_Click() Label1.ForeColor = vbGreen End Sub Private Sub keluar_Click() End 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 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub tebal_Click() If tebal.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub

Private Sub ketik_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Label2 = ketik.Text End If End Sub Private Sub OK_Click() Label2 = ketik.Text End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub Private Sub SELESAI_Click() End End Sub

Private Sub Commandkeluar_Click() End End Sub Private Sub Commandproses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.1 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub CommandUlang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub

Private Sub Commandkeluar_Click() End End Sub Private Sub Commandproses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.1 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub CommandUlang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" 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

Private Sub cmdhitung_Click() txtB.Text = Val(txtA.Text) * 0.1 txtC.Text = Val(txtA.Text) - Val(txtB.Text) End Sub Private Sub cmdquit_Click() End End Sub Private Sub cmdulangi_Click() txtA = "" txtB = "" txtC = "" End Sub

Private Sub cmdhitung_Click() txtB = Val(txtA) * 0.1 txtC = Val(txtA) - Val(txtB) End Sub Private Sub cmdulangi_Click() txtA = "" txtB = "" txtC = "" End Sub