berita terkini

Universitas China Diminta Tidak Gunakan Buku ‘Barat’

Menteri Pendidikan China meminta universitas-universitas untuk menghindari buku pelajaran yang mempromosikan nilai-nilai Barat. Pemerintah Beijing tampaknya meningkatkan pembatasan atas kehidupan akademis.

Iklan

tugas vb 5 program

ASISCA 5 PRG (LEPTOP) ASISCA 5 PRG DATABUKU ASISCA 5 PRG NPM HARGA ASISCA 5 PRG NPM STRATA ASISCA 5 PRG PT PLANG

 

 

  1. Tugas No.1

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

 

Private Sub Cmdbatal_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

Text6.Text = “20” & Mid(Text2.Text, 3, 2)

S = Mid(Text2.Text, 1, 1)

If S = “E” Then

Text3.Text = “EKSEKUTIF”

Text10.Text = “1250000”

Text11.Text = “600000”

ElseIf S = “R” Then

Text3.Text = “REGULER”

Text10.Text = “1000000”

Text11.Text = “600000”

End If

S = Mid(Text2.Text, 5, 1)

If S = “1” Then

Text4.Text = “Sistem Informasi”

ElseIf S = “2” Then

Text4.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Text4.Text = “Manajemen dan Komp. Akuntansi”

End If

S = Mid(Text2.Text, 6, 2)

If S = “01” Then

Text5.Text = “Strata Satu”

Text8.Text = “200000”

ElseIf S = “02” Then

Text5.Text = “Diploma Tiga”

Text8.Text = “150000”

ElseIf S = “03” Then

Text5.Text = “Diploma Satu”

Text8.Text = “150000”

End If

S = Mid(Text2.Text, 1, 1) & Mid(Text2.Text, 6, 2)

If S = “E” & “01” Then

Text9.Text = “1900000”

ElseIf S = “E” & “02” Then

Text9.Text = “1650000”

ElseIf S = “E” & “03” Then

Text9.Text = “1350000”

ElseIf S = “R” & “01” Then

Text9.Text = “1500000”

ElseIf S = “R” & “02” Then

Text9.Text = “1250000”

ElseIf S = “R” & “03” Then

Text9.Text = “1250000”

End If

Text7.Text = Right(Text2.Text, 3)

TOTAL = Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text) + Val(Text11.Text)

Text12.Text = TOTAL

End Sub

 

Private Sub text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

  1. Tugas No.2

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

txtpstudi.Text = “”

txttahun.Text = “”

txtnurut.Text = “”

txtbp.Text = “”

txtterbilang.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjurusan.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjurusan.Text = “Teknik Informasi”

ElseIf S = “3” Then

txtjurusan.Text = “Manajemen Informatika”

ElseIf S = “4” Then

txtjurusan.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtpstudi.Text = “Strata Satu”

txtbp.Text = “1950000”

ElseIf S = “2” Then

txtpstudi.Text = “Diploma Tiga”

txtbp.Text = “1750000”

ElseIf S = “3” Then

txtpstudi.Text = “Diploma Empat”

txtbp.Text = “1650000”

ElseIf S = “4” Then

txtpstudi.Text = “Diploma Dua”

txtbp.Text = “1450000”

End If

txtnurut.Text = Right(txtnpm.Text, 3)

End Sub

 

 

Private Sub txtbp_Change()

txtterbilang.Text = terbilang(Val(txtbp.Text))

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.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

 

  1. Tugas No. 3

 

Private Sub Combo1_Click()

Text3.SetFocus

End Sub

 

Private Sub Command1_Click()

Dim H As String

H = Mid(Combo1.Text, 7, 5)

If H = “MC965” Then

Text1.Text = “Apple MacBook Air MC965”

Text2.Text = 12800000

ElseIf H = “MC966” Then

Text1.Text = “Apple MacBook Air MC966”

Text2.Text = 15800000

ElseIf H = “MC968” Then

Text1.Text = “Apple MacBook Air MC968”

Text2.Text = 9900000

ElseIf H = “MC969” Then

Text1.Text = “Apple MacBook Air MC969”

Text2.Text = 11900000

ElseIf H = “MC700” Then

Text1.Text = “Apple MacBook Pro MC700”

Text2.Text = 10800000

ElseIf H = “MC721” Then

Text1.Text = “Apple MacBook Pro MC721”

Text2.Text = 15900000

ElseIf H = “MC723” Then

Text1.Text = “Apple MacBook Pro MC723”

Text2.Text = 19300000

ElseIf H = “MC724” Then

Text1.Text = “Apple MacBook Pro MC724”

Text2.Text = 13700000

ElseIf H = “MC311” Then

Text1.Text = “Apple MacBook Pro MC311”

Text2.Text = 24200000

ElseIf H = “MC313” Then

Text1.Text = “Apple MacBook Pro MC313”

Text2.Text = 11900000

ElseIf H = “MC314” Then

Text1.Text = “Apple MacBook Pro MC314”

Text2.Text = 14700000

ElseIf H = “MC318” Then

Text1.Text = “Apple MacBook Pro MC318”

Text2.Text = 17600000

ElseIf H = “MC322” Then

Text1.Text = “Apple MacBook Pro MC322”

Text2.Text = 21300000

End If

Text4.Text = Val(Text2.Text) * Val(Text3.Text)

If Text4.Text >= 15000000 Then

Text5.Text = Val(Text4.Text) * 2 / 100

ElseIf Text4.Text <= 25000000 Then

Text5.Text = Val(Text4.Text) * 5 / 100

ElseIf Text4.Text <= 30000000 Then

Text5.Text = Val(Text4.Text) * 10 / 100

ElseIf Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 15 / 100

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “Apple MC965 MacBook Air”

Combo1.AddItem “Apple MC966 MacBook Air”

Combo1.AddItem “Apple MC968 MacBook Air”

Combo1.AddItem “Apple MC969 MacBook Air”

Combo1.AddItem “Apple MC700 MacBook Pro”

Combo1.AddItem “Apple MC721 MacBook Pro”

Combo1.AddItem “Apple MC723 MacBook Pro”

Combo1.AddItem “Apple MC724 MacBook Pro”

Combo1.AddItem “Apple MC311 MacBook Pro”

Combo1.AddItem “Apple MC313 MacBook Pro”

Combo1.AddItem “Apple MC314 MacBook Pro”

Combo1.AddItem “Apple MC318 MacBook Pro”

Combo1.AddItem “Apple MC322 MacBook Pro”

End Sub

 

 

 

  1. Tugas No.4

Private Sub Cmdproses_Click()

Dim K As String

K = Mid(txtkb.Text, 3, 3)

If K = “SIM” Then

txtjb.Text = “SISTEM INFORMASI MANAJEMEN”

txtp.Text = “ANDRA SETIAWAN”

txthg.Text = “75900”

ElseIf K = “EDP” Then

txtjb.Text = “ELEKTRONIK DATA PROCESSING”

txtp.Text = “DESI ISTIQOMAH”

txthg.Text = “62000”

ElseIf K = “MNJ” Then

txtjb.Text = “MANAJEMEN”

txtp.Text = “SANDY FITRAJAYA”

txthg.Text = “42000”

ElseIf K = “CDR” Then

Txjb.Text = “COREL DRAW”

txtp.Text = “TRI INDAHSARI”

txthg.Text = “53000”

ElseIf K = “RPL” Then

txtjb.Text = “REKAYASA PERANGKAT LUNAK”

txtp.Text = “ERNITA SARI”

txthg.Text = “83000”

End If

K = Mid(txtkb.Text, 1, 1)

If K = “A” Then

txtpenerbit.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf K = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf K = “S” Then

txtpenerbit.Text = “SALEMBA EMPAT”

ElseIf K = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf K = “M” Then

txtpenerbit.Text = “MAXICOM”

End If

txttahun.Text = “20” & Right(txtkb.Text, 2)

End Sub

 

Private Sub Cmdlagi_Click()

txtkb.SetFocus

txtjb.Text = “”

txtp.Text = “”

txthg.Text = “”

txtpenerbit.Text = “”

txttahun.Text = “”

txtkb.Text = “”

End Sub

 

Private Sub Cmdbatal_Click()

txtkb.SetFocus

txtjb.Text = “”

txtp.Text = “”

txthg.Text = “”

txtpenerbit.Text = “”

txttahun.Text = “”

txtkb.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

 

 

 

  1. Tugas No. 5

 

Private Sub cmdcancel_Click()

txtnama.SetFocus

txtnama.Text = “”

txtNIK.Text = “”

txtgol.Text = “”

txtKS.Text = “”

txtS.Text = “”

txtTH.Text = “”

Txtjab.Text = “”

txtbag.Text = “”

txtGP.Text = “”

txtTJ.Text = “”

txtTG.Text = “”

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtNIK.Text = “”

txtgol.Text = “”

txtKS.Text = “”

txtS.Text = “”

txtTH.Text = “”

Txtjab.Text = “”

txtbag.Text = “”

txtGP.Text = “”

txtTJ.Text = “”

txtTG.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim kode, status, jabatan As Integer

Dim gaji, tunjangan As Currency

jbt = Mid(txtNIK.Text, 5, 1)

If jbt = “A” Then

jbt = “MANAGER”

gol = “I”

gaji = “5000000”

tunjangan = “1000000”

ElseIf jbt = “B” Then

jbt = “Ka.SEKSI”

gol = “II”

gaji = “4000000”

tunjangan = “750000”

ElseIf jbt = “C” Then

jbt = “STAFF”

gol = “III”

gaji = “3000000”

tunjangan = “500000”

End If

 

BAG = Mid(txtNIK.Text, 7, 3)

If BAG = “KEU” Then

txtbag.Text = “ACCOUNTING”

ElseIf BAG = “ADM” Then

txtbag.Text = “ADMINISTRASI”

ElseIf BAG = “SDM” Then

