Cara Menghitung Nilai Mahasiswa Dengan Visual Basic 6.0

Assalamu'alaikum wr. wb



Hallo sahabat semuanya, bertemu lagi dengan saya dalam postingan kali ini, kali ini saya akan membahas sedikit tentang Visual Basic, meskipun saya masih dalam proses pembelajaran, saya ingin berbagi pengalaman saya pada sahabat semuanya, langsung saja ke materi ya, hehe


1. Buatlah sebuah form baru.
2. Designlah form tersebut seperti ini

3. Ada 7 Label pada form tersebut, 6 Text Box, dan 3 Command
4. Lalu klik 2 x pada tombol Proses, kemudian copy code berikut :
-----------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim nilai As Integer
Dim hasil As String

nilai = Val(Text2.Text * 0.3) + Val(Text3.Text * 0.35) + Val(Text4.Text * 0.35)
Text5.Text = nilai
hasil = IIf(nilai >= 85, "A", IIf(nilai >= 75, "B", IIf(nilai >= 65, "C", IIf(nilai >= 55, "D", "E"))))

Text6.Text = hasil
End Sub
------------------------------------------------------------------------------------------------
Private Sub aktif()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
------------------------------------------------------------------------------------------------
Private Sub Command2_Click()
MsgBox ("Apakah anda ingin menghapus hasil ini?")
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Command3_Click()
End
End Sub
-----------------------------------------------------------------------------------------------
5. Kemudian langsung saja paste
6. Kalau sahabat mengikuti langkah saya di atas, dijamin akan berhasil.



Semoga bermanfaat ya sahabat, sampai jumpa di postingan saya selanjutnya.


Wassalamu'alaikum wr.wb