Membuat Program rekening Listrik sederhana menggunakan fungsi IF dengan VB 6.0

Pertama buat form seperti ini

 lalu setting seperti ini

kemudian ketikkan kode berikut

Const Brawat = 2000
Const Badmin = 1500

Private Sub ckelas_Click()
tawal.SetFocus
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
tid.Text = ""
tnama.Text = ""
ckelas.Text = ""
tawal.Text = ""
takhir.Text = ""
tjumlah.Text = ""
tharga.Text = ""
ttotal.Text = ""
tid.SetFocus
tk1.Text = ""
tk2.Text = ""
tk3.Text = ""
txtrawat.Text = ""
txtadmin.Text = ""
End Sub

Private Sub Form_Load()
ckelas.AddItem ("R1")
ckelas.AddItem ("R2")
ckelas.AddItem ("R3")
ckelas.AddItem ("R4")
tid.Text = ""
tnama.Text = ""
ckelas.Text = ""
tawal.Text = ""
takhir.Text = ""
tjumlah.Text = ""
tharga.Text = ""
ttotal.Text = ""
txtrawat.Text = ""
txtadmin.Text = ""
txtrawat.Enabled = False
txtadmin.Enabled = False
ttotal.Enabled = False
tharga.Enabled = False
tjumlah.Enabled = False
tk1.Text = ""
tk2.Text = ""
tk3.Text = ""
tk1.Enabled = False
tk2.Enabled = False
tk3.Enabled = False
End Sub

Private Sub takhir_Change()
tjumlah.Text = (Val(takhir.Text) - Val(tawal.Text))
lkelas.Caption = ckelas.Text
If ckelas.Text = "R1" Then
tk1.Text = "Rp. 1.000,-"
tk2.Text = "Rp. 2.000,-"
tk3.Text = "Rp. 3.000,-"
ElseIf ckelas.Text = "R2" Then
tk1.Text = "Rp. 2.000,-"
tk2.Text = "Rp. 3.000,-"
tk3.Text = "Rp. 4.000,-"
ElseIf ckelas.Text = "R3" Then
tk1.Text = "Rp. 3.000,-"
tk2.Text = "Rp. 4.000,-"
tk3.Text = "Rp. 5.000,-"
ElseIf ckelas.Text = "R4" Then
tk1.Text = "Rp. 3.500,-"
tk2.Text = "Rp. 4.500,-"
tk3.Text = "Rp. 5.500,-"
End If
txtrawat.Text = "Rp. 2.000,-"
txtadmin.Text = "Rp. 1.500,-"

If ckelas.Text = "R1" And Val(tjumlah.Text) <= 10 Then
tharga.Text = (Val(tjumlah.Text) * 1000)
ElseIf ckelas.Text = "R1" And Val(tjumlah.Text) <= 20 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 1000) + (Val(tjumlah.Text) - 10) * 2000
ElseIf ckelas.Text = "R1" And Val(tjumlah.Text) >= 21 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 1000) + ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 2000) + ((Val(tjumlah.Text) - 20) * 3000)
ElseIf ckelas.Text = "R2" And Val(tjumlah.Text) <= 10 Then
tharga.Text = (Val(tjumlah.Text) * 2000)
ElseIf ckelas.Text = "R2" And Val(tjumlah.Text) <= 20 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 2000) + (Val(tjumlah.Text) - 10) * 3000
ElseIf ckelas.Text = "R2" And Val(tjumlah.Text) >= 21 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 2000) + ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3000) + ((Val(tjumlah.Text) - 20) * 4000)
ElseIf ckelas.Text = "R3" And Val(tjumlah.Text) <= 10 Then
tharga.Text = (Val(tjumlah.Text) * 3000)
ElseIf ckelas.Text = "R3" And Val(tjumlah.Text) <= 20 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3000) + (Val(tjumlah.Text) - 10) * 4000
ElseIf ckelas.Text = "R3" And Val(tjumlah.Text) >= 21 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3000) + ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 4000) + ((Val(tjumlah.Text) - 20) * 5000)
ElseIf ckelas.Text = "R4" And Val(tjumlah.Text) <= 10 Then
tharga.Text = (Val(tjumlah.Text) * 3500)
ElseIf ckelas.Text = "R4" And Val(tjumlah.Text) <= 20 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3500) + (Val(tjumlah.Text) - 10) * 4500
ElseIf ckelas.Text = "R4" And Val(tjumlah.Text) >= 21 Then
tharga.Text = ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 3500) + ((Val(tjumlah.Text) + (10 - Val(tjumlah.Text))) * 4500) + ((Val(tjumlah.Text) - 20) * 5500)
End If
ttotal.Text = ("Rp. " & (Val(tharga.Text) + Brawat + Badmin) & ",-")
tharga.Text = ("Rp. " & Val(tharga.Text) & ",-")
End Sub

Membuat program nilai mahasiswa sederhana dengan VB 6.0

Design form seperti di bawah ini

lalu setting  seperti ini

 

kemudian ketikkan kode berikut

Dim a, t, ut, ua, r As Integer
Dim nh, p As String

Private Sub Command1_Click()
txtnim.Text = " "
txtnama.Text = " "
ckelas.Text = ""
cmatkul.Text = ""
cdosen.Text = ""
txtabsen.Text = ""
txttugas.Text = ""
txtuts.Text = ""
txtuas.Text = ""
txtrata.Text = ""
txtnh.Text = ""
txtpredikat.Text = ""
txtnim.SetFocus

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
a = txtabsen.Text
t = txttugas.Text
ut = txtuts.Text
ua = txtuas.Text

r = (a * 0.2) + (t * 0.2) + (ut * 0.25) + (ua * 0.35)
If r >= 80 Then
    nh = "A"
    p = "Sangat Baik"
ElseIf r >= 70 Then
    nh = "B"
    p = "Baik"
ElseIf r >= 60 Then
    nh = "C"
    p = "Cukup"
ElseIf r >= 50 Then
    nh = "D"
    p = "Kurang"
Else
    nh = "E"
    p = "Sangat Kurang"
    End If
txtrata.Text = r
txtnh.Text = nh
txtpredikat.Text = p
End Sub

Private Sub Form_Load()
ckelas.AddItem "MI11-01"
ckelas.AddItem "MI11-02"
ckelas.AddItem "MI11-03"
ckelas.AddItem "MI11-04"
ckelas.AddItem "MI11-05"
ckelas.AddItem "MI11-06"
ckelas.AddItem "MI11-07"
ckelas.AddItem "MI11-08"
ckelas.AddItem "MI11-09"
ckelas.AddItem "MI11-10"
cmatkul.AddItem " Struktur Data "
cmatkul.AddItem " HTM L"
cmatkul.AddItem " VB 1 "
cdosen.AddItem "Solikhun,M.com"
cdosen.AddItem "Dedy Hartama.S.T.M.com"
cdosen.AddItem "Poningsih M.com"
txtrata.Enabled = False
txtnh.Enabled = False
txtpredikat.Enabled = False

End Sub