Tugas VB baru

Private Sub Command1_Click()
Dim K, S As String
Dim C As Long
K = Left(Text2.Text, 1)
If K = “E” Or K = “e” Then
Text3.Text = “EKSEKUTIF”
S = Mid(Text2.Text, 6, 2)
If S = “01” Then
text5.Text = “STRATA SATU”
text8.Text = “200000”
text9.Text = “1900000”
text10.Text = “1250000”
text11.Text = “600000”
ElseIf S = “02” Then
text5.Text = “DIPLOMA TIGA”
text8.Text = “150000”
text9.Text = “1650000”
text10.Text = “1250000”
text11.Text = “600000”
ElseIf S = “03” Then
text5.Text = “DIPLOMA SATU”
text8.Text = “150000”
text9.Text = “1350000”
text10.Text = “1250000”
text11.Text = “600000”
End If
End If
C = Val(text8.Text) + Val(text9.Text) + Val(text10.Text) + Val(text11.Text)
text12.Text = C
If K = “R” Or K = “r” Then
Text3.Text = “REGULER”
S = Mid(Text2.Text, 6, 2)
If S = “01” Then
text5.Text = “STRATA SATU”
text8.Text = “200000”
text9.Text = “1500000”
text10.Text = “1000000”
text11.Text = “600000”
ElseIf S = “02” Then
text5.Text = “DIPLOMA TIGA”
text8.Text = “150000”
text9.Text = “1250000”
text10.Text = “1000000”
text11.Text = “600000”
ElseIf S = “03” Then
text5.Text = “DIPLOMA SATU”
text8.Text = “150000”
text9.Text = “1250000”
text10.Text = “1000000”
text11.Text = “600000”
End If
End If
C = Val(text8.Text) + Val(text9.Text) + Val(text10.Text) + Val(text11.Text)
text12.Text = C
text6.Text = “20” & Mid(Text2.Text, 3, 2)
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 & KOM.AKUTYANSI”
End If
text7.Text = Right(Text2.Text, 3)

text8.Text = FormatNumber(text8, 2)
text9.Text = FormatNumber(text9, 2)
text10.Text = FormatNumber(text10, 2)
text11.Text = FormatNumber(text11, 2)
text12.Text = FormatNumber(text12, 2)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_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 Command4_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 Form_Activate()
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 Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

 

KODE PROGRAM :

Private Sub Form_Activate()

Dim c As Integer

c = 1

Do While c < 20

c = c + 2

List1.AddItem c

Loop

End Sub

KODE PROGRAM

Private Sub Form_Activate()

Dim A As Integer

A = 0

Do While A< 20

A = A + 2

List1.AddItem A

Loop

End Sub

 

KODE PROGRAM

 

Private Sub Form_Activate()

 

Dim B As Integer

 

For B = 5 To 499 Step 27

 

List1.AddItem B + 3

 

Next B

 

End Sub

 

 

Dipublikasi di Uncategorized | Meninggalkan komentar

tugas 2 vb

 

Kode program :

Private Sub CMDBATAL_Click()

TXTNAMA.SetFocus

TXTNAMA.Text = “”

TXTNIK.Text = “”

TXTGOL.Text = “”

TXTKS.Text = “”

TXTST.Text = “”

TXTTH.Text = “”

TXTJB.Text = “”

TXTBG.Text = “”

TXTGP.Text = “”

TXTTJ.Text = “”

TXTTG.Text = “”

End Sub

 

Private Sub CMDKELUAR_Click()

Unload Me

End Sub

 

Private Sub CMDLAGI_Click()

TXTNAMA.SetFocus

TXTNAMA.Text = “”

TXTNIK.Text = “”

TXTGOL.Text = “”

TXTKS.Text = “”

TXTST.Text = “”

TXTTH.Text = “”

TXTJB.Text = “”

TXTBG.Text = “”

TXTGP.Text = “”

TXTTJ.Text = “”

TXTTG.Text = “”

End Sub

 

Private Sub CMDPROSES_Click()

Dim NIK As String

NIK = Left(TXTNIK.Text, 3)

If NIK = “KEU” Then

TXTBG.Text = “ACCOUNTING”

ElseIf NIK = “ADM” Then

TXTBG.Text = “ADMINISTRASI”

ElseIf NIK = “SDM” Then

TXTBG.Text = “GENERAL AFFAIR”

ElseIf NIK = “EDP” Then

TXTBG.Text = “IT UNIT”

ElseIf NIK = “SPM” Then

TXTBG.Text = “SCURITY”

End If

NIK = Mid(TXTNIK.Text, 5, 4)

TXTTH.Text = NIK

NIK = Mid(TXTNIK.Text, 9, 1)

If NIK = “A” Then

TXTGOL.Text = “A”

TXTJB.Text = “MANAJER”

TXTGP.Text = “3000000”

TXTTJ.Text = “875000”

ElseIf NIK = “B” Then

TXTGOL.Text = “B”

TXTJB.Text = “K.A SEKSI”

