Pembuatan Daftar Nilai Dengan Menggunakan Visual Basic

assalamu'alaikum kawan-kawan yang masih ingin menggunakan visual basic di sini saya coba membuat program dari visual basic

 kali ini saya membuat daftar nilai menggunakan visual basic, kodenya cukup banyak tapi tenang saja caranya tidak bedah dengan cara-cara sebelumnya cuman ada beberapa kode yang saya tambahkan.!! saya yakin program ini cukup berguna buat teman-teman. bagi yang sampai saat ini belum mempunyai visual basic silahkan   download, caranya klik di sini.!!!

sesuai gambar di atas anda bisa memasuka kode seperti yang ada di bawah ini:

nah angka satua = command 1

angka 2 = command 2 dan seterusnya sampai 0 itu command 10 cape aku kalau harus di ketik smua

lihat = command 11

agree = command 12

keluar itu command 13

silahkan di coba semoga bermanfaat

coba pakai logika sendiri juga yaaah.!!

Private Sub Command1_Click()

Text1 = Text1.Text & 1

End Sub

Private Sub Command10_Click()

Text1 = Text1.Text & 0

End Sub

Private Sub Command11_Click()

If Text1 = 162110555 Then

Text2 = Text2.Text & ” LA ODE ABRIAMAN ”

Text3 = Text3.Text & ” Teknik Industri ”

Text4 = Text4.Text & ” NILAI ANDA A ”

MsgBox Text4.Text & ” SELAMAT ANDA BERHASIL”

Else

If Text1 = 162110554 Then

Text2 = Text2.Text & ” LA HALINU ”

Text3 = Text3.Text & ” Teknik Industri ”

Text4 = Text4.Text & ” NILAI ANDA B ”

MsgBox Text4.Text & ” SELAMAT ANDA BERHASIL”

Else

If Text1 = 162110557 Then

Text2 = Text2.Text & ” ERWIN NASIR ”

Text3 = Text3.Text & ” Teknik Industri ”

Text4 = Text4.Text & ” NILAI ANDA A ”

MsgBox Text4.Text & ” SELAMAT ANDA BERHASIL”

Else

If Text1 = 162110525 Then

Text2 = Text2.Text & ” ADE RUSMAWATI AMIRI ODE ”

Text3 = Text3.Text & ” Teknik Industri ”

Text4 = Text4.Text & ” NILAI ANDA B ”

MsgBox Text4.Text & ” SELAMAT ANDA BERHASIL”

Else

If Text1 = 12116463 Then

Text2 = Text2.Text & ” NAIM ISMAIL ”

Text3 = Text3.Text & ” Fakultas Kedokteran ”

Text4 = Text4.Text & ” NILAI ANDA A ”

MsgBox Text4.Text & ” SELAMAT ANDA COWO PALING GANTENG”

End If

End If

End If

End If

End If

End Sub

Private Sub Command12_Click()

Text1 = Empty

Text2 = Empty

Text3 = Empty

Text4 = Empty

End Sub

Private Sub Command13_Click()

End

End Sub

Private Sub Command2_Click()

Text1 = Text1.Text & 2

End Sub

Private Sub Command3_Click()

Text1 = Text1.Text & 3

End Sub

Private Sub Command4_Click()

Text1 = Text1.Text & 4

End Sub

Private Sub Command5_Click()

Text1 = Text1.Text & 5

End Sub

Private Sub Command6_Click()

Text1 = Text1.Text & 6

End Sub

Private Sub Command7_Click()

Text1 = Text1.Text & 7

End Sub

Private Sub Command8_Click()

Text1 = Text1.Text & 8

End Sub

Private Sub Command9_Click()

Text1 = Text1.Text & 9

End Sub

selamat mencoba.!!!