suliajastmikpringsewu

tiket vb

Private Sub Command1_Click()
Dim kd As String
kode = Text1.Text
kode = Left(Text1.Text, 3)
If kode = “BIM” Then
Text2.Text = “50000”
Text3.Text = “BIMA”
Text4.Text = “16.00”
ElseIf kode = “eko” Then
Text2.Text = “35000”
Text3.Text = “EKONOMI”
Text4.Text = “19.00”
ElseIf kode = “MUT” Then
Text2.Text = “23000”
Text3.Text = “MUTIARA”
Text4.Text = “17.00”
ElseIf kode = “SEN” Then
Text2.Text = “15000”
Text3.Text = “SENJA”
Text4.Text = “20.00”
End If
Text5.SetFocus
Text6.Text = Val(Text5.Text) * (Text2.Text)
End Sub

Command1_Click()
Text2 = 10 * Val(Text1.Text) / 100
Text3 = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Chkmiring_Click()
Lbl2.FontItalic = Chkmiring.Value
End Sub

Private Sub Chktebal_Click()
Lbl2.FontBold = Chktebal.Value
End Sub

Private Sub Cmdok_Click()
Lbl2.Caption = Txtnama.Text
End Sub

Private Sub Cmdselesai_Click()
Unload Me
End Sub

Private Sub Optbiru_Click()
Lbl2.ForeColor = vbBlue
End Sub

Private Sub Optmerah_Click()
Lbl2.ForeColor = vbRed
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdProses_Click()
Dim Gapok, Tj, Pt, Gk, Pjk, Gjtrm As Double
txtGk.Text = Val(txtgapok.Text) + Val(txtTj.Text) - Val(txtPt.Text)
txtPjk.Text = Val(txtGk.Text) * (0.1)
TxtGjtrm.Text = Val(txtGk.Text) - (txtPjk.Text)
End Sub
Private Sub cmdUlang_Click()
txtgapok.SetFocus
txtgapok.Text = ""
txtTj.Text = ""
txtPt.Text = ""
txtGk.Text = ""
txtPjk.Text = ""
TxtGjtrm.Text = ""
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
txtPt.SetFocus
End If

End Sub


Private Sub CboNpm_Click()
Dim Mhs, Jrs, HM As String
Select Case CboNpm.Text
Case "11100042"
Mhs = "FITRIYANI"
Jrs = "SISTEM INFORMASI"
Case "11200077"
Mhs = "PUSPITA DESI"
Jrs = "MANAJEMEN INFORMATIKA"
Case "11300078"
Mhs = "SEPTIANA"
Jrs = "TEHNIK INFORMATIKA"
Case "11100079"
Mhs = "TOTO ISWANTO"
Jrs = "SISTEM INFORMATIKA"
Case "11200081"
Mhs = "SUPRAPTO"
Jrs = "MANAJEMEN INFORMATIKA"
Case "11300082"
Mhs = "NOVI SUSANTI"
Jrs = "TEHNIK INFORMATIKA"
Case "11100084"
Mhs = "SUKMAWATI"
Jrs = "SISTEM INFORMATIKA"
Case "11200085"
Mhs = "LENI APRIYANI"
Jrs = "MANAJEMEN INFORMATIKA"
Case "11300086"
Mhs = "NURMALITA SARI"
Jrs = "TEHNIK INFORMATIKA"
Case "11100087"
Mhs = "HENI LESTARI"
Jrs = "SISTEM INFORMATIKA"
End Select
txtMhs.Text = Mhs
txtJrs.Text = Jrs
txtQs.SetFocus
End Sub

