VARIASI NAMA
KODE
Private Sub Berakhir_Click()
End
End Sub
Private Sub Bulet1_Click()
Tempat_Putih.ForeColor = vbBlue
End Sub
Private Sub Bulet2_Click()
Tempat_Putih.ForeColor = vbGreen
End Sub
Private Sub Bulet3_Click()
Tempat_Putih.ForeColor = vbRed
End Sub
Private Sub Conteng1_Click()
Tempat_Putih.FontBold = Conteng1.Value
End Sub
Private Sub Conteng2_Click()
Tempat_Putih.FontItalic = Conteng2.Value
End Sub
Private Sub Conteng3_Click()
Tempat_Putih.FontUnderline = Conteng3.Value
End Sub
Private Sub Proses_Click()
Tempat_Putih.Caption = Tempat_Nulis.Text
End Sub
FORMAT PENJUALAN NETBOOK
KODE
ivate Sub cmb1_Click()
Dim kode_barang, nama_barang As String, harga_barang As Double
kode_barang = Val(cmb1.Text)
nama_barang = Val(txt1.Text)
harga_barang = Val(txt3.Text)
txt2.Enabled = True
Select Case cmb1.Text
Case “AC1N”
nama_barang = “Notebook Acer Aphire One”
harga_barang = “3000000”
Case “TSB1N”
nama_barang = “Notebook Toshiba”
harga_barang = “3500000”
Case “AC1L”
nama_barang = “Laptop Acer 14′”
harga_barang = “5500000”
Case “TSB1L”
nama_barang = “Laptop Toshiba 14′”
harga_barang = “6600000”
Case “AX1N”
nama_barang = “Notebook Axioo”
harga_barang = “2800000”
Case “AX1L”
nama_barang = “Laptop Axioo 14′”
harga_barang = “5000000”
End Select
cmb1 = cmb1.Text
txt1.Text = nama_barang
txt3.Text = harga_barang
txt2.SetFocus
End Sub
Private Sub cmd1_Click()
cmd2.Enabled = True
cmd3.Enabled = True
txt2.Enabled = True
txt6.Enabled = True
Dim nama_barang, harga_barang, jumlah_beli, jumlah_bayar, diskon, total_bayar As Double
harga_barang = Val(txt3.Text)
jumlah_beli = Val(txt2.Text)
jumlah_bayar = Val(bayar.Caption)
diskon = Val(txt4.Text)
total_bayar = Val(txt5.Text)
jumlah_bayar = harga_barang * jumlah_beli
Select Case jumlah_bayar
Case Is >= 15000000
diskon = jumlah_bayar * 0.1
Case Is >= 10000000
diskon = jumlah_bayar * 0.05
Case Is >= 5000000
diskon = jumlah_bayar * 0.02
End Select
total_bayar = jumlah_bayar – diskon
txt4.Text = diskon
txt5.Text = total_bayar
bayar.Caption = jumlah_bayar
txt6.SetFocus
End Sub
Private Sub cmd2_Click()
cmb1.Text = “Silahkan Klik”
txt1.Text = “”
txt2.Text = “”
txt3.Text = “”
txt4.Text = “”
txt5.Text = “”
txt6.Text = “”
txt7.Text = “”
bayar.Caption = “LABEL BAYAR”
cmb1.SetFocus
cmd1.Enabled = False
cmd2.Enabled = True
cmd3.Enabled = True
txt1.Enabled = False
txt3.Enabled = False
End Sub
Private Sub cmd3_Click()
End
End Sub
Private Sub Form_Activate()
cmb1.Text = “Silahkan Klik”
txt1.Text = “”
txt2.Text = “”
txt3.Text = “”
txt4.Text = “”
txt5.Text = “”
txt6.Text = “”
txt7.Text = “”
bayar.Caption = “LABEL BAYAR”
cmb1.SetFocus
cmd1.Enabled = False
cmd2.Enabled = False
cmd3.Enabled = True
txt1.Enabled = False
txt2.Enabled = False
txt3.Enabled = False
txt4.Enabled = False
txt5.Enabled = False
txt6.Enabled = False
txt7.Enabled = False
End Sub
Private Sub Form_Load()
cmb1.Text = “Silahkan Klik”
cmd1.Enabled = False
cmd2.Enabled = False
cmd3.Enabled = True
cmb1.AddItem “AC1N”
cmb1.AddItem “TSB1N”
cmb1.AddItem “AC1L”
cmb1.AddItem “TSB1L”
cmb1.AddItem “AX1N”
cmb1.AddItem “AX1L”
bayar.Caption = “LABEL BAYAR”
End Sub
Private Sub txt2_Change()
txt2.Visible = True
cmd2.Enabled = True
cmd1.Enabled = True
cmd3.Enabled = True
txt2.Enabled = True
End Sub
Private Sub txt2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmd2.Enabled = True
cmd3.Enabled = True
txt2.Enabled = True
txt6.Enabled = True
Dim nama_barang, harga_barang, jumlah_beli, jumlah_bayar, diskon, total_bayar As Double
harga_barang = Val(txt3.Text)
jumlah_beli = Val(txt2.Text)
jumlah_bayar = Val(bayar.Caption)
diskon = Val(txt4.Text)
total_bayar = Val(txt5.Text)
jumlah_bayar = harga_barang * jumlah_beli
Select Case jumlah_bayar
Case Is >= 15000000
diskon = jumlah_bayar * 0.1
Case Is >= 10000000
diskon = jumlah_bayar * 0.05
Case Is >= 5000000
diskon = jumlah_bayar * 0.02
End Select
total_bayar = jumlah_bayar – diskon
txt4.Text = diskon
txt5.Text = total_bayar
bayar.Caption = jumlah_bayar
txt6.SetFocus
End If
End Sub
Private Sub txt6_Click()
If txt6.Text Then
cmd1.Enabled = False
End If
End Sub
Private Sub txt6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim uang_kembali, total_bayar, cash As Double
uang_kembali = Val(txt7.Text)
total_bayar = Val(txt5.Text)
cash = Val(txt6.Text)
uang_kembali = cash – total_bayar
txt7.Text = uang_kembali
txt5.Text = total_bayar
txt6.Text = cash
cmd2.SetFocus
End If
cmd2.Enabled = True
cmd3.Enabled = True
cmd1.Enabled = False
txt6.Enabled = True
End Sub
PROGRAM PENJUALAN MOTOR YAMAHA
KODE
Private Sub cmb1_Click()
If cmb1.Text = “2000000” Then
op4.Enabled = True
op5.Enabled = True
op6.Enabled = True
op4.Value = False
op5.Value = False
op6.Value = False
txt4.Text = “”
End If
If cmb1.Text = “4000000” Then
op4.Enabled = True
op5.Enabled = True
op6.Enabled = True
op4.Value = False
op5.Value = False
op6.Value = False
txt4.Text = “”
End If
If cmb1.Text = “6000000” Then
op4.Enabled = True
op5.Enabled = True
op6.Enabled = True
op4.Value = False
op5.Value = False
op6.Value = False
txt4.Text = “”
End If
End Sub
Private Sub Form_Activate()
txt1.Text = “”
txt2.Text = “”
txt3.Text = “”
txt4.Text = “”
cmb1.Text = “Silahkan Klik”
cmb1.Enabled = False
op1.Value = False
op2.Value = False
op3.Value = False
op4.Value = False
op5.Value = False
op6.Value = False
op4.Enabled = False
op5.Enabled = False
op6.Enabled = False
End Sub
Private Sub Form_Load()
txt1.Text = “”
txt2.Text = “”
txt3.Text = “”
txt4.Text = “”
cmb1.Text = “Silahkan Klik”
cmb1.AddItem “2000000”
cmb1.AddItem “4000000”
cmb1.AddItem “6000000”
op1.Value = False
op2.Value = False
op3.Value = False
op4.Value = False
op5.Value = False
op6.Value = False
End Sub
Private Sub keluar_Click()
End
End Sub
Private Sub op1_Click()
If op1.Value = True Then
txt1.Text = “Yamaha Jupiter Z”
txt2.Text = “Bebek”
txt3.Text = “16500000”
txt4.Text = “”
cmb1.Text = “Silahkan Klik”
cmb1.Enabled = True
cmb1.SetFocus
op4.Enabled = False
op5.Enabled = False
op6.Enabled = False
op4.Value = False
op5.Value = False
op6.Value = False
End If
End Sub
Private Sub op2_Click()
If op2.Value = True Then
txt1.Text = “Yamaha Vixion”
txt2.Text = “Moge”
txt3.Text = “18500000”
txt4.Text = “”
cmb1.Text = “Silahkan Klik”
cmb1.Enabled = True
cmb1.SetFocus
op4.Enabled = False
op5.Enabled = False
op6.Enabled = False
op4.Value = False
op5.Value = False
op6.Value = False
End If
End Sub
Private Sub op3_Click()
If op3.Value = True Then
txt1.Text = “Yamaha Mio”
txt2.Text = “Metic”
txt3.Text = “14300000”
cmb1.Text = “Silahkan Klik”
txt4.Text = “”
cmb1.Enabled = True
cmb1.SetFocus
op4.Enabled = False
op5.Enabled = False
op6.Enabled = False
op4.Value = False
op5.Value = False
op6.Value = False
End If
End Sub
Private Sub op4_Click()
Dim harga_cash, angsuran As Double
harga_cash = Val(txt3.Text)
dp = Val(cmb1.Text)
If dp = “2000000” And op4.Value = True Then
angsuran = (harga_cash * 10 / 100) + (harga_cash – dp) / 12
End If
If dp = “4000000” And op4.Value = True Then
angsuran = (harga_cash * 9 / 100) + (harga_cash – dp) / 12
End If
If dp = “6000000” And op4.Value = True Then
angsuran = (harga_cash * 8 / 100) + (harga_cash – dp) / 12
End If
cmb1.Text = dp
txt3.Text = harga_cash
txt4.Text = angsuran
End Sub
Private Sub op5_Click()
Dim harga_cash, angsuran As Double
harga_cash = Val(txt3.Text)
dp = Val(cmb1.Text)
If dp = “2000000” And op5.Value = True Then
angsuran = (harga_cash * 13 / 100) + (harga_cash – dp) / 24
End If
If dp = “4000000” And op5.Value = True Then
angsuran = (harga_cash * 12 / 100) + (harga_cash – dp) / 24
End If
If dp = “6000000” And op5.Value = True Then
angsuran = (harga_cash * 11 / 100) + (harga_cash – dp) / 24
End If
cmb1.Text = dp
txt3.Text = harga_cash
txt4.Text = angsuran
End Sub
Private Sub op6_Click()
Dim harga_cash, angsuran As Double
harga_cash = Val(txt3.Text)
dp = Val(cmb1.Text)
If dp = “2000000” And op6.Value = True Then
angsuran = (harga_cash * 15 / 100) + (harga_cash – dp) / 36
End If
If dp = “4000000” And op6.Value = True Then
angsuran = (harga_cash * 14 / 100) + (harga_cash – dp) / 36
End If
If dp = “6000000” And op6.Value = True Then
angsuran = (harga_cash * 13 / 100) + (harga_cash – dp) / 36
End If
cmb1.Text = dp
txt3.Text = harga_cash
txt4.Text = angsuran
End Sub
DAFTAR NAMA MAHASISWA
DAN RINCIAN BIAYA SMESTER
KODE
Private Sub batal_Click()
txt1.SetFocus
txt1.Text = “”
txt2.Text = “”
txt3.Text = “”
txt4.Text = “”
txt5.Text = “”
txt6.Text = “”
txt7.Text = “”
txt8.Text = “”
txt9.Text = “”
txt10.Text = “”
txt11.Text = “”
txt12.Text = “”
txt13.Text = “”
batal.Enabled = False
lagi.Enabled = False
keluar.Enabled = True
proses.Enabled = False
rincian.Enabled = False
End Sub
Private Sub Form_Activate()
txt1.SetFocus
txt1.Text = “”
txt2.Text = “”
txt3.Text = “”
txt4.Text = “”
txt5.Text = “”
txt6.Text = “”
txt7.Text = “”
txt8.Text = “”
txt9.Text = “”
txt10.Text = “”
txt11.Text = “”
txt12.Text = “”
txt13.Text = “”
lagi.Enabled = False
batal.Enabled = False
keluar.Enabled = True
proses.Enabled = False
rincian.Enabled = False
txt3.Enabled = False
txt4.Enabled = False
txt5.Enabled = False
txt6.Enabled = False
txt7.Enabled = False
txt8.Enabled = False
txt9.Enabled = False
txt10.Enabled = False
txt11.Enabled = False
txt12.Enabled = False
txt13.Enabled = False
End Sub
Private Sub keluar_Click()
End
End Sub
Private Sub lagi_Click()
txt1.SetFocus
txt1.Text = “”
txt2.Text = “”
txt3.Text = “”
txt4.Text = “”
txt5.Text = “”
txt6.Text = “”
txt7.Text = “”
txt8.Text = “”
txt9.Text = “”
txt10.Text = “”
txt11.Text = “”
txt12.Text = “”
txt13.Text = “”
txt8.Enabled = False
txt9.Enabled = False
txt10.Enabled = False
txt11.Enabled = False
txt12.Enabled = False
txt13.Enabled = False
batal.Enabled = False
lagi.Enabled = False
keluar.Enabled = True
proses.Enabled = False
rincian.Enabled = False
End Sub
Private Sub proses_Click()
rincian.Enabled = True
lagi.Enabled = False
batal.Enabled = True
Dim x As String
txt5.Text = “20” & Left(txt2.Text, 2)
x = Mid(txt2.Text, 3, 2)
If x = “10” Then
txt3.Text = “Sistem Informasi”
txt4.Text = “Strata Satu”
ElseIf x = “20” Then
txt3.Text = “Manajemen Informatika”
txt4.Text = “Diploma Tiga”
ElseIf x = “30” Then
txt3.Text = “Teknik Informatika”
txt4.Text = “Strata Satu”
ElseIf x = “40” Then
txt3.Text = “Manajemen dan Komputer Akuntansi”
txt4.Text = “Strata Satu”
End If
rincian.SetFocus
txt6.Text = Right(txt2.Text, 4)
txt7.Text = txt1.Text
End Sub
Private Sub proses_KeyPress(KeyAscii As Integer)
rincian.Enabled = True
lagi.Enabled = False
batal.Enabled = True
Dim x As String
txt5.Text = “20” & Left(txt2.Text, 2)
x = Mid(txt2.Text, 3, 2)
If x = “10” Then
txt3.Text = “Sistem Informasi”
txt4.Text = “Strata Satu”
ElseIf x = “20” Then
txt3.Text = “Manajemen Informatika”
txt4.Text = “Diploma Tiga”
ElseIf x = “30” Then
txt3.Text = “Teknik Informatika”
txt4.Text = “Strata Satu”
ElseIf x = “40” Then
txt3.Text = “Manajemen dan Komputer Akuntansi”
txt4.Text = “Strata Satu”
End If
rincian.SetFocus
txt6.Text = Right(txt2.Text, 4)
txt7.Text = txt1.Text
End Sub
Private Sub rincian_Click()
lagi.Enabled = True
batal.Enabled = True
proses.Enabled = False
Dim uang_pendaftaran, propti_almamater, uang_bangunan, biaya_pendidikan, uang_ujian, total_ulang As Double
uang_pendaftaran = Val(txt8.Text)
propti_almamater = Val(txt9.Text)
uang_bangunan = Val(txt10.Text)
biaya_pendidikan = Val(txt11.Text)
uang_ujian = Val(txt12.Text)
If txt3.Text = “Sistem Informasi” And txt4.Text = “Strata Satu” Then
uang_pendaftaran = “300000”
propti_almamater = “700000”
uang_bangunan = “1500000”
biaya_pendidikan = “1800000”
uang_ujian = “300000”
total_ulang = Val(uang_pendaftaran) + Val(propti_almamater) + Val(uang_bangunan) + Val(biaya_pendidikan) + Val(uang_ujian)
txt13.Text = total_ulang
txt8.Text = uang_pendaftaran
txt9.Text = propti_almamater
txt10.Text = uang_bangunan
txt11.Text = biaya_pendidikan
txt12.Text = uang_ujian
End If
If txt3.Text = “Manajemen Informatika” And txt4.Text = “Diploma Tiga” Then
uang_pendaftaran = “250000”
propti_almamater = “650000”
uang_bangunan = “1300000”
biaya_pendidikan = “1500000”
uang_ujian = “250000”
total_ulang = Val(uang_pendaftaran) + Val(propti_almamater) + Val(uang_bangunan) + Val(biaya_pendidikan) + Val(uang_ujian)
txt13.Text = total_ulang
txt8.Text = uang_pendaftaran
txt9.Text = propti_almamater
txt10.Text = uang_bangunan
txt11.Text = biaya_pendidikan
txt12.Text = uang_ujian
End If
If txt3.Text = “Teknik Informatika” And txt4.Text = “Strata Satu” Then
uang_pendaftaran = “350000”
propti_almamater = “750000”
uang_bangunan = “1700000”
biaya_pendidikan = “2000000”
uang_ujian = “300000”
total_ulang = Val(uang_pendaftaran) + Val(propti_almamater) + Val(uang_bangunan) + Val(biaya_pendidikan) + Val(uang_ujian)
txt13.Text = total_ulang
txt8.Text = uang_pendaftaran
txt9.Text = propti_almamater
txt10.Text = uang_bangunan
txt11.Text = biaya_pendidikan
txt12.Text = uang_ujian
End If
If txt3.Text = “Manajemen dan Komputer Akuntansi” And txt4.Text = “Strata Satu” Then
uang_pendaftaran = “250000”
propti_almamater = “650000”
uang_bangunan = “1400000”
biaya_pendidikan = “1700000”
uang_ujian = “300000”
total_ulang = Val(uang_pendaftaran) + Val(propti_almamater) + Val(uang_bangunan) + Val(biaya_pendidikan) + Val(uang_ujian)
txt13.Text = total_ulang
txt8.Text = uang_pendaftaran
txt9.Text = propti_almamater
txt10.Text = uang_bangunan
txt11.Text = biaya_pendidikan
txt12.Text = uang_ujian
End If
lagi.SetFocus
End Sub
Private Sub rincian_KeyPress(KeyAscii As Integer)
If KeyAschii = 13 Then
lagi.Enabled = True
batal.Enabled = True
proses.Enabled = False
Dim uang_pendaftaran, propti_almamater, uang_bangunan, biaya_pendidikan, uang_ujian, total_ulang As Double
uang_pendaftaran = Val(txt8.Text)
propti_almamater = Val(txt9.Text)
uang_bangunan = Val(txt10.Text)
biaya_pendidikan = Val(txt11.Text)
uang_ujian = Val(txt12.Text)
If txt3.Text = “Sistem Informasi” And txt4.Text = “Strata Satu” Then
uang_pendaftaran = “300000”
propti_almamater = “700000”
uang_bangunan = “1500000”
biaya_pendidikan = “1800000”
uang_ujian = “300000”
total_ulang = Val(uang_pendaftaran) + Val(propti_almamater) + Val(uang_bangunan) + Val(biaya_pendidikan) + Val(uang_ujian)
txt13.Text = total_ulang
txt8.Text = uang_pendaftaran
txt9.Text = propti_almamater
txt10.Text = uang_bangunan
txt11.Text = biaya_pendidikan
txt12.Text = uang_ujian
End If
If txt3.Text = “Manajemen Informatika” And txt4.Text = “Diploma Tiga” Then
uang_pendaftaran = “250000”
propti_almamater = “650000”
uang_bangunan = “1300000”
biaya_pendidikan = “1500000”
uang_ujian = “250000”
total_ulang = Val(uang_pendaftaran) + Val(propti_almamater) + Val(uang_bangunan) + Val(biaya_pendidikan) + Val(uang_ujian)
txt13.Text = total_ulang
txt8.Text = uang_pendaftaran
txt9.Text = propti_almamater
txt10.Text = uang_bangunan
txt11.Text = biaya_pendidikan
txt12.Text = uang_ujian
End If
If txt3.Text = “Teknik Informatika” And txt4.Text = “Strata Satu” Then
uang_pendaftaran = “350000”
propti_almamater = “750000”
uang_bangunan = “1700000”
biaya_pendidikan = “2000000”
uang_ujian = “300000”
total_ulang = Val(uang_pendaftaran) + Val(propti_almamater) + Val(uang_bangunan) + Val(biaya_pendidikan) + Val(uang_ujian)
txt13.Text = total_ulang
txt8.Text = uang_pendaftaran
txt9.Text = propti_almamater
txt10.Text = uang_bangunan
txt11.Text = biaya_pendidikan
txt12.Text = uang_ujian
End If
If txt3.Text = “Manajemen dan Komputer Akuntansi” And txt4.Text = “Strata Satu” Then
uang_pendaftaran = “250000”
propti_almamater = “650000”
uang_bangunan = “1400000”
biaya_pendidikan = “1700000”
uang_ujian = “300000”
total_ulang = Val(uang_pendaftaran) + Val(propti_almamater) + Val(uang_bangunan) + Val(biaya_pendidikan) + Val(uang_ujian)
txt13.Text = total_ulang
txt8.Text = uang_pendaftaran
txt9.Text = propti_almamater
txt10.Text = uang_bangunan
txt11.Text = biaya_pendidikan
txt12.Text = uang_ujian
End If
lagi.SetFocus
End If
End Sub
Private Sub txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txt2.SetFocus
End If
End Sub
Private Sub txt2_KeyPress(KeyAscii As Integer)
proses.Enabled = True
rincian.Enabled = False
If KeyAscii = 13 Then
proses.SetFocus
batal.Enabled = True
keluar.Enabled = True
End If
End Sub