Sabtu, 23 Juli 2011

Membuat Program Nilai Mahasiswa (Visual Basic)

Penerapan struktur pemrograman Selection Pada Program Nilai Mahasiswa yang akan kita buat.
Menentukan plihan eksekusi statement berdasarkan kriteria yang ditentukan sebelumnya, Sintaks beberapa statement selection VB :
If Kriteria Then
Statement
Statement
Elseif Kriteria Then
Statement
Else
Statement
End if
Select Case Kriteria
Case ekspresi1
Statement
Case ekspresi2
Statement
Case ekspresi3
Statement
End Select

Buatlah Rancangan Form beserta objek-objeknya seperti pada gambar di bawah ini :


Rancang lagi supaya tampilannya lebih menarik, contoh tampilan dan program jadinya  :



Sourcecode programnya seperti ini :
Private Sub Command1_Click() ' MENENTUKAN “NILAI A” DG IF - THEN
Dim A As Integer
A = CInt(Text1.Text)
If (A >= 86) And (A < 101) Then
Text3.Text = "A"
ElseIf (A >= 66) And (A < 86) Then
Text3.Text = "B"
ElseIf (A >= 51) And (A < 66) Then
Text3.Text = "C"
ElseIf (A >= 36) And (A < 51) Then
Text3.Text = "D"
ElseIf (A >= 0) And (A < 36) Then
Text3.Text = "E"
End If
End Sub

Private Sub Command2_Click() ' MENENTUKAN PREDIKAT “NILAI A”DG IF-THEN
If Text3.Text = "A" Then
Text4.Text = "nilai Sangat Baik"
ElseIf Text3.Text = "B" Then
Text4.Text = "nilai Baik"
ElseIf Text3.Text = "C" Then
Text4.Text = "nilai Cukup"
ElseIf Text3.Text = "D" Then
Text4.Text = "nilai Buruk"
ElseIf Text3.Text = "E" Then
Text4.Text = "Nilai Tidak Lulus alias Ngulang euy"
End If
End Sub

Private Sub Command3_Click() ' MENENTUKAN LEBIH BESAR/KECIL “NILAI A”
Dim A As Integer
A = CInt(Text1.Text)
If A > 10 Then
Text4.Text = Text1.Text + " lebih besar dari 10"
ElseIf A > 5 Then
Text4.Text = CStr(A) + " lebih besar dari 5"
Else
Text4.Text = Str(A) + " lebih kecil atau sama dengan 5"
End If
End Sub

Private Sub Command4_Click() ' MENENTUKAN NILAI GENAP/GANJIL
Dim A As Integer
A = CInt(Text1.Text)
If A Mod 2 = 0 Then
Text4.Text = "A adalah bilangan genap"
ElseIf A Mod 2 = 1 Then
Text4.Text = "A adalah bilangan ganjil"
End If
End Sub

Private Sub Command5_Click() ' PERBANDINGAN NILAI A & B
Dim A, B As Double
A = CDbl(Text1.Text)
B = CDbl(Text2.Text)
If A > B Then
Text4.Text = CStr(A) + " lebih besar dari " + CStr(B)
ElseIf A < B Then
Text4.Text = Str(A) + "lebih kecil dari" + Str(B)
Else
Text4.Text = Str(A) + " lebih kecil atau sama dengan" + Str(B)
End If
End Sub

Private Sub Command6_Click() ' MENENTUKAN PREDIKAT “NILAI A”DG SELECT CASE
Select Case Text3.Text
Case "A"
Text4.Text = "Sangat Baik"
Case "B"
Text4.Text = "Baik"
Case "C"
Text4.Text = "Cukup"
Case "D"
Text4.Text = "Buruk"
Case "E"
Text4.Text = "Tidak Lulus"
End Select
End Sub

Private Sub Command7_Click() ' PERINTAH GABUNGAN SCR SINGKAT
Command1_Click
Command2_Click
End Sub

Private Sub Command8_Click() ‘ PERINTAH KELUAR
Unload Me
End Sub

Atau bisa di download project dan program jadinya disini

Materi Pembelajaran visual basic lengkap lainnya silahkan pilih dibawah ini :
1. Belajar Visual Basic Dengan Cepat dan Mudah
2. Pengenalan Visual Basic
3. Menggunakan Even dan Property(Visual Basic)
4. Menggunakan Even dan Method(Visual Basic)
5. Penggunaan Data dan Variabe(Visual Basic)
6. Penggunaan Operator (Visual Basic)
7. Membuat Program Kalkulator (Visual Basic)
8. Membuat Program Toko Alat Tulis Sederhana (Visual Basic)

1 komentar: