posting latihan vb

 

Private Sub Command1_Click()
Dim e As String
Text6.Text = “20” & Mid(Text2.Text, 3, 2)
Text7.Text = Right(Text2.Text, 3)

e = Left(Text2.Text, 1)
If e = “E” Then
Text3.Text = “EKSEKUTIF”
ElseIf e = “R” Then
Text3.Text = “REGULER”
End If

e = Mid(Text2.Text, 5, 1)
If e = “1” Then
Text4.Text = “SISTEM INFORMASI”
ElseIf e = “2” Then
Text4.Text = “MANAJEMEN INFORMATIKA”
ElseIf e = “3” Then
Text4.Text = “MANAJEMEN DAN KOMP.AKUNTANSI”
End If

e = Mid(Text2.Text, 6, 2)
If e = “01” Then
Text5.Text = “STRATA SATU”
ElseIf e = “02” Then
Text5.Text = “DIPLOMA TIGA”
ElseIf e = “03” Then
Text5.Text = “DIPLOMA SATU”
End If

If Text3.Text = “EKSEKUTIF” And Text5.Text = “STRATA SATU” Then
Text8.Text = “200000”
Text9.Text = “1900000”
Text10.Text = “1500000”
Text11.Text = “1250000”
ElseIf Text3.Text = “EKSEKUTIF” And Text5.Text = “DIPLOMA TIGA” Then
Text8.Text = “1500000”
Text9.Text = “1650000”
Text10.Text = “1250000”
Text11.Text = “1250000”
ElseIf Text3.Text = “EXSEKUTIF” And Text5.Text = “DIPLOMA SATU” Then
Text8.Text = “150000”
Text9.Text = “1350000”
Text10.Text = “1250000”
Text11.Text = “1250000”
End If

If Text3.Text = “REGULER” And Text5.Text = “STRATA SATU” Then
Text8.Text = “200000”
Text9.Text = “1900000”
Text10.Text = “1500000”
Text11.Text = “1000000”
ElseIf Text3.Text = “REGULER” And Text5.Text = “DIPLOMA TIGA” Then
Text8.Text = “1500000”
Text9.Text = “1650000”
Text10.Text = “1250000”
Text11.Text = “1000000”
ElseIf Text3.Text = “REGULER” And Text5.Text = “DIPLOMA SATU” Then
Text8.Text = “150000”
Text9.Text = “1350000”
Text10.Text = “1250000”
Text11.Text = “1000000”

End If
Text12.Text = Val(Text8) + Val(Text9) + Val(Text10) + Val(Text11) + Val(Text12)
End Sub

Private Sub Command2_Click()
With Data1.Recordset
.AddNew
.Fields(“nama”) = Text1.Text
.Fields(“npm”) = Text2.Text
.Fields(“kelas”) = Text3.Text
.Fields(“jurusan”) = Text4.Text
.Fields(“prodi”) = Text5.Text
.Fields(“tahun”) = Text6.Text
.Fields(“nurut”) = Text7.Text
.Fields(“pendaftaran”) = Text8.Text
.Fields(“semester”) = Text9.Text
.Fields(“sarana”) = Text10.Text
.Fields(“posdikti”) = Text11.Text
.Fields(“total”) = Text12.Text
.Update
MsgBox “BERHASIL TERSIMPAN”, vbOKCancel
End With
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Text1.SetFocus
With Data1.Recordset
Text1.Text = .Fields(“nama”)
Text2.Text = .Fields(“npm”)
Text3.Text = .Fields(“kelas”)
Text4.Text = .Fields(“jurusan”)
Text5.Text = .Fields(“prodi”)
Text6.Text = .Fields(“tahun”)
Text7.Text = .Fields(“nurut”)
Text8.Text = .Fields(“pendaftaran”)
Text9.Text = .Fields(“semester”)
Text10.Text = .Fields(“sarana”)
Text11.Text = .Fields(“posdikti”)
Text12.Text = .Fields(“total”)
End With

End Sub

Private Sub Command4_Click()
MsgBox “DATA INI AKAN DIHAPUS”, vbOKOnly
Data1.Recordset.Delete
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 Command5_Click()
With Data1.Recordset
.Edit
Text1.Text = .Fields(“nama”)
Text2.Text = .Fields(“npm”)
Text3.Text = .Fields(“kelas”)
Text4.Text = .Fields(“jurusan”)
Text5.Text = .Fields(“prodi”)
Text6.Text = .Fields(“tahun”)
Text7.Text = .Fields(“nurut”)
Text8.Text = .Fields(“pendaftaran”)
Text9.Text = .Fields(“semester”)
Text10.Text = .Fields(“sarana”)
Text11.Text = .Fields(“posdikti”)
Text12.Text = .Fields(“total”)
.Update
End With
MsgBox “DATA TELAH DIGANTII”, vbOKOnly
End Sub
End Sub

