PROGRAM ENKRIPSI DAN DEKRIPSI MENGGUNAKAN VB 6

Hallo semuanya, ni gw punya contoh sederhana program enkripsi dan dekripsi kata yang gw bikin dengan software VB 6.0. Tampilan aplikasinya seperti di bawah ini :

Maksud dari program di atas adalah apabila kita masukan satu kata misalnya "komputer" di kotak input enkripsi dan kita tekan tombol enkrip, maka kata tersebut akan diubah menjadi kata yang tidak beraturan. Sedangkan untuk dekripsi merupakan kebalikan dari proses enkripsi, jadi hasil kata dari proses enkripsi kita copy-pastekan di kotak input dekripsi, setelah itu tekan tombol dekrip, maka akan keluar kata semula.

Ni ada codingannya :
Private Sub cmd_enkrip_Click()
Dim Enkrip, Output, Inputan As String
Dim Panjang_Input As Integer
Inputan = Text1.Text
Panjang_Input = Len(Text1.Text)
For i = 1 To Panjang_Input
Enkrip = Mid(Inputan, i, 1)
Enkrip = Asc(Enkrip)
Enkrip = (Enkrip + 5) - 13
Enkrip = Chr(Enkrip)
Output = Output & Enkrip
Next i
Text2.Text = Output
End Sub

Private Sub cmd_dekrip_Click()
Dim Dekrip, Output, Inputan As String
Dim Panjang_Input, Pesan As Integer
Inputan = Text3.Text
Panjang_Input = Len(Text3.Text)
For i = 1 To Panjang_Input
Dekrip = Mid(Inputan, i, 1)
Dekrip = Asc(Dekrip)
Dekrip = (Dekrip - 5) + 13
Dekrip = Chr(Dekrip)
Output = Output & Dekrip
Next i
Text4.Text = Output
End Sub

Private Sub cmd_hapus_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub
Download Coding Lengkapnya

PERINTAH SQL LANJUTAN 1

PERINTAH SQL LANJUTAN 1

Beberapa Permasalahan yang harus di selesaikan             :

1. Tampilkan judul-judul buku yang diawali dengan huruf D dari Tabel Buku
2. Tampilkan judu-jidul buku yang diakhiri karakter ‘er’ tabel buku
3. Tampilkan Kota yang dimulai dengan huruf K
4. Tampilkan judul buku yang jumlah bukunya kurang dari sepuluh dan kode penerbitnya 02
5. Tampilkan judul-judul buku yang jumlahnya lebih besar dari empat dan kurang dari sepuluh
6. Tampilan judul-judul buku yang tidak diterbitkan oleh kode_penerbit 01
7. Tampilkan Nim, Nama, alamat, kota dari tabel mahasiswa dikelompokkan berdasarkan nama kota
8. Tampilkan seluruh data buku dari table mahasiswa yang dikelompokkan berdasarkan kota
9. Tampilkan seluruh data mahasiswa diurutkan berdasarkan nim secara menurun
10. Tampilkan seluruh data mahasiswa diurutkan berdasarkan Kota secara menurun

Penyelesaian     :

Cara Menampilkan judul-judul buku yang diawali dengan huruf D dari tabel Buku adalah dengan menggunakan perintah select field_yang_ingin_di_tampilkan from Nama_tabel where field_yang_ditunjuk like ‘karakter_acuan%’; Jadi, kita dapat menyelesaikan permasalahan diatas dengan menuliskan select Judul from Buku where Judul ‘A%’;. lebih jelasnya lihat gambar 3.1.  

 

gambar 3.1

 

Cara Menampilkan judul buku yang diakhiri dengan karakter ‘er’ dari tabel Buku adalah sama dengan penyelesaian masalah no. 1 diatas hanya posisi “%” yang semula dibelakang menjadi didepan. Maka dapat dirumuskan menjadi select field_yang_ingin_di_tampilkan from Nama_tabel where field_yang_ditunjuk like ‘%karakter_acuan’. Jadi, kita dapat menyelesaikan permasalahan diatas dengan menuliskan select Judul from Buku where Judul ‘%er’;. lebih jelasnya lihat gambar 3.2.

 gambar 3.2

