Hai sob saya akan memberi tahu cara membuat program menggunakan aplikasi Visual Basic 6.0/VB,VB ini adalah aplikasi paling mudah dipelajari untuk membuat program, jadi jika kalian ingin jadi pemrograming paling tidak kalian harus menguasai dasar - dasar aplikasi ini, setelah kalian mahir kalian bisa belajar bahasa pemrograman lainnya yang sudah saya urutkan sesuai tingkatannya seperti : Pascal, Html, C, CSS, C#, PHP, Mysql, Java, JS, C++, Objective-C, Ajax, Perl, Phyton dan yang lebih sulit yaitu asembler.
Kali ini saya akan mengajari cara membuat program yang saya berinama "DAFTAR NILAI ULANGAN KURIKULUM 2013" .
1. Langkah Pertama download dan instal dulu aplikasinya download Visual Basic 6.0 iso disini, atau jika download yang Visual Studio 6.0 disini
2. Disain tampilannya sesuai diatas saya menggunakan:
1 Form
2 Frame
12 Label
10 TextBox
1 ComboBox
3 CommandButton
3.Kemudian Ganti name TextBoxnya sesuai dibawah ini :
Private Sub Text1_Change() ganti dengan Private Sub txtNIS_KeyPress(KeyAscii As Integer)
Private Sub Text2_Change() ganti dengan Private Sub txtNAMA_KeyPress(KeyAscii As Integer)
coba anda meneruskannya sendiri,,,
Untuk ComboBoxnya
Private Sub Combo1_Change() ganti dengan Private Sub cmbKELAS_Click()
Untuk CommandButtonnya
Private Sub Command1_Click() ganti dengan Private Sub cmdHITUNG_Click()
4.Copy dan Pastekan script dibawah ini sesuai dengan namanya:
"Keterangan: script ini untuk menjalankan perintah ComboBox KELAS, jika anda memilih data yang ada di situ maka akan otomatis muncul di TextBox JURUSAN"
Private Sub cmbKELAS_Click()
If cmbKELAS.ListIndex = 0 Then
txtJURUSAN.Text = "KELAS X TKJ 1-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 1 Then
txtJURUSAN.Text = "KELAS X TKJ 2-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 2 Then
txtJURUSAN.Text = "KELAS X TKJ 3-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 3 Then
txtJURUSAN.Text = "KELAS XI TKJ 1-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 4 Then
txtJURUSAN.Text = "KELAS XI TKJ 2-TEKNIK KOMPUTER DAN JARINGAN"
ElseIf cmbKELAS.ListIndex = 5 Then
txtJURUSAN.Text = "KELAS XII TKJ 1-TEKNIK KOMPUTER DAN JARINGAN"
Else: cmbKELAS.ListIndex = 6
txtJURUSAN.Text = "KELAS XII TKJ 2-TEKNIK KOMPUTER DAN JARINGAN"
End If
txtABSEN.SetFocus
End Sub
"Keterangan : Ini script untuk perintah membersihkan semua yang ada di TextBox maupun ComboBox"
Private Sub cmdBERSIH_Click()
txtNIS.Text = ""
txtNAMA.Text = ""
cmbKELAS.Text = ""
txtKETERANGAN.Text = ""
txtJURUSAN.Text = ""
txtABSEN.Text = ""
txtUAS.Text = ""
txtUTS.Text = ""
txtRATA2.Text = ""
txtGRADE.Text = ""
txtNIS.SetFocus
End Sub
"Keterangan : Ini script untuk menghitung rata-rata dan memberi keterangan nilai tersebut"
Private Sub cmdHITUNG_Click()
txtRATA2 = Val((10 / 100 * txtABSEN.Text) + _
(20 / 100 * txtTUGAS.Text) + _
(30 / 100 * txtUTS.Text) + _
(40 / 100 * txtUAS.Text))
Select Case Val(txtRATA2.Text)
Case 90 To 100
txtGRADE.Text = "A"
txtKETERANGAN.Text = "Sangat Memuaskan"
Case 70 To 89
txtGRADE.Text = "B"
txtKETERANGAN.Text = "Memuaskan"
Case 60 To 69
txtGRADE.Text = "C"
txtKETERANGAN.Text = "Cukup Memuaskan"
Case 1 To 59
txtGRADE.Text = "D"
txtKETERANGAN.Text = "Kurang Memuaskan"
Case 0
txtGRADE.Text = "E"
txtKETERANGAN.Text = "Mengecewakan"
End Select
End Sub
Private Sub cmdKELUAR_Click()
A = MsgBox("Yakin mau keluar dari Form ini?", vbYesNo + vbInformation,
"PESAN")
If A = vbYes Then
End
End If
End Sub
"Keterangan : Ini script untuk memberi warna kuning seperti di tampilan diatas"
Private Sub Form_Activate()
txtRATA2.BackColor = &H80FFFF
txtGRADE.BackColor = &H80FFFF
txtKETERANGAN.BackColor = &H80FFFF
End Sub
"Keterangan : Ini script untuk memberi data pada ComboKelas"
Private Sub Form_Load()
With cmbKELAS
.AddItem "XTKJ1"
.AddItem "XTKJ2"
.AddItem "XTKJ3"
.AddItem "XITKJ1"
.AddItem "XITKJ2"
.AddItem "XIITKJ1"
.AddItem "XIITKJ2"
End With
End Sub
Private Sub txtABSEN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUTS.SetFocus
End If
End Sub
If KeyAscii = 13 Then
cmbKELAS.SetFocus
End If
End Sub
Private Sub txtNIS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNAMA.SetFocus
End If
End Sub
Private Sub txtTUGAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtUAS.SetFocus
End If
End Sub
Private Sub txtUAS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdHITUNG.SetFocus
End If
End Sub
Private Sub txtUTS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTUGAS.SetFocus
End If
End Sub
Silahkan berkomentar atau ingin bertannya soal materi ini:
0 komentar:
Posting Komentar