txtbag.Text = “GENERAL AFFAIR”

ElseIf BAG = “EDP” Then

txtbag.Text = “IT UNIT”

ElseIf BAG = “SPM” Then

txtbag.Text = “SECURITY”

End If

 

kode = Mid(txtNIK.Text, 3, 1)

If kode = “S” Then

kode = “S”

status = “SINGLE”

ElseIf kode = “M” Then

kode = “M”

status = “MENIKAH”

ElseIf kode = “J” Then

kode = “J”

status = “JANDA”

ElseIf kode = “D” Then

kode = “D”

status = “DUDA”

End If

Txtjab.Text = jbt

txtGP.Text = gaji

txtTJ.Text = tunjangan

txtKS.Text = kode

txtS.Text = status

txtgol.Text = gol

txtTH.Text = “20” & Left(txtNIK.Text, 2)

txtTG.Text = Val(txtGP.Text) + Val(txtTJ.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

 

dinas perhubungan seragam baru

Seragam Pegawai Dishub Akan Diganti

CILEGON – Penampilan para pegawai negeri sipil (PNS) di Dinas Perhubungan (Dishub) Kota Cilegon diwacanakan berubah pada 2015 mendatang. Dishub yang identik dengan seragam biru dikabarkan akan berganti warna dengan warna putih.

Hal itu dengan seiring rencana pemberlakuan seragam putih biru di lingkungan Kementerian Perhubungan (Kemenhub) pada 1 April 2015. Biasanya, Dishub yang bernaung di bawah Kementerian Dalam Negeri (Kemendagri) akan mengikuti kebijakan tersebut. Sekilas seragam tersebut tidak jauh berbeda dengan seragam yang kini dikenakan para PNS di lingkungan PT Kereta Api Indonesia (KAI). Namun ada perbedaan pada lambang pangkat dan golongan yang menempel pada kerah serta pundak seragam Dishub. “Bedanya pada lambang pangkat. Para pejabat Dishub akan mengenakan lambang itu di kerah dengan bentuk yang berbeda dengan seragam kantor lain,” ujar Kepala Dishub Cilegon Dana Sujaksani, Sabtu (27/12/2014).

10 program vb

ASISCA PENJUALAN TIKET KERETA 2ASISCA NIDNASISCA NAMA NPMASISCA HURUF MUTUASISCA ENTRI PENJUALAN LEPTOPASISCA ENTRI PENJUALAN COMPUTERASISCA DTA BUKU STMIK PSWASISCA DATA BUKU24 DIGITTT

 

DATA BUKU STMIK PRINGSEWU

Private Sub Command1_Click()

Dim J As String

J = Mid(Text6.Text, 3, 3)

If J = “SIM” Then

Text1.Text = “SISTEM INFORMASI MANAJEMEN”

Text2.Text = “YATI NUR OKTAFIA”

Text5.Text = “75900”

ElseIf J = “EDP” Then

Text1.Text = “ELEKTRONIK DATA PROCESSING”

Text2.Text = “WAGIANTO”

Text5.Text = “62000”

ElseIf J = “MNJ” Then

Text1.Text = “MANAJEMEN”

Text2.Text = “VALINTINA MARIANAN”

Text5.Text = “42000”

ElseIf J = “CDR” Then

Text1.Text = “COREL DRAW”

Text2.Text = “SITI FADILAH”

Text5.Text = “53000”

ElseIf J = “RPL” Then

Text1.Text = “REKAYASA PERANGKAT LUNAK”

Text2.Text = “FRENDI SETIADI”

Text5.Text = “83000”

End If

J = Left(Text6.Text, 1)

If J = “A” Then

Text4.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf J = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf J = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf J = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf J = “M” Then

Text4.Text = “MAXICOM”

End If

Text3.Text = “20” & Right(Text6.Text, 2)

End Sub

 

Private Sub Command2_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text6_Change()

 

End Sub

 

 

 

 

 

 

 

ENTRI PENJUALAN KOMPUTER

 

Private Sub Combo1_Click()

Dim JENKOM, HARSA As String

Select Case Combo1.Text

Case “P205”

JENKOM = “Pentium II 500 MegaHz”

HARSA = 1500000

Case “P308”

JENKOM = “Pentium III 800 MegaHz”

HARSA = 2100000

Case “P310”

JENKOM = “Pentium III 1.0 GigaHz”

HARSA = 3500000

Case “P415”

JENKOM = “Pentium IV 1.5 GigaHz”

HARSA = 4000000

Case “P417”

JENKOM = “Pentium IV 1.7 GigaHz”

HARSA = 4200000

Case “P419”

JENKOM = “Pentium IV 1.9 GigaHz”

HARSA = 5500000

Case Else

JENKOM = 0

HARSA = 0

End Select

Text1.Text = JENKOM

Text2.Text = HARSA

Text3.SetFocus

 

End Sub

 

Private Sub Command1_Click()

Text4.Text = Val(Text2.Text) * Val(Text3.Text)

If Text4.Text >= 15000000 Then

Text5.Text = Val(Text4.Text) * 2 / 100

ElseIf Text4.Text <= 25000000 Then

Text5.Text = Val(Text4.Text) * 5 / 100

ElseIf Text4.Text <= 30000000 Then

Text5.Text = Val(Text4.Text) * 10 / 100

ElseIf Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 15 / 100

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “P205”

Combo1.AddItem “P308”

Combo1.AddItem “P310”

Combo1.AddItem “P415”

Combo1.AddItem “P417”

Combo1.AddItem “P419”

End Sub

 

Private Sub Text1_Change()

 

End Sub

 

 

 

 

 

 

 

 PENJUALAN KERETA API

Private Sub Command1_Click()

Dim A As String

A = Mid(Text1.Text, 1, 3)

If A = “BIM” Then

Text2.Text = 50000

Text3.Text = “16.00”

Text6.Text = “BIMA”

ElseIf A = “EKO” Then

Text2.Text = 35000

Text3.Text = “19.00”

Text6.Text = “EKONOMI”

ElseIf A = “MUT” Then

Text2.Text = 23000

Text3.Text = “17.00”

Text6.Text = “MUTIARA”

ElseIf A = “SEN” Then

Text2.Text = 15000

Text3.Text = “20.00”

Text6.Text = “SENJA”

End If

Text5.Text = Val(Text2.Text) * Val(Text4.Text)

 

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

 

 PENJUALAN APPLE

Private Sub Combo1_Click()

Text3.SetFocus

End Sub

 

Private Sub Command1_Click()

Dim H As String

H = Mid(Combo1.Text, 7, 5)

If H = “MC965” Then

Text1.Text = “Apple MacBook Air MC965”

Text2.Text = 12800000

ElseIf H = “MC966” Then

Text1.Text = “Apple MacBook Air MC966”

Text2.Text = 15800000

ElseIf H = “MC968” Then

Text1.Text = “Apple MacBook Air MC968”

Text2.Text = 9900000

ElseIf H = “MC969” Then

Text1.Text = “Apple MacBook Air MC969”

Text2.Text = 11900000

ElseIf H = “MC700” Then

Text1.Text = “Apple MacBook Pro MC700”

Text2.Text = 10800000

ElseIf H = “MC721” Then

Text1.Text = “Apple MacBook Pro MC721”

Text2.Text = 15900000

ElseIf H = “MC723” Then

Text1.Text = “Apple MacBook Pro MC723”

Text2.Text = 19300000

ElseIf H = “MC724” Then

Text1.Text = “Apple MacBook Pro MC724”

Text2.Text = 13700000

ElseIf H = “MC311” Then

Text1.Text = “Apple MacBook Pro MC311”

Text2.Text = 24200000

ElseIf H = “MC313” Then

Text1.Text = “Apple MacBook Pro MC313”

Text2.Text = 11900000

ElseIf H = “MC314” Then

Text1.Text = “Apple MacBook Pro MC314”

Text2.Text = 14700000

ElseIf H = “MC318” Then

Text1.Text = “Apple MacBook Pro MC318”

Text2.Text = 17600000

ElseIf H = “MC322” Then

Text1.Text = “Apple MacBook Pro MC322”

Text2.Text = 21300000

End If

Text4.Text = Val(Text2.Text) * Val(Text3.Text)

If Text4.Text >= 15000000 Then

Text5.Text = Val(Text4.Text) * 2 / 100

ElseIf Text4.Text <= 25000000 Then

Text5.Text = Val(Text4.Text) * 5 / 100

ElseIf Text4.Text <= 30000000 Then

Text5.Text = Val(Text4.Text) * 10 / 100

ElseIf Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 15 / 100

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “Apple MC965 MacBook Air”

Combo1.AddItem “Apple MC966 MacBook Air”

Combo1.AddItem “Apple MC968 MacBook Air”

Combo1.AddItem “Apple MC969 MacBook Air”

Combo1.AddItem “Apple MC700 MacBook Pro”

Combo1.AddItem “Apple MC721 MacBook Pro”

Combo1.AddItem “Apple MC723 MacBook Pro”

Combo1.AddItem “Apple MC724 MacBook Pro”

Combo1.AddItem “Apple MC311 MacBook Pro”

Combo1.AddItem “Apple MC313 MacBook Pro”

Combo1.AddItem “Apple MC314 MacBook Pro”

Combo1.AddItem “Apple MC318 MacBook Pro”

Combo1.AddItem “Apple MC322 MacBook Pro”

End Sub

 

 

 RUMUS DATA BUKU 2

Private Sub Command1_Click()

Dim K As String

K = Mid(Text6.Text, 1, 3)

If K = “SIM” Then

Text1.Text = “SISTEM INFORMASI MANAJEMEN”

Text2.Text = “FADIYA ULFA”

Text5.Text = “75900”

ElseIf K = “EDP” Then

Text1.Text = “ELEKTRONIK DATA PROCESSING”

Text2.Text = “NURUL AGUSTINA”

Text5.Text = “62000”

ElseIf K = “MNJ” Then

Text1.Text = “MANAJEMEN”

Text2.Text = “RIAN HIDAYAT”

Text5.Text = “42000”

ElseIf K = “CDR” Then

Text1.Text = “COREL DRAW”

Text2.Text = “SITI NUR KHOTIMAH”

Text5.Text = “53000”

ElseIf K = “RPL” Then

Text1.Text = “REKAYASA PERANGKAT LUNAK”

Text2.Text = “WINDA ERLIANTI”

Text5.Text = “83000”

End If

K = Right(Text6.Text, 1)

If K = “A” Then

Text4.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf K = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf K = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf K = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf K = “M” Then

Text4.Text = “MAXICOM”

End If

Text3.Text = “20” & Mid(Text6.Text, 5, 2)

End Sub

 

Private Sub Command2_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text1_Change()

 

End Sub

 

 

 

 

 

RUMUS NIDN

Private Sub Combo1_Click()

Dim gapok, tunjangan, pajak, total As String

Select Case Combo1.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Text3.Text = gapok

Text4.Text = tunjangan

Text5.Text = pajak

Text6.Text = total – pajak

End Sub

 

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Combo1.Text = “”

End Sub

 

Private Sub TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Combo1.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “I”

Combo1.AddItem “II”

Combo1.AddItem “III”

Combo1.AddItem “IV”

End Sub

 

HURUF MUTU

Private Sub Combo1_CLICK()

Dim NAMA, JURUSAN, HM As String

Select Case Combo1.Text

Case “09100027”

NAMA = “AFNAN ZALFA SALSABILAA”

JURUSAN = “Sistem Informasi”

Case “09200048”

NAMA = “AMALIA AMANAH”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “09300024”

NAMA = “SASKIA MECHA”

JURUSAN = ” TEKNIK INFORMATIKA”

End Select

Text1.Text = NAMA

Text2.Text = JURUSAN

Text3.SetFocus

End Sub

 

Private Sub Command1_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Text3.Text)

TUGAS = Val(Text4.Text)

UTS = Val(Text5.Text)

UAS = Val(Text6.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Text7.Text = NA

Select Case Text7.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is > 50

HM = “E”

Case Is < 50

HM = “BL”

End Select

Text8.Text = HM

End Sub

 

 

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “09100027”

Combo1.AddItem “09200048”

Combo1.AddItem “09300024”

End Sub

 

 

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

 

 

 

 RUMUS NPM

Private Sub Command1_Click()

Dim S As String

Text5.Text = “20” & Left(Text2.Text, 2)

S = Mid(Text2.Text, 3, 1)

If S = “1” Then

Text3.Text = “Sistem Informasi”

ElseIf S = “2” Then

Text3.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Text3.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Text3.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(Text2.Text, 3, 1)

If S = “1” Then

Text4.Text = “Strata Satu”

ElseIf S = “2” Then

Text4.Text = “Diploma Tiga”

ElseIf S = “3” Then

Text4.Text = “Diploma Empat”

ElseIf S = “4” Then

Text4.Text = “Diploma Dua”

End If

Text6.Text = Right(Text2.Text, 3)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

 RUMUS NPM 4 DIGIT

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjur.Text = “Teknik informatika”

ElseIf S = “3” Then

txtjur.Text = “Manajemen Informatika”

ElseIf S = “4” Then

txtps.Text = “komputer akuntansi”

End If

S = Mid(txtnpm.Text, 4, 2)

If S = “01” Then

txtps.Text = “strata satu”

ElseIf S = “02” Then

txtps.Text = “diploma empat”

ElseIf S = “03” Then

txtps.Text = “diploma tiga”

ElseIf S = “04” Then

txtps.Text = “diploma dua”

End If

txttm.Text = “20” & Left(txtnpm.Text, 2)

txturut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Form_active()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

vb 10 program

ASISCA PENJUALAN TIKET KERETA 2ASISCA NIDNASISCA NAMA NPMASISCA HURUF MUTUASISCA ENTRI PENJUALAN LEPTOPASISCA ENTRI PENJUALAN COMPUTERASISCA DTA BUKU STMIK PSWASISCA DATA BUKU24 DIGITTT

 

DATA BUKU STMIK PRINGSEWU

Private Sub Command1_Click()

Dim J As String

J = Mid(Text6.Text, 3, 3)

If J = “SIM” Then

Text1.Text = “SISTEM INFORMASI MANAJEMEN”

Text2.Text = “YATI NUR OKTAFIA”

Text5.Text = “75900”

ElseIf J = “EDP” Then

Text1.Text = “ELEKTRONIK DATA PROCESSING”

Text2.Text = “WAGIANTO”

Text5.Text = “62000”

ElseIf J = “MNJ” Then

Text1.Text = “MANAJEMEN”

Text2.Text = “VALINTINA MARIANAN”

Text5.Text = “42000”

ElseIf J = “CDR” Then

Text1.Text = “COREL DRAW”

Text2.Text = “SITI FADILAH”

Text5.Text = “53000”

ElseIf J = “RPL” Then

Text1.Text = “REKAYASA PERANGKAT LUNAK”

Text2.Text = “FRENDI SETIADI”

Text5.Text = “83000”

End If

J = Left(Text6.Text, 1)

If J = “A” Then

Text4.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf J = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf J = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf J = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf J = “M” Then

Text4.Text = “MAXICOM”

End If

Text3.Text = “20” & Right(Text6.Text, 2)

End Sub

 

Private Sub Command2_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text6_Change()

 

End Sub

 

 

 

 

 

 

 

(((ENTRI PENJUALAN KOMPUTER)))

 

Private Sub Combo1_Click()

Dim JENKOM, HARSA As String

Select Case Combo1.Text

Case “P205”

JENKOM = “Pentium II 500 MegaHz”

HARSA = 1500000

Case “P308”

JENKOM = “Pentium III 800 MegaHz”

HARSA = 2100000

Case “P310”

JENKOM = “Pentium III 1.0 GigaHz”

HARSA = 3500000

Case “P415”

JENKOM = “Pentium IV 1.5 GigaHz”

HARSA = 4000000

Case “P417”

JENKOM = “Pentium IV 1.7 GigaHz”

HARSA = 4200000

Case “P419”

JENKOM = “Pentium IV 1.9 GigaHz”

HARSA = 5500000

Case Else

JENKOM = 0

HARSA = 0

End Select

Text1.Text = JENKOM

Text2.Text = HARSA

Text3.SetFocus

 

End Sub

 

Private Sub Command1_Click()

Text4.Text = Val(Text2.Text) * Val(Text3.Text)

If Text4.Text >= 15000000 Then

Text5.Text = Val(Text4.Text) * 2 / 100

ElseIf Text4.Text <= 25000000 Then

Text5.Text = Val(Text4.Text) * 5 / 100

ElseIf Text4.Text <= 30000000 Then

Text5.Text = Val(Text4.Text) * 10 / 100

ElseIf Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 15 / 100

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “P205”

Combo1.AddItem “P308”

Combo1.AddItem “P310”

Combo1.AddItem “P415”

Combo1.AddItem “P417”

Combo1.AddItem “P419”

End Sub

 

Private Sub Text1_Change()

 

End Sub

 

 

 

 

 

 

 

 ((( TIKET PENJUALAN KERETA API )))

Private Sub Command1_Click()

Dim A As String

A = Mid(Text1.Text, 1, 3)

If A = “BIM” Then

Text2.Text = 50000

Text3.Text = “16.00”

Text6.Text = “BIMA”

ElseIf A = “EKO” Then

Text2.Text = 35000

Text3.Text = “19.00”

Text6.Text = “EKONOMI”

ElseIf A = “MUT” Then

Text2.Text = 23000

Text3.Text = “17.00”

Text6.Text = “MUTIARA”

ElseIf A = “SEN” Then

Text2.Text = 15000

Text3.Text = “20.00”

Text6.Text = “SENJA”

End If

Text5.Text = Val(Text2.Text) * Val(Text4.Text)

 

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

 

(((ENTRI PENJUALAN LEPTOP)))

Private Sub Combo1_Click()

Text3.SetFocus

End Sub

 

Private Sub Command1_Click()

Dim H As String

H = Mid(Combo1.Text, 7, 5)

If H = “MC965” Then

Text1.Text = “Apple MacBook Air MC965”

Text2.Text = 12800000

ElseIf H = “MC966” Then

Text1.Text = “Apple MacBook Air MC966”

Text2.Text = 15800000

ElseIf H = “MC968” Then

Text1.Text = “Apple MacBook Air MC968”

Text2.Text = 9900000

ElseIf H = “MC969” Then

Text1.Text = “Apple MacBook Air MC969”

Text2.Text = 11900000

ElseIf H = “MC700” Then

Text1.Text = “Apple MacBook Pro MC700”

Text2.Text = 10800000

ElseIf H = “MC721” Then

Text1.Text = “Apple MacBook Pro MC721”

Text2.Text = 15900000

ElseIf H = “MC723” Then

Text1.Text = “Apple MacBook Pro MC723”

Text2.Text = 19300000

ElseIf H = “MC724” Then

Text1.Text = “Apple MacBook Pro MC724”

Text2.Text = 13700000

ElseIf H = “MC311” Then

Text1.Text = “Apple MacBook Pro MC311”

Text2.Text = 24200000

ElseIf H = “MC313” Then

Text1.Text = “Apple MacBook Pro MC313”

Text2.Text = 11900000

ElseIf H = “MC314” Then

Text1.Text = “Apple MacBook Pro MC314”

Text2.Text = 14700000

ElseIf H = “MC318” Then

Text1.Text = “Apple MacBook Pro MC318”

Text2.Text = 17600000

ElseIf H = “MC322” Then

Text1.Text = “Apple MacBook Pro MC322”

Text2.Text = 21300000

End If

Text4.Text = Val(Text2.Text) * Val(Text3.Text)

If Text4.Text >= 15000000 Then

Text5.Text = Val(Text4.Text) * 2 / 100

ElseIf Text4.Text <= 25000000 Then

Text5.Text = Val(Text4.Text) * 5 / 100

ElseIf Text4.Text <= 30000000 Then

Text5.Text = Val(Text4.Text) * 10 / 100

ElseIf Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 15 / 100

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “Apple MC965 MacBook Air”

Combo1.AddItem “Apple MC966 MacBook Air”

Combo1.AddItem “Apple MC968 MacBook Air”

Combo1.AddItem “Apple MC969 MacBook Air”

Combo1.AddItem “Apple MC700 MacBook Pro”

Combo1.AddItem “Apple MC721 MacBook Pro”

Combo1.AddItem “Apple MC723 MacBook Pro”

Combo1.AddItem “Apple MC724 MacBook Pro”

Combo1.AddItem “Apple MC311 MacBook Pro”

Combo1.AddItem “Apple MC313 MacBook Pro”

Combo1.AddItem “Apple MC314 MacBook Pro”

Combo1.AddItem “Apple MC318 MacBook Pro”

Combo1.AddItem “Apple MC322 MacBook Pro”

End Sub

 

 

DATA BUKU 2

Private Sub Command1_Click()

Dim K As String

K = Mid(Text6.Text, 1, 3)

If K = “SIM” Then

Text1.Text = “SISTEM INFORMASI MANAJEMEN”

Text2.Text = “FADIYA ULFA”

Text5.Text = “75900”

ElseIf K = “EDP” Then

Text1.Text = “ELEKTRONIK DATA PROCESSING”

Text2.Text = “NURUL AGUSTINA”

Text5.Text = “62000”

ElseIf K = “MNJ” Then

Text1.Text = “MANAJEMEN”

Text2.Text = “RIAN HIDAYAT”

Text5.Text = “42000”

ElseIf K = “CDR” Then

Text1.Text = “COREL DRAW”

Text2.Text = “SITI NUR KHOTIMAH”

Text5.Text = “53000”

ElseIf K = “RPL” Then

Text1.Text = “REKAYASA PERANGKAT LUNAK”

Text2.Text = “WINDA ERLIANTI”

Text5.Text = “83000”

End If

K = Right(Text6.Text, 1)

If K = “A” Then

Text4.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf K = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf K = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf K = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf K = “M” Then

Text4.Text = “MAXICOM”

End If

Text3.Text = “20” & Mid(Text6.Text, 5, 2)

End Sub

 

Private Sub Command2_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text1_Change()

 

End Sub

 

 

 

 

 

((( RUMUSNIDN)))

Private Sub Combo1_Click()

Dim gapok, tunjangan, pajak, total As String

Select Case Combo1.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Text3.Text = gapok

Text4.Text = tunjangan

Text5.Text = pajak

Text6.Text = total – pajak

End Sub

 

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Combo1.Text = “”

End Sub

 

Private Sub TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Combo1.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “I”

Combo1.AddItem “II”

Combo1.AddItem “III”

Combo1.AddItem “IV”

End Sub

 

(((HURUF MUTU)))

Private Sub Combo1_CLICK()

Dim NAMA, JURUSAN, HM As String

Select Case Combo1.Text

Case “09100027”

NAMA = “AFNAN ZALFA SALSABILAA”

JURUSAN = “Sistem Informasi”

Case “09200048”

NAMA = “AMALIA AMANAH”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “09300024”

NAMA = “SASKIA MECHA”

JURUSAN = ” TEKNIK INFORMATIKA”

End Select

Text1.Text = NAMA

Text2.Text = JURUSAN

Text3.SetFocus

End Sub

 

Private Sub Command1_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Text3.Text)