Cara Menampilkan Kota yang diawali dengan huruf K adalah sama dengan penyelesaian masalah no. 1 diatas. Jadi, kita dapat menyelesaikan permasalahan diatas dengan menuliskan select Kota from Mahasiswa where Kota ‘K%’;. lebih jelasnya lihat gambar 3.3.

 gambar 3.3

 
Cara Menampilkan judul buku yang jumlah bukunya kurang dari sepuluh dan kode penerbitnya 02 adalah dengan menuliskan select Judul from Buku where Jml_buku < 10 and Kode_penerbit = ‘02’;. lebih jelasnya lihat gambar 3.4.

 gambar 3.4

Cara Menampilkan judul buku yang jumlahnya lebih besar dari empat dan kurang dari sepuluh adalah dengan menuliskan select Judul from Buku where Jml_buku < 10 and Jml_buku > 4;. lebih jelasnya lihat gambar 3.5.

gambar 3.5

Menampilkan judul-judul buku yang tidak diterbitkan oleh kode penerbit 01 dapat dirumuskan dengan select field_yang_ingin_di_tampilkan from Nama_tabel where not field_yang_ditunjuk = ‘isi_field_acuan’. Jadi, kita dapat menyelesaikan permasalahan diatas dengan menuliskan select Judul from Buku where not Kode_buku = ‘01’;. lebih jelasnya lihat gambar 3.6.

gambar 3.6

Menampilkan Nama, Nim, Alamat, kota dari tabel Mahasiswa dikelompokkan berdasarkan kota dapat dirumuskan dengan select field_yang_ingin_di_tampilkan from Nama_tabel group by field_acuan. Jadi, kita dapat menyelesaikan permasalahan diatas dengan menuliskan select Nama, Nim, Alamat, Kota Judul from Mahasiswa group by Kota;. lebih jelasnya lihat gambar 3.7.

gambar 3.7

 

Menampilkan seluruh data buku dari tabel buku dikelompokkan berdasarkan kode penerbit dapat dirumuskan dengan select field_yang_ingin_di_tampilkan from Nama_tabel group by field_acuan. Jadi, kita dapat menyelesaikan permasalahan diatas dengan menuliskan select * from Mahasiswa order by Kode_penerbit;. lebih jelasnya lihat gambar 3.8

gambar 3.8

Menampilkan seluruh data Mahasiswa diurutkan berdasarkan Nim secara menurun dapat dirumuskan dengan select field_yang_ingin_di_tampilkan from Nama_tabel order by field_acuan desc. Jadi, kita dapat menyelesaikan permasalahan diatas dengan menuliskan select * from Mahasiswa order by Nim desc;. lebih jelasnya lihat gambar 3.9.

gambar 3.9

Menampilkan seluruh data Mahasiswa diurutkan berdasarkan Kota secara menurun dapat dirumuskan dengan select field_yang_ingin_di_tampilkan from Nama_tabel order by field_acuan desc. Jadi, kita dapat menyelesaikan permasalahan diatas dengan menuliskan select * from Mahasiswa order by Kota desc;. lebih jelasnya lihat gambar 3.10.
 

Membuat Aplikasi Penjualan Sederhana dengan Visual Basic 6.0

Posted: 7 Februari 2011 in Visual Basic

8

Di sini saya akan membahas tentang cara membuat aplikasi penjualan yang sangat sederhana menggunakan visual basic 6.0 dengan database SQL Server 2000. Pastikan Anda sudah mengaktifkan SQL Server Service Manager. Untuk cara mengaktifkannya dapat dilihat di sini. Kemudian buatlah database dengan nama “Penjualan”, caranya dapat dilihat di sini. Lalu buatlah beberapa tabel dengan struktur tabel seperti di bawah ini :
Tabel Barang


Tabel Penjualan


Tabel Penjualan Detail



Membuat Tampilan Master Barang

Sekarang membuat tampilan form master data barang. Jadi intinya, seluruh data barang yang ada dapat di input ke dalam database melalui form master barang ini. Namun sebelum bekerja membuat form ini, aktifkan dulu komponen-komponen tambahan yang diperlukan dalam form ini. Yaitu, Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB). Caranya klik menu Project – Components, atau tekan tombol Ctrl+T.

