Belajar Program Data Siswa Visual Bsic 6.0

|
Baca selengkapnya »





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:

Belajar Program Data Siswa Visual Bsic 6.0

With 0komentar
|

0 komentar:

Posting Komentar

Rss: Top
▲Top▲