2

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurus.Text = “”
txtpro.Text = “”
txttahun.Text = “”
txtno.Text = “”
txtdaftar.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurus.Text = “”
txtpro.Text = “”
txttahun.Text = “”
txtno.Text = “”
txtdaftar.Text = “”
txtbiaya.Text = “”
txtbangun.Text = “”
txtpropti.Text = “”
txttotal.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim a, b As String

a = Left(txtnpm.Text, 1)
If a = “E” Or a = “e” Then
txtkelas.Text = “Eksekutif”
txtbangun.Text = “1250000″
ElseIf a = “R” Or a = “r” Then
txtkelas.Text = “Reguler”
txtbangun.Text = “1000000″
End If

txtpropti.Text = “600000″

a = Mid(txtnpm.Text, 5, 1)
If a = “1″ Then
txtjurus.Text = “Sistem Informasi”
ElseIf a = “2″ Then
txtjurus.Text = “Manajemen Informatika”
ElseIf a = “3″ Then
txtjurus.Text = “Manajemen dan Komp.Akutansi”
End If

a = Mid(txtnpm.Text, 6, 2)
If a = “01″ Then
txtpro.Text = “Strata Satu”
txtdaftar.Text = “200000″
ElseIf a = “02″ Then
txtpro.Text = “Diploma Tiga”
txtdaftar.Text = “150000″
ElseIf a = “03″ Then
txtpro.Text = “Diploma Satu”
txtdaftar.Text = “150000″
End If
txtno.Text = Right(txtnpm.Text, 3)

txttahun.Text = “20″ & Mid(txtnpm.Text, 3, 2)

If txtkelas.Text = “Eksekutif” And txtpro.Text = “Strata Satu” Then
txtbiaya.Text = “1900000″
ElseIf txtkelas.Text = “Eksekutif” And txtpro.Text = “Diploma Tiga” Then
txtbiaya.Text = “1650000″
ElseIf txtkelas.Text = “Eksekutif” And txtpro.Text = “Diploma Satu” Then
txtbiaya.Text = “1350000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Strata Satu” Then
txtbiaya.Text = “1500000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Diploma Tiga” Then
txtbiaya.Text = “1250000″
ElseIf txtkelas.Text = “Reguler” And txtpro.Text = “Diploma Satu” Then
txtbiaya.Text = “1250000″
End If

txttotal.Text = Val(txtdaftar.Text) + Val(txtbiaya.Text) + Val(txtbangun.Text) + Val(txtpropti.Text)

End Sub

Private Sub Form_Activate()
txtnama.SetFocus
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

 

PT.PULANG PETANG SETIAP HARI

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnik.Text = “”
txtgol.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdproses_Click()

Select Case a = Mid(txtnik.Text, 5, 1)
Case a = “A”
txtgol = “A”
txtjabatan.Text = “MANAGER”
txtgapok.Text = “4000000″
txttunjangan.Text = “1025000″
Case a = “B”
txtgol.Text = “B”
txtjabatan.Text = “Ka.SEKSI”
txtgapok.Text = “3500000″
txttunjangan.Text = “975000″
Case a = “C”
txtgol.Text = “C”
txtjabatan.Text = “STAFF”
txtgapok.Text = “3000000″
txttunjangan.Text = “925000″
End Select

a = Right(txtnik.Text, 3)
If a = “KEU” Then
txtbagian.Text = “ACCOUNTING”
ElseIf a = “ADM” Then
txtbagian.Text = “ADMINISTRASI”
ElseIf a = “SDM” Then
txtbagian.Text = “GENERAL AFFAIR”
ElseIf a = “EDP” Then
txtbagian.Text = “IT UNIT”
ElseIf a = “SPM” Then
txtbagian.Text = “SECURITY”
End If

Select Case a = Mid(txtnik.Text, 7, 1)
Case a = “S”
kode = “S”
Status = “SINGEL”
Case a = “M”
kode = “M”
Status = “MENIKAH”
Case a = “J”
kode = “J”
Status = “JANDA”
Case a = “D”
kode = “D”
Status = “DUDA”
End Select
txtkode.Text = kode
txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotal.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)
End Sub

Private Sub Form_Activate()
txtnama.SetFocus
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

ENTRI PENJUALAN LAPTOP APPLE

Private Sub cbokode_Click()
txtjj.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim penjualan, discount, kode, merk, bayar, a, b As String
Dim harga As Variant