Private Sub Command6_Click()
MsgBox “ANDA YAKIN AKAN KELUAR”, vbOKOnly
End
End Sub

Private Sub Command7_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
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Iklan
Dipublikasi di Tak Berkategori | Meninggalkan komentar

TUGAS VSUAL BASIC

 

LISTING PROGRAM

Private Sub cmdbatal_Click()

Textnama.SetFocus

Textnama.Text = “”

Textjur.Text = “”

Textpstu.Text = “”

Texttahun.Text = “”

Textnurut.Text = “”

Textbipen.Text = “”

Textnpm.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

Textnama.SetFocus

Textnama.Text = “”

Textjur.Text = “”

Textpstu.Text = “”

Texttahun.Text = “”

Textnurut.Text = “”

Textbipen.Text = “”

Textnpm.Text = “”

 

End Sub

 

Private Sub cmdproses_Click()

Dim s As String

Texttahun.Text = “20” & Left(Textnpm.Text, 2)

s = Mid(Textnpm.Text, 3, 1)

If s = “1” Then

Textjur.Text = “sistem informasi”

ElseIf s = “2” Then

Textjur.Text = “teknik informatika”

ElseIf s = “3” Then

Textjur.Text = “manajemen informatika”

ElseIf s = “4” Then

Textjur.Text = “manajemen & kom.akutansi”

End If

s = Mid(Textnpm.Text, 4, 2)

If s = “00” Then

Textpstu.Text = “strata satu”

Textbipen.Text = “2000000”

ElseIf s = “01” Then

Textpstu.Text = “diploma satu”

Textbipen.Text = “1200000”

ElseIf s = “02” Then

Textpstu.Text = “diploma dua”

Textbipen.Text = “1300000”

ElseIf s = “03” Then

Textpstu.Text = “diploma tiga”

Textbipen.Text = “1400000”

ElseIf s = “04” Then

Textpstu.Text = “diploma empat”

Textbipen.Text = “1500000”

End If

Textnurut.Text = Right(Textnpm.Text, 3)

 

End Sub

 

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

Textnama.Text = “”

Textnpm.Text = “”

Textjur.Text = “”

Textpstu.Text = “”

Textnurut.Text = “”

Texttahun.Text = “”

Textbipen.Text = “”

Textnama.SetFocus

End Sub

 

Private Sub Command2_Click()

With Data1.Recordset

.AddNew

.Fields(“nama”) = Textnama.Text

.Fields(“npm”) = Textnpm.Text

.Fields(“jurusan”) = Textjur.Text

.Fields(“program study”) = Textpstu.Text

.Fields(“tahun masuk”) = Texttahun.Text

.Fields(“nomor urut”) = Textnurut.Text

.Fields(“biaya pendidikan”) = Textbipen.Text

.Update

End With

End Sub

 

Private Sub Command3_Click()

Textnama.SetFocus

With Data1.Recordset

Textnama.Text = .Fields(“nama”)

Textnpm.Text = .Fields(“npm”)

Textjur.Text = .Fields(“jurusan”)

Textpstu.Text = .Fields(“program study”)

Texttahun.Text = .Fields(“tahun masuk”)

Textnurut.Text = .Fields(“nomor urut”)

Textbipen.Text = .Fields(“biaya pendidikan”)

End With

End Sub

 

Private Sub Command4_Click()

MsgBox “DATA INI AKAN DIHAPUS”, vbOKOnly

Data1.Recordset.Delete

Textnama.SetFocus

Textnama.Text = “”

Textnpm.Text = “”

Textjur.Text = “”

Textpstu.Text = “”

Texttahun.Text = “”

Textnurut.Text = “”

Textbipen.Text = “”

End Sub

 

Private Sub Command5_Click()

With Data1.Recordset

.Edit

.Fields(“nama”) = Textnama.Text

.Fields(“npm”) = Textnpm.Text

.Fields(“jurusan”) = Textjur.Text

.Fields(“program study”) = Textpstu.Text

.Fields(“tahun masuk”) = Texttahun.Text

