kereta api

Private Sub cmdabout_Click()
txtkt.Text = “”
txtht.Text = “”
txtjk.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttotalp.Text = “”
End Sub

Private Sub cmddelete_Click()
Data1.Recordset.Delete
End Sub

Private Sub cmdedit_Click()
Data1.Recordset.Edit
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
Dim kode As String
kode = Left(txtkt.Text, 3)
If kode = “BIM” Or kode = “bim” Then
txtjk.Text = “BIMA”
txtht.Text = “50000”
txtjb.Text = “16.00”
ElseIf kode = “EKO” Or kode = “eko” Then
txtjk.Text = “EKONOMI”
txtht.Text = “35000”
txtjb.Text = “19.00”
ElseIf kode = “MUT” Or kode = “mut” Then
txtjk.Text = “MUTIARA”
txtht.Text = “23000”
txtjb.Text = “17.00”
ElseIf kode = “SEN” Or kode = “sen” Then
txtjk.Text = “SENJA”
txtht.Text = “15000”
txtjb.Text = “20.00”
End If

txtjt.SetFocus
End Sub

Private Sub cmdsave_Click()
Data1.Recordset.AddNew
End Sub

Private Sub TXTJT_keypress(keyascii As Integer)
If keyascii = 13 Then
txttotalp.Text = Val(txtjt.Text) * Val(txtht.Text)
End If
End Sub

Iklan
Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 2 VB

visual basic


Private Sub Cmdproses_Click()
Dim nik As String
txtgol.Text = Left(Txtnik.Text, 1)
nik = Left(Txtnik.Text, 1)
If nik = “A” Then
txtgol.Text = “A”
txtjbt.Text = “manager”
txtgapok.Text = 2500000
txttj.Text = 375000
ElseIf nik = “B” Then
txtgol.Text = “B”
txtjbt.Text = “kepala seksi”
txtgapok.Text = “1500000″
txttj.Text = 375000
ElseIf nik = “C” Then
txtgol.Text = “C”
txtjbt.Text = “staf”
txtgapok.Text = 1000000
txttj.Text = 250000
End If
txtgatot.Text = Val(txtgapok.Text) + Val(txttj.Text)

nik = Mid(Txtnik.Text, 2, 4)
txtth.Text = nik

nik = Mid(Txtnik.Text, 6, 3)
If nik = “keu” Then
txtbag.Text = “accounting’”
ElseIf nik = “adm” Then
txtbag.Text = “administrasion”
ElseIf nik = “sdm” Then
txtbag.Text = “general affair”
ElseIf nik = “edp” Then
txtbag.Text = “it unit”
ElseIf nik = “spm” Then
txtbag.Text = “security”
End If

nik = Right(Txtnik.Text, 1)
If nik = “S” Then
txtks.Text = “S”
txtts.Text = “Single”
ElseIf nik = “M” Then
txtks.Text = “M”
txtts.Text = “Menikah”
End If

End Sub
Private Sub Cmdbatal_Click()
txtgol.SetFocus
txtgol.Text = “”
txtks.Text = “”
txtts.Text = “”
txtth.Text = “”
txtjbt.Text = “”
txtbag.Text = “”
txtgapok.Text = “”
txttj.Text = “”
txtgatot.Text = “”
txtnamakaryawan.Text = “”
Txtnik.Text = “”
End Sub
Private Sub Cmdlagi_Click()
txtgol.SetFocus
txtgol.Text = “”
txtks.Text = “”
txtts.Text = “”
txtth.Text = “”
txtjbt.Text = “”
txtbag.Text = “”
txtgapok.Text = “”
txttj.Text = “”
txtgatot.Text = “”
txtnamakaryawan.Text = “”
Txtnik.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtgol_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtks.SetFocus
End If
End Sub

Private Sub txtks_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtts.SetFocus
End If
End Sub
Private Sub txtts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtth.SetFocus
End If
End Sub
Private Sub txtth_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjbt.SetFocus
End If
End Sub
Private Sub txtjbt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtbag.SetFocus
End If
End Sub
Private Sub txtbag_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgapok.SetFocus
End If
End Sub
Private Sub txtgapok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttj.SetFocus
End If
End Sub
Private Sub txttj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgatot.SetFocus
End If
End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar

tabrakan maut

 

Image

JAKARTA – Berikut adalah kronologis sebelum kecelakaan maut di Gambir, Jakarta Pusat versi kuasa hukum Afriani Susanti. Malam itu ada tiga lokasi yang didatangi Afriani yakni sebuah kafe di Kemang, Hotel Borobudur dan diskotik Stadium.

Sebelum kejadian maut ini, Afriani cs pergi ke Kemang untuk menghadiri sebuah pertemuan dengan kliennya.

“Dia ke Kemang ketemu sama rekan kerja. Ngomingin soal project iklan di sana,” kata kuasa hukum Afriani, Efrizal saat dihubungi, Kamis (26/1/2012).

Setelah itu, lanjutnya, Afriani cs menghadiri pesta pernikahan di Hotel Borobudur seorang temannya. “Itu untuk pesta pernikahan temannya,” tambahnya.

Baru setelah menghadiri pesta pernikahan tersebut, Afriani cs pergi ke sebuah klub malam di Hayam Wuruk, Jakarta Barat. “Setelah itu dia ke Stadium,” jelasnya.

Dia menambahkan, saat kejadian kecelakaan, Afriani tidak sedang mabuk. “Setelah dia pakai itu, dia langsung tinggi. Tapi memang tetap melek. Dia sadar enggak kenapa-kenapa. Jadi dia inistiaf sendiri setir mobil,” tambahnya.

Karena letih, Afriani kemudian kehilangan kesadaran dan tak bisa mengendalikan mobil hingga menabrak dan menewaskan 9 orang di Gambir, Jakarta Pusat.

“Yah karena mengkin capek pas bawa itu tidak ada kehilangan kesadaran dan enggak ada penghalang di depannya. Enggak ada bus, jadi waktu itu dia bilangnya ngakunya injak rem tapi tahu-tahu mobil kok malah tambah cepat sampai akhirnya nabrak para korban,” tambahnya.

Setelah kejadian, Afriani langsung melapor ke ibundanya bahwa telah menabrak orang dan menewaskan 4 orang. “Dia lapor ke ibuya dia nabrak empat orang dia lihat tewas di depan dia,” ceritanya. (abe)

 

 

Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS VB

TUGAS 1
Private Sub Optred_Click()
‘membuat teks berwarna merah
lblteks.ForeColor = vbRed
End Sub
Private Sub Chkbold_Click()
‘membuat teks tebal
If chkbold.Value = 1 Then
lblteks.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub
Private Sub cmdexit_Click()
End
End Sub

TUGAS 2
Private Sub CMDHITUNG_Click()
Dim a, b, c As Double
Txtb.Text = Val(Txta.Text) * 0.1
Txtc.Text = Val(Txta.Text) * Val(Txtb.Text)
End Sub
Private Sub CMDKELUAR_Click()
End
End Sub
Private Sub CMDULANGI_Click()
Txta = “”
Txtb = “”
Txtc = “”
End Sub

TUGAS 3
Private Sub CMDKELUAR_Click()
End
End Sub
Private Sub cmdPROSES_Click()
Dim a, b, c, d, e, f As Double
Txtd.Text = Val(Txta.Text) + Val(Txtb.Text) – Val(Txtc.Text)
Txte.Text = Val(Txtd.Text) * (0.1)
Txtf.Text = Val(Txtd.Text) – Val(Txte.Text)
End Sub
Private Sub CMDULANGI_Click()
Txta = “”
Txtb = “”
Txtc = “”
Txtd = “”
Txte = “”
Txtf = “”
End Sub

TUGAS 4

TUGAS 4
Private Sub Cbonpm_Change()
Dim nama, jurusan, HM As String
Select Case Cbonpm.Text
Case “11100168”
nama = “SUDARSONO”
jurusan = “Sistem Informasi”
Case “11100092”
nama “Debi Lisdia Paramita”
jurusan “Sistem Informasi”
Case “11100156”
nama “Nurul Khotimah”
jurusan “sistem informasi”
Case “11100146”
nama “mahbub ihwani”
jurusan “sistem informasi”
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan = jurusan
txtquis.SetFocus
End Sub
Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
txtnama.Text = “”
txtjurusan.Text = “”
txtquis.Text = “”
txttugas.Text = “”
txtuts.Text = “”
txtuas.Text = “”
Txtna.Text = “”
txthm.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
quis = Val(txtquis.Text)
tugas = Val(txtquis.Text)
uts = Val(txtquis.Text)
uas = Val(txtquis.Text)
NA = (quis + tugas + uts + uas) / 4
Txtna.Text = NA

Select Case Txtna.Text
calse ls > 80
HM = “a”
calse ls > 70
HM = “b”
calse ls > 60
HM = “c”
calse ls > 50
HM = “d”
calse ls > 50
HM = “e”
End Sub
Private Sub Form_Load()
Cbonpm.AddItem “09100027”
Cbonpm.AddItem “09200048”Cbonpm.AddItem “09300024”
End Sub
Private Sub txtquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttugas.SetFocus
End If
End Sub
Private Sub txttugas_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

V

Dipublikasi di Uncategorized | Meninggalkan komentar

Hello world!

Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit <a title="Direct link to the Add New in the

Private Sub cbokode_Click()
Dim kode, merk, hs As String
Select Case cbokode.Text
Case "Asus A43SA"
txtmerk.Text = "Asus A43SA-VX090D"
txths.Text = "5500000"
Case "Asus A43SD"
txtmerk.Text = "Asus A43SD-VX052D"
txths.Text = "4500000"
Case "Asus A43SJ"
txtmerk.Text = "Asus A43SJ-VX792D"
txths.Text = "4300000"
Case "Asus A43TA"
txtmerk.Text = "Asus A43TA-VX034D"
txths.Text = "4900000"
Case "Asus N43SJ"
txtmerk.Text = "Asus N43SJ-VX264D"
txths.Text = "4300000"
Case "Asus U36SD"
txtmerk.Text = "Asus U36SD-VX090D"
txths.Text = "6600000"
Case "Apple MC965"
txtmerk.Text = "Apple Macbook Air MC965"
txths.Text = "12800000"
Case "Apple MC966"
txtmerk.Text = "Apple Macbook Air MC966"
txths.Text = "15800000"
Case "Apple MC969"
txtmerk.Text = "Apple Macbook Pro MC969"
txths.Text = "11900000"
Case "Apple MC700"
txtmerk.Text = "Apple Macbook Pro MC700"
txths.Text = "10800000"
Case "Apple MC723"
txtmerk.Text = "Apple Macbook Pro MC723"
txths.Text = "19300000"
Case "Apple MD311"
txtmerk.Text = "Apple Macbook Pro MD311"
txths.Text = "24200000"
Case "Apple MD313"
txtmerk.Text = "Apple Macbook Pro MD313"
txths.Text = "11900000"
Case "Apple MD314"
txtmerk.Text = "Apple Macbook Pro MD314"
txths.Text = "14700000"
Case "Apple MD322"
txtmerk.Text = "Apple Macbook Pro MD322"
txths.Text = "21300000"
End Select
txtjj.SetFocus
End Sub

Private Sub cmdhitunglagi_Click()
cbokode.Text = ""
txtmerk.Text = ""
txths.Text = ""
txtjj.Text = ""
txthp.Text = ""
txtdis.Text = ""
txttb.Text = ""
txtterbilang.Text = ""

End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Dim hp As String
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
If txthp.Text > 140000000 Then
txtdis.Text = Val(txthp.Text) * 0.15
ElseIf txthp.Text > 135000000 Then
txtdis.Text = Val(txthp.Text) * 0.1
ElseIf txthp.Text > 130000000 Then
txtdis.Text = Val(txthp.Text) * 0.05
ElseIf txthp.Text > 125000000 Then
txtdis.Text = Val(txthp.Text) * 0.02
End If
Dim tb As String
txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub

Private Sub Form_Load()
cbokode.AddItem "Asus A43SA"
cbokode.AddItem "Asus A43SD"
cbokode.AddItem "Asus A43SJ"
cbokode.AddItem "Asus A43TA"
cbokode.AddItem "Asus N43SL"
cbokode.AddItem "Asus U36SD"
cbokode.AddItem "Apple MC965"
cbokode.AddItem "Apple MC966"
cbokode.AddItem "Apple MC969"
cbokode.AddItem "Apple MC700"
cbokode.AddItem "Apple MC723"
cbokode.AddItem "Apple MD311"
cbokode.AddItem "Apple MD313"
cbokode.AddItem "Apple MD314"
cbokode.AddItem "Apple MD322"

End Sub

Private Sub txttb_Change()
txtterbilang.Text = terbilang(Val(txttb.Text))
End Sub
Private Function baca(X As Integer) As String
Dim i As Long
Dim ratus(9) As String
Dim belas(9) As String
Dim puluh(9) As String
Dim satuan(9) As String
Dim sbaca As String
satuan(1) = "satu"
satuan(2) = "dua"
satuan(3) = "tiga"
satuan(4) = "empat"
satuan(5) = "lima"
satuan(6) = "enam"
satuan(7) = "tujuh"
satuan(8) = "delapan"
satuan(9) = "sembilan"
For i = 1 To 9
If i = 1 Then
puluh(i) = "sepuluh"
Else
puluh(i) = satuan(i) & " puluh"
End If
Next
For i = 1 To 9
If i = 1 Then
belas(i) = "sebelas"
Else
belas(i) = satuan(i) & " belas"
End If
Next
For i = 1 To 9
If i = 1 Then
ratus(i) = "seratus"
Else
ratus(i) = satuan(i) & " ratus"
End If
Next
If X >= 100 Then
sbaca = ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If
If X >= 20 Or X = 10 Then
sbaca = sbaca & " " & puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
sbaca = sbaca & " " & belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If
If X >= 1 Then
sbaca = sbaca & " " & satuan(Val((Str(X))))
End If
baca = sbaca
End Function
Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = ""
If Val(X) = 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & " " & baca(Val(trilyun)) & " trilyun"
X = Val(Mid(Str(X), ptext + 2, 12))
End If
If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & " " & baca(Val(milyar)) & " milyar"
X = Val(Mid(Str(X), ptext + 2, 9))
End If
If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & " " & baca(Val(juta)) & " juta"
X = Val(Mid(Str(X), ptext + 2, 6))
End If
If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = "seribu"
Else
sterbilang = sterbilang & " " & baca(Val(ribu)) & " ribu"
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If
sterbilang = sterbilang & " " & baca(Val(X))
terbilang = Trim(sterbilang) & " rupiah"
End Function

Dipublikasi di Uncategorized | 1 Komentar