TUGAS VISUAL BASIC 5 DATA BASE

0

WAHYU JADI

Private Sub CMDBARU_Click()
Data1.Recordset.AddNew
TXTNAMA.SetFocus
End Sub

Private Sub CMDHAPUS_Click()
Data1.Recordset.Delete
End Sub

Private Sub CMDKEL_Click()
Unload Me
End Sub

Private Sub CMDPROSES_Click()
Dim S As String
TXTTM.Text = “20″ & Left(TXTNPM.Text, 2)
S = Mid(TXTNPM.Text, 3, 1)
If S = “1″ Then
JUR = “Sistem Informasi”
ElseIf S = “2″ Then
JUR = “Manajemen Informatika”
ElseIf S = “3″ Then
JUR = “Tehnik Informatika”
ElseIf S = “4″ Then
JUR = “Manajemen & Komp. Akuntansi”
End If
TXTJUR.Text = JUR
S = Mid(TXTNPM.Text, 4, 2)
If S = “00″ Then
PS = “Strata Satu”
ElseIf S = “01″ Then
PS = “Diploma Tiga”
ElseIf S = “02″ Then
PS = “Diploma Empat”
ElseIf S = “03″ Then
PS = “Diploma Dua”
End If
TXTPS.Text = PS
TXTNU.Text = Right(TXTNPM.Text, 3)
End Sub
Private Sub CMDSIMPAN_Click()
Data1.Recordset.Update
End Sub

 

 

Advertisements

TUGAS VISUAL BASIC 3

0

whyu1

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

Select Case Cbonpm.Text

Case “12100357”

nama = “M.Tri Wahyudi”

jurusan = “Sistem Informasi”

Case “12100210”

nama = “Rindi AntikA”

jurusan = “Manajemen Informatika”

Case “12100211”

nama = “Didi Sumantri”

jurusan = “Tehnik Informatika”

Case “12100212”

nama = “Eko Mualip”

jurusan = “Manajemen Informatika”

Case “12100213”

nama = “Yustika”

jurusan = “Sisitem Informasi”

End Select

Txtnm.Text = nama

Txtjur.Text = jurusan.

 

 

Private Sub Txtquiz_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

 

Private Sub Cmdpros_Click()

Dim NilaiAkhir As Integer

Dim HurufMutu As String

quiz = Val(Txtquiz.Text)

tugas = Val(Txttugas.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

NilaiAkhir = (quiz + tugas + uts + uas) / 4

Txtniak.Text = NilaiAkhir

 

Select Case Txtniak.Text

Case Is > 80

HurufMutu = “A”

Case Is > 70

HurufMutu = “B”

Case Is > 60

HurufMutu = “C”

Case Is > 50

HurufMutu = “D”

Case Is < 50

HurufMutu = “E”

End Select

Txthrfmt.Text = HurufMutu

End Sub

 

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnm = “”

Txtjur = “”

Txtquiz = “”

Txttugas = “”

Txtuts = “”

Txtuas = “”

Txtniak = “”

Txthrfmt = “”

End Sub

 

Private Sub Cmdexit_Click()

End

End Sub

2.whyu2

Private Sub Optgreen_Click()

Lblnm.ForeColor = vbGreen

End Sub

 

Private Sub Optred_Click()

Lblnm.ForeColor = vbRed

End Sub

 

Private Sub Chkbold_Click()

Lblnm.FontBold = Chkbold.Value

End Sub

 

Private Sub Chkmrg_Click()

Lblnm.FontItalic = Chkmrg.Value

End Sub

Private Sub Cmdok_Click()

Lblnm.Caption = Txtnma.Text

End Sub

 

Private Sub CmdExit_Click()

End

End Sub

3.

wahyu3

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnp.SetFocus

End If

End Sub

 

Private Sub Cbogol_DblClick()

Private Sub form_load()

Cbogol.AddItem “I”

Cbogol.AddItem “II”

Cbogol.AddItem “III”

Cbogol.AddItem “IV”

End Sub

 

Private Sub Cbogol_Click()

Dim Gajipokok, Pajak, Tunjangan, Gajibersih As Variant

Select Case Cbogol.Text

Case “I”

Gajipokok = 1500000

Tunjangan = 400000

Case “II”

Gajipokok = 2600000

Tunjangan = 650000

Case “III”

Gajipokok = 3000000

Tunjangan = 800000

Case “IV”

Gajipokok = 3500000

Tunjangan = 1000000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Gajibersih = Gajipokok + Tunjangan

Pajak = Gajibersih * 0.1

Txtgjpok.Text = Gajipokok

Txttun.Text = Tunjangan

Txtpjk.Text = Pajak

Txtgjtrm = Gajibersih – Pajak

 

 

Private Sub Cmdlg_Click()

Txtnidn = “”

Txtnp = “”

Cbogol = “”

Txtgjpok = “”

Txttun = “”

Txtpjk = “”

Txtgjtrm = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnidn = “”

Txtnp = “”

Cbogol = “”

Txtgjpok = “”

Txttun = “”

Txtpjk = “”

Txtgjtrm = “”

End Sub

 

Private Sub Cmdkel_Click()

Unload Me

End Sub

4.

whyu4

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

Private Sub Cmdpros_Click()

Dim Stdy As String

Txtthm.Text = “20” & Left(Txtnpm.Text, 2)

Stdy = Mid(Txtnpm.Text, 3, 1)

If Stdy = “1” Then

Txtjur.Text = “Sisitem Informasi”

ElseIf Stdy = “2” Then

Txtjur.Text = “Manajemen Informasi”

ElseIf Stdy = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf Stdy = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

Stdy = Mid(Txtnpm.Text, 4, 2)

If Stdy = “00” Then

Txtprost.Text = “Strata Satu”

ElseIf Stdy = “01” Then

Txtprost.Text = “Diploma Dua”

ElseIf Stdy = “02” Then

Txtprost.Text = “Diploma Tiga”

ElseIf Stdy = “03” Then

Txtprost.Text = “Diploma Empat”

End If

Stdy = Right(Txtnpm.Text, 3)

Txtno.Text = Right(Txtnpm.Text, 3)

End Sub

 

Private Sub Cmdlgi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtprost = “”

Txtthm = “”

Txtno = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtprost = “”

Txtthm = “”

Txtno = “”

End Sub

 

Private Sub Cmdout_Click()

Unload Me

End Sub

 

tugas visual basic

0

Hay sobat, sekarang ane mau posting tentang bagaimana caranya membuat program perkalian 2 bilangan menggunakan visual basic,

seperti gambar berikut, yuk ikutin caranya.

 2

  1. Buka aplikasi viisual basic 6.0
  2. Kemudian pilih Standard EXE klik open sampe muncul tampilan sbb.

1

3. Kemudian pada Form1, kita tambahkan label, text dan command sesuai dengan soal yang kita garap tadi

4. Lalu kita dobel klik pada text1 dan masukkan rumus berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

5. Lalu kita dobel klik pada Command1 dan masukkan rumus berikut:

Private Sub Command1_Click()

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

End Sub

6. Lalu kita dobel klik pada Command2 dan masukkan rumus berikut:

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

7. Lalu kita dobel klik pada Command3 dan masukkan rumus berikut:

Private Sub Command3_Click()

End

End Sub

8. Selesai, mudah bukan….

Tampilan rumus nya seperti ini:

3

Maka apabila program dijalankan, hasilnya seperti ini:

4

Semoga Postingan ini bermanfaat buat sobat semua…..

Hello sobat semua, masih semangat belajar visual basic?… oke sekarang kita mau buat program aplikasi perhitungan gaji.. yuk kita liat gimana cara buat nya…..

  1. Pastinya buka aplikasi visual basic dulu dong
  2. Buat form seperti berikut ini

11

3. Kode untuk text1 sampai text 3

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)

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

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