TXTGP.Text = “2500000”

TXTTJ.Text = “525000”

ElseIf NIK = “C” Then

TXTGOL.Text = “C”

TXTJB.Text = “STAF”

TXTGP.Text = “2000000”

TXTTJ.Text = “325000”

End If

NIK = Right(TXTNIK.Text, 1)

If NIK = “S” Then

TXTKS.Text = “S”

TXTST.Text = “SINGLE”

ElseIf NIK = “M” Then

TXTKS.Text = “M”

TXTST.Text = “MENIKAH”

ElseIf NIK = “D” Then

TXTKS.Text = “D”

TXTST.Text = “DUDA”

ElseIf NIK = “J” Then

TXTKS.Text = “J”

TXTST.Text = “JANDA”

End If

TXTTG.Text = Val(TXTGP.Text) + Val(TXTTJ.Text)

End Sub

 

Private Sub TXTNAMA_KEYPRESS(KEYASCII As Integer)

If KEYASCII = 13 Then

TXTNIK.SetFocus

End If

End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar

tugas vb 1

 

 

 

 

 

 

 

 

 

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

 

 

 

 

 

 

KODE PROGRAM

Private Sub CMDBATAL_Click()

TxtKB.SetFocus

TxtNB.Text = “”

TxtJS.Text = “”

TxtTJ.Text = “”

TxtHJ.Text = “”

TxtHJ.Text = “”

TxtTH.Text = “”

TxtSS.Text = “”

End Sub

Private Sub CMDKELUAR_Click()

Unload Me

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 = “COMPACK”

TxtHJ.Text = “480000”

End If

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(TxtHJ.Text) * Val(TxtTJ.Text)

End If

End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar

Masa Asimilasi Ariel Belum Bisa Dipastikan

 

 

Ingar bingar gemerlap panggung nampaknya belum bisa kembali dirasakan Nazril Irham atau biasa disapa Ariel Peterpan. Vokalis band Peterpan ini masih menjalani sisa masa tahanan di Rumah Tahanan Kebon Waru, Bandung, Jawa Barat. Pacar Luna Maya ini kini tengah sibuk mengisi masa asimilasi sebagai karyawan di sebuah perusahaan penyedia jasa arsitektur. 

Namun kepastian sampai kapan ayah satu putri itu akan menjalani masa asimilasi belum diketahui. Kepada Liputan6.com, Selasa (14/2), Budi selaku manajer band Peterpan, mengatakan kepastian hingga kapan masa asimilasi Ariel tergantung semua pihak.

Dalam arti, persetujuan dari pihak Kementerian Hukum dan Hak Asasi Manusia, rutan, dan perusahaan jasa arsitektur yang menggunakan jasa Ariel. “Kita kepastian sampai kapannya belum tahu. Sebelumnya sih dari pihak sananya bilang sampai enam bulan. Yah itu tergantung semua pihak. Termasuk pihak rutan dan perusahaan,” jelas Budi.

Ariel menjalani masa asimilasi setelah menjalani dua per tiga masa tahanan atas kasus asusila. Lelaki yang pernah menempuh pendidikan arsitektur di Universitas Parahyangan, Bandung, itu bisa menjalani masa asimilasi dan bekerja di luar rutan karena dianggap berkelakuan baik.

Soal status hukum, Ariel juga akan mendapatkan pembebasan bersyarat pada sekitar Juli mendatang karena sudah menjalani dua per tiga masa tahanan.(APY/AIS)

Dipublikasi di Uncategorized | Meninggalkan komentar

Taufiq Kiemas Berobat ke Australia

 

Taufiq Kiemas Berobat ke AustraliaKetua MPR Taufik Kiemas, Rabu (26/1) bertolak ke Perth Australia untuk melakukan pengecekan kesehatan. Sebuah sumber SCTV yang dekat dengan Taufik Kiemas menyebutkan kondisi Ketua Dewan Pertimbangan Pusat PDI Perjuangan itu berangkat dalam kondisi yang sehat. “Hanya mencari second opinion saja, tapi jelasnya tolong tanya ke Teuku Umar,” ujar sumber tersebut.

Taufik Kiemas sendiri pernah melakukan operasi bypass jantung di kota Perth tahun 1993, dan setelah itu sempat melakukan pengecekan kembali kondisi kesehatannya di kota ini. Kondisi kesehatan Taufik Kiemas menjadi perhatian setelah pertengahan Desember 2011 melakukan pengantian batere untuk pemacu jantung di RS Harapan Kita Jakarta.

Saat ulang tahun Ketua Umum DPP PDI Perjuangan Megawati Soekarnoputri, 23/1 Taufik Kiemas juga terlihat sehat. Kegiatan Taufik Kiemas sendiri terpantau di MPR pekan lalu saat melantik Erwin Moeslimin Singajuru dan Sayed Muhammad Muliady sebagai pengganti antar waktu anggota MPR menggantikan Duddie Makmun Murod dan Topane Gayus Lumbuun, di Gedung MPR, Senayan, Jakarta, Jumat (20/1). (ARI)