Private Sub cmdBatal_Click()
CboNpm.SetFocus
CboNpm.Text = ""
txtMhs.Text = ""
txtJrs.Text = ""
txtQs.Text = ""
txtTgs.Text = ""
txtUts.Text = ""
txtUas.Text = ""
txtAkhir.Text = ""
txtHm.Text = ""
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdProses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtQs.Text)
TUGAS = Val(txtTgs.Text)
UTS = Val(txtUts.Text)
UAS = Val(txtUas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtAkhir.Text = NA

Select Case txtAkhir.Text
Case Is >= 80
HM = "A"
Case Is >= 70
HM = "B"
Case Is >= 60
HM = "C"
Case Is >= 50
HM = "D"
Case Is < 49
HM = "E"
End Select
txtHm.Text = HM
End Sub

Private Sub Form_Load()
CboNpm.AddItem "11100042"
CboNpm.AddItem "11200077"
CboNpm.AddItem "11300078"
CboNpm.AddItem "11100079"
CboNpm.AddItem "11200081"
CboNpm.AddItem "11300082"
CboNpm.AddItem "11100084"
CboNpm.AddItem "11200085"
CboNpm.AddItem "11300086"
CboNpm.AddItem "11100087"
End Sub

Private Sub txtQs_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtTgs.SetFocus
End If
End Sub

Private Sub txtTgs_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 cmdBatal_Click()
'Kosongkan Semua
txtKb.Text = ""
txtNb.Text = ""
txtJs.Text = ""
txtSs.Text = ""
txtTj.Text = ""
txtHj.Text = ""
txtTh.Text = ""
txtTerbilang.Text=""
txtKb.SetFocus
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdProses_Click()
Dim Kb As String
Kb = Right(txtKb.Text, 1)
If Kb = "T" Then
txtNb.Text = "Tape"
txtHj.Text = "275000"
ElseIf Kb = "S" Then
txtNb.Text = "Sound Sistem"
txtHj.Text = "350000"
ElseIf Kb = "C" Then
txtNb.Text = "Compact"
txtHj.Text = "480000"
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 txtTj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtSs.Text = Val(txtJs.Text) - Val(txtTj.Text)
txtTh.Text = Val(txtTj.Text) * Val(txtHj.Text)
txtTerbilang.Text = terbilang(Val(txtTh.Text))
End If
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



Private Sub cmdBt_Click()
txtMnk.SetFocus
txtMnk.Text = ""
txtMn.Text = ""
txtGl.Text = ""
txtKd.Text = ""
txtSt.Text = ""
txtTh.Text = ""
txtJb.Text = ""
txtBg.Text = ""
txtGp.Text = ""
txtTj.Text = ""
txtTg.Text = ""
txtTerbilang.Text = ""
End Sub

Private Sub cmdKl_Click()
End
End Sub

Private Sub cmdLg_Click()
txtMnk.SetFocus
txtMnk.Text = ""
txtMn.Text = ""
txtGl.Text = ""
txtKd.Text = ""
txtSt.Text = ""
txtTh.Text = ""
txtJb.Text = ""
txtBg.Text = ""
txtGp.Text = ""
txtTj.Text = ""
txtTg.Text = ""

End Sub

Private Sub cmdPrs_Click()
txtTh.Text = Mid(txtMn.Text, 5, 4)
Dim mn  As String
mn = Mid(txtMn.Text, 9, 1)
If mn = "A" Then
txtGl.Text = "A"
txtJb.Text = "Manager"
txtGp.Text = "3000000"
txtTj.Text = "875000"
ElseIf mn = "B" Then
txtGl.Text = "B"
txtJb.Text = "Ka Seksi"
txtGp.Text = "2500000"
txtTj.Text = "525000"
ElseIf mn = "C" Then
txtGl.Text = "C"
txtJb.Text = "Staff"
txtGp.Text = "2000000"
txtTj.Text = "325000"
End If
mn = Right(txtMn, 1)
If mn = "M" Then
txtKd.Text = "M"
txtSt.Text = "Menikah"
ElseIf mn = "S" Then
txtKd.Text = "S"
txtSt.Text = "Single"
ElseIf mn = "D" Then
txtKd.Text = "D"
txtSt.Text = "Duda"
ElseIf mn = "J" Then
txtKd.Text = "J"
txtSt.Text = "Janda"
End If
mn = Left(txtMn.Text, 3)
If mn = "SDM" Then
txtBg.Text = "General Affair"
ElseIf mn = "KEU" Then
txtBg.Text = "Accounting"
ElseIf mn = "ADM" Then
txtBg.Text = "Administrasi"
ElseIf mn = "SPM" Then
txtBg.Text = "Security"
ElseIf mn = "EDP" Then
txtBg.Text = "IT Unit"
End If
txtTg.Text = Val(txtGp) + (txtTj)
txtTerbilang.Text = terbilang(Val(txtTg.Text))
End Sub

Private Sub txtMnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtMn.SetFocus
End If
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

Komentar Tinggalkan sebuah Komentar
Kategori Uncategorized

colour sulie….

8 Feb

Private Sub Check1_Click()
Label1.FontBold = True
End Sub

Private Sub Check2_Click()
Label1.FontItalic = True
End Sub

Private Sub Check3_Click()
Label1.FontUnderline = True
End Sub

Private Sub Check4_Click()
Label1.FontStrikethru = True
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub Option2_Click()
Label1.ForeColor = vbGreen
End Sub

Private Sub Option3_Click()
Label1.ForeColor = vbBlue
End Sub

Private Sub Option4_Click()
Label1.ForeColor = vbYellow
End Sub

Komentar Tinggalkan sebuah Komentar
Kategori Uncategorized

1 Feb

Menstruasi merupakan pendarahan bulanan yang berasal dari pelapis rahim melalui vagina pada wanita yang seksual dewasa dan tidak hamil. Lamanya pendarahan menstruasi rata-rata berlangsung antara 3-5 hari dengan siklus rata-rata 28 hari. Dalam kondisi normal, menstruasi tidak menyebabkan gangguan yang cukup berarti. Namun pada sebagian wanita, menstruasi terkadang dapat mengganggu aktivitas sehari-hari, bahkan menjadi sangat menyiksa karena rasa sakit yang luar biasa (dymenorrhoea). Terlambat haid atau menstruasi yang tidak teratur juga patut diwaspadai karena itu berarti telah terjadi abnormalitas pada siklus menstruasi.

Rasa nyeri yang timbul selama menstruasi dapat disebabkan oleh berbagai faktor di antaranya faktor ketidakseimbangan hormon, yaitu terjadinya peningkatan sekresi hormon prostaglandin yang dapat menyebabkan kontraksi uterus yang berlebihan. Menstruasi yang tidak teratur dapat disebabkan karena adanya gangguan hormon ataupun faktor psikis, seperti stress, depresi, dan lain-lain yang dapat mempengaruhi kerja hormon.

Komentar Tinggalkan sebuah Komentar
Kategori Uncategorized

Hello world!

1 Feb

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.

You can find new ideas for what to blog about by reading the Daily Post.
Add PressThis to your browser. It creates a new blog post for you about any interesting page you read on the web.
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.

Komentar 1 Komentar
Kategori Uncategorized

Cari

suliajastmikpringsewu

tiket vb

colour sulie….

Hello world!

Arsip

Kategori

Meta