End If

End Sub

4. Kode untuk command 1 dan 2

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

Text4 = ” “

Text5 = ” “

Text6 = ” “

End Sub

Private Sub Command2_Click()

End

End Sub

5. Selesaiiiii

Berikut hasilnnya:

12

Nah, sobat pasti pernah belanja banyak dan pastinya dapet diskon kan,,, sekarang kita akan buat program tentang diskon,, mau tau caranya, yuk liat…

  1. Buka visual basic
  2. Buat form seperti berikut ini

9

3. Klik 2 kali pada text1, dan masukkan kode berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.2

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End If

End Sub

4. Klik 2 kali pada command1, dan masukkan kode berikut:

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

5. Klik 2 kali pada command2, dan masukkan kode berikut:

Private Sub Command2_Click()

End

End Sub

6. Selesai,, mudah kan,, makanya jangan kapok belajar visual basic

Berikut adalah hasilnya:

10

Halo sobat semua,, yuk kita belajar Visual Basic lagi,, sekarang materinya adalah membuat font style dan font color, penasaran?? Yuk kita buat bareng – bareng…..

  1. Seperti biasa buka dulu aplikasi visual basic nya
  2. Buat form seperti gambar berikut

7

3. Berikut adalah rumus option1 sampai option6 (red-black):

Private Sub Option1_Click()

lbljudul.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

lbljudul.ForeColor = vbBlue

End Sub

Private Sub Option3_Click()

lbljudul.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

lbljudul.ForeColor = vbYellow

End Sub

Private Sub Option5_Click()

lbljudul.ForeColor = vbWhite

End Sub

Private Sub Option6_Click()

lbljudul.ForeColor = vbBlack

End Sub

4. Dan berikut adalah rumus check1 sampai check3 (bold, italic, underlined)

Private Sub Check1_Click()

If Check1.Value = 1 Then

lbljudul.FontBold = True

Else

lbljudul.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

lbljudul.FontItalic = True

Else

lbljudul.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

lbljudul.FontUnderline = True

Else

lbljudul.FontUnderline = False

End If

End Sub

5. Selesai,,, gampang bukan…

Berikut adalah hasilnya:

8

Oke sobat, semoga postingan ini bermanfaat bagi sobat semua….

Hay sob, klo tadi kita Cuma buat program perkalian aja, tapi sekarang ane mau nambahin lagi program nya menjadi pertambahan, perkalian, pengurangan dan pembagian. Oke gk usah berlama – lama mari kita mulai…

  1. Seperti biasa buka dulu program visual basic nya
  2. Buat lah form seperti berikut (sobat semua pasti dh tau caranya buatnya)…. :)

5

3. Dobel klik pada text1, lalu masukkan Rumus berikut:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

4. Dobel klik pada command1, lalu masukkan rumus berikut:

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

5. Dobel klik pada command2, lalu masukkan rumus berikut:

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

6. Dobel klik pada command3, lalu masukkan rumus berikut:

Private Sub Command3_Click()

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

End Sub

7. Dobel klik pada command4, lalu masukkan rumus berikut:

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

8. Dobel klik pada command5, lalu masukkan rumus berikut:

Private Sub Command5_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

9. Dobel klik pada command6, lalu masukkan rumus berikut:

Private Sub Command6_Click()

End

End Sub

10. Selesai, kalian telah membuat kalkulator bilangan..

Hasilnya adalah sebagai berikut:

6

Britney Spears Selingkuh Dengan Adik Kevin Federline?

0

392GI_Marc_Andrew_Deley_Britney_Spears

KAPANLAGI.COM – Sebuah kabar mengejutkan tiba-tiba mengguncang Britney Spears. Dia dikabarkan telah berselingkuh dengan adik mantan suaminya, Kevin Federline, sehingga hamil dan melahirkan. Benarkah?

