25 April 2010

Menghitung Nilai Akhir dengan VB

Dalam tutorial kali ini saya akan memberikan contoh tentang bagaimana membuat perhitungan nilai akhir perkuliahan dengan logika yang simpel tanpa deklarasi.
OK langsung chek this out aja ya.

pertama buat desain form kira-kira kaya yang ada di bawah ini :

















kemudian buka kotak editor dan buatlah coding pada button command1 kira-kira seperti ini :

Private Sub Command1_Click()
kuis = Text1.Text * 0.2
uts = Text2.Text * 0.5
uas = Text3.Text * 0.3
Text4.Text = kuis + uts + uas

If Text4.Text > 85 Then
Text5.Text = "A"
ElseIf Text4.Text > 70 Then
Text5.Text = "B"
ElseIf Text4.Text > 65 Then
Text5.Text = "C"
ElseIf Text4.Text > 55 Then
Text5.Text = "D"
ElseIf Text4.Text <>
Text5.Text = "E"
End If
End sub

coding di atas merupakan coding yang berada pada button "HITUNG".

pada button "RESET" ketikan coding di bawah ini :

Private Sub Command2_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
End Sub

kemudia pada button "KELUAR" isikan coding di bawah ini :

Private Sub Command3_Click()
End
End Sub

nah, mudah bukan...???
jika ada logika yang lebih baik mohon commentnya ya....

3 komentar:

Anonim mengatakan...

bang,deklarasi nya ?

Admin mengatakan...

deklarasinya kenapa ??
itu koding sederhana tanpa deklarasi.
make logika langsung..

tapi kalo masih slah tolong benerin ya.. :)
thanks.

Unknown mengatakan...

bisa gg bantu saya menghitung nilai akhir

Posting Komentar