database visualbasic

Gambar

Private Sub Cmdsim_Click()
Data1.Recordset.Update
Data1.Recordset.AddNew
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Cmdhap_Click()
Data1.Recordset.AddNew
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Cmdkel_Click()
Unload Me
End Sub
Private Sub Command6_Click()
Data1.Refresh
Text1.SetFocus
End Sub

Private Sub Cmdpro_Click()
Dim s As String
Text5.Text = “20” & Left(Text2.Text, 2)
s = Mid(Text2.Text, 3, 1)
If s = “1” Then
s = “Sistem Informasi”
ElseIf s = “2” Then
s = “Manajemen Informasi”
ElseIf s = “3” Then
s = “Tekhnik Informasi”
End If
Text3.Text = s
b = Mid(Text2.Text, 4, 2)
If b = “00” Then
b = “strata 1”
ElseIf b = “01” Then
b = “Diploma 3”
ElseIf b = “02” Then
b = “Diploma 2”
End If
Text4.Text = b
Text6.Text = Right(Text2.Text, 3)
End Sub

Private Sub Cmdbaru_Click()
Data1.Recordset.AddNew
Text1.SetFocus
End Sub

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

 

visual basic tugas ke 10

ini dia tugas sudah selesai,,silahkan dilihat di baca diterawang..ALKINDY
Private Sub Cmdcan_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnik.Text = “”
End Sub

Private Sub Cmdpro_Click()
Dim jbt, bg As String
Dim gp, tj, tg As Currency
txttahun.Text = Left(txtnik.Text, 4)
G = Mid(txtnik.Text, 5, 1)
If G = “A” Then
G = “A”
jbt = ” MANAGER”
gp = “50000000”
tj = “200000”
ElseIf G = “B” Then
G = “B”
jbt = ” Seksi KEUANGAN”
gp = “40000000”
tj = “200000”
ElseIf G = “C” Then
G = “C”
jbt = ” setaf”
gp = “30000000”
tj = “1000”
ElseIf G = “D” Then
G = “D”
jbt = ” Juru Parkir”
gp = “200000”
tj = “100000”
ElseIf G = “E” Then
G = “E”
jbt = ” Juru Kunci”
gp = “1000”
tj = “1000”
End If
txtgol.Text = G
txtjbt.Text = jbt
txtgp.Text = gp
txttj.Text = tj
KS = Mid(txtnik.Text, 7, 1)
If KS = “S” Then
KS = “S”
ksta = ” SINGGLE”
ElseIf KS = “B” Then
KS = “B”
ksta = “BERDUA”
ElseIf KS = “D” Then
KS = “D”
ksta = “DUDA”
ElseIf KS = “J” Then
KS = “J”
ksta = “JANDA”
ElseIf KS = “BA” Then
KS = “BA”
ksta = “BANYAK ANAK”
End If
txtks.Text = KS
txtksta.Text = ksta
tg = Val(txtgp.Text) + Val(txttj.Text)
txttg.Text = tg
B = Right(txtnik.Text, 3)
If B = “KEU” Then
txtbg.Text = “AKUNTING”
ElseIf B = “ADM” Then
txtbg.Text = “ADMINISTRASI”
ElseIf B = “SDM” Then
txtbg.Text = “SUMBER DAYA MANUSIA”
ElseIf B = “EDP” Then
txtbg.Text = “IT UNIT”
ElseIf B = “SPM” Then
txtbg.Text = “KEAMANAN”
End If
End Sub
Private Sub Cmdquit_Click()
Unload Me
End Sub

Private Sub Cmdrep_Click()
txtnm.SetFocus
txtnm.Text = “”
txtnikText = “”
txtgol.Text = “”
txtjbt.Text = “”
txtgp.Text = “”
txttj.Text = “”
txtks.Text = “”
txtksta.Text = “”
txttg.Text = “”
txtbg.Text = “”
txttahun.Text = “”
End Sub

Private Sub txtnm_keypre()

End Sub

Private Sub txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

Private Sub txtnik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmdpro.SetFocus
End If
End Sub

 

Tugas Visual Basic

Visual Basic frame FontColor

untitled

Untuk membuat program seperti diatas  mosukan kode listing dibawah ini…

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Private Sub Text1_Change()

End Sub

HURUF  MUTU

untitled

dan ini kode nyas,,silahkan kopas pada tempatnya

Private Sub Combo1_Click()
Dim nama, jurusan As String

