Visual Basic (membuat program nilai mahasiswa)
1. Buat project baru. MDIform
sebelumnya kosong tidak ada menu bar ( file, form, help ) menu itu kita buat dengan cara klik kanan tepat di tengah form tersebut lalu klik menu editor
Disini saya membuat 3 pilihan di menu bar
1. File (yang terdapat pilihan lagi yaitu Exit)
2. Form ( yangdidalamnya terdapat Kelulusan, Predikat, Login)
3. Help ( jika perlu)
Jika sudah selesai kita buat menu yang pertama yaitu menu Kelulusan
Design seperti gambar jika berkenan dan double klik di bottom proses dan ketikan coding seperti ini :
Private Sub Command1_Click()
nilai = Val(Text1.Text)
If nilai > 70 Then
Text2.Text = "lulus"
Else
Text2.Text = "tidak lulus"
End If
End Sub
Jika sudah selesai lanjut ke projek baru yaitu Predikat dengan design kurang lebih dibawah ini :
Dan lanjutkan coding di bottom Proses jika design sudah bagus , seperti ini
Private Sub Command1_Click()
ipksmester1 = Val(Text1.Text)
ipksmester2 = Val(Text2.Text)
ipksmester3 = Val(Text3.Text)
ipksmester4 = Val(Text4.Text)
ipksmester5 = Val(Text5.Text)
ipksmester6 = Val(Text6.Text)
ipksmester7 = Val(Text7.Text)
ipksmester8 = Val(Text8.Text)
Text9.Text = (ipksmester1 + ipksmester2 + ipksmester3 + ipksmester4 + ipksmester5 + ipksmester6 + ipksmester7 + ipksmester8) / 8
If Text9.Text >= 3.51 Then
Text10.Text = "camlaude"
ElseIf Text9.Text <= 3.5 Then
Text10.Text = " sangat memuaskan"
ElseIf Text9.Text < 3# Then
Text10.Text = "memuaskan"
ElseIf Text9.Text < 2.5 Then
Text10.Text = "memalukan"
End If
End Sub
Dan projeck yang terakhir adalah login :
Klik di bottom login untuk pengkodean :
sebelumnya kosong tidak ada menu bar ( file, form, help ) menu itu kita buat dengan cara klik kanan tepat di tengah form tersebut lalu klik menu editor
Disini saya membuat 3 pilihan di menu bar
1. File (yang terdapat pilihan lagi yaitu Exit)
2. Form ( yangdidalamnya terdapat Kelulusan, Predikat, Login)
3. Help ( jika perlu)
Jika sudah selesai kita buat menu yang pertama yaitu menu Kelulusan
Design seperti gambar jika berkenan dan double klik di bottom proses dan ketikan coding seperti ini :
Private Sub Command1_Click()
nilai = Val(Text1.Text)
If nilai > 70 Then
Text2.Text = "lulus"
Else
Text2.Text = "tidak lulus"
End If
End Sub
Jika sudah selesai lanjut ke projek baru yaitu Predikat dengan design kurang lebih dibawah ini :
Dan lanjutkan coding di bottom Proses jika design sudah bagus , seperti ini
Private Sub Command1_Click()
ipksmester1 = Val(Text1.Text)
ipksmester2 = Val(Text2.Text)
ipksmester3 = Val(Text3.Text)
ipksmester4 = Val(Text4.Text)
ipksmester5 = Val(Text5.Text)
ipksmester6 = Val(Text6.Text)
ipksmester7 = Val(Text7.Text)
ipksmester8 = Val(Text8.Text)
Text9.Text = (ipksmester1 + ipksmester2 + ipksmester3 + ipksmester4 + ipksmester5 + ipksmester6 + ipksmester7 + ipksmester8) / 8
If Text9.Text >= 3.51 Then
Text10.Text = "camlaude"
ElseIf Text9.Text <= 3.5 Then
Text10.Text = " sangat memuaskan"
ElseIf Text9.Text < 3# Then
Text10.Text = "memuaskan"
ElseIf Text9.Text < 2.5 Then
Text10.Text = "memalukan"
End If
End Sub
Dan projeck yang terakhir adalah login :
Klik di bottom login untuk pengkodean :
Private Sub Command1_Click()
username = (Text1.Text = "Poltek")
password = (Text2.Text = "TEDC")
If username And password Then
Form2.Show
Else
MsgBox ("Log in Gagal")
End If
End Sub
Dan untuk memberi karakter "*" dibagian password, cari di bagian menu editor di sebelah kanan monitor "passwordChar" ganti dengan "*" klik dulu ya teks password sebelumnya...
Yang terakhir penggabungan antar form ke form lainnya
Buka form MDIform yang tadi lalu double klik menu kelulusan ketik Coding seperti ini :
Ini untuk menu Kelulusan
Private Sub mKelulusan_Click()
Form4.Show (jika menu kelulusan berada di form4)
End Sub
Menu Login
Private Sub mLogin_Click()
Form1.Show (jika menu kelulusan berada di form1)
End Sub
Private Sub mPredikat_Click()
Form2.Show (jika menu kelulusan berada di form2)
End Sub
Selamat mencoba ,,, pasti bisa ^-^
Komentar