belajar usaha, materi smk, game

menghitung ipk vb6

Fungsi IF untuk Menghitung Grade IPK

Pada VB 6, untuk menghitung grade bisa menggunkan fungsi IF, seperti contoh gambar form di bawah ini:












Proses kerjanya adalah sebagai berikut: Saat form dijalankan maka tombol 'hitung' akan tampak, setelah input nilai, dilanjutkan klik 'hitung' maka yang muncul adalah tombol 'clear'

Untuk kodenya adalah sebagai berikut:

Private Sub Command1_Click()
Text3 = (Val(Text1) + Val(Text2)) / 2
If Text3 >= 85 Then
Text4 = "A"
ElseIf Text3 >= 75 Then
Text4 = "B"
ElseIf Text3 >= 60 Then
Text4 = "C"
ElseIf Text3 > 50 Then
Text4 = "D"
Else
Text4 = "E"
End If
Command1.Visible = False
Command2.Visible = True
End Sub

Private Sub Command2_Click()
Command1.Visible = True
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Command2.Visible = False
End Sub

Private Sub Form_Load()
Command1.Visible = True
Command2.Visible = False
End Sub
Anda baru saja membaca artikel yang berkategori visual basic dengan judul menghitung ipk vb6. Anda bisa bookmark halaman ini dengan URL http://saapii.blogspot.com/2013/06/menghitung-ipk-vb6.html. Terima kasih!
Ditulis oleh: syaiful ridlo - Thursday, 20 June 2013

Belum ada komentar untuk "menghitung ipk vb6"

Post a Comment