Pada jendela Components, pilih Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB). Lalu klik OK.

Hasilnya dapat dilihat di panel sebelah kiri.

Kemudian buatlah tampilan form seperti gambar di bawah ini, dengan menambahkan beberapa komponen ke dalam form, yaitu:

• Frame : 4
• Label : 4
• TextBox : 5
• CommandButton : 8
• DataGrid : 1
• Adodc : 2

Atur properties masing-masing komponen seperti tabel berikut :

Komponen	Properties	Nilai
Form	Name	frmBarang
	BorderStyle	1 – Fixed Single
	Caption	.:: Master Data Barang ::.
	StartUpPosition	2 – CentreScreen
Frame1	Name	Frame1
	Text
Label1	Caption	Kode
TextBox1	Name	TxtKodeBarang
	TabIndex	1
	Text
Label2	Caption	Nama
TextBox2	Name	TxtNamaBarang
	TabIndex	2
	Text
Label3	Caption	Harga
TextBox3	Name	TxtHarga
	TabIndex	3
	Text
Label4	Caption	Stock
TextBox4	Name	TxtStok
	TabIndex	4
	Text
Frame2	Name	Frame2
	Text
Command1	Name	CmdTambah
	Caption	Tambah
	TabIndex	5
Command2	Name	CmdUbah
	Caption	Ubah
	TabIndex	6
Command3	Name	CmdHapus
	Caption	Hapus
	TabIndex	7
Frame3	Name	Frame3
	Text	Masukkan Kode Barang
TextBox4	Name	TxtCari
	TabIndex	8
	Text
Command4	Name	CmdCari
	Caption	Cari
	TabIndex	9
Frame4	Name	Frame4
	Text
Command5	Name	CmdFirst
	Caption	<<
	TabIndex	10
Command6	Name	CmdPrev
	Caption	<
	TabIndex	11
Command7	Name	CmdNext
	Caption	>
	TabIndex	12
Command8	Name	CmdLast
	Caption	>>
	TabIndex	13
DataGrid1	DataSource	Adodc1
Adodc1	Name	Adodc1
	Visible	False
Adodc2	Name	Adodc2
	Visible	False

Setelah semua properties diatur, maka akan menghasilkan tampilan seperti ini:


Membuat Koneksi Database

1. Klik kanan komponen Adodc1 – pilih ADODC Properties.
2. Pada tab General di jendela Property Page, pilih Use Connection String – klik tombol Build…
   
   
3. Pada tab Provider pilih Microsoft OLE DB Provider for SQL Server, lalu klik Next.
   
   
4. Pada tab Connection isikan nama server (contoh: DELHERU), kemudian pilih Use Windows NT Integrated security, kemudian pilih Select the database on the server dan pilih database yang akan digunakan (contoh: Penjualan).
   
   
5. Kemudian klik tombol Test Connection lalu klik OK. Jika koneksi sukses maka akan keluar informasi berikut ini :
   
   
6. Anda akan dihadapkan pada jendela Property Page lagi. Sekarang pilih tab RecordSource, pada Command Type pilih 2 – adCmdTable, lalu pada Table or Store Procedure Name pilih tabel Barang. Kemudian klik Apply – OK.
   
   
   
   
7. Lakukan hal yang sama pada komponen Adodc2 seperti langkah 1-6.
8. Kemudian atur lagi properties TextBox (TxtKodeBarang, TxtNamaBarang, TxtHarga, TxtStok) seperti tabel di bawah ini :

Komponen	Properties	Nilai
TxtKodeBarang	DataSource	Adodc1
	DataField	Id_Barang
TxtNamaBarang	DataSource	Adodc1
	DataField	Nama_Barang
TxtHarga	DataSource	Adodc1
	DataField	Harga_Barang
TxtStok	DataSource	Adodc1
	DataField	Stok

Menulis Coding Program

