Cara Membuat Program Aplikasi Pengolahan Data Nilai Sekolah Dasar dengan VB6

Cara Membuat Program Aplikasi Pengolahan Data Nilai Sekolah Dasar dengan VB6 - Selamat Pagi menjelang siang sobat blogger semuanya tentu saja masih setia di Tip dan Trik VB 6, pada pertemuan kali ini Saya ingin memberikan Tips Cara membuat Sistem Informasi Pengolahan Data Nilai Sekolah Dasar (SD).

Sebelum kita membuat dan merancang formnya mari kita simak dulu cara jalannya program ini :

1. Untuk memberikan input terhadap siswanya Kang guru menginput NIPnya 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.4 sampai nilai semua siswa terisi.

Catatan:

-Setiap guru bisa mengajar lebih dari 1 matapelajaran dan lebih dari 2 kelas bahkan semuanya.

-Fungsi tombol Clear untuk membatalkan 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 dan Declaration

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. 

Selamat mencoba semoga berhasil....Mohon maaf bila ada kesalahan.......

Related Post: Aplikasi sederhana