kode barang

Private Sub cmb1_Click()
Dim Jenis_komputer As String, harga_satuan As String
Jenis_komputer = Val(T1.Text)
harga_satuan = Val(T1.Text)
Select Case cmb1.Text
Case “p205”
Jenis_komputer = “pentium II 500 Mega HZ”
harga_satuan = “1500000”
Case “p308”
Jenis_komputer = “pentium III 800 Mega HZ”
harga_satuan = “2100000”
Case “p310”
Jenis_komputer = “pentium III 1.0 Giga HZ”
harga_satuan = “3500000”
Case “p415”
Jenis_komputer = “pentium IV 1.5 Giga HZ”
Haraga_satuan = “4000000”
Case “p417”
Jenis_komputer = “pentium IV 1.7 Giga HZ”
harga_satuan = “4200000”
Case Else
Jenis_komputer = “pentium IV 1.9 Giga HZ”
harga_satuan = “5000000”
End Select
T1.Text = Jenis_komputer
T2.Text = harga_satuan
T3.SetFocus
Cmd1.Enabled = True
Cmd2.Enabled = True
Cmd3.Enabled = True
End Sub

Private Sub Cmd1_Click()
T4.Text = Val(T1.Text) + Val(T2.Text) – Val(T3.Text)
T5.Text = Val(T4.Text) * 0.1
T6.Text = Val(T4.Text) – Val(T5.Text)
End Sub

Private Sub Cmd2_Click()
cmb1.SetFocus
cmb1.Text = “Silahkan Klik”
T1.Text = “”
T2.Text = “”
T3.Text = “”
T4.Text = “”
T5.Text = “”
T6.Text = “”
End Sub

Private Sub Cmd3_Click()
End
End Sub

Private Sub Form_Activate()
cmb1.SetFocus
cmb1.Text = “Silahkan Klik”
T1.Text = “”
T2.Text = “”
T3.Text = “”
T4.Text = “”
T5.Text = “”
T6.Text = “”
T1.Enabled = False
T2.Enabled = False
T4.Enabled = False
T5.Enabled = False
T6.Enabled = False
End Sub

Private Sub Form_Load()
T1.Text = “”
T2.Text = “”
T3.Text = “”
T4.Text = “”
T5.Text = “”
T6.Text = “”
cmb1.AddItem “P205”
cmb1.AddItem “p308”
cmb1.AddItem “p310”
cmb1.AddItem “p415”
cmb1.AddItem “p417”
cmb1.AddItem “p419”
Cmd1.Enabled = False
Cmd2.Enabled = False
Cmd3.Enabled = True
End Sub

Private Sub T3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
T4.Text = Val(T1.Text) + Val(T2.Text) – Val(T3.Text)
T5.Text = Val(T4.Text) * 0.1
T6.Text = Val(T4.Text) – Val(T5.Text)
End If
End Sub

Iklan

Gambar  —  Posted: Maret 18, 2012 in Uncategorized

Posted: Februari 18, 2012 in Uncategorized


Private Sub CMDBATAL_Click()
TXTKB.SetFocus
TXTKB.Text = “”
TXTNB.Text = “”
TXTJS.Text = “”
TXTTJ.Text = “”
TXTHJ.Text = “”
TXTTH.Text = “”
TXTSS.Text = “”

End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
Dim NM As String

NM = TXTKB.Text

If NM = “HT002S” Then
TXTNB.Text = “SOUND SISTEM”
TXTHJ.Text = “350000”
ElseIf NM = “HB002C” Then
TXTNB.Text = “COMPACT”
TXTHJ.Text = “480000”
ElseIf NM = “HB002T” Then
TXTNB.Text = “TAPE”
TXTHJ.Text = “275000”
End If
TXTJS.SetFocus
End Sub

Private Sub txtjs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTJ.SetFocus
End If
End Sub

Private Sub TXTTH_Click()
TXTTERBILANG.Text = TERBILANG(Val(TXTTH.Text))
End Sub

Private Sub TXTTJ_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim JS, TJ As Integer

TXTSS.Text = Val(TXTJS.Text) – Val(TXTTJ.Text)
TXTTH.Text = Val(TXTTJ.Text) * Val(TXTHJ.Text)
TXTTH.SetFocus
End If
End Sub

Deka Erwanta Yahoo 3

Posted: Februari 1, 2012 in Uncategorized

daftar stok barang Quis 1

Posted: Januari 21, 2012 in Uncategorized

kode
Private Sub cmdbatal_Click()
txtkd.SetFocus
txtkd.Text = “”
txtnama.Text = “”
txtjumlah.Text = “”
txtsisa.Text = “”
txtterjual.Text = “”
txtharga.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()

Dim A As String
A = txtkd.Text

If A = “HB002T” Then
txtnama.Text = “TAPE”
txtharga.Text = “275000”

ElseIf A = “HT002S” Then
txtnama.Text = “SOUND SYSTEM”
txtharga.Text = “350000”

ElseIf A = “HB002C” Then
txtnama.Text = “COMPACT”
txtharga.Text = “480000”
End If

txtjumlah.SetFocus

End Sub

Private Sub txtjumlah_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsisa.SetFocus
End If
End Sub

Private Sub txtsisa_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtterjual.Text = Val(txtjumlah.Text) – Val(txtsisa.Text)
txttotal.Text = Val(txtterjual.Text) * Val(txtharga.Text)
End If
End Sub

PT.Sembako Jaya Mundur

Posted: Januari 18, 2012 in Uncategorized

Gaji Karyawan PT.Sembako Jaya Mundur

program dari aplikasi diatas=>>

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txts.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtjabatan.Text = “”

txtbagian.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txttotalgaji.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim nik As String

nik = Left(txtnik.Text, 1)

If nik = “A” Then

txtgol.Text = “A”

txtjabatan.Text = “MANAGER”

txtgapok.Text = “2500000″

txttunjangan.Text = “625000″

ElseIf nik = “B” Then

txtgol.Text = “B”

txtjabatan.Text = “KEPALA SEKSI”

txtgapok.Text = “1500000″

txttunjangan.Text = “375000″

ElseIf nik = “C” Then

txtgol.Text = “C”

txtjabatan.Text = “staff”

txtgapok.Text = “1000000″

txttunjangan.Text = “250000″

End If

nik = Mid(txtnik.Text, 2, 4)

txttahun.Text = nik

nik = Mid(txtnik.Text, 6, 3)

If nik = “KEU” Then

txtbagian.Text = “ACCOUNDING”

ElseIf nik = “ADM” Then

txtbagian.Text = “ADMINIDTRATION”

ElseIf nik = “SDM” Then

txtbagian.Text = “GENERAL AFFAIR”

ElseIf nik = “SPM” Then

txtbagian.Text = “SCURITY”

ElseIf nik = “EDP” Then

txtbagian.Text = “IT UNIT”

End If

nik = Right(txtnik.Text, 1)

If nik = “M” Then

txts.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf nik = “S” Then

txts.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf nik = “D” Then

txts.Text = “D”

txtstatus.Text = “DUDA”

ElseIf nik = “J” Then

txts.Text = “J”

txtstatus.Text = “JANDA”

End If

txttotalgaji.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

End Sub

Private Sub keluar_Click()

Unload Me

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub

 

CONTOH VISUAL BESIC 1

Posted: Januari 11, 2012 in Uncategorized

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