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 :

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

Postingan populer dari blog ini

Diagram Use Case Dan Use Case Description

Apa itu SKPL Dan Kebutuhan Perangkat Lunak ?

Program C++ (mengurutkan abjad Z -A)