http://berita.liputan6.com/read/374111/taufiq-kiemas-berobat-ke-australia

Dipublikasi di Uncategorized | Meninggalkan komentar

Diduga Menipu, Dukun Ditangkap Polisi

 

 

Diduga Menipu, Dukun Ditangkap Polisi

Nurhayati Daeng Sunggu, belum lama ini, terpaksa harus berurusan dengan aparat Polres Takalar setelah dilaporkan oleh pasiennya yang merasa ditipu. Selama ini Nurhayati memang sering mengobati orang yang meminta diobati.

 

Nurhayati mengaku mendapat wangsit dari para wali untuk mengobati para pasiennya. Selama empat tahun berprofesi sebagai paranormal, ia selalu menarik bayaran dari pasiennya.

Tersangka dilaporkan ke polisi setelah salah seorang pasien tak kunjung sembuh setelah diobatinya. Padahal, pasien tersebut sudah menyerahkan uang hingga empat juta lebih. Karena kecewa pasien tersebut melaporkan Nurhayati ke polisi.(IAN)

Dipublikasi di Uncategorized | Meninggalkan komentar

Warga Pergoki Sepasang Siswa SMP Mesum

 

 

Warga Pergoki Sepasang Siswa SMP Mesum
Sepasang anak baru gede (ABG) tertangkap basah sedang berbuat mesum di kawasan Pantai Mampie, Polewali Mandar, Sulawesi Barat. Sepasaang anak baru kencur tersebut sebagai siswa serta siswi di salah satu sekolah menengah pertama di Kecamatan Wonomulyo, Polewali Mandar. 

Meski tertangkap tangan, keduanya mengaku tidak sengaja mampir di lokasi ini. Pelajr laki misalnya mengaku mengajak kekasihnya ke semak belukar yang sepi karena ingin berteduh. Pasalnya cuaca pantai terasa panas. Kedua pasangan ini juga sempat menolak saat dibawa oleh warga untuk dimintai keterangan.

Agar jera, kedua pelaku sempat dijemur dan diinterogasi di lapangan saat cuaca tengah membakar kulit. Keduanya sempat memberi keterangan identitas palsu dan berbelit-belit. Warga kemudian membebaskan keduanya setelah guru dan orang tua keduanya dikonfirmasi warga dan aparat desa setempat.

Sudah banyak pasangan mesum yang dipergoki sedang bercumbu di kawasan Pantai Mampie. Meski sudah banyak pelaku dipermalukan warga karena tertangkap tangan berbuat tak senonoh di tempat publik, pasangan mesum baru lainnya justru makin ramai ditemukan di sepanjang pesisir Pantai Mampie.

Warga setempat menyesalkan sikap Satuan Polisi Pamong Praja yang tidak pernah memantau lokasi ini terutama saat musim libur. Kawasan rekreasi Mampie menjadi pilihan muda-mudi lantaran sepi. Jaraknya yang jauh dari kota dan suasana pantai yang sejuk menjadikan tempat ini nyaman untuk berpacaran.(JUM)Sepasang anak baru gede (ABG) tertangkap basah sedang berbuat mesum di kawasan Pantai Mampie, Polewali Mandar, Sulawesi Barat. Sepasaang anak baru kencur tersebut sebagai siswa serta siswi di salah satu sekolah menengah pertama di Kecamatan Wonomulyo, Polewali Mandar.

Meski tertangkap tangan, keduanya mengaku tidak sengaja mampir di lokasi ini. Pelajr laki misalnya mengaku mengajak kekasihnya ke semak belukar yang sepi karena ingin berteduh. Pasalnya cuaca pantai terasa panas. Kedua pasangan ini juga sempat menolak saat dibawa oleh warga untuk dimintai keterangan.

Agar jera, kedua pelaku sempat dijemur dan diinterogasi di lapangan saat cuaca tengah membakar kulit. Keduanya sempat memberi keterangan identitas palsu dan berbelit-belit. Warga kemudian membebaskan keduanya setelah guru dan orang tua keduanya dikonfirmasi warga dan aparat desa setempat.

Sudah banyak pasangan mesum yang dipergoki sedang bercumbu di kawasan Pantai Mampie. Meski sudah banyak pelaku dipermalukan warga karena tertangkap tangan berbuat tak senonoh di tempat publik, pasangan mesum baru lainnya justru makin ramai ditemukan di sepanjang pesisir Pantai Mampie.

Warga setempat menyesalkan sikap Satuan Polisi Pamong Praja yang tidak pernah memantau lokasi ini terutama saat musim libur. Kawasan rekreasi Mampie menjadi pilihan muda-mudi lantaran sepi. Jaraknya yang jauh dari kota dan suasana pantai yang sejuk menjadikan tempat ini nyaman untuk berpacaran.(JUM)

Dipublikasi di Uncategorized | Meninggalkan komentar