Wednesday, August 22, 2012

Mengenal Data Variable di visual Basic


Mengenal Data Variable di visual Basic ..

Dalam postingan ini agak telat seharusnya sebelum kita membuat program di visual basic kita harus mengenal Data yang ada di VB adalah string, integer,single, currency, date dan Boolean , itulah tipe data yang di pakai di visual basic ,, di bawah ada rincian nya ..

·         String adalah tipe data untuk teks (hurup , angka dan tanda baca)
·         Single adalah tipe data untuk angka pecahan
·         Currency adalah tipe data untuk angka mata uang
·         Integer adalah tipe data untuk angka bulat
·         Date adalah tipe data untuk tanggal dan jam
·         Boolean adalah tipe data yang bernilai  false and true

Wadah dari semua data tersebut inilah yang disebut variable .. dalam variable tertentu membutuhkan memory byte yang berbeda..

Variable di buat dari penulisan deklarasi variable di dalam kode program :

Dim nama_variable As type data

Contoh : Dim harga As Currency

Dalam penamaan variable membutuhkan aturan seperti berikut :
·         Harus diawali dengan hurup
·         Tidak boleh menggunakan spasi , spasi digan ti dengan karakter (_)
·         Tidak boleh menggunakan karakter khusus
·         Tidak boleh menggunakan kata kunci yang sudah di kenal VB

Variable hanya dapat menyimpan satu nilai sesuai dengan type data
nama_Variable  = nilai_data
Contoh ; Nama_User = “irvan”
Dan harus diapit dengan tanda baca (“ “) buat string
Variable mempunyai ruang lingkup (scope) dan waktu hidup (life time) :
·         Variable global adalah variable yang dapat dikenali seluruh bagian program dan hidup selama program berjalan
·         Variable local adalah variable yang hanya dikenali oleh satu bagian program saja.. dan hidup bila bagian program tersebut berjalan .

Dan variable yang bersipat tetap dan tidak bisa diubah biasa di sebut KONSTANTA
Penulisan deklarasi konstanta dalam kode program

Const Nilai_Konstanta As Type_Data =  nilai_data

Contoh :  Const tgl_gajian As Date = #30/01/2012#

UNTUK DATA TYPE DATE DIAPIT OLEH TANDA BACA # #

MARI KITA BUAT PROGRAM VARIABLE TEST
·         Buka vb 6  anda buat project baru dengan standar exe ..
·          Buat from baru di project .
·         Di dalam from buatlah user interface sebagai berikut
(pake label, dan commandbutton)



Buat propertisnya sbb..
From 1
Caption
Star up position
Variabel Test
2-centerscreen
Command 1-3
caption
Test 1
Test 2
Test  3
Label 1-3
Back color
Caption
Pallet : putih


Buka jendela code editor dan masukan code berikut,,



Dim test2 As Integer

Private Sub Command1_Click()
Dim test1 As String
test1 = "nusantara"
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub

Private Sub Command2_Click()
test2 = 10
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub

Private Sub Command3_Click()
Const test3 As Single = 90.55

Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub

Klik tombol
Nilai var. test1
Nilai var. test2
Nilai var. test3
Test 1
“nusantara”
Kali pertama : 0
Berikutnya : 10
Test2
10
Test2
10
90.55

Dim test2 As Integer = Variable test2 di deklarasikan untuk data yang bertipe Integer sebagai variable global sehingga bisa digunakan oleh semua blok program
Catatan untuk bisa di gunakan oleh semua blok program variable harus di tulis di paling atas dan pastikan object selector berisi (GENERAL) dan event selector berisi (DECLARATION)

Private Sub Command1_Click()Dim test1 As String
 =  bila user menekan tombol test 1 variable test 1 di deklarasikan untuk data yang bertype string sebagai variable local khusus blok kode command1_Clik ()

Dan seterusnya semuanya dengan proses yang sama kok hehehhe :D tinggal di pelajari ja,,,
Jangan mengatakan kamu tidak bisa ,, … saya juga sama hee ..

Sekian dan terimakasih semoga bermanfaat… !!!!!!!!

Tuesday, August 21, 2012

Membuat Aplikasi Penjualan Sederhana dengan Visual Basic 6.0


Membuat Aplikasi Penjualan Sederhana dengan Visual Basic 6.0

sampai jumpa lagi setelah kita membuat database yang kemarin dari microsoft acces kita bisa gabungkan dengan Visual basic sebagai aplikasi sederhananya,,  bisa juga langsung buat from di acces,,, tapi kalo di acces tampilan from nya tidak sebagus di vb sihh ,,hee
langsung saja.. buat tabel databasenya di acces seperti postingan kemarin 

Cara membuat Data Base dan aplikasi sederhana di Microsoft access


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
Klik kanan komponen Adodc1 – pilih ADODC Properties.
Pada tab General di jendela Property Page, pilih Use Connection String – klik tombol Build…

Pada tab Provider pilih Microsoft OLE DB Provider for SQL Server, lalu klik Next.

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).

Kemudian klik tombol Test Connection lalu klik OK. Jika koneksi sukses maka akan keluar informasi berikut ini

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 klikApply – OK.

Lakukan hal yang sama pada komponen Adodc2 seperti langkah 1-6.
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
Masuklah pada halaman kode, klik menu View – Code
Dari baris pertama halaman kode tulis coding untuk membuat kode barang otomatis, seperti berikut ini :

Kembali pada halaman desain form, klik View – Object. Kemudian klik ganda tombol Tambah dan tulis coding berikut ini :

Kembali pada halaman desain form. Kemudian klik ganda tombol Ubah dan tulis coding berikut ini :

Kembali pada halaman desain form. Kemudian klik ganda tombol Hapus dan tulis coding berikut ini :

Kembali pada halaman desain form. Kemudian klik ganda tombol Cari dan tulis coding berikut ini :

Kembali pada halaman desain form. Kemudian klik ganda tombol << dan tulis coding berikut ini :

Kembali pada halaman desain form. Kemudian klik ganda tombol < dan tulis coding berikut ini :

Kembali pada halaman desain form. Kemudian klik ganda tombol > dan tulis coding berikut ini :

Kembali pada halaman desain form. Kemudian klik ganda tombol >> dan tulis coding berikut ini :

Kembali pada halaman desain form. Kemudian klik ganda TextBox Harga (txtHarga)
dan tulis coding berikut ini :

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 F5atau 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.
Selesai deh ,,, maaf coding nya di tulis manual saja yaa,,, sambil belajar heee soalnya itu hasil jepretan Print Screen SysRq ,,, thanks,,, 

Quote : “Jangan pernah mengatakan “saya tidak bisa”, jika kamu belum mencobanya.”


GURU BIJAK


 



temen-temen ini ada cerita motivasi buat kita, yang saya ambil dari situs  http://www.resensi.net/guru-bijak-2/2011/10/ moga bermanfaat,

Mungkin dari kita saat ini masih banyak yang merasa sebagai orang yang “wah” dan Merasa Sebagai orang yang paling bersih dan Hanya sedikit dosa.
Jujur Tanyakan Pada hati anda tentang pendapat anda terhadap mereka yang bergelimang dosa? Saya yakin sebagian Dari Kita akan memandang sebelah mata kepada mereka, Menganggap mereka adalah orang-orang kotor dan Saya yakin sekali hati kecil kita akan mengatakan saya lebih baik dari mereka.
Saya akan berbagi sedikit cerita tentang guru saya (beliau adalah salah seorang kiai di bumi jawa ini ) dan semoga saya juga dianggap sebagai murid oleh beliau.
Suatu Ketika sang guru mengajak salah seorang muridnya untuk jalan-jalan di kota surabaya. Kota metropolis terbesar kedua di negeri ini. Sang guru ini mempunyai kebiasaan yang tidak sama dengan Kiai-kiai lain. Beliau lebih sering berpenampilan miripnya Orang-orang pada umumnya. Pakai celana panjang, kaos, kacamata hitam. Disurabaya sang guru mengajak si murid untuk masuk kedalam club malam dimana penjudi, pelacur, pemabuk dan orang-orang yang ingin menghabiskan uang disana berkumpul. Dengan langkah ragu si murid mengikuti langkah gurunya. Tapi alangkah kagetnya simurid ini, ternyata didalam club malam itu banyak sekali orang-orang yang mengenal beliau. Sang guru dengan tidak canggungnya duduk bersama para penjudi hight class dan tentunya banyak wanita yg super hot ikut duduk disitu.
Si murid ini hanya diam saja. Pikiranya berkecamuk dan terjadi perang batin yang begitu kuat. Dalam hati si murid ini bertanya “Benarkah apa yang saya lihat ini? Guru saya, orang yang sangat saya hormati karena ke aliman nya, ucapanya yang teduh dan perilaku beliau yang selalu menghormati orang lain saat ini sedang berkumpul dengan para penjudi, pemabuk dan pelacur saat ini sedang bersantai ria ngobrol dan mereka kelihatan akrab sekali.”
Setelah menjelang pagi, Sang guru berpamitan kepada teman-temanya untuk pulang. Dalam perjalanan pulang sang guru menegur muridnya tadi ” Tanyakan kepadaku apa yang menjadi unek-unek mu, bicaralah jangan diam saja. ”
spontan si murid tergagap dari lamunan dan kemuskilan-kemuskilan yang baru saja dialaminya.
“Begini guru, Kenapa guru mengajak saya ke club malam seperti itu bukankah tempat itu tidak pantas buat kita?” ucap murid itu sekenanya.
Dengan senyum yang terus melekat di wajahnya,kemudian guru tersebut menjawab.
“Saya hanya menunjukkan kepadamu orang-orang lebih baik dari pada kamu!, mereka adalah orang-orang kotor tapi hati tidak sekotor hati kamu. Mereka sadar kalau mereka bukan orang baik sehingga mereka tidak merasa kalau mereka lebih baik dari orang lain. Tidak seperti kamu yang merasa lebih baik dari merek. Hati kamu yang seperti itulah yang harus disembuhkan, merasa lebih baik dari orang lain itulah penyakit yang paling sulit di hilangkan”. Kemudian guru itu terdiam sambil menatap si murid yang terus tertunduk merenungkan ucapan gurunya.
Kemudian guru itu melanjutkan kata-katanya. ” Mereka semua makhluk Alloh, mereka juga ingin dekat dengan Penciptanya. Keinginan mereka sama seperti kita. Bisa menjadi hamba yang dekat dan bisa mendapat ridlo sang Kholiq!. Mereka juga ingin bahagia di akhirat nanti. Cuma mereka tidak tahu jalanya. Kalau bukan kita yang menunjukkan, terus siapa lagi. Mereka tidak berani datang ketempat ulama-ulama karena mereka menganggap diri mereka kotor dan tidak sedikit orang yang pandai agama memandang mereka sebelah mata. Saya hanya menjemput mereka untuk kembali ke jalan yang di ridloi. Saya hanya menunjukkan jalan kepada mereka agar mereka bisa mendapat kebahagiaan di kehidupan yang abadi, di akherat nanti. Setiap kali saya masuk ketempat-tempat seperti itu saya selalu berdoa semoga orang-orang yang berpesta saat ini disini juga akan berpesta di kehidupan yang abadi nanti.”
itulah sedikit cerita. Sampai saat ini kata-kata sang guru bijak tersebut masih selalu tertanam di dalam hati murid tersebut. Sekarang guru bijak  itu telah Menghadap sang pencipta dengan senyum yang tidak pernah terlepas dari mulutnya. Di musim kemarau yang berkepanjangan, Hujan dan Ratusan ribu orang dari berbagai kalangan bercampur jadi satu untuk mengantar kepergian Beliau. Guru, banyak orang menganggapmu sebagai guru mereka, namun apakah kami engkau anggap sebagai murid. Kebanggaan terbesarku jika aku bisa mematuhi wejangan-wejanganmu.
=========
Sabahat resensinet, dalam kehidupan ini kita akan bertemu dengan banyak orang dari bermacam latar belakang. Jangan sampai kita memvonis surga atau neraka kepada seseorang. Karena itu bukan hak kita. Yang dapat kita lakukan adalah melihat sisi baik mereka dan berharap agar suatu saat mereka menjemput kebahagiaan yang sesungguhnya.
Jika iman sahabat kuat, jemputlah mereka ditempat mereka berkumpul. Namun jika tidak, jangan sampai terbawa arus.
Terima kasih atas kiriman sahabat akan artikel ini
 

Popular Posts

Followers

 

About Me

Templates by simple | CSS3 by David Walsh | Powered by {N}Code & Blogger