.Fields(“nomor urut”) = Textnurut.Text

.Fields(“biaya pendidikan”) = Textbipen.Text

.Update

End With

MsgBox “DATA TELAH DIGANTII”, vbOKOnly

End Sub

 

Private Sub Textnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

 

End Sub

Dipublikasi di Tak Berkategori | Meninggalkan komentar

Curhatan Valentino Rossi

 Perjalanan Valentino Rossi sebentar lagi bersama Ducati akan berakhir. Hanya lima balapan lagi dimusim 2012 yang ia harus lakoni bersama Ducati.
Setelah itu Rossi akan kembali ke tim lamanya, Yamaha yang pernah ia bela dari tahun 2004 hingga tahun 2010.
Sebelum pindah Valentino Rossi mengeluarkan curhatannya kepada motogp.com (12/9) dan pengalamannya selama dua tahun membela Ducati.
“Pengalaman dan petualangan bersama Ducati sebenarnya sudah sangat sulit ketika semuanya dimulai. Dan kami belum beruntung untuk memperbaiki semua masalah selama satu setengah tahun terakhir, dan saya tidak pernah merasa kompetitif dengan motor ini,” ujar Rossi.
Rossi mengakui masalah terbesar dan utama adalah saat tes pertama kali dengan Ducati di Valencia pada tahun 2010, dan hampir dua tahun terakhir selalu memiliki masalah yang sama, meskipun ia merasa memiliki rekan-rekan yang luar biasa dan bekerjasama dengan baik di Ducati.
Rossi pun mengklaim dengan kondisi motor seperti ini akan sangat sulit mengejar pebalap seperti seorang Lorenzo. “Tapi yang pasti saat ini saya sedang menikmati setiap mengendarai motor dan yang pasti saya punya peluang untuk selalu bertarung dan mendapatkan hasil terbaik,” tambah Rossi.
Aksi Rossi dan Ducati selanjutnya adalah di GP San Marino, Italia, 16 September mendatang,

Dipublikasi di Tak Berkategori | Meninggalkan komentar

Casillas Digosipkan Perang Dingin Dengan Ronaldo

MADRID – Seperti dilansir Marca, ada pemandangan menarik ketika Cristiano Ronaldo merayakan golnya ke gawang Manchester City di Liga Champions. Kapten tim Iker Casillas hanya berdiri terpaku di depan gawangnya dan tidak menunjukkan ekspresi senang meski timnya berhasil membalikkan kedudukan.

Kejadian seperti ini tentu memunculkan pertanyaan besar mengenai kondisi skuat asuhan Jose Mourinho saat ini. Dari sikap yang ditunjukkan Casillas menimbulkan spekulasi mengenai keretakan tim.

Isu keretakan di skuat Los Blancos mencuat pertama kali ketika Cristiano Ronaldo tidak mau merayakan dua golnya ke gawang Granada dan mengaku tengah kecewa dengan klub. Ungkapan hati Ronaldo dihubung-hubungkan dengan perasaan Ronaldo yang merasa tidak diterima oleh rekan-rekan setim, tidak mendapat dukungan dari tim, kecewa dengan penentuan jabatan kapten, hingga masalah gaji.

Jika dihubungkan dengan sikap Iker Casillas saat menghadapi Manchester City, bisa dipastikan sikap tersebut muncul karena kapten tim nasional Spanyol tersebut balik kecewa dengan Cristiano Ronaldo yang mengumbar rasa kecewanya kepada publik. Pasalnya, sejak pria Portugal itu mengumbar kekecewaan, situasi di Los Blancos cenderung kurang kondusif.

Dipublikasi di Tak Berkategori | Meninggalkan komentar

WTF!! Penggunaan Facebook Bisa Sebabkan Asma

Dari sekian banyak efek negatif dari penggunaan situs jejaring sosial Facebook yang telah diberitakan, mungkin yang satu ini akan siap membuat Anda terkaget-kaget. Karena sebuah penelitian yang dilakukan oleh sekolompok dokter di Italia mendapatkan sebuah fakta bahwa gangguan asma serta stress, dapat dipicu melalui gangguan psikologis yang disebabkan oleh penggunaan media situs jejaring Facebook tersebut.

Salah satu dari beberapa kasus yang ada adalah yang dialami oleh seorang remaja berumur 18 tahun ini. Anehnya, pemuda ini selalu mengalami sesak napas secara berulang kali setelah melihat foto mantannya di profil picture-nya.

