This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Tampilkan postingan dengan label TUGAS BP1. Tampilkan semua postingan
Tampilkan postingan dengan label TUGAS BP1. Tampilkan semua postingan

Rabu, 15 November 2017

PROGRAM 6 KALKULATOR MENGGUNAKAN ENTER

  08.07    No comments

Private Sub txt1_Change()
Txtn1 = ""
Txtn2 = ""
txtn3 = ""
Txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
Txtjmlh1 = ""
txtjmlh2 = ""
txtjmlh3 = ""
txtjmlh4 = ""
Txtjmlh = ""
End Sub

Private Sub Cmdbatal_Click()
Txtn1 = ""
Txtn2 = ""
txtn3 = ""
Txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
Txtjmlh1 = ""
txtjmlh2 = ""
txtjmlh3 = ""
txtjmlh4 = ""
Txtjmlh = ""
End Sub

Private Sub Cmdhitung_Click()
Txtjmlh1 = Val(Txtn1) + Val(Txtn2)
txtjmlh2 = Val(txtn3) - Val(Txtn4)
txtjmlh3 = Val(txtn5) / Val(txtn6)
txtjmlh4 = Val(txtn7) * Val(txtn8)
Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4)
End Sub


Private Sub cmdjumlah_Click()
Txtjmlh1 = Val(Txtn1) + Val(Txtn2)
txtjmlh2 = Val(txtn3) - Val(Txtn4)
txtjmlh3 = Val(txtn5) / Val(txtn6)
txtjmlh4 = Val(txtn7) * Val(txtn8)
Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4)
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Txtn1 = ""
Txtn2 = ""
txtn3 = ""
Txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
Txtjmlh1 = ""
txtjmlh2 = ""
txtjmlh3 = ""
txtjmlh4 = ""
Txtjmlh = ""
End Sub

Private Sub Command10_Click()
Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4)
End Sub

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
Txtjmlh1 = Val(Txtn1) + Val(Txtn2)
txtn3.SetFocus
End If
End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn4.SetFocus

End If
End Sub
Private Sub txtn4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjmlh2 = Val(txtn3) - Val(Txtn4)
txtn5.SetFocus
End If
End Sub
Private Sub txtn5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn6.SetFocus

End If
End Sub
Private Sub txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjmlh3 = Val(txtn5) / Val(txtn6)
txtn7.SetFocus
End If
End Sub


Private Sub txtn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn8.SetFocus

End If
End Sub

Private Sub txtn8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

txtjmlh4 = Val(txtn7) * Val(txtn8)
End If
End Sub
Private Sub txtnjmlh1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then

Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4)

End If
End Sub
Read More

PROGRAM 5 KALKULATOR MENGGUNAKAN MANUAL

  08.06    No comments

Private Sub txt1_Change()
Txtn1 = ""
Txtn2 = ""
txtn3 = ""
Txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
Txtjmlh1 = ""
txtjmlh2 = ""
txtjmlh3 = ""
txtjmlh4 = ""
Txtjmlh = ""
End Sub

Private Sub Cmdbatal_Click()
Txtn1 = ""
Txtn2 = ""
txtn3 = ""
Txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
Txtjmlh1 = ""
txtjmlh2 = ""
txtjmlh3 = ""
txtjmlh4 = ""
Txtjmlh = ""
End Sub

Private Sub Cmdhitung_Click()
Txtjmlh1 = Val(Txtn1) + Val(Txtn2)
txtjmlh2 = Val(txtn3) - Val(Txtn4)
txtjmlh3 = Val(txtn5) / Val(txtn6)
txtjmlh4 = Val(txtn7) * Val(txtn8)
Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4)
End Sub


Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Txtn1 = ""
Txtn2 = ""
txtn3 = ""
Txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
Txtjmlh1 = ""
txtjmlh2 = ""
txtjmlh3 = ""
txtjmlh4 = ""
Txtjmlh = ""
End Sub
Read More

PROGRAM 4 PENJUMLAHAN MENGGUNAKAN ENTER

  02.46    No comments






Private Sub Cmdhitung_Click()

txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3)
End Sub

Private Sub Cmdbatal_Click()
Txtn1 = ""
txtn2 = ""
txtn3 = ""
txtjmlh = ""
Txtn1.SetFocus
End Sub



Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtn1 = ""
txtn2 = ""
txtn3 = ""
txtjmlh = ""
Txtn1.SetFocus
End Sub

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
txtn3.SetFocus
End If
End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjmlh = Val(Txtn1) + Val(txtn2) + Val(txtn3)
End If
End Sub
Read More

PROGRAM 3 PENJUMLAHAN MENGGUNAKAN MANUAL

  02.43    No comments

Private Sub Cmdhitung_Click()
txtjumlah = Val(txtn1) + Val(txtn2) + Val(txtn3)
End Sub

Private Sub Cmdbatal_Click()
txtn1 = ""
txtn2 = ""
txtn3 = ""
txtn1.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
txtn1 = ""
txtn2 = ""
txtn3 = ""
txtn1.SetFocus
End Sub
Read More

PROGRAM 2 DATA MAHASISWA STMIK PRINGSEWU MENGGUNAKAN ENTER

  02.39    No comments

Private Sub Cmdbatal_Click()
Txtnpm = ""
txtnama = ""
txtalamat = ""
Txtnpm.SetFocus
End Sub

Private Sub Cmdlagi_Click()
Txtnpm = ""
txtnama = ""
txtalamat = ""
txtnama.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtalamat.SetFocus
End If
End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub
Read More

PROGRAM 1 DATA MAHASISWA STMIK PRINGSEWU MENGGUNAKAN MANUAL

  02.36    No comments

Private Sub Cmdbatal_Click()
Txtnpm = ""
txtnama = ""
txtalamat = ""
Txtnpm.SetFocus

End Sub

Private Sub Cmdlagi_Click()
Txtnpm = ""
txtnama = ""
txtalamat = ""
txtnama.SetFocus
End Sub

Private Sub Cmdkeluar_Click()
Unload Me 
End Sub
Read More