Membuat Program Menggunakan Aplikasi Visual Basic

Langkah-langkah dalam membuat program dengan menggunakan Visual Basic:

1.       Pertama-tama buka aplikasi Visual Basic

2.       Kemudian kita akan membuat 6 labelbox (program percabangan if bersarang, nama, nilai uts, nilai uas, output dan untuk hasil akhirnya), 3 textbox, dan 2 command button (proses dan clear). Dan akan terlihat seperti ini 

3.       Setelah itu kita akan memasukan coding untuk command 1 yaitu proses. Codingnya seperti ini:

Dim uts, uas As Integer

Dim hasil As Double

Dim nama As String

Artinya mendeklarasikan variabel uts dan uas adalah tipe data integer (angka), variabel hasil adalah tipe data double (bisa berupa desimal), dan nama adalah tipe data string (teks)

Nama = Text1.Text

Uts = Text2.Text

Uas = Text3.Text

Artinya input-an nama akan ditulis di textbox1, input-an uts akan ditulis di textbox2, input-an uas akan ditulis di textbox3

Hasil = (0.7 * uts) + (0.3 * uas)

Ini adalah rumus yang akan kita digunakan

If hasil >= 80 Then

Label6.Caption = "Nama anda " & nama & " Nilai akhir " & hasil & " Anda lulus dengan Grade A"

ElseIf hasil >= 70 Then

Label6.Caption = "Nama anda " & nama & " Nilai akhir " & hasil & " Anda lulus dengan Grade B"

ElseIf hasil >= 65 Then

Label6.Caption = "Nama anda " & nama & " Nilai akhir " & hasil & " Anda lulus dengan Grade C"

ElseIf hasil >= 40 Then

Label6.Caption = "Nama anda " & nama & " Nilai akhir " & hasil & " Anda tidak lulus dengan Grade D"

Else

Label6.Caption = "MENGULANG SEMESTER DEPAN ASHIAP"

Artinya jika output hasil lebih dari 80 maka label 6 akan mecetak nama anda ... nilai akhir ... anda lulus dengan Grade A, lain jika output hasil lebih dari 70 maka label 6 akan mecetak nama anda ... nilai akhir ... anda lulus dengan Grade B, lain output hasil lebih dari 65 maka label 6 akan mecetak nama anda ... nilai akhir ... anda lulus dengan Grade C, lain output hasil lebih dari 40 maka label 6 akan mecetak nama anda ... nilai akhir ... anda tidak lulus dengan Grade D, dan kalau nilainya kurang dari 40 maka label 6 akan mencetak MENGULANG SEMESTER DEPAN ASHIAP

End if – untuk mengakhir kondisi if di atas

4.       Saat kita jalankan program nya, maka akan terlihat seperti ini

5.       Selanjutnya kita akan membuat coding command 2 yaitu Clear, codingnya seperti ini

Text1.Text = “ “

Text2.Text = “ “

Text3.Text = “ “

Label6.Caption = “ “

Arti kutip-kutip adalah untuk mengkosongkan textbox1, textbox2, textbox3, dan labelbox6

6.       Setelah kita klik command 2 (clear), akan terlihat seperti tampilan awal lagi, seperti ini yang ditampilkan di bawah ini