TUGAS = Val(Text4.Text)

UTS = Val(Text5.Text)

UAS = Val(Text6.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Text7.Text = NA

Select Case Text7.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is > 50

HM = “E”

Case Is < 50

HM = “BL”

End Select

Text8.Text = HM

End Sub

 

 

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “09100027”

Combo1.AddItem “09200048”

Combo1.AddItem “09300024”

End Sub

 

 

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

 

 

 

 

(((NPM )))

Private Sub Command1_Click()

Dim S As String

Text5.Text = “20” & Left(Text2.Text, 2)

S = Mid(Text2.Text, 3, 1)

If S = “1” Then

Text3.Text = “Sistem Informasi”

ElseIf S = “2” Then

Text3.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Text3.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Text3.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(Text2.Text, 3, 1)

If S = “1” Then

Text4.Text = “Strata Satu”

ElseIf S = “2” Then

Text4.Text = “Diploma Tiga”

ElseIf S = “3” Then

Text4.Text = “Diploma Empat”

ElseIf S = “4” Then

Text4.Text = “Diploma Dua”

End If

Text6.Text = Right(Text2.Text, 3)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

NPM 4 DIGIT

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

S = Mid(txtnpm.Text, 3, 1)

If S = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

txtjur.Text = “Teknik informatika”

ElseIf S = “3” Then

txtjur.Text = “Manajemen Informatika”

ElseIf S = “4” Then

txtps.Text = “komputer akuntansi”

End If

S = Mid(txtnpm.Text, 4, 2)

If S = “01” Then

txtps.Text = “strata satu”

ElseIf S = “02” Then

txtps.Text = “diploma empat”

ElseIf S = “03” Then

txtps.Text = “diploma tiga”

ElseIf S = “04” Then

txtps.Text = “diploma dua”

End If

txttm.Text = “20” & Left(txtnpm.Text, 2)

txturut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Form_active()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

Private Sub txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

Tiga Korban Ditemukan

Tiga lagi korban nahas pesawat QZ8501 ditemui

Tiga lagi korban nahas pesawat QZ8501 ditemui

Misi SAR hari kesembilan menemukan lagi tiga mayat di Selat Karimata.
KUALA LUMPUR: Pencarian hari kesembilan misi SAR nahas pesawat AirAsia QZ8501 berjaya menemukan tiga lagi mayat di Selat Karimata.

Penemuan oleh kapal KD Kasturi milik Malaysia itu menjadikan jumlah mangsa yang ditemui setakat ini berjumlah 37 orang.

Tiga mayat berkenaan kemudiannya dipindahkan ke kapal RSS Persistence milik Singapura sebelum dibawa menggunakan helikopter Dauphin milik Badan SAR Nasional Indonesia (Basarnas) ke Pangkalan Udara Iskandar di Pangkalan Bun, lapor MetroTVNews.com.

Mayat dibawa ke Hospital Sultan Imanuddin untuk menjalani proses pemeriksaan awal.

pesawat air asia

Basarnas temukan dua potongan besar pesawat AirAsia

Basarnas menemukan obyek yang cukup besar pada pencarian Jumat malam.

Basarnas memastikan penemuan dua obyek yang cukup besar di kedalaman 30 meter di dasar laut, merupakan potongan pesawat, demikian keterangan pers Sabtu ( 03/12).

Kepala Basarnas Marsdya FHB Soelistyo menyatakan genangan minyak juga ditemukan di sekitar lokasi.

“Ada temuan genangan minyak dan obyek yang cukup besar pada pencarian pukul 23.40 WIB, saya pastikan ini bagian dari pesawat AirAsia yang selama ini kita cari,” jelas Soelistyo.

Posisi obyek tersebut berdekatan satu sama lain di kedalaman 30 meter dari permukaan laut.

“Kami akan menurunkan posisi ROV ( Kendaraan di bawah laut yang digerakkan menggunakan remote) ntuk mendapatkan gambar yang utuh dari dua obyek yang telah terdeteksi,” jelas

Soelistyo.

Obyek yang terdeteksi berukuran 9,4 x 4,8 meter dan 7,2 x 0,5 meter.

Pencarian pesawat AirAsia memasuki telah hari ketujuh, dan 30 jenazah telah dievakuasi.

Badan Meteorologi, Klimatologi dan Geofiksika BMKG menyatakan prakiraan cuaca di sekitar lokasi pencarian pesawat Air Asia QZ 8501 di Selat Karimata, Kalimantan Tengah masih terjadi hujan dan gelombang tinggi.

BMKG menyebutkan ketinggian gelombang di wilayah Selat Karimata dan perairan Pangkalan Bun, Kabupaten Kotawaringin diperkirakan mencapai 3-4 meter.

“Di Daerah pencarian kondisi gelombang amsih cukup tinggi yaitu 3-4 meter, dan cuaca berawan pada pagi hari dan masih ada potensi hujan pada siang sampai malam hari,” jelas Prakirawan BMKG Mia Husnul khotimah kepada wartawan BBC Indonesia, Sri Lestari.

Cuaca esok hari (Minggu, 04/01) akan cenderung membaik yaitu dengan ketinggian gelombang diperkirakan 2-3 meter, dan cuaca pun membaik.

Pencarian hari ketujuh mulai dilakukan sejak pagi hari

pendidikan


1.213 views
11 day ago
Ini yang Dihadapi Murid dengan Kurikulum 2013

Pengalaman baru dihadapi para murid ketika mulai menjajaki Kurikulum 2013 yang menggantikan Kurikulum 2006. Melalui kurikulum baru itu, murid dituntut untuk lebih aktif di kelas dibandingkan dengan guru. Khusus wilayah Jakarta Selatan, hampir seluruh sekolah telah menerapkan Kurikulum 2013.

Ada beberapa perbedaan yang dialami oleh murid pada kurikulum baru dengan yang lama. Di antaranya, jam sekolah yang lebih lama dan juga pola belajar dengan metode diskusi. Yudi, Wakil Kepala Sekolah SMK Putra Satria di Pesanggrahan, Jakarta Selatan, mengakui adanya keluhan dari siswanya mengenai pola baru di Kurikulum 2013.