1. Masuklah pada halaman kode, klik menu View – Code
2. Dari baris pertama halaman kode tulis coding untuk membuat kode barang otomatis, seperti berikut ini :
   
   
3. Kembali pada halaman desain form, klik View – Object. Kemudian klik ganda tombol Tambah dan tulis coding berikut ini :
   
   
4. Kembali pada halaman desain form. Kemudian klik ganda tombol Ubah dan tulis coding berikut ini :
   
   
5. Kembali pada halaman desain form. Kemudian klik ganda tombol Hapus dan tulis coding berikut ini :
   
   
6. Kembali pada halaman desain form. Kemudian klik ganda tombol Cari dan tulis coding berikut ini :
   
   
7. Kembali pada halaman desain form. Kemudian klik ganda tombol << dan tulis coding berikut ini :
   
   
8. Kembali pada halaman desain form. Kemudian klik ganda tombol < dan tulis coding berikut ini :
   
   
9. Kembali pada halaman desain form. Kemudian klik ganda tombol > dan tulis coding berikut ini :
   
   
10. Kembali pada halaman desain form. Kemudian klik ganda tombol >> dan tulis coding berikut ini :
    
    
11. Kembali pada halaman desain form. Kemudian klik ganda TextBox Harga (txtHarga)
    dan tulis coding berikut ini :
    
    
    
12. Kembali pada halaman desain form. Kemudian klik ganda TextBox Stok (TxtStok)
    dan tulis coding berikut ini :
    
    
    

Menjalankan Program

Setelah semua langkah-langkah di atas sudah selesai, Anda dapat menjalankan program tersebut dengan menekan F5 atau Run. Jika segala sesuatunya sukses, maka akan muncul tampilan seperti gambar di bawah ini :

Untuk menambah data, klik tombol Tambah, lalu masukkan data seperti contoh berikut :


Kemudian klik tombol Simpan, maka data yang dimasukkan tadi telah tersimpan di database.

Untuk mengedit, mengahapus, dan mencari data, anda bisa mencobanya sendiri. Dan untuk program transaksi penjualan, tunggu postingan berikutnya…..

8 Danau Bawah Tanah Paling Menakjubkan di Dunia

Diterbitkan Pada february 25, 2011

1. Danau Yucatan

Danau ini adalah sebuah danau terlarang karena warga setempat percaya bahwa danau tersebut adalah anugerah dari dewa suku Maya di Meksiko. Danau ini terletak di bawah tanah Macan Che yg berada di semenanjung Yucatan

2. Danau Luray Caverns

Danau dibawah ini kelihatan sangat indah seperti bercahaya, padahal cahaya tersebut adalah efek dari pantulan air di gua tersebut. Gua ini berada di di Luray Caverns, Virginia, Amerika

3. Danau Gua Banff

Danau bawah tanah ini yg terletak di Banff, Kanada. Sungguh indah

4. Danau Gua Mellisani

Danau ini terletak dibawah tanah dalam Gua Mellisani, Kefalonia. Danau ini ditemukan karena reruntuhan yg menutupi gua tersebut hancur karena terjadinya gempa bumi di tahun 1953.

5. Danau Cheddar Gorge

Danau Cheddar Gorge merupakan danau bawah tanah yg berada di dalam gua yang teradapat di salah satu jurang terbesar di Inggris bernama Cheddar Gorge. Di Danau Cheddar ini ditemukan tengkorak manusia tertua di Inggris pada tahun 1903 yang diperkirakan berumur 9000 tahun.

6. Danau Hamilton

Danau Hamiltan berada bawah tanah ini secaran mengejutkan dijadikan kolam renang alami. Danau ini berada di Austin, Texas, Amerika, dan dikenal dengan nama Hamilton.

7. Danau Gua Lechuguilla

Gua Lechuguilla berada di Taman Nasional Carlsbad Caverns, New Meksiko, Amerika. Gua ini adalah gua terpanjang kelima yang mempunyai Panjang 193 km dan kedalaman 489 m. Jangan salah, New Meksiko berbeda dengan Meksiko ya. New Meksiko ada di Amerika dan Meksiko ada di Meksiko.

8. Danau Bawah Tanah Guilin