Select Case Combo1.Text
Case “12100536″
nama = “RULLY ISTIAWAN”
jurusan = “SISTEM INFORMASI”

Case “12100206″
nama = “ANDI ISWANTO”
jurusan = “SISTEM INFORMASI”

Case “12100530″
nama = “ARIF HIDAYATULLOH”
jurusan = “MANAJEMEN INFORMATIKA”

Case “12100370″
nama = “DESSY MAYANG SARI”
jurusan = “MANAJEMEN INFORMATIKA”
End Select

Text1.Text = nama

Text2.Text = jurusan

Text3.SetFocus

End Sub
Private Sub Command1_Click()

Dim kuis, tugas, uts, uas, na As Integer

Dim hm As String

kuis = Val(Text3.Text)

tugas = Val(Text4.Text)

uts = Val(Text5.Text)

uas = Val(Text6.Text)

na = Val(kuis + 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”
End Select
Text8.Text = hm
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100536″
Combo1.AddItem “11100014″
Combo1.AddItem “11100156″
Combo1.AddItem “10100157″
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

DATA MAHASISWA

Visual basic Data Mahasiswa

Visual basic Data Mahasiswa  menurut NPM

langsung aja berhubung malam semakin larut,,terdengar suara kentut… ini kode listingnya…silahkan di copas di form-form yang sudah disediakan

Private Sub Cmdinput_Click()
Dim S As String
Txtth.Text = “20″ & Left(Txtnpm.Text, 2)
S = Mid(Txtnpm.Text, 3, 1)
If S = “1″ Then
Txtjur.Text = “Sistem Informasi”
ElseIf S = “2″ Then
Txtjur.Text = “Manajemen Informatika”
ElseIf S = “3″ Then
Txtjur.Text = “Tehnik Informatika”
ElseIf S = “4″ Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Txtnpm.Text, 4, 2)
If S = “00″ Then
Txtprog.Text = “Strata Satu”
ElseIf S = “02″ Then
Txtprog.Text = “Diploma Tiga”
ElseIf S = “03″ Then
Txtprog.Text = “Diploma Empat”
ElseIf S = “04″ Then
Txtprog.Text = “Diploma Dua”
End If
Txtnor.Text = Right(Txtnpm.Text, 3)
End Sub

Private Sub Cmdout_Click()
Unload Me
End Sub

Private Sub Cmdreset_Click()
Txtnm.SetFocus
Txtnm.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtprog.Text = “”
Txtth.Text = “”
Txtnor.Text = “”
End Sub

Private Sub Txtnm_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmdinput.SetFocus
End If
End Sub

dan hasilnyas eperti gambar dibvawah ini..

untitled

PROGRAM KARYAWAN DAN GAJI

isting kode dibawah ini.

untitled

Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Cbogolongan.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
txtgapok.Text = gapok
txttunjangan.Text = tunjangan
txtpajak.Text = pajak
txttotal.Text = total – pajak
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
kosong
End Sub
Private Sub Form_load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”
End Sub

Public Sub kosong()
txtnidn.Text = Clear
txtnama.Text = Clear
Cbogolongan.Text = Clear
txtgapok.Text = Clear
txttunjangan.Text = Clear
txtpajak.Text = Clear
txttotal.Text = Clear
txtnidn.SetFocus
End Sub

 Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then
txtnama.SetFocus
End If
End Sub

TUGAS VISUAL BASIC

TUGAS VISUAL BASIC 1: MEMBUAT PROGRAM 2 BILANGAN
Sekarang ane mau posting tentang bagaimana caranya membuat program perkalian 2 bilangan menggunakan visual basic, seperti gambar berikut, yuk ikutin caranya.

 

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

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:

 

Maka apabila program dijalankan, hasilnya seperti ini:

4

 

TUGAS VISUAL BASIC 5 : MEMBUAT PROGRAM PERHITUNGAN GAJI

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

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

 

MEMBUAT PROGRAM PERHITUNGAN DISKON

Buka visual basic
Buat form seperti berikut ini

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

 

 FONT STYLE DAN FONT COLOR

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

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…

 

 

 MEMBUAT PROGRAM 2 BILANGAN Part 2

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

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

Paket Wisata

PAKET TOUR DIANDRA INDAH KENCANA TOUR & TRAVEL

DIK Tour & Travel  menyediakan jasa pariwisata tujuan Lombok,NTB ( 4 hari 3 malam), mempromosikan kepada daerah Jabodetabek, Bandung, Lampung.

