Tugas visual basic 1.1





Komentar

Posting Komentar

Postingan populer dari blog ini

TUGAS BP 2.6

Gambar
Private Sub Command1_Click() Text4 = Val(Text1) + Val(Text2) - (Text3) Text5 = Val(Text4) * 0.20 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub Private Sub Command3_Click() Unload Me 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
Baca selengkapnya

TUGAS BP 2.5

Private Sub Command1_Click() Text2 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Text1_keypress(keyascii As Integer) If keyascii = 13 Then Text2 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) End If End Sub
Baca selengkapnya

TUGAS BP 2.3

Gambar
Private Sub Command1_Click() Text9 = Val(Text1) + Val(Text2) Text10 = Val(Text3) - Val(Text4) Text11 = Val(Text5) * Val(Text6) Text12 = Val(Text7) / Val(Text8) Text13 = Val(Text9) + Val(Text10) + Val(Text11) + Val(Text12) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" Text13 = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Text1_keypress(keyascii As Integer) If keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub Text10_keypress(keyascii As Integer) If keyascii = 13 Then Text10 = Val(Text3) - Val(Text4) End If End Sub Private Sub Text11_keypress(keyascii As Integer) If keyascii = 13 Then Text11 = Val(Text5) * Val...
Baca selengkapnya