Danau bawah tanah di Guilin Cina ditemukan sekitar 1300 tahun yang lalu pada masa kerjaan Dinasti Tang. Sungguh indah sekali !!!

10 Pantai Terindah di Dunia Saat Ini

• Lanikai Oahu Bagi Anda yang sedang berlibur ke Amerika Serikat cobalah menepi ke daerah pedalaman Hawaii, karena di sana terdapat pantai indah yang bernama Lanikai Oahu.
  Pantai ini memiliki panorama yang ideal bagi para pengunjung. Selain pasir putih dan kristal air yang jernih, Lanikai Oahu sering dipakai sebagai area kontes pakaian renang Victoria Secret.

• Bora Bora, French Polynesia Bora-bora merupakan kepulauan bekas jajahan Prancis yang terletak di dekat Tahiti. Pantai ini seringkali dijadikan surga bagi para pasangan yang ingin berbulan madu. (romantic heaven on earth).
  Bukan cuma pantai yang menjadi daya tarik Bora-bora, di balik resort pantai juga terdapat panorama cantik sebuah gunung yang bernama Gunung Otemanu.

• The Maldives Jika Anda sedang berada di India atau Sri Lanka, sebaiknya berhenti sejenak ke negara Republik Maldives karena di sana terdapat sebuah pulau karang yang dikelilingi laut dangkal.
  Adapun bungalow mewah The Maldives yang menjadi target utama bagi para pengunjung dunia.

• Parque Nacional Tayrona, Kolombia Kolombia memiliki pantai yang ideal, seperti Parque Nacional Tayrona. Di pantai ini Anda akan menemukan panorama pantai yang dikelilingi rimbunan pohon layaknya sebuah hutan. Belum lagi kejernihan air lautnya yang menunjukkan bahwa pantai ini belum terkontaminasi oleh sebuah limbah.

• Fernando de Noronha, Brazil Fernando de Noronha merupakan negara kepulauan Brazil yang berada di dekat Samudera Atlantik. Beberapa model dan selebiriti lainnya seringkali terlihat di resort-resort mewah Noronha pada saat liburan tiba, meski kedatangan mereka dirahasiakan sebelumnya.

• Tenerife, Canary Islands Tenerife adalah tempat favorit bagi orang-orang Britis dan Eropa. Mereka berkumpul di pantai pasir hitam vulkanik yang dominant di Pulau Kanari.

• Seychelles Islands Seychelles memiliki pantai yang terbaik di Afrika bahkan sangat cocok untuk menyelam (diving) di Samudera Hindia. Artis ternama, seperti Paul McCartney adalah orang pertama yang datang ke resort mewah di sana, dan artis lainnya yang datang hanya sekedar menikmati panorama pantai.

• Marquesas Islands Pulau vulkanik ini terlihat seperti Hiva Oa yang merupakan pulau terbesar kedua di Kepulauan Marquesas, negara Polinesia Perancis. Tak perlu khawatir mencari penginapan di pulau hutan tropis ini, karena areanya sudah dilengkapi dengan bungalo-bungalo berkelas. Adapun tarian kuda liar sebagai tontonan yang penuh eksotis di sebuah pulau yang berjarak 800 mil dari arah timur laut Tahiti.

• Palm Beach, Aruba Palm Beach adalah sebuah pantai cantik di Oranjestad (Kota Oranye), Aruba, yang terletak di dekat pantai Venezuela dan juga Laut Karibia. Berbagai hotel dan pusat perbelanjaan sudah lama berdiri di sana sebagai fasilitas umum yang sangat memadai.
  Tidak seperti banyak wilayah di Karibia, wilayah bekas koloni Belanda ini memiliki iklim yang kering dan gersang, sehingga dipenuhi dengan tanaman-tanaman lanskap seperti kaktus.

• Phi Phi Islands, Thailand Pulau ini berada di dekat Phuket, Thailand yang menawarkan pemandangan yang indah, seperti pantai, gua dan air terjun yang tersembunyi di daerah yang terpencil. Meski areanya terpencil, namun pantai Phi Phi ini pernah dijadikan lokasi syuting pembuatan film The Beach.