kode = Mid(cbokode.Text, 7, 5)
If kode = “MC965″ Then
merk = “Apple MacBook Air MC965″
harga = “12800000″
ElseIf kode = “MC966″ Then
merk = “Apple MacBook Air MC966″
harga = “15800000″
ElseIf kode = “MC968″ Then
merk = “Apple MacBook Air MC968″
harga = “9900000″
ElseIf kode = “MC969″ Then
merk = “Apple MacBook Air MC969″
harga = “11900000″
ElseIf kode = “MC700″ Then
merk = “Apple MacBook Air MC700″
harga = “10800000″
ElseIf kode = “MC721″ Then
merk = “Apple MacBook Air MC721″
harga = “15900000″
ElseIf kode = “MC723″ Then
merk = “Apple MacBook Air MC723″
harga = “19300000″
ElseIf kode = “MC724″ Then
merk = “Apple MacBook Air MC724″
harga = “13700000″
ElseIf kode = “MC311″ Then
merk = “Apple MacBook Air MC311″
harga = “24200000″
ElseIf kode = “MC313″ Then
merk = “Apple MacBook Air MC313″
harga = “11900000″
ElseIf kode = “MC314″ Then
merk = “Apple MacBook Air MC314″
harga = “14700000″
ElseIf kode = “MC318″ Then
merk = “Apple MacBook Air MC318″
harga = “17600000″
ElseIf kode = “MC322″ Then
merk = “Apple MacBook Air MC322″
harga = “21300000″
ElseIf kode = “MC965″ Then
merk = “Apple MacBook Air MC965″
harga = “12800000″
ElseIf kode = “MC966″ Then
merk = “Apple MacBook Air MC966″
harga = “15800000″
End If
txtmerk.Text = merk
txths.Text = harga

a = Val(txtjj.Text)
b = Val(txths.Text)
penjualan = a * b
txthp.Text = penjualan

Select Case txthp.Text
Case Is > 140000000
discount = 0.15 * penjualan
Case Is > 135000000
discount = 0.1 * penjualan
Case Is > 130000000
discount = 0.05 * penjualan
Case Is > 125000000
discount = 0.02 * penjualan
End Select
penjualan = Val(txthp.Text)
txtdis.Text = discount

txttb.Text = Val(txthp.Text) – Val(txtdis.Text)

End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txtdis.Text = “”
txttb.Text = “”
txthp.Text = “”

End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
cbokode.AddItem “Apple MC965 MasBook Air”
cbokode.AddItem “Apple MC966 MasBook Air”
cbokode.AddItem “Apple MC968 MasBook Air”
cbokode.AddItem “Apple MC969 MasBook Air”
cbokode.AddItem “Apple MC700 MasBook Pro”
cbokode.AddItem “Apple MC721 MasBook Pro”
cbokode.AddItem “Apple MC723 MasBook Pro”
cbokode.AddItem “Apple MC724 MasBook Pro”
cbokode.AddItem “Apple MC311 MasBook Pro”
cbokode.AddItem “Apple MC313 MasBook Pro”
cbokode.AddItem “Apple MC314 MasBook Pro”
cbokode.AddItem “Apple MC318 MasBook Pro”
cbokode.AddItem “Apple MC322 MasBook Pro”
cbokode.AddItem “Apple MC965 MasBook Air”
cbokode.AddItem “Apple MC966 MasBook Air”
End Sub

TUGAS 4

Private Sub cmdproses_Click()

kodetiket = Left(txtkt.Text, 3)

If kodetiket = “bim” Then

jeniskereta = “bima”

hatgatiket = “50000”

jamberangkat = “16.00”

ElseIf kodetiket = “eko” Then

jeniskereta = “ekonomi”

hargatiket = “35000”

jamberangkat = “19.00”

ElseIf kodetiket = “mut” Then

jeniskereta = “mutiara”

hargatiket = “23000”

jamberangkat = “17.00”

ElseIf kodetiket = “sen” Then

jeniskereta = “senja”

hargatiket = “15000”

jamberangkat = “20000”

End If

txtkt.Text = kodetiket

txtjk.Text = jeniskereta

txtht.Text = hargatiket

txtjb.Text = jamberangkat

txtjt.SetFocus

End Sub

Private Sub Form_Activate()

txtkt.SetFocus

End Sub

Private Sub cmdlagi_Click()
txtkt = “”
txtht = “”
Txtjk = “”
txtjb = “”
txtjt = “”
txttotalp = “”

End sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)

End If

End Sub

Private Sub txtkt_Change()

End Sub

MENCARI NILAI PERHITUNGAN

Private sub Txt1_keypress(keyascii As Integer)

If  keyAscii=13 Then

Txt2.setfocus

End If

End Sub

 

Private Sub cmdtambah_click()

Txt3.text=val(Txt1.text)+val( Txt2.text)

