Visual Basic : Program Menghitung Nilai Akhir Matakuliah

Contoh Kasus :

1.  Gunakan fungsi manipulasi string untuk menentukan jurusan (jurusan ditentukan oleh isi digit ketiga dari kiri pada NIM).

2.  Buat agar textbox nilai yang tidak akan digunakan untuk peginputan, properti enabled-nya di set menjadi false.

Berikut Formnya :

Kemudian ketikkan listing berikut :

Private Sub Command1_Click()

‘Tombol Hitung

Dim na As Single

Dim nt As Integer

Dim nm As Integer

Dim nf As Integer

Dim nh As String

nt = Val(Text4.Text)

nm = Val(Text5.Text)

nf = Val(Text6.Text)

If Option1.Value = True Then

na = (0.4 * nm) + (0.6 * nf)

ElseIf Option2.Value = True Then

na = (0.2 * nt) + (0.4 * nm) + (0.4 * nf)

ElseIf Option3.Value = True Then

na = (0.3 * nt) + (0.4 * nm) + (0.3 * nf)

End If

If na >= 80 Then

nh = "A"

ElseIf na >= 60 Then

nh = "B"

ElseIf na >= 40 Then

nh = "C"

ElseIf na >= 30 Then

nh = "D"

ElseIf na < 30 Then

nh = "E"

End If

Text7.Text = na

Text8.Text = nh

End Sub

Private Sub Command2_Click()

‘Tombol Ulangi

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Option1.Value = False

Option2.Value = False

Option3.Value = False

Text1.SetFocus

End Sub

Private Sub Command3_Click()

‘Tombol Keluar

End

End Sub

Private Sub Option1_Click()

‘Option  C/C++

If Option1.Value = True Then

Text4.Enabled = False

End If

End Sub

Private Sub Option2_Click()

‘Option Pascal

If Option2.Value = True Then

Text4.Enabled = True

End If

End Sub

Private Sub Option3_Click()

‘Option Visual basic

If Option3.Value = True Then

Text4.Enabled = True

End If

End Sub

Private Sub Text1_LostFocus()

‘Text1

Dim jur As String

If Mid(Trim(Text1), 3, 1) = "1" Then

jur = "Sistem Informasi"

ElseIf Mid(Trim(Text1), 3, 1) = "2" Then

jur = "Teknik Informatika"

ElseIf Mid(Trim(Text1), 3, 1) = "3" Then

jur = "Manajemen Informatika"

End If

Text3.Text = jur

End Sub

Outputnya :

Visual Basic : Program Penjualan Barang

Ini adalah tampilan form untuk membuat program penjualan barang. Setelah membuat form seperti di bawah ini, buat agar textbox Nama Barang, Harga Satuan, Total Harga, Discount, PPN, Total Bayar dan Kembali tidak dapat di akses (properti Enabled di set ke false).

Berikut Listingnya :

Option Explicit

Dim nama As String

Dim harga As Currency

Dim diskon As Currency

Dim total As Currency

Dim totalhrg As Currency

Dim ppn As Currency

Private Sub Combo1_Click()

‘Listing untuk combo1

If Combo1.Text = "A001" Then

nama = "Mesin Cuci"

harga = "1000000"

ElseIf Combo1.Text = "B002" Then

nama = "Kulkas"

harga = "1500000"

ElseIf Combo1.Text = "C003" Then

nama = "Televisi"

harga = "1250000"

ElseIf Combo1.Text = "D004" Then

nama = "Komputer"

harga = "3500000"

End If

Text1.Text = nama

Text2.Text = Format(harga, "###,###")

End Sub

Private Sub Command1_Click()

‘Listing Tombol Hitung

totalhrg = harga * Val(Text3.Text)

ppn = totalhrg * 0.1

If Val(Text3.Text) > 5 Then

totalhrg = totalhrg

diskon = totalhrg * 0.3

Else

totalhrg = totalhrg

diskon = 0

End If

Text4.Text = Format(totalhrg, "###,###")

Text5.Text = Format(diskon, "###,###")

Text6.Text = Format(ppn, "###,###")

total = (totalhrg - diskon) + ppn

Text7.Text = Format(total, "###,###")

End Sub

Private Sub Command2_Click()

‘Listing Tombol Ulangi

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Combo1.Text = "-Pilih-"

Combo1.SetFocus

End Sub

Private Sub Command3_Click()

‘Listing Tombol Kembali

End

End Sub

Private Sub Form_Load()

‘Listing untuk Form

Combo1.Text = "-Pilih-"

Combo1.AddItem "A001"

Combo1.AddItem "B002"

Combo1.AddItem "C003"

Combo1.AddItem "D004"

End Sub

Private Sub Text8_LostFocus()

‘Listing untuk Text8

Text9.Text = Format(CSng(Text8.Text) - CSng(Text7.Text), "Standard")

Command2.SetFocus

End Sub

Ini Outputnya :