Kamis, 18 Oktober 2012

Visual Basic -Miniatur Aplikasi Penghitung Nilai IPK-




Berikut Adalah tampilan Aplikasi Penghitung Nilai IPK













Form itu menggunakan MDIForm, sehingga form-form yang telah kita buat di masukan ke dalam MDIForm.

Menghitung Nilai (untuk satu mata kuliah)














Kodingnya :

Kelulusan
Private Sub Command1_Click()
If (textnilai.Text >= 70) Then
    Textstatus.Text = "LULUS"
Else
    Textstatus.Text = "TIDAK LULUS"
    End If
End Sub

"Karna dibatasi Nilai minimalnya 70 jadi ketika kita input nilai 70 maka akan Lulus"














"ketika kita input Nilai 69 maka Status akan Tidak lulus"

Form Login
















Kodingnya:
Private Sub Command1_Click()
username = (Text1.Text)
password = (Text2.Text)
If username = "Taufik" And password = "opikcakep" Then
MsgBox "login berhasil", vbOKOnly, "Sukses"
Else
MsgBox "login salah", vbOKOnly, "DETECT!"
End If
End Sub















"Gambar Ketika Login Berhasil"

















"Gambar Ketika Login Salah"

Form Predikat Kelulusan beserta IPK (Index Prestasi Kumulatif)



















Kodingnya:


Private Sub Command1_Click()
Ipk = (Val(Textsmtr1.Text) + Val(Textsmtr2.Text) + Val(Textsmtr3.Text) + Val(Textsmtr4.Text) + Val(Textsmtr5.Text) + Val(Textsmtr6.Text) + Val(Textsmtr7.Text) + Val(Textsmtr8.Text)) / 8
Textipk.Text = Ipk

If (Ipk >= 3.51) Then
    Textpdkt.Text = "CUMLAUDE"
ElseIf (Ipk >= 3.1 And Ipk <= 3.5) Then
    Textpdkt.Text = "SANGAT MEMUASKAN"
ElseIf (Ipk >= 2.5 And Ipk <= 3) Then
    Textpdkt.Text = "MEMUASKAN"
Else
    Textpdkt.Text = "HUB AKADEMIK"
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Text1_Change()

End Sub

About Us








0 komentar:

Posting Komentar