Hai sahabt blogger kali ini saya akan membagikan sebuah artikel tentang pembuatan aplikasi pengolahan nilai dengan vb.6...
Simak baik baik ya!!!
Sebelum kita membuat dan merancang formnya mari kita simak dulu cara jalannya program ini :
1. Untuk memberikan input terhadap siswanya Kang guru menginputNIPnya sendiri, Nama Guru
akan muncul otomatis si sebelah kanan
2. Kemudian mengisi kode mata pelajaran yang diajarkan, mata pelajaran akan muncul otomatis
3. Kemudian menginput kode kelas, maka nama kelas akan muncul otomatis beserta Daftar
Siswanya
4. Kemudian klik Nama Siswa pada daftar siswa yang akan di berikan Nilai, lalu isilah hasil
ujiannya dan setelah selesai mengisi nilai hasil ujian tekan tombol Hitung
5. Maka Hasil Nilai Akhir akan muncul beserta Grade-nya
6 .klik tombol Tambah untuk memberikan nilai siswa lainnya, ulangi seperti langkah no.4sampai
nilai semua siswa terisi.
Catatan:
-Setiap guru bisa mengajar lebih dari 1 matapelajaran dan lebih dari 2 kelas bahkan semuanya.
-Fungsi tombol Clear untukmembatalkan penginputan dan kembali keawal.
-Fungsi tombol Keluar untuk untuk menutup semua Program yang berjalan.
Berikut cara Membuat program Aplikasi Pengolahan Data Nilai di VB6 :
1. Tanamkan 16 Label (border Style: 1-Fixed Single), 7 TextBox, 3 Combobox, 1 ListBox dan 4
CommandButton
2. Desainlah form Anda Seperti gambar dibawah ini sama persis :
 |
| Desaign Form yang sudah jadi |
3. Setelah Anda mendesain form seperti gambar diatas Copy-paste kode dibawah ini dan paste ke
jendela kode General danDeclaration
Private Sub Combo1_Click()
'kode NIP, kode mata pelajaran dan kode kelas. setiap guru mengajar bisa lebih dari 2 mata pelajaran dan bisa lebih dari 3 kelas
If Combo1.Text = "101" Then
Text1.Text = "Umar Bakri"
'mengajar:
Combo2.AddItem "IPA"
Combo2.AddItem "IPS"
'kelas yang di ajar:
Combo3.AddItem "01"
Combo3.AddItem "02"
Combo3.AddItem "03"
Combo3.AddItem "04"
Combo3.AddItem "05"
Combo3.AddItem "06"
End If
If Combo1.Text = "102" Then
Text1.Text = "Rojali"
'mengajar:
Combo2.AddItem "BI"
Combo2.AddItem "PKn"
'kelas yang diajar
Combo3.AddItem "01"
Combo3.AddItem "02"
Combo3.AddItem "03"
Combo3.AddItem "04"
Combo3.AddItem "05"
Combo3.AddItem "06"
End If
If Combo1.Text = "103" Then
Text1.Text = "Mat Solar"
'mengajar:
Combo2.AddItem "MTK"
'kelas yang di ajar:
Combo3.AddItem "01"
Combo3.AddItem "02"
Combo3.AddItem "03"
Combo3.AddItem "04"
Combo3.AddItem "05"
Combo3.AddItem "06"
End If
Combo1.Enabled = False
Combo2.SetFocus
End Sub
Private Sub Combo2_Click()
'kode mata pelajaran
If Combo2.Text = "IPA" Then
Text2.Text = "Ilmu Pengetahuan Alam"
End If
If Combo2.Text = "IPS" Then
Text2.Text = "Ilmu Pengetahuan Sosial"
End If
If Combo2.Text = "BI" Then
Text2.Text = "Bahasa Indonesia"
End If
If Combo2.Text = "PKn" Then
Text2.Text = "Pendidikan Kewarganegaraan"
End If
If Combo2.Text = "MTK" Then
Text2.Text = "Matemetika"
End If
Combo2.Enabled = False
Combo3.SetFocus
End Sub
Private Sub Combo3_Click()
'kode kelas dan nama siswa
If Combo3.Text = "01" Then
'nama kelas:
Text3.Text = "I.1"
'daftar siswa
List1.AddItem "Danang"
List1.AddItem "Kodir"
List1.AddItem "Ahmad"
List1.AddItem "Putra"
List1.AddItem "Putri"
List1.AddItem "Doni"
Label13.Caption = "DAFTAR NAMA SISWA KELAS " + Text3.Text
End If
If Combo3.Text = "02" Then
'nama kelas:
Text3.Text = "II.1"
'daftar siiswa:
List1.AddItem "gofur"
List1.AddItem "gofar"
List1.AddItem "malik"
List1.AddItem "amin"
List1.AddItem "aman"
List1.AddItem "dewi"
Label13.Caption = "DAFTAR NAMA SISWA KELAS " + Text3.Text
End If
If Combo3.Text = "03" Then
'nama kela:
Text3.Text = "III.1"
'daftar iswa
List1.AddItem "Dono"
List1.AddItem "Doni"
List1.AddItem "Rahmat"
List1.AddItem "Yamin"
List1.AddItem "Yaman"
List1.AddItem "Dewi"
Label13.Caption = "DAFTAR NAMA SISWA KELAS " + Text3.Text
End If
If Combo3.Text = "04" Then
'nama kelas:
Text3.Text = "IV.1"
'daftar siswa"
List1.AddItem "Dono"
List1.AddItem "Doni"
List1.AddItem "Rahmat"
List1.AddItem "Yamin"
List1.AddItem "Yaman"
List1.AddItem "Dewi"
Label13.Caption = "DAFTAR NAMA SISWA KELAS " + Text3.Text
End If
If Combo3.Text = "05" Then
'nama kelas:
Text3.Text = "V.1"
'daftar siswa
List1.AddItem "gofur"
List1.AddItem "gofar"
List1.AddItem "malik"
List1.AddItem "amin"
List1.AddItem "aman"
List1.AddItem "dewi"
Label13.Caption = "DAFTAR NAMA SISWA KELAS " + Text3.Text
End If
If Combo3.Text = "06" Then
'nama kelas:
Text3.Text = "VI.1"
'daftar siswa :
List1.AddItem "Dono"
List1.AddItem "Doni"
List1.AddItem "Rahmat"
List1.AddItem "Yamin"
List1.AddItem "Yaman"
List1.AddItem "Dewi"
Label13.Caption = "DAFTAR NAMA SISWA KELAS " + Text3.Text
End If
Combo3.Enabled = False
List1.SetFocus
End Sub
Private Sub Command1_Click()
'hitung nilai rata-rata dan Grade
Dim rata As Integer
rata = Val(Text5.Text) + Val(Text6.Text) + Val(Text7.Text)
Label15.Caption = Val(rata / 3)
Label15.Caption = Format(Label15.Caption, "###.00")
If Label15 <= 55 Then
Label16.Caption = "D"
ElseIf Label15 <= 65 Then
Label16.Caption = "C"
ElseIf Label15 <= 80 Then
Label16.Caption = "B"
Else
Label16.Caption = "A"
End If
Command3.Enabled = True
Command3.SetFocus
End Sub
Private Sub Command2_Click()
'mengosongkan textbox dan melakukan input NIP baru
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo2.Clear
Combo3.Clear
Label15.Caption = ""
Label16.Caption = ""
Combo1.SetFocus
List1.Clear
End Sub
Private Sub Command3_Click()
'menginput siswa baru
List1.SetFocus
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Label15.Caption = ""
Label16.Caption = ""
Command3.Enabled = False
End Sub
Private Sub Command4_Click()
'keluar dari program
Unload Me
End Sub
Private Sub Form_Load()
'NIP Guru
Combo1.AddItem "101"
Combo1.AddItem "102"
Combo1.AddItem "103"
'mengosongkan textbox
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Label15.Caption = ""
Label16.Caption = ""
Command1.Enabled = False
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
End Sub
Private Sub List1_Click()
Text4.Text = List1.Text
Text5.SetFocus
End Sub
Private Sub List1_KeyPress(KeyAscii As Integer)
List1.Text = StrConv(Text1, vbProperCase)
SendKeys "{end}"
End Sub
Private Sub Text1_Change()
Text1.Text = StrConv(Text1, vbProperCase)
SendKeys "{end}"
End Sub
Private Sub Text2_Change()
Text2.Text = StrConv(Text2, vbProperCase)
SendKeys "{end}"
End Sub
Private Sub Text4_Change()
Text4.Text = StrConv(Text4, vbProperCase)
SendKeys "{end}"
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Text6.SetFocus
Else
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
MsgBox "Hanya boleh di isi dengan Angka", vbOKOnly, "Perhatian"
KeyAscii = 0
End If
End If
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Text7.SetFocus
Else
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
MsgBox "Hanya boleh di isi dengan Angka", vbOKOnly, "Perhatian"
KeyAscii = 0
End If
End If
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Command1.Enabled = True
Command1.SetFocus
Else
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
MsgBox "Hanya boleh di isi dengan Angka", vbOKOnly, "Perhatian"
KeyAscii = 0
End If
End If
End Sub
4. Simpan Hasil Pekerjaan Anda dan jalankan dengan F5
Demikian tip cara Cara Membuat Program Aplikasi Pengolahan Data Nilai Sekolah Dasar dengan VB6.
Sekian artikel kali ini semoga bermanfaat
Mohon maaf bila ada kesalahan
..ini rancangan from dan koding hasil copy dari blog lain maka dari itu saya minta maaf yg sebesar besarnya......Saya membuat blog ini hanya untuk tugas semata
.
.