Benyandriansyah

Postingan

Menampilkan postingan dengan label Tugas MK BP1 Tugas 1

TUGAS MK BP1 TUGAS 1.1

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 Command1_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End End Sub

Baca selengkapnya

TUGAS MK BP1 TUGAS 1.5

Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) Text6 = Val(Text4) * Val(Text5) Text9 = Val(Text7) - Val(Text8) Text12 = Val(Text10) / Val(Text11) End Sub Private Sub Command3_Click() End End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" 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 = Val(Text1) + Val(Text2) Text4.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer)...

Baca selengkapnya

TUGAS MK BP1 TUGAS 1.4

Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) Text6 = Val(Text4) * Val(Text5) Text9 = Val(Text7) - Val(Text8) Text12 = Val(Text10) / Val(Text11) End Sub Private Sub Command3_Click() End End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Text8 = "" Text9 = "" Text10 = "" Text11 = "" Text12 = "" 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 Text4.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text7.SetFocu...

Baca selengkapnya

TUGAS MK BP1 TUGAS 1.3

Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn2.SetFocus End If End Sub Private Sub Txtn2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txthasil = Val(txtn1) * Val(Txtn2) End If End Sub Private Sub Cmdhitung_Click() Txthasil = Val(txtn1) * Val(Txtn2) End Sub Private Sub Cmdbersih_Click() txtn1.SetFocus txtn1 = "" Txtn2 = "" Txthasil = "" End Sub Private Sub cmdhasil_Click() End End Sub

Baca selengkapnya

TUGAS MK BP1 TUGAS 1.2

Private Sub Txtn1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtn2.SetFocus End If End Sub Private Sub Cmdhitung_Click() Txthasil = Val(txtn1) * Val(Txtn2) End Sub Private Sub Cmdbersih_Click() txtn1.SetFocus txtn1 = "" Txtn2 = "" Txthasil = "" End Sub Private Sub cmdhasil_Click() End End Sub

Baca selengkapnya