Diketahui juga bahwa, ternyata mantannya telah menghapus sang pasien asma tersebut dari kontak temannya dan baru aja menjalani “in relationship” dengan orang lain, tapi sang pasien asma ini terus berusaha agar bisa tetap berteman dengan mantannya. Salah satunya adalah mengganti nama akun pribadinya menjadi nama orang lain agar bisa berteman dengan mantannya.

Parahnya setelah berteman kembali dengan mantannya serta melihat fotonya, asma yang dideritanya kembali kambuh, dan sistem pernapasannya melemah hingga 20 persen. Pasien itupun harus menerima obat hidup atau inhaler untuk dapat kembali bernapas normal. Remaja itu kemudian dibujuk untuk tidak lagi mengakses profil mantannya. Serangan asma berhenti setelah Ia diminta untuk menjauh dari dunia maya.

Dipublikasi di Tak Berkategori | Meninggalkan komentar

Kail Ikan dan Kail Kehidupan

Kail dalam kamus besar bahasa Indonesia berupa kata benda berupa sekerat kawat yg ujungnya berkait dan tajam, digunakan untuk menangkap ikan; atau biasa kita menyebut pancing.
Sejenak saya meminta waktu anda untuk ikut kami, untuk memancing ikan. memancing dalam angan dunia maya anda….

* Ambilah Kail kecil anda.
Mulailah dengan memancing di got depan rumah anda.
Apa yang akan anda dapatkan???
Berpindahlah kesungai kecil dekat rumah anda.
Apa yang akan anda dapatkan???
Berpindahlah lagi kesungai Musi, mahakam, bengawan solo atau berpindahlah kedanau danau besar yang dekat dengan anda.
Apa yang akan anda dapatkan???
Jika belum puas berpindah lagi anda ke samudra, memancing lah anda disana.

Apa yang akan anda dapatkan???

Kemudian pulanglah dan ganti kail anda dengan yang besar. ulangi kegiatan anda dari got depan rumah sampai ke tengah samudra seperti diatas.
dan jawablah….
Apa yang akan anda dapatkan???

Ingatlah kehidupan bagaikan memancing
cita n asa hanya bisa tergapai tak kala kita memilih pancing yang tepat dan lokasi memancing yang tepat pula.

Namun kita harus tetap ingat meskipun pilihan kail dan tempat kita sudah tepat belum tentu kita mendapat apa yang kita inginkan. terkadang ikan kakap pun dapat terlepas saat kita angkat keatas.

So jika semua sudah tepat, maka banyaklah berdoa pada Illahi. agar hasilpun bisa menjadi tepat.

Selamat memancing dan semoga sukses dalam kehidupan ini.

Jika ingin sukses yang abadi, kumpulkan ikan-ikan yang telah didapat untuk persiapan perjalanan setelah mati.

Dipublikasi di Tak Berkategori | Meninggalkan komentar

Foke Telepon Jokowi Ucapkan Selamat

JAKARTA,— Di tengah makan siang, telepon selular calon gubernur DKI Jakarta Joko Widodo (Jokowi) berdering. Saat diangkat, suara berat seorang pria terdengar. Buru-buru Jokowi menghentikan santapan makan siangnya. Telepon itu ternyata berasal dari pesaing kuatnya, Fauzi Bowo. Foke, sapaan akrab Fauzi, mengucapkan selamat kepada pasangan calon nomor tiga ini.

Baru dua menit yang lalu Pak Foke telepon saya. Intinya mengucapkan selamat.
— Jokowi

“Baru dua menit yang lalu Pak Foke telepon saya. Intinya mengucapkan selamat,” kata Jokowi.

Ucapan selamat Foke kepadanya pun langsung dijawab Jokowi dengan menyampaikan permintaan maaf. “Saya juga mohon maaf sebesar-besarnya kalau saya ngerepotin selama ini, kalau ada kata yang tidak berkenan. Beliau mengiyakan, dan menitip salam untuk keluarga,” ujar Jokowi.

Tidak hanya meminta maaf, Jokowi juga meminta Foke turut membantunya dalam memimpin Jakarta. “Saya mohon ke beliau untuk nanti membantu karena beliau kuasai lapangan dan sudah berikan kesanggupannya,” kata Jokowi.

Pembicaraan itu berlangsung singkat. Hanya sekitar lima menit. Jokowi mengaku dirinya berencana bertemu dengan Foke-Nara dalam waktu dekat.

Dipublikasi di Tak Berkategori | Meninggalkan komentar