End Sub

 

Private Sub cmdkali_click()

Txt3.text=val(txt1.tex)*val(txt2.text)

End Sub

 

Private Sub cmdbagi_click()

Txt3.text=val(txt1.text):val(txt2.text)

End Sub

 

Private Sub cmdkurang_click()

Txt3.text=val(txt1.text)-val(txt2.text)

End Sub

 

Private Sub cmd_click()

End

End Sub

PERHITUNGAN HARGA SETELAH DISCOUNT 10%

• Perhitungan harga setelah diskon 10%

 

Private Sub cmdbersih_Click()

txtbil1.Text = “”

txtbil2.Text = “”

txthasil.Text = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)

End Sub

 

Private Sub cmdkeluar_Click()

end

End Sub

PERKALIAN DUA BILANGAN

 

• Perkalian dua bilangan

Private Sub cmdbersih_Click()

txtbil1.Text = “”

txtbil2.Text = “”

txthasil.Text = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil.Text = Val(txtbil1.Text) * Val(txtbil2.Text)

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

APLIKASI PERHITUNGAN GAJI

• Aplikasi perhitungan gaji

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdulang_Click()

txtgapok = “”

txttunjangan = “”

txtpot = “”

txtgator = “”

txtgama = “”

End Sub

 

Private Sub txtgapok_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttunjangan.SetFocus

End If

End Sub

HURUF MUTU MAHASISWA

• Huruf mutu mahasiswa

 

Private Sub cbonpm_Click()

Select Case cbonpm.Text

Case “12100026”

nama = “SITI SARI”

jurusan = “Sistem Informasi”

Case “12100038”

nama = “Agusta Hendri Yarti”

jurusan = “Sistem Informasi”

Case “12100039”

nama = “Sinta Umpusinga”

jurusan = “Sistem Informasi”

End Select

txtnma.Text = nama

txtjrs.Text = jurusan

txtnq.SetFocus

End Sub

 

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = “”

txtnma.Text = “”

txtjrs.Text = “”

txtnq.Text = “”

txtnt.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txthm.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

quis = Val(txtnq.Text)

tugas = Val(txtnt.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

NA = (quis + tugas + uts + uas) / 4

txtna.Text = NA

 

Select Case txtna.Text

Case Is > 80

HM = “A”

Select Case txtna.Text

Case Is > 70

HM = “B”

Select Case txtna.Text

Case Is > 60

HM = “C”

Select Case txtna.Text

Case Is > 50

HM = “D”

Select Case txtna.Text

Case Is < 50

HM = “E”

End Select

txthm.Text = HM

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “12100036”

cbonpm.AddItem “12100038”

cbonpm.AddItem “12100039”

 

End Sub

 

 

 

Private Sub txtnq_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnt.SetFocus

End If

End Sub

 

 

Private Sub txtnt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuts.SetFocus

End If

End Sub

 

 

 

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtuas.SetFocus

End If

End Sub

 

 

Private Sub txttunjangan_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpot.SetFocus

End If

End Sub

tugas visual basic

TUGAS VISUAL BASIC 2

 

1. NPM :

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

2. Nama Mahasiswa:
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtps.SetFocus
End If
End Sub

3. Program Studi :
Private Sub txtps_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjurusan.SetFocus
End If
End Sub

4. Jurusan :
Private Sub txtjurusan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsemester.SetFocus
End If
End Sub

5. Semester :
Private Sub txtsemester_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub

6. Lagi :
Private Sub cmdlagi_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub

7. Batal :
Private Sub cmdbatal_Click()
txtnpm.SetFocus
txtnpm = “”
txtnama = “”
txtps = “”
txtjurusan = “”
txtsemester = “”
End Sub

8. Keluar :
Private Sub cmdkeluar_Click()
end
End Sub

1. Kode Buah :

Private Sub txtkb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnb.SetFocus

End If

End Sub

2. Nama Buah :

Private Sub txtnb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthb.SetFocus

End If

End Sub

3. Harga Buah :

Private Sub txthb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjb.SetFocus

End If

End Sub

4. Jumlah Beli :

Private Sub txtjb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttb.Text = Val(txthb.Text) * (txtjb.Text)

End If

End Sub

5. Total Bayar :

Private Sub txttb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End If

End Sub

 

6. Lagi :

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb = “”

txtnb = “”

txthb = “”

txtjb = “”

txttb = “”

End Sub

 

7. Batal :

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = “”

txtnb = “”

txthb = “”

txtjb = “”

txttb = “”

End Sub

8. Keluar :

Private Sub cmdkeluar_Click()

End

End Sub