PAKET WISATA

Paket wisata Lombok, NTB dengan 6 obyek wisata :

  1. Senggigi beach
  2. Gilli Trawangan
  3. Wisata Pusuk ( lingkungan monyet )
  4. Narmada ( Wisata Air Awet Muda )
  5. Pantai Kuta ( Wisata Kehidupan Sasak )
  6. Wisata Tempat Perbelanjaan

 

HARGA

Paket Harga Rp. 1.500.000/ orang, minimal peserta 30 0rang

*belum termasuk tiket pesawat, karena tiket pesawat dapat berubah setiap harinya

FASILITAS
1.Hotel
2.Makan
3.Bus selama perjalanan

Hari -1 : TIBA DI LOMBOK, PENJEMPUTAN DAN CHECK IN HOTEL
Tiba di bandara di Selaparang dan dijemput langsung diantar ke hotel untuk check in, acara bebas dan istirahat.

 

Hari -2 :  FULL DAY GILI TRAWANGAN TOUR  ( MP, MS )
Setelah makan pagi dihotel, perjalanan tour diawali dengan melewati Malimbu dengan pemandangan laut yang mempesona menuju pelabuhan Bangsal/Teluk Kode, dengan menggunakan perahu mesin ( Outrigger boat ) menuju sebuah pulau yang indah dan cantik yaitu Gili Trawangan . Sampai dipulau dapat menikmati keindahan  alam Gili unutk berenang , snorkeling , berjemur atau santai. , kemudian menikmati makan siang yang disiapkan. Aktivitas lain yang bisa dinikmati seperti : Canoe , Naik Kuda , Naik Cidomo , Naik Sepeda ( biaya sendiri ).Sore hari kembali berlayar menuju Bangsal/Teluk Kode selama 30 menit dimana kendaraan sudah menunggu. Dan selanjutnya perjalanan menuju arah Hutan Pusuk sambil melihat dan bercanda dengan monyet yang jinak sambil memberi makan mereka. Sore hari tiba di hotel,makan malam, acara bebas dan istirahat.

 

HARI -3 : KEDATANGAN + SASAK & KUTE TOUR (MS)
Tiba di bandara international Lombok, peserta di sambut oleh guide kami dan langsung mengikuti Sasak & Kute tour mengunjungi : sebelum menuju pantai kuta menuju ke narmada tempat dimana Air Awet Muda,Sukerare desa pusat pengrajin tenunan tangan & ikat khas Lombok, Rambitan desa adat suku sasak, Pantai kute dan tanjung aan dengan pantainya yang indah dan pasir mericanya. Banyumulek desa pusat pengrajin tembikar tanah liat, makan siang di lokasi. Selanjutnya di antar ke hotel untuk persiapan makan malam di makanan khas lombok RM taliwang.setelah itu acara bebas dan istirahat.

 

Hari -4: CHECK OUT & TRANSFER KE AIRPORT ( MP, MS)
Setelah makan pagi dihotel, perjalanan di lanjutkan dengan City Tour mengunjungi: Kota Mataram ke pasar Cakranegara tempat Kaos Lombok, Mutiara dan oleh oleh Lombok seperti: madu, telur asin, dodol nangka, dll. Makan siang. Usai makan siang diantar ke airport untuk penerbangan ke tujuan berikutnya. Tour selesai.

 

Silahkan di bandingkan dengan paket tour Lombok lainnya

CP: 085366433553 / pin bb 25F5327ATransit-Hotel-senggigi-Lombok

senggigi-beach-romantic-destination-in-lombok-clean-sea

Pantai Senggigi Nusa Tenggara Barat

Pantai Senggigi adalah tempat pariwisata yang terkenal di Lombok. Letaknya di sebelah barat pesisir Pulau Lombok. Pantai Senggigi memang tidak sebesar Pantai Kuta di Bali, tetapi seketika kita berada di sini akan merasa seperti berada di Pantai Kuta, Bali. Memasuki area pantai Senggigi, wisatawan seta merta disapa oleh lembutnya angin semilir yang menenangkan. Pesisir 220px-Senggigi_Beachpantainya masih asri, walaupun masih ada sampah dedaunan yang masih berserakan karena jarang dibersihkan. Pemandangan bawah lautnya sangat indah, dan wisatawan bisa melakukan snorkling sepuasnya karena ombaknya tidak terlalu besar. Terumbu karangnya menjulang ketengah menyebabkan ombak besarnya pecah di tengah.