soal smk,soal produktif,fungsi pancasila

Powered by Blogger.

Popular Posts

Pages

menghitung ipk vb6

pada pertemuan ini kita akan belajar menghitung IPK sederhana dengan menggunakan aplikasi visual basic dengan text box.

Fungsi IF untuk Menghitung Grade IPK

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

menghitung ipk vb6

menghitung ipk vb6 text box

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
 terimakasih atas kunjungan anda, pada artikel menghitung ipk vb6
Anda baru saja membaca artikel yang berkategori visual basic dengan judul menghitung ipk vb6. Anda bisa bookmark halaman ini dengan URL https://saapii.blogspot.com/2013/06/menghitung-ipk-vb6.html. Terima kasih!
Ditulis oleh: syaiful ridlo - Friday, 21 June 2013

Belum ada komentar untuk "menghitung ipk vb6"

Post a Comment