Hal itulah yang diungkapkan oleh Christopher Federline. Pria ini mengaku pernah tidur dengan Britney, saat penyanyi tersebut masih berstatus istri Kevin Federline.

 

Pria yang akrab dipanggil Chris ini juga mengungkapkan bahwa anak pertama Britney, Sean Preston bukan anak Kevin. Dia mengaku bahwa bocah tujuh tahun itu adalah hasil perselingkuhan Britney dengan dirinya.

Beberapa waktu lalu, Chris juga mengajukan restraining order untuk menjauhkan Britney darinya. Dia mengungkapkan bahwa ibu dua anak itu telah membuat hidup Chris tidak tenang.

“Dia mengirimkan black mail dan mengancam kalau aku bila aku lapor polisi dan mengatakan bahwa dia telah mencuri kartu kreditku, maka dia akan buka mulut bahwa aku adalah ayah biologis Sean Preston, bukan Kevin. Aku mengaku: Aku pernah tidur dengan Britney, dan aku adalah ayahnya, tapi orang tak perlu tahu,” ungkap Chris. (dgs/ris)

10 Aplikasi Android Terbaik 2012 versi Google

0

109125

TEMPO.CO, California -Rasanya mustahil mengecek satu per satu dari ratusan ribu aplikasi yang tersimpan dalam Google Play untuk menilai mana yang terbaik. Untungnya, Google baru saja mengeluarkan daftar sepuluh aplikasi terbaik di toko aplikasi ini untuk tahun 2012.

Situs teknologi Slashgear, Kamis, 27 Desember 2012, menulis Google tidak memberikan urutan rangking pada kesepuluh aplikasi terpopuler yang mayoritas dapat diunduh secara gratis ini. Google menyebut aplikasi Evernote pada urutan pertama. Aplikasi ini dipakai untuk mencatat dalam bentuk notes dalam berbagai perangkat sekaligus membaginya dalam komunitas Evernote.

Aplikasi kedua adalah Pinterest, yang terutama digunakan sebagai jejaring sosial tempat berbagi gambar.  Grimm’s Snow White, satu-satunya aplikasi berbayar dalam daftar ini, berada diurutan ketiga. Aplikasi seharga US$ 1,82 ini merupakan buku cerita interaktif untuk anak yang ikut menghadirkan mini games seperti puzzle, labirin, dan lainnya.

Pocket, aplikasi offline reader masuk dalam daftar ini, bersama dengan Expedia Hotels & Flight, aplikasi pencari dan pemesan kamar hotel bagi pengguna yang sedang dalam perjalanan.

Ancestry, aplikasi unik penelusur pohon keluarga, serta Fancy, aplikasi penelusur barang-barang jualan unik juga masuk dalam daftar. Tiga aplikasi lain yang juga disebut Google adalah Series Guide Show Manager pemberi layanan informasi siaran TV untuk wilayah Amerika Serikat, aplikasi mengedit foto Pixlr, serta aplikasi TED yang menampilkan presentasi dan dialog dengan tokoh berpengaruh dunia.

Apple sebelumnya telah mengeluarkan daftar sepuluh aplikasi terbaik di App Store untuk tahun ini. Aplikasi gratis terbaik untuk iPhone disabet oleh YouTube milik Google, sementara game Angry Birds Space meraih gelar aplikasi berbayar terbaik untuk iPhone dan iPad sekaligus. Adapun aplikasi gratis terbaik untuk iPad diraih oleh Skype. Sementara itu aplikasi Instagram, WhatsApp, serta game Temple Run dan Where’s My Water berada di posisi kedua.

Adik Zuckerberg Protes Kebijakan Foto Facebook

0

157818

TEMPO.CO , Jakarta:Adik pendiri Facebook, Mark Zuckerberg, Randi Zuckerberg, mengungkapkan keluahan atas foto dirinya yang diunggah dari laman jejaring sosial terbesar sedunia Facebook.

Menurut situs Buzzfeed, adik pendiri Facebook, Mark Zuckerberg, Randi mengeluh lewat twitter mengenai foto yang dia unggah ke akun Facebooknya. Dia mengeluh setelah foto persiapan natal keluarganya tersebut diposting oleh seseorang bernama Callie Schweitzer.

Randi seperti tak senang ketika Callie memposting foto itu. Melalui akun twitter @randizuckerberg, dia menulis komentar, yang sudah dihapus, terhadap Callie di @cschweitz pada Rabu, 26 Desember 2012. “Tidak tahu kamu dapat darimana foto tersebut. Aku mengunggahnya hanya untuk teman-temanku di Facebook saja. Caramu mengunggah di Facebook tidak keren.”

Callie membalas komentar tersebut. “Aku hanya berlangganan akunmu dan foto tersebut ada di bagian teratas lini masa ku. Sungguh aku minta maaf, tapi itu muncul di lini masa dan terlihat di publik.”

Lalu Randi merespon kembali.  “Aku pikir kamu mengunggah foto tersebut karena kamu berteman dengan saudaraku lain yang ikut ditandai dalam foto ini. Terimakasih atas permintaan maaf ini, Aku hanya sensitif untuk foto pribadi yang kemudian menjadi berita.”

Lalu pada sekitar satu jam lalu, akun @Randizuckerberg menuliskan komentar tentang etiket di dunia maya. “Selalulah minta izin sebelum mengunggah foto teman ke dunia maya. Ini bukan soal aturan privasi ini tentang kesopanan manusia.” Ternyata semua orang pernah bermasalah dengan isu privasi dari Facebook.

Polda Tangkap 2 Bandar Sabu Jaringan Aceh Lampung

0

Jakarta – Polda Lampung menangkap dua bandar besar yang selama ini menjadi pengedar sabu-sabu di Lampung. Keduanya ditangkap ketika hendak bertransaksi di Pasar Tamin, Kecamatan Tanjungkarang Pusat, Kota Bandar Lampung.

“Dari tangan kedua tersangka didapat sabu seberat 600 gram. Kini keduanya dan barang bukti sudah diamankan di Polda Lampung,” ujar Direktur Narkoba Polda Lampung Edi Swasono kepada detikcom, Kamis malam (27/12/2012).

Tersangka yang diamankan adalah Tarmizi (35): warga Jalan Imbah Kusuma, Kecamatan Kemiling, Bandarlampung, dan Apri (37): warga Jalan Agus Salim, Kecamatan Tanjungkarang Pusat, Bandar Lampung. Keduanya ditangkap pada Selasa malam (25/12/2012). Selain itu polisi juga menemukan timbangan elektrik yang dipakai untuk menimbang sabu menjadi ukuran kecil.

Edi menjelaskan, dari pengakuan Tarmizi, sabu-sabu didapat dari Mahdi yang merupakan bandar besar di Aceh. Tersangka Mahdi masih dalam pengejaran.

“Bandar asal Aceh inilah yang rutin memberikan sabu kepada Tarmizi. Tarmizi kemudian menjual dalam paket kecil di Lampung,” terang Edi.

Menurut pengakuannya, Tarmizi sudah berkali-kali mendapat pasokan sabu dari Aceh. Hasil penjualan sabu ini kemudian disetorkan melalui rekening Bank BNI kepada Mahdi. Tarmizi menjual pekat kecil seharga Rp900 ribu.

“Tersangka pernah menerima sabu-sabu dari Mahdi 600 gram. Perjanjiannya, jika laku 5 paket seberat 500 gram, Tarmizi akan di beri bonus satu paket seberat 100 gram,” Ujar Edi.

Kedua tersangka akan dijerat dengan pasal 12 dan 113 UU No. 35 tahun 2009, tentang narkotika dengan ancaman hukumam mencapai 20 tahun kurungan penjara.