tugas vb


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

Demo Buruh Meluas, Tol Jakarta-Cikampek Lumpuh

<p .

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

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

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

 

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 Add New on the left (of the admin dashboard) to start a fresh post.

Here are some suggestions for your first post.

  1. You can find new ideas for what to blog about by reading the Daily Post.
  2. Add PressThis to your browser. It creates a new blog post for you about any interesting  page you read on the web.
  3. Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.