Setelah menunggu selama 14 hari hohoho akhirnya bisa Withdrawal Gaji pertama dari Fiverr.com hemmm Asyik-asyik lumayan buat tabungan ^_^
CC-IT Kota Mojokerto
Click This !
Sabtu, 23 April 2011
Bayaran Pertama dari Fiverr
Setelah menunggu selama 14 hari hohoho akhirnya bisa Withdrawal Gaji pertama dari Fiverr.com hemmm Asyik-asyik lumayan buat tabungan ^_^
Senin, 11 April 2011
Selasa, 29 Maret 2011
Membangun Contoh Kedua dari Scratch:
Oke, mari kita belajar lagi :) Yang satu ini cukup sedikit lebih besar daripada yang lain (walaupun lebih besar atau kurang berguna lebih banyak barang yang dilemparkan untuk bersenang-senang, haha)!.
Desain Database
1. Buka Akses MS (Start - Program - Microsoft Access)
2. Pilih "Mulai database kosong" dari wizard yang muncul
3. Pilih tempat untuk menyimpan file mdb dan nama untuk itu (saya adalah "CDCollectionA.mdb")
4. Anda akan mendapatkan ke jendela berikut, di mana Anda klik dua kali pada "Buat tabel dalam tampilan desain:"
desain database jendela utama
5. : Ketika Anda klik dua kali bahwa "membuat tabel dalam desain tampilan" thingie, Anda bisa sampai ke jendela ini:
Desain Tabel tampilan jendela
6. Anda ingin mengikuti langkah-langkah berikut ini untuk mendapatkan meja saya bekerja dengan:
1. Membuat field yang disebut ArtistName tipe Teks
2. Membuat lapangan yang disebut AlbumTitle yang tipe Teks
3. Membuat disebut lapangan Trek suatu yang tipe Number (integer panjang hanya cukup keren)
4. Pilih baris dalam tampilan desain (seperti digambarkan di atas) yang memiliki ArtistName dan AlbumTitle
5. Klik kanan pada seleksi itu, dan memilih Primary Key dari menu yang Anda dapatkan. Ini akan membuat kedua bidang menjadi kunci primer. Idenya adalah bahwa mereka dapat primer karena Anda tidak akan pernah identik nama artis dan judul album (dinyatakan apa gunanya?!).
7. Setelah Anda punya meja Anda dibangun, hanya yang dekat jendela. Anda akan secara otomatis diminta untuk menyimpan perubahan desain meja dan meja untuk memberikan nama, how original. Aku memilih CD, bagaimana asli. :) :)
8. Setelah itu selesai, Anda dapat menambahkan beberapa entri ke database dengan mengklik ganda tabel CD dari jendela utama desain database dan memasukkan secara manual atau hanya pindah ke:
Desain Software
Oke, seperti yang disebutkan di bagian atas artikel ini, kita akan menggunakan ADO (ActiveX Data Objects) mengontrol data untuk mendapatkan pada data bukan data umum kontrol yang digunakan dalam contoh 3 . Aku tahu apa yang Anda pikirkan: siapa yang peduli. :) Dalam hal apapun, ADO dapat menyediakan Anda dengan lebih customizability sedikit dan lebih sedikit kecepatan, tetapi juga sedikit lebih sulit untuk digunakan. Tidak masalah, meskipun, ada cara yang murah di sekitar segalanya, jadi's menyelam membiarkan langsung masuk
1. Hal pertama yang pertama, memulai sebuah proyek VB dengan Standar Exe.
2. Buka menu Proyek dan pilih Komponen (dekat bagian bawah). Anda ingin menambahkan dua kontrol baru untuk proyek Anda:
o the Microsoft ADO Data Control (OLEDB) and Microsoft ADO Data Control (OLEDB) dan
o Microsoft Hierarchical FlexGrid Control 6.0 (catatan ini bukan FlexGrid seperti yang digunakan pada Contoh 3)
add komponen dialog
3. Oke, sekarang melakukan hal-hal berikut untuk bentuk utama Anda:
1. Mengubah keterangan bentuk utama Anda untuk pinggul sesuatu dan jive ...
2. Tambahkan FlexGrid Heirarchical untuk membentuk Anda dengan memilih tool and drawing it on your main form. alat dan menggambar di form utama Anda.
3. Tambahkan ADO data source control untuk membentuk menggunakan tool and drawing on the form. alat dan gambar di formulir. Change its visibility property to False. Ubah properti visibilitas ke False.
4. Add two frames to the form using the Tambahkan dua frame ke bentuk menggunakan tool and drawing them on the form. alat dan menggambar mereka di formulir.
Perubahan untuk satu frame:
Add Entry caption untuk Tambah Entry
fraAddEntry nya (nama) untuk fraAddEntry
) frame: Ubah untuk frame (kedua) lain:
its caption to Remove Entry keterangannya untuk Hapus Entry
its (name) to fraRemoveEntry nya (nama) untuk fraRemoveEntry
5. Draw kontrol berikut dalam bingkai Entry Tambah (ya, sebenarnya dalam frame):
1. A text box with the (name) txtArtistName Sebuah kotak teks dengan nama) txtArtistName (
2. A label above that text box with the caption Artist Name Label di atas kotak teks dengan keterangan Nama Artis
3. A text box with the (name) txtAlbumTitle Sebuah kotak teks dengan nama) txtAlbumTitle (
4. A label above that text box with the caption Album Title Label di atas kotak teks dengan judul Judul Album
5. A text box with the (name) txtTrackCount Sebuah kotak teks dengan nama) txtTrackCount (
6. A label above that text box with the caption Number of Tracks Label di atas kotak teks dengan Nomor keterangan dari Trek
7. A command button with the (name) cmdAddEntry and the caption Add this info Sebuah tombol perintah dengan (nama) cmdAddEntry dan keterangan Tambah info ini
6. Sekarang, dengan bingkai Hapus Entry, tambahkan kontrol sebagai berikut:
0. A command button with the (name) cmdRemoveEntry and the caption Remove Selected Sebuah tombol perintah dengan (nama) cmdRemoveEntry dan judul Hapus yang Dipilih
1. A label with the caption Select the entry you want to remove and click the button: Sebuah label dengan judul Pilih entri yang ingin Anda hapus dan klik tombol:
4. Sekarang, bagian yang paling rumit adalah memformat FlexGrid Heirarchical (yang disebut MSFHlexGrid1) untuk melakukan apa yang Anda inginkan. Ini cukup disesuaikan, tapi di sini semua saya lakukan untuk program ini misalnya:
1. the AllowBigSelection property was set to False milik AllowBigSelection ditetapkan untuk Salah
2. the AllowUserResizing property was set to 0 milik AllowUserResizing ditetapkan untuk 0
3. the FixedCols property was set to 0 while the FixedRows property was set to 1 (this is recommended for pretty displaying of stuff) milik FixedCols ditetapkan ke 0 sedangkan properti FixedRows ditetapkan untuk 1 (ini sangat direkomendasikan untuk menampilkan hal)
4. the FocusRect property was set to 0 milik FocusRect ditetapkan untuk 0
5. the HighLight property was set to 1 Sorot milik ditetapkan untuk 1
6. the ScrollBars property was set to 2 properti scrollbar ditetapkan untuk 2
7. the ScrollTrack property was set to True milik ScrollTrack ditetapkan untuk True
8. the SelectionMode property was set to 1 (selection by row only) milik SelectionMode ditetapkan untuk 1 (seleksi oleh baris saja)
5. Pada jendela desain form, double klik formulir, yang harus membawa Facebook jendela kode dengan kosong Form_Load () subrutin.
o Anda akan melihat waktu ini yang kita lakukan data dan hookup database dalam kode bukan di lembar properti.
o Untuk property ConnectionString dari ADO Data Control, Anda dapat membangun di lembar properti. Ada wizard di sana yang akan melakukannya dari awal untuk Anda, tapi itu cukup menjengkelkan untuk surfing melalui Itu sebabnya saya hanya termasuk string ini bukan (itu dibangun dalam wizard meskipun)
o Anda memerlukan dua variabel global, dan mereka tampil di atas Form_Load () method.
o Untuk DataSource, perhatikan FlexGrid bahwa perintah Set / direktif / apa saja yang digunakan! Here's the code: Berikut kode:
Option Explicit Option Explicit
' couple'o global vars to track the form minimum size 'Vars global couple'o untuk melacak bentuk ukuran minimum
Dim MinHeight As Long Dim MinHeight As Long
Dim MinWidth As Long Dim MinWidth As Long
Private Sub Form_Load() Private Sub Form_Load ()
' set up the database connectivity for the ADO data control 'Mengatur konektivitas database untuk kontrol data ADO
With Adodc1 Dengan Adodc1
' the connection string just defines an interface to connect 'String koneksi hanya mendefinisikan antarmuka untuk terhubung
' to the Access database. 'Ke database Access. We use the MS Jet SQL drivers for Kami menggunakan MS Jet driver SQL untuk
' simplicity's sake. ''s Sake kesederhanaan. Side-note: you can build your own connection string Side-catatan: Anda dapat membangun string koneksi sendiri
' from the property sheet for the ado data control, but I would advise 'Dari lembar properti untuk data kontrol ribut, tapi aku akan menyarankan
' against it, this is easier. 'Menentangnya, ini lebih mudah. :) :)
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ ConnectionString =. "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & _
App.Path & "\CDCollection.mdb;Persist Security Info=False" App.Path & "\ CDCollection.mdb; bertahan Security Info = False"
' the record source just tells the data control what and how 'Sumber catatan hanya memberitahu kontrol data apa dan bagaimana
' to pull out of the database. 'Untuk keluar dari database. Just raw SQL here. Hanya mentah SQL di sini.
.RecordSource = "select * from CDs order by ArtistName" RecordSource =. "* Pilih dari memesan CD oleh ArtistName"
End With Akhir Dengan
' set the Flex Grid data source to be the ADO data control. 'Mengatur sumber data Flex Grid menjadi ADO data kontrol.
Set MSHFlexGrid1.DataSource = Adodc1 Set MSHFlexGrid1.DataSource = Adodc1
' set up the format string for the flex grid. 'Mengatur format string untuk flex grid.
MSHFlexGrid1.FormatString = "Artist Name | Album Title | Track Count" MSHFlexGrid1.FormatString = "Nama Artis | Judul Album | Count Track"
' position all the controls happily and store the form minimum size Posisi semua kontrol gembira dan menyimpan bentuk ukuran minimum
MinHeight = Form1.Height MinHeight = Form1.Height
MinWidth = Form1.Width MinWidth = Form1.Width
Call Form_Resize Call Form_Resize
End Sub End Sub
6. Oke, itu dilakukanDari acara GUI di bagian atas jendela kode, memilih acara Resize. Anda kemudian harus mendapatkan shell untuk Form_Resize () method. Ini dipanggil setiap kali Anda mengubah ukuran form, dan kita hanya akan menggunakannya untuk membuat bentuk ukurannya terlihat cantik. Inilah yang harus mengisi:
Private Sub Form_Resize() Private Sub Form_Resize ()
' check to see if the form is getting too small (Note: this is just to avoid 'Periksa untuk melihat apakah bentuk semakin terlalu kecil (Catatan: ini adalah hanya untuk menghindari
' the math necessary to shrink all the textboxes, hahahaha!!) 'Matematika yang diperlukan untuk mengecilkan semua boks teks, hahahaha!!)
If MinHeight > Form1.Height Then Jika Form1.Height> MinHeight Kemudian
Form1.Height = MinHeight Form1.Height = MinHeight
Exit Sub Exit Sub
ElseIf MinWidth > Form1.Width Then Elseif MinWidth> Form1.Width Kemudian
Form1.Width = MinWidth Form1.Width = MinWidth
Exit Sub Exit Sub
End If End If
' resize the flexgrid to fit nicely on the screen 'Mengubah ukuran flexgrid agar sesuai dengan baik pada layar
MSHFlexGrid1.Width = Form1.ScaleWidth MSHFlexGrid1.Width = Form1.ScaleWidth
MSHFlexGrid1.Height = Form1.ScaleHeight / 2 MSHFlexGrid1.Height = Form1.ScaleHeight / 2
' resize the happy columns to look pretty (40% for each text column, 20% for Track) 'Mengubah ukuran kolom senang terlihat cantik (40% untuk setiap kolom teks, 20% untuk Track)
MSHFlexGrid1.ColWidth(0) = 0.4 * MSHFlexGrid1.Width MSHFlexGrid1.ColWidth (0) MSHFlexGrid1.Width * = 0,4
MSHFlexGrid1.ColWidth(1) = MSHFlexGrid1.ColWidth(0) MSHFlexGrid1.ColWidth (1) = MSHFlexGrid1.ColWidth (0)
MSHFlexGrid1.ColWidth(2) = MSHFlexGrid1.Width - (MSHFlexGrid1.ColWidth(0) * 2) - 60 MSHFlexGrid1.ColWidth (2) = MSHFlexGrid1.Width - (MSHFlexGrid1.ColWidth (0) * 2) - 60
' reposition and resize the frames on the screen to fit nicely (there was no 'Reposisi dan mengubah ukuran frame pada layar sesuai dengan baik (tidak ada
' science here, just did it by trial and error) 'Ilmu di sini, hanya melakukannya dengan cara trial and error)
fraAddEntry.Top = (Form1.ScaleHeight / 2) + 100 fraAddEntry.Top = (Form1.ScaleHeight / 2) + 100
fraAddEntry.Height = (Form1.ScaleHeight / 2) - 150 fraAddEntry.Height = (Form1.ScaleHeight / 2) - 150
fraAddEntry.Width = (Form1.ScaleWidth * 0.64) fraAddEntry.Width = (Form1.ScaleWidth * 0,64)
fraRemoveEntry.Height = (Form1.ScaleHeight / 2) - 150 fraRemoveEntry.Height = (Form1.ScaleHeight / 2) - 150
fraRemoveEntry.Top = (Form1.ScaleHeight / 2) + 100 fraRemoveEntry.Top = (Form1.ScaleHeight / 2) + 100
fraRemoveEntry.Width = (Form1.ScaleWidth * 0.36) - 100 fraRemoveEntry.Width = (Form1.ScaleWidth * 0,36) - 100
fraRemoveEntry.Left = fraAddEntry.Width + 100 fraRemoveEntry.Left = fraAddEntry.Width + 100
End Sub End Sub
7. Sekarang, kembali ke jendela desain bentuk dan double klik Tambahkan tombol ini infoAnda sekarang harus memiliki cmdAddEntry_Click kosong () subrutin. Kode ini cukup banyak identik dengan contoh database lama, tapi inilah yang harus mengisi, anyways:
Private Sub cmdAddEntry_Click() Private Sub cmdAddEntry_Click ()
' add a new entry to our table. 'Menambahkan entri baru ke meja kami.
With Adodc1.Recordset Dengan Adodc1.Recordset
.AddNew . AddNew
!ArtistName = txtArtistName ArtistName =! TxtArtistName
!AlbumTitle = txtAlbumTitle AlbumTitle =! TxtAlbumTitle
!Tracks = txtTrackCount Trek =! TxtTrackCount
.Update . Update
.Requery . Requery
End With Akhir Dengan
' refresh the data source and rebind it to the flexgrid (annoying!!) 'Refresh sumber data dan rebind ke flexgrid (annoying!!)
Adodc1.Refresh Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1 Set MSHFlexGrid1.DataSource = Adodc1
MSHFlexGrid1.FormatString = "Artist Name | Album Title | Track Count" MSHFlexGrid1.FormatString = "Nama Artis | Judul Album | Count Track"
Call Form_Resize Call Form_Resize
' clear the text fields once the new record is added 'Mengosongkan bidang teks setelah catatan baru ditambahkan
txtArtistName = "" txtArtistName = ""
txtAlbumTitle = "" txtAlbumTitle = ""
txtTrackCount = "" txtTrackCount = ""
' set the focus back to the artist name textbox 'Mengatur fokus kembali ke nama artis textbox
txtArtistName.SetFocus txtArtistName.SetFocus
End Sub End Sub
8. Sekarang Anda memerlukan menghapus kode. Pada jendela desain form, double klik tombol Hapus yang Dipilih. Anda harus mendapatkan shell untuk cmdRemoveEntry_Click () subrutin. Ini adalah kode:
Private Sub cmdRemoveEntry_Click() Private Sub cmdRemoveEntry_Click ()
' delete an entry from the database 'Menghapus entri dari database
With Adodc1.Recordset Dengan Adodc1.Recordset
.Move (MSHFlexGrid1.Row - 1) ' we minus one because row zero is the header row ). Pindahkan (MSHFlexGrid1.Row - 1 'kita minus satu karena baris nol adalah baris header
.Delete . Hapus
.Requery . Requery
End With Akhir Dengan
' refresh the data source and rebind it to the flexgrid (annoying!!) 'Refresh sumber data dan rebind ke flexgrid (annoying!!)
Adodc1.Refresh Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1 Set MSHFlexGrid1.DataSource = Adodc1
MSHFlexGrid1.FormatString = "Artist Name | Album Title | Track Count" MSHFlexGrid1.FormatString = "Nama Artis | Judul Album | Count Track"
Call Form_Resize Call Form_Resize
' set the focus back to the first add field 'Mengatur fokus kembali ke yang pertama menambah field
txtArtistName.SetFocus txtArtistName.SetFocus
End Sub End Sub
9. Oke, jika Anda pergi ke jendela desain form, Anda memiliki tiga boks teks: txtArtistName, txtAlbumTitle, dan txtTrackCount kode. Double klik pada masing-masing pada gilirannya untuk mendapatkan Perubahan terkait metode dan isi berikut ini:
Private Sub txtArtistName_Change() Private Sub txtArtistName_Change ()
' here, just check to see if each text field has contents. 'Di sini, hanya memeriksa untuk melihat apakah setiap bidang teks memiliki isi. If they all have Jika mereka semua memiliki
' contents (ie, they're not empty) enable the "Add Entry" button. 'Isi (yaitu, mereka tidak kosong) mengaktifkan "Tambah Entry" tombol.
If txtArtistName.Text <> "" And txtAlbumTitle.Text <> "" And txtTrackCount.Text <> "" Then Jika txtArtistName.Text <> "" Dan txtAlbumTitle.Text <> "" Dan txtTrackCount.Text <> "" Lalu
cmdAddEntry.Enabled = True cmdAddEntry.Enabled = True
Else Lain
cmdAddEntry.Enabled = False cmdAddEntry.Enabled = False
End If End If
End Sub End Sub
Private Sub txtAlbumTitle_Change() Private Sub txtAlbumTitle_Change ()
' just call the artist name change method because the code here would be 'Hanya memanggil metode perubahan nama artis karena kode di sini akan
' exactly the same. 'Persis sama.
Call txtArtistName_Change Call txtArtistName_Change
End Sub End Sub
Private Sub txtTrackCount_Change() Private Sub txtTrackCount_Change ()
' just call the artist name change method because the code here would be 'Hanya memanggil metode perubahan nama artis karena kode di sini akan
' exactly the same. 'Persis sama.
Call txtArtistName_Change Call txtArtistName_Change
End Sub End Sub
10. Sementara kau masih dalam txtTrackCount_Change () metode, pergi ke acara ComboBox di bagian atas jendela kode dan pilih acara penekanan tombol. Anda harus mendapatkan shell untuk txtTrackCount_KeyPress tersebut (KeyAscii sebagai Integer) method. Berikut sisa kode untuk itu, hanya menyaring dan tanda baca karakter abjad:
Private Sub txtTrackCount_KeyPress(KeyAscii As Integer) Private Sub txtTrackCount_KeyPress (KeyAscii As Integer)
' TrackKey will store which key was pressed in an _ascii_ value. 'TrackKey akan menyimpan tombol yang ditekan dalam nilai _ascii_.
Dim TrackKey As String Dim TrackKey As String
TrackKey = Chr(KeyAscii) TrackKey = Chr (KeyAscii)
' if the key pressed was a)not a number and b) not the backspace key, 'Jika tombol ditekan adalah) tidak nomor a dan b) tidak tombol backspace,
' just erase the keystroke (it won't get processed or sent) 'Hanya menghapus keystroke (tampilan tersebut tidak akan diproses atau dikirim)
If (Not IsNumeric(TrackKey) And Not (KeyAscii = vbKeyBack)) Then Jika (Tidak IsNumeric (TrackKey) Dan Tidak (KeyAscii = vbKeyBack)) Lalu
KeyAscii = 0 KeyAscii 0 =
End If End If
End Sub End Sub
Dan yang harus itu! Pastikan Anda telah menyimpan proyek Anda dalam folder yang sama seperti yang Anda tersimpan Database dari bagian atas , dan Anda harus baik untuk pergi menjalankan hal ini.
Desain Database
1. Buka Akses MS (Start - Program - Microsoft Access)
2. Pilih "Mulai database kosong" dari wizard yang muncul
3. Pilih tempat untuk menyimpan file mdb dan nama untuk itu (saya adalah "CDCollectionA.mdb")
4. Anda akan mendapatkan ke jendela berikut, di mana Anda klik dua kali pada "Buat tabel dalam tampilan desain:"
desain database jendela utama
5. : Ketika Anda klik dua kali bahwa "membuat tabel dalam desain tampilan" thingie, Anda bisa sampai ke jendela ini:
Desain Tabel tampilan jendela
6. Anda ingin mengikuti langkah-langkah berikut ini untuk mendapatkan meja saya bekerja dengan:
1. Membuat field yang disebut ArtistName tipe Teks
2. Membuat lapangan yang disebut AlbumTitle yang tipe Teks
3. Membuat disebut lapangan Trek suatu yang tipe Number (integer panjang hanya cukup keren)
4. Pilih baris dalam tampilan desain (seperti digambarkan di atas) yang memiliki ArtistName dan AlbumTitle
5. Klik kanan pada seleksi itu, dan memilih Primary Key dari menu yang Anda dapatkan. Ini akan membuat kedua bidang menjadi kunci primer. Idenya adalah bahwa mereka dapat primer karena Anda tidak akan pernah identik nama artis dan judul album (dinyatakan apa gunanya?!).
7. Setelah Anda punya meja Anda dibangun, hanya yang dekat jendela. Anda akan secara otomatis diminta untuk menyimpan perubahan desain meja dan meja untuk memberikan nama, how original. Aku memilih CD, bagaimana asli. :) :)
8. Setelah itu selesai, Anda dapat menambahkan beberapa entri ke database dengan mengklik ganda tabel CD dari jendela utama desain database dan memasukkan secara manual atau hanya pindah ke:
Desain Software
Oke, seperti yang disebutkan di bagian atas artikel ini, kita akan menggunakan ADO (ActiveX Data Objects) mengontrol data untuk mendapatkan pada data bukan data umum kontrol yang digunakan dalam contoh 3 . Aku tahu apa yang Anda pikirkan: siapa yang peduli. :) Dalam hal apapun, ADO dapat menyediakan Anda dengan lebih customizability sedikit dan lebih sedikit kecepatan, tetapi juga sedikit lebih sulit untuk digunakan. Tidak masalah, meskipun, ada cara yang murah di sekitar segalanya, jadi's menyelam membiarkan langsung masuk
1. Hal pertama yang pertama, memulai sebuah proyek VB dengan Standar Exe.
2. Buka menu Proyek dan pilih Komponen (dekat bagian bawah). Anda ingin menambahkan dua kontrol baru untuk proyek Anda:
o the Microsoft ADO Data Control (OLEDB) and Microsoft ADO Data Control (OLEDB) dan
o Microsoft Hierarchical FlexGrid Control 6.0 (catatan ini bukan FlexGrid seperti yang digunakan pada Contoh 3)
add komponen dialog
3. Oke, sekarang melakukan hal-hal berikut untuk bentuk utama Anda:
1. Mengubah keterangan bentuk utama Anda untuk pinggul sesuatu dan jive ...
2. Tambahkan FlexGrid Heirarchical untuk membentuk Anda dengan memilih tool and drawing it on your main form. alat dan menggambar di form utama Anda.
3. Tambahkan ADO data source control untuk membentuk menggunakan tool and drawing on the form. alat dan gambar di formulir. Change its visibility property to False. Ubah properti visibilitas ke False.
4. Add two frames to the form using the Tambahkan dua frame ke bentuk menggunakan tool and drawing them on the form. alat dan menggambar mereka di formulir.
Perubahan untuk satu frame:
Add Entry caption untuk Tambah Entry
fraAddEntry nya (nama) untuk fraAddEntry
) frame: Ubah untuk frame (kedua) lain:
its caption to Remove Entry keterangannya untuk Hapus Entry
its (name) to fraRemoveEntry nya (nama) untuk fraRemoveEntry
5. Draw kontrol berikut dalam bingkai Entry Tambah (ya, sebenarnya dalam frame):
1. A text box with the (name) txtArtistName Sebuah kotak teks dengan nama) txtArtistName (
2. A label above that text box with the caption Artist Name Label di atas kotak teks dengan keterangan Nama Artis
3. A text box with the (name) txtAlbumTitle Sebuah kotak teks dengan nama) txtAlbumTitle (
4. A label above that text box with the caption Album Title Label di atas kotak teks dengan judul Judul Album
5. A text box with the (name) txtTrackCount Sebuah kotak teks dengan nama) txtTrackCount (
6. A label above that text box with the caption Number of Tracks Label di atas kotak teks dengan Nomor keterangan dari Trek
7. A command button with the (name) cmdAddEntry and the caption Add this info Sebuah tombol perintah dengan (nama) cmdAddEntry dan keterangan Tambah info ini
6. Sekarang, dengan bingkai Hapus Entry, tambahkan kontrol sebagai berikut:
0. A command button with the (name) cmdRemoveEntry and the caption Remove Selected Sebuah tombol perintah dengan (nama) cmdRemoveEntry dan judul Hapus yang Dipilih
1. A label with the caption Select the entry you want to remove and click the button: Sebuah label dengan judul Pilih entri yang ingin Anda hapus dan klik tombol:
4. Sekarang, bagian yang paling rumit adalah memformat FlexGrid Heirarchical (yang disebut MSFHlexGrid1) untuk melakukan apa yang Anda inginkan. Ini cukup disesuaikan, tapi di sini semua saya lakukan untuk program ini misalnya:
1. the AllowBigSelection property was set to False milik AllowBigSelection ditetapkan untuk Salah
2. the AllowUserResizing property was set to 0 milik AllowUserResizing ditetapkan untuk 0
3. the FixedCols property was set to 0 while the FixedRows property was set to 1 (this is recommended for pretty displaying of stuff) milik FixedCols ditetapkan ke 0 sedangkan properti FixedRows ditetapkan untuk 1 (ini sangat direkomendasikan untuk menampilkan hal)
4. the FocusRect property was set to 0 milik FocusRect ditetapkan untuk 0
5. the HighLight property was set to 1 Sorot milik ditetapkan untuk 1
6. the ScrollBars property was set to 2 properti scrollbar ditetapkan untuk 2
7. the ScrollTrack property was set to True milik ScrollTrack ditetapkan untuk True
8. the SelectionMode property was set to 1 (selection by row only) milik SelectionMode ditetapkan untuk 1 (seleksi oleh baris saja)
5. Pada jendela desain form, double klik formulir, yang harus membawa Facebook jendela kode dengan kosong Form_Load () subrutin.
o Anda akan melihat waktu ini yang kita lakukan data dan hookup database dalam kode bukan di lembar properti.
o Untuk property ConnectionString dari ADO Data Control, Anda dapat membangun di lembar properti. Ada wizard di sana yang akan melakukannya dari awal untuk Anda, tapi itu cukup menjengkelkan untuk surfing melalui Itu sebabnya saya hanya termasuk string ini bukan (itu dibangun dalam wizard meskipun)
o Anda memerlukan dua variabel global, dan mereka tampil di atas Form_Load () method.
o Untuk DataSource, perhatikan FlexGrid bahwa perintah Set / direktif / apa saja yang digunakan! Here's the code: Berikut kode:
Option Explicit Option Explicit
' couple'o global vars to track the form minimum size 'Vars global couple'o untuk melacak bentuk ukuran minimum
Dim MinHeight As Long Dim MinHeight As Long
Dim MinWidth As Long Dim MinWidth As Long
Private Sub Form_Load() Private Sub Form_Load ()
' set up the database connectivity for the ADO data control 'Mengatur konektivitas database untuk kontrol data ADO
With Adodc1 Dengan Adodc1
' the connection string just defines an interface to connect 'String koneksi hanya mendefinisikan antarmuka untuk terhubung
' to the Access database. 'Ke database Access. We use the MS Jet SQL drivers for Kami menggunakan MS Jet driver SQL untuk
' simplicity's sake. ''s Sake kesederhanaan. Side-note: you can build your own connection string Side-catatan: Anda dapat membangun string koneksi sendiri
' from the property sheet for the ado data control, but I would advise 'Dari lembar properti untuk data kontrol ribut, tapi aku akan menyarankan
' against it, this is easier. 'Menentangnya, ini lebih mudah. :) :)
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ ConnectionString =. "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & _
App.Path & "\CDCollection.mdb;Persist Security Info=False" App.Path & "\ CDCollection.mdb; bertahan Security Info = False"
' the record source just tells the data control what and how 'Sumber catatan hanya memberitahu kontrol data apa dan bagaimana
' to pull out of the database. 'Untuk keluar dari database. Just raw SQL here. Hanya mentah SQL di sini.
.RecordSource = "select * from CDs order by ArtistName" RecordSource =. "* Pilih dari memesan CD oleh ArtistName"
End With Akhir Dengan
' set the Flex Grid data source to be the ADO data control. 'Mengatur sumber data Flex Grid menjadi ADO data kontrol.
Set MSHFlexGrid1.DataSource = Adodc1 Set MSHFlexGrid1.DataSource = Adodc1
' set up the format string for the flex grid. 'Mengatur format string untuk flex grid.
MSHFlexGrid1.FormatString = "Artist Name | Album Title | Track Count" MSHFlexGrid1.FormatString = "Nama Artis | Judul Album | Count Track"
' position all the controls happily and store the form minimum size Posisi semua kontrol gembira dan menyimpan bentuk ukuran minimum
MinHeight = Form1.Height MinHeight = Form1.Height
MinWidth = Form1.Width MinWidth = Form1.Width
Call Form_Resize Call Form_Resize
End Sub End Sub
6. Oke, itu dilakukanDari acara GUI di bagian atas jendela kode, memilih acara Resize. Anda kemudian harus mendapatkan shell untuk Form_Resize () method. Ini dipanggil setiap kali Anda mengubah ukuran form, dan kita hanya akan menggunakannya untuk membuat bentuk ukurannya terlihat cantik. Inilah yang harus mengisi:
Private Sub Form_Resize() Private Sub Form_Resize ()
' check to see if the form is getting too small (Note: this is just to avoid 'Periksa untuk melihat apakah bentuk semakin terlalu kecil (Catatan: ini adalah hanya untuk menghindari
' the math necessary to shrink all the textboxes, hahahaha!!) 'Matematika yang diperlukan untuk mengecilkan semua boks teks, hahahaha!!)
If MinHeight > Form1.Height Then Jika Form1.Height> MinHeight Kemudian
Form1.Height = MinHeight Form1.Height = MinHeight
Exit Sub Exit Sub
ElseIf MinWidth > Form1.Width Then Elseif MinWidth> Form1.Width Kemudian
Form1.Width = MinWidth Form1.Width = MinWidth
Exit Sub Exit Sub
End If End If
' resize the flexgrid to fit nicely on the screen 'Mengubah ukuran flexgrid agar sesuai dengan baik pada layar
MSHFlexGrid1.Width = Form1.ScaleWidth MSHFlexGrid1.Width = Form1.ScaleWidth
MSHFlexGrid1.Height = Form1.ScaleHeight / 2 MSHFlexGrid1.Height = Form1.ScaleHeight / 2
' resize the happy columns to look pretty (40% for each text column, 20% for Track) 'Mengubah ukuran kolom senang terlihat cantik (40% untuk setiap kolom teks, 20% untuk Track)
MSHFlexGrid1.ColWidth(0) = 0.4 * MSHFlexGrid1.Width MSHFlexGrid1.ColWidth (0) MSHFlexGrid1.Width * = 0,4
MSHFlexGrid1.ColWidth(1) = MSHFlexGrid1.ColWidth(0) MSHFlexGrid1.ColWidth (1) = MSHFlexGrid1.ColWidth (0)
MSHFlexGrid1.ColWidth(2) = MSHFlexGrid1.Width - (MSHFlexGrid1.ColWidth(0) * 2) - 60 MSHFlexGrid1.ColWidth (2) = MSHFlexGrid1.Width - (MSHFlexGrid1.ColWidth (0) * 2) - 60
' reposition and resize the frames on the screen to fit nicely (there was no 'Reposisi dan mengubah ukuran frame pada layar sesuai dengan baik (tidak ada
' science here, just did it by trial and error) 'Ilmu di sini, hanya melakukannya dengan cara trial and error)
fraAddEntry.Top = (Form1.ScaleHeight / 2) + 100 fraAddEntry.Top = (Form1.ScaleHeight / 2) + 100
fraAddEntry.Height = (Form1.ScaleHeight / 2) - 150 fraAddEntry.Height = (Form1.ScaleHeight / 2) - 150
fraAddEntry.Width = (Form1.ScaleWidth * 0.64) fraAddEntry.Width = (Form1.ScaleWidth * 0,64)
fraRemoveEntry.Height = (Form1.ScaleHeight / 2) - 150 fraRemoveEntry.Height = (Form1.ScaleHeight / 2) - 150
fraRemoveEntry.Top = (Form1.ScaleHeight / 2) + 100 fraRemoveEntry.Top = (Form1.ScaleHeight / 2) + 100
fraRemoveEntry.Width = (Form1.ScaleWidth * 0.36) - 100 fraRemoveEntry.Width = (Form1.ScaleWidth * 0,36) - 100
fraRemoveEntry.Left = fraAddEntry.Width + 100 fraRemoveEntry.Left = fraAddEntry.Width + 100
End Sub End Sub
7. Sekarang, kembali ke jendela desain bentuk dan double klik Tambahkan tombol ini infoAnda sekarang harus memiliki cmdAddEntry_Click kosong () subrutin. Kode ini cukup banyak identik dengan contoh database lama, tapi inilah yang harus mengisi, anyways:
Private Sub cmdAddEntry_Click() Private Sub cmdAddEntry_Click ()
' add a new entry to our table. 'Menambahkan entri baru ke meja kami.
With Adodc1.Recordset Dengan Adodc1.Recordset
.AddNew . AddNew
!ArtistName = txtArtistName ArtistName =! TxtArtistName
!AlbumTitle = txtAlbumTitle AlbumTitle =! TxtAlbumTitle
!Tracks = txtTrackCount Trek =! TxtTrackCount
.Update . Update
.Requery . Requery
End With Akhir Dengan
' refresh the data source and rebind it to the flexgrid (annoying!!) 'Refresh sumber data dan rebind ke flexgrid (annoying!!)
Adodc1.Refresh Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1 Set MSHFlexGrid1.DataSource = Adodc1
MSHFlexGrid1.FormatString = "Artist Name | Album Title | Track Count" MSHFlexGrid1.FormatString = "Nama Artis | Judul Album | Count Track"
Call Form_Resize Call Form_Resize
' clear the text fields once the new record is added 'Mengosongkan bidang teks setelah catatan baru ditambahkan
txtArtistName = "" txtArtistName = ""
txtAlbumTitle = "" txtAlbumTitle = ""
txtTrackCount = "" txtTrackCount = ""
' set the focus back to the artist name textbox 'Mengatur fokus kembali ke nama artis textbox
txtArtistName.SetFocus txtArtistName.SetFocus
End Sub End Sub
8. Sekarang Anda memerlukan menghapus kode. Pada jendela desain form, double klik tombol Hapus yang Dipilih. Anda harus mendapatkan shell untuk cmdRemoveEntry_Click () subrutin. Ini adalah kode:
Private Sub cmdRemoveEntry_Click() Private Sub cmdRemoveEntry_Click ()
' delete an entry from the database 'Menghapus entri dari database
With Adodc1.Recordset Dengan Adodc1.Recordset
.Move (MSHFlexGrid1.Row - 1) ' we minus one because row zero is the header row ). Pindahkan (MSHFlexGrid1.Row - 1 'kita minus satu karena baris nol adalah baris header
.Delete . Hapus
.Requery . Requery
End With Akhir Dengan
' refresh the data source and rebind it to the flexgrid (annoying!!) 'Refresh sumber data dan rebind ke flexgrid (annoying!!)
Adodc1.Refresh Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1 Set MSHFlexGrid1.DataSource = Adodc1
MSHFlexGrid1.FormatString = "Artist Name | Album Title | Track Count" MSHFlexGrid1.FormatString = "Nama Artis | Judul Album | Count Track"
Call Form_Resize Call Form_Resize
' set the focus back to the first add field 'Mengatur fokus kembali ke yang pertama menambah field
txtArtistName.SetFocus txtArtistName.SetFocus
End Sub End Sub
9. Oke, jika Anda pergi ke jendela desain form, Anda memiliki tiga boks teks: txtArtistName, txtAlbumTitle, dan txtTrackCount kode. Double klik pada masing-masing pada gilirannya untuk mendapatkan Perubahan terkait metode dan isi berikut ini:
Private Sub txtArtistName_Change() Private Sub txtArtistName_Change ()
' here, just check to see if each text field has contents. 'Di sini, hanya memeriksa untuk melihat apakah setiap bidang teks memiliki isi. If they all have Jika mereka semua memiliki
' contents (ie, they're not empty) enable the "Add Entry" button. 'Isi (yaitu, mereka tidak kosong) mengaktifkan "Tambah Entry" tombol.
If txtArtistName.Text <> "" And txtAlbumTitle.Text <> "" And txtTrackCount.Text <> "" Then Jika txtArtistName.Text <> "" Dan txtAlbumTitle.Text <> "" Dan txtTrackCount.Text <> "" Lalu
cmdAddEntry.Enabled = True cmdAddEntry.Enabled = True
Else Lain
cmdAddEntry.Enabled = False cmdAddEntry.Enabled = False
End If End If
End Sub End Sub
Private Sub txtAlbumTitle_Change() Private Sub txtAlbumTitle_Change ()
' just call the artist name change method because the code here would be 'Hanya memanggil metode perubahan nama artis karena kode di sini akan
' exactly the same. 'Persis sama.
Call txtArtistName_Change Call txtArtistName_Change
End Sub End Sub
Private Sub txtTrackCount_Change() Private Sub txtTrackCount_Change ()
' just call the artist name change method because the code here would be 'Hanya memanggil metode perubahan nama artis karena kode di sini akan
' exactly the same. 'Persis sama.
Call txtArtistName_Change Call txtArtistName_Change
End Sub End Sub
10. Sementara kau masih dalam txtTrackCount_Change () metode, pergi ke acara ComboBox di bagian atas jendela kode dan pilih acara penekanan tombol. Anda harus mendapatkan shell untuk txtTrackCount_KeyPress tersebut (KeyAscii sebagai Integer) method. Berikut sisa kode untuk itu, hanya menyaring dan tanda baca karakter abjad:
Private Sub txtTrackCount_KeyPress(KeyAscii As Integer) Private Sub txtTrackCount_KeyPress (KeyAscii As Integer)
' TrackKey will store which key was pressed in an _ascii_ value. 'TrackKey akan menyimpan tombol yang ditekan dalam nilai _ascii_.
Dim TrackKey As String Dim TrackKey As String
TrackKey = Chr(KeyAscii) TrackKey = Chr (KeyAscii)
' if the key pressed was a)not a number and b) not the backspace key, 'Jika tombol ditekan adalah) tidak nomor a dan b) tidak tombol backspace,
' just erase the keystroke (it won't get processed or sent) 'Hanya menghapus keystroke (tampilan tersebut tidak akan diproses atau dikirim)
If (Not IsNumeric(TrackKey) And Not (KeyAscii = vbKeyBack)) Then Jika (Tidak IsNumeric (TrackKey) Dan Tidak (KeyAscii = vbKeyBack)) Lalu
KeyAscii = 0 KeyAscii 0 =
End If End If
End Sub End Sub
Dan yang harus itu! Pastikan Anda telah menyimpan proyek Anda dalam folder yang sama seperti yang Anda tersimpan Database dari bagian atas , dan Anda harus baik untuk pergi menjalankan hal ini.
Mengakses database menggunakan ADO Data Control
Download dan Jalankan Contoh Program
Oke, ini adalah program ADO contoh dijanjikan. Ini persis sama dengan contoh saya lakukan untuk Control Data dan FlexGrid, tetapi dengan beberapa tambahan lonceng dan peluit. Juga, segera bekerja dengan database 97 atau, Access 2000 yang membuat hal-hal yang jauh lebih nyamanOke, mari masuk ke dalam hal ini:
Klik di sini untuk men-download
http://www.ziddu.com/download/14382062/ADOExample.zip.html
Oke, langkah-langkah untuk mengikuti:
1. Hanya menyimpan file ke desktop Anda.
2. Klik dua kali file tersebut untuk membukanya dengan winzip.
3. Klik "Extract" dan ekstrak file ke desktop Anda (catatan: Anda perlu untuk mengekstrak kedua file).
4. Pada desktop Anda, Anda seharusnya sudah memiliki sebuah folder bernama "ADOExample"
5. Masuk ke sana dan double-klik "Projcet1.vbp" (". Vbp singkatan dari" Visual Basic Project)
6. Sekarang, Anda harus mendapatkan VB sarat dengan proyek, tidak masalah!
Dengan itu pergi, Anda dapat menekan tombol play (tengah tool bar atas) dan melihat apa yang tampak seperti. Ada beberapa hal yang dapat Anda lakukan dengan itu:
• Anda dapat menambahkan CD ke Database dengan memasukkan beberapa info dalam boks teks dan mendorong "Tambahkan ini Info" tombol
o Ini telah berubah: saat ini, "Tambah Entry" tombol tidak akan memungkinkan sampai semua tiga boks teks berisi teks.
o The "Track Count" textbox hanya akan menerima karakter numerik
o Program ini tidak memeriksa entri duplikat dalam database. Jika Anda melakukannya, itu akan kecelakaan ^_^
• Anda dapat memilih baris dari grid dan tekan "Hapus yang Dipilih" tombol untuk menghapus secara permanen dari database
• Jadi, jika Anda mengubah ukuran form, grid dan bingkai akan mengubah ukuran tepat (untuk titik tertentu)
unggul baru CD Kolektor jendela program
Cantik luar biasa, ^_^
Oke, ini adalah program ADO contoh dijanjikan. Ini persis sama dengan contoh saya lakukan untuk Control Data dan FlexGrid, tetapi dengan beberapa tambahan lonceng dan peluit. Juga, segera bekerja dengan database 97 atau, Access 2000 yang membuat hal-hal yang jauh lebih nyamanOke, mari masuk ke dalam hal ini:
Klik di sini untuk men-download
http://www.ziddu.com/download/14382062/ADOExample.zip.html
Oke, langkah-langkah untuk mengikuti:
1. Hanya menyimpan file ke desktop Anda.
2. Klik dua kali file tersebut untuk membukanya dengan winzip.
3. Klik "Extract" dan ekstrak file ke desktop Anda (catatan: Anda perlu untuk mengekstrak kedua file).
4. Pada desktop Anda, Anda seharusnya sudah memiliki sebuah folder bernama "ADOExample"
5. Masuk ke sana dan double-klik "Projcet1.vbp" (". Vbp singkatan dari" Visual Basic Project)
6. Sekarang, Anda harus mendapatkan VB sarat dengan proyek, tidak masalah!
Dengan itu pergi, Anda dapat menekan tombol play (tengah tool bar atas) dan melihat apa yang tampak seperti. Ada beberapa hal yang dapat Anda lakukan dengan itu:
• Anda dapat menambahkan CD ke Database dengan memasukkan beberapa info dalam boks teks dan mendorong "Tambahkan ini Info" tombol
o Ini telah berubah: saat ini, "Tambah Entry" tombol tidak akan memungkinkan sampai semua tiga boks teks berisi teks.
o The "Track Count" textbox hanya akan menerima karakter numerik
o Program ini tidak memeriksa entri duplikat dalam database. Jika Anda melakukannya, itu akan kecelakaan ^_^
• Anda dapat memilih baris dari grid dan tekan "Hapus yang Dipilih" tombol untuk menghapus secara permanen dari database
• Jadi, jika Anda mengubah ukuran form, grid dan bingkai akan mengubah ukuran tepat (untuk titik tertentu)
unggul baru CD Kolektor jendela program
Cantik luar biasa, ^_^
Contoh Project VB Kedua ^_^
Buka dan Jalankan Program Contoh Kedua
Program Contoh kedua adalah sedikit lebih rumit, tetapi tidak banyak. Ini hanya menunjukkan sedikit tentang kotak daftar dan hal-hal melemparkan kembali dan sebagainya. Cool, tanpa adue lebih lanjut, periksa link download:
Klik di sini untuk men-download
Oke, langkah-langkah untuk mengikuti:
1. Hanya menyimpan file ke desktop Anda.
2. Klik dua kali file tersebut untuk membukanya dengan winzip.
File proyek untuk program contoh kedua.
3. Klik "Extract" dan ekstrak file ke desktop Anda (catatan: Anda perlu untuk mengekstrak kedua file).
4. Pada desktop Anda, Anda seharusnya sudah memiliki sebuah folder bernama "example02"
5. Masuk ke sana dan double-klik "Example2.vbp" (". Vbp singkatan dari" Visual Basic Project)
6. Sekarang, Anda harus mendapatkan VB sarat dengan proyek, tidak masalah!
Dengan itu pergi, Anda dapat menekan tombol play (tengah tool bar atas) dan melihat apa yang tampak seperti.Ada beberapa hal yang dapat Anda lakukan dengan itu:
• Anda dapat menambahkan teks apapun yang diketik ke dalam kotak teks sebagai masukan pada listbox ini.
• Anda dapat menghapus entri dari listbox dengan menekan tombol "hapus" tombol.
contoh kedua jendela utama
Hip fantastic, eh? ^_^ Sekali lagi, terima kasih banyak pergi ke James untuk membuat contoh ini. Sekarang, mari kita hanya membangun hal dari awal untuk memastikan Anda tahu apa yang Anda lakukan.
Program Contoh kedua adalah sedikit lebih rumit, tetapi tidak banyak. Ini hanya menunjukkan sedikit tentang kotak daftar dan hal-hal melemparkan kembali dan sebagainya. Cool, tanpa adue lebih lanjut, periksa link download:
Klik di sini untuk men-download
Oke, langkah-langkah untuk mengikuti:
1. Hanya menyimpan file ke desktop Anda.
2. Klik dua kali file tersebut untuk membukanya dengan winzip.
File proyek untuk program contoh kedua.
3. Klik "Extract" dan ekstrak file ke desktop Anda (catatan: Anda perlu untuk mengekstrak kedua file).
4. Pada desktop Anda, Anda seharusnya sudah memiliki sebuah folder bernama "example02"
5. Masuk ke sana dan double-klik "Example2.vbp" (". Vbp singkatan dari" Visual Basic Project)
6. Sekarang, Anda harus mendapatkan VB sarat dengan proyek, tidak masalah!
Dengan itu pergi, Anda dapat menekan tombol play (tengah tool bar atas) dan melihat apa yang tampak seperti.Ada beberapa hal yang dapat Anda lakukan dengan itu:
• Anda dapat menambahkan teks apapun yang diketik ke dalam kotak teks sebagai masukan pada listbox ini.
• Anda dapat menghapus entri dari listbox dengan menekan tombol "hapus" tombol.
contoh kedua jendela utama
Hip fantastic, eh? ^_^ Sekali lagi, terima kasih banyak pergi ke James untuk membuat contoh ini. Sekarang, mari kita hanya membangun hal dari awal untuk memastikan Anda tahu apa yang Anda lakukan.
Membangun Contoh Pertama dari Scratch
Oke, ini akan mudah. ^_^Saya akan memasukkan komentar kecil dalam langkah demi langkah proses di mana Anda dapat menjalankan program dan mencobanya sebagai Anda pergi bersama. Oke, dengan menyenangkan!!
1. Mulai Visual Basic dan pilih "Standard Exe" dari daftar proyek baru. Anda akan lahan di layar kita lihat di atas.
2. Pergi ke halaman properti (di sebelah kanan) dan menemukan properti keterangan untuk bentuk utama (Form1). Ubah bahwa untuk Program Contoh saya lumpuh Pertama atau sesuatu seperti itu. :) :)
3. Tambahkan Command Button ke form dengan mengklik tool and then drawing on the form. alat dan kemudian menggambar di formulir.
4. Sekarang, klik sekali pada tombol Anda hanya menarik untuk memilihnya dan pergi ke halaman properti di tangan sebelah kanan layar. Cari nama) properti (dan mengubahnya ke cmdPressMe.
5. Selanjutnya, pada halaman properti yang sama, cari properti caption dan ubah nilainya untuk Tekan Me.
6. Ini akan memunculkan tampilan jendela-kode. Ketik kode berikut ke dalam cmdPressMe_Click () shell sub rutin yang dihasilkan untuk Anda:
'Catatan: Komentar memiliki sebuah apostrof (') di awal baris
Private Sub cmdPressMe_Click()
cmdPressMe.Caption = "You pressed me!"
End Sub
7. Pada titik ini, Anda dapat menjalankan program dan tekan tombol untuk melihat apa yang terjadi.
8. Oke, berikutnya dalam daftar adalah dengan menambahkan dua label. Labels are added with the Label ditambahkan dengan tool. alat.
9. Dengan memilih label masing-masing pada gilirannya, perubahan) mereka (nama properti untuk lblCoordsA dan lblCoordsB, masing-masing.
10. Sekarang, ubah properti caption dari lblCoordsA untuk membaca mouse Lancar koordinat: dan hanya meninggalkan satu lain seperti ini.
11. Pada titik ini, hanya klik dua kali di suatu tempat dalam bentuk, tapi tidak pada salah satu kontrol atau label yang telah Anda tambahkan. Hal ini akan menghasilkan Anda shell untuk Form_Load () subrutin Sekarang untuk sebuah pelajaran kecil di acara. :) Dengan Formulir sebagai objek aktif Anda, pilih acara MouseMove dari daftar acara sebagaimana gambar berikut ini.
12. Ketika Anda klik, Anda harus mendapatkan shell untuk subroutine (...) Form_MouseMoveBerikut kode yang Anda inginkan untuk yang rutin:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblCoordsB.Caption = "x = " & X & " y = " & Y
End Sub
13. Sekarang ketika Anda menjalankan program tersebut, Anda harus mendapatkan catatan yang aktif di mana mouse anda adalah ketika Anda bergerak di sekitar di formulir.
14. Okay, good to go. Satu hal terakhir untuk ditambahkan ke program ini. Menggunakan tool,. alat, menggambar kotak centang di formulir.
15. Ubah (nama) property of the checkbox to chkBGColour . milik kotak centang untuk chkBGColour.
16. . Lalu, mengubah properti keterangan dari kotak centang untuk membaca Ubah Warna Latar Belakang.
17. Selanjutnya, klik dua kali kotak centang untuk memberikan diri Anda shell untuk chkBGColour_Click () event handler. Kode untuk yang terlihat rutin seperti ini:
Private Sub chkBGColour_Click()
"Jika kotak centang dicentang kemudian mengatur latar belakang formulir ini untuk merah.
If (chkBGColour.Value = Checked) Then Form1.BackColor = RGB(255, 0, 0)
"Jika kotak centang tidak dicentang maka set latar belakang formulir ini untuk abu-abu.
ElseIf (chkBGColour.Value = Unchecked) Then Elseif (chkBGColour.Value = tak terkendali) Kemudian
Form1.BackColor = RGB(210, 210, 210) Form1.BackColor = RGB (210, 210, 210)
End If
End Sub
Dan yang harus cukup banyak melakukannya untuk program tersebut. Jika Anda menjalankan sekarang, harus melakukan semua hal yang sama bahwa contoh Anda download lakukan.
1. Mulai Visual Basic dan pilih "Standard Exe" dari daftar proyek baru. Anda akan lahan di layar kita lihat di atas.
2. Pergi ke halaman properti (di sebelah kanan) dan menemukan properti keterangan untuk bentuk utama (Form1). Ubah bahwa untuk Program Contoh saya lumpuh Pertama atau sesuatu seperti itu. :) :)
3. Tambahkan Command Button ke form dengan mengklik tool and then drawing on the form. alat dan kemudian menggambar di formulir.
4. Sekarang, klik sekali pada tombol Anda hanya menarik untuk memilihnya dan pergi ke halaman properti di tangan sebelah kanan layar. Cari nama) properti (dan mengubahnya ke cmdPressMe.
5. Selanjutnya, pada halaman properti yang sama, cari properti caption dan ubah nilainya untuk Tekan Me.
6. Ini akan memunculkan tampilan jendela-kode. Ketik kode berikut ke dalam cmdPressMe_Click () shell sub rutin yang dihasilkan untuk Anda:
'Catatan: Komentar memiliki sebuah apostrof (') di awal baris
Private Sub cmdPressMe_Click()
cmdPressMe.Caption = "You pressed me!"
End Sub
7. Pada titik ini, Anda dapat menjalankan program dan tekan tombol untuk melihat apa yang terjadi.
8. Oke, berikutnya dalam daftar adalah dengan menambahkan dua label. Labels are added with the Label ditambahkan dengan tool. alat.
9. Dengan memilih label masing-masing pada gilirannya, perubahan) mereka (nama properti untuk lblCoordsA dan lblCoordsB, masing-masing.
10. Sekarang, ubah properti caption dari lblCoordsA untuk membaca mouse Lancar koordinat: dan hanya meninggalkan satu lain seperti ini.
11. Pada titik ini, hanya klik dua kali di suatu tempat dalam bentuk, tapi tidak pada salah satu kontrol atau label yang telah Anda tambahkan. Hal ini akan menghasilkan Anda shell untuk Form_Load () subrutin Sekarang untuk sebuah pelajaran kecil di acara. :) Dengan Formulir sebagai objek aktif Anda, pilih acara MouseMove dari daftar acara sebagaimana gambar berikut ini.
12. Ketika Anda klik, Anda harus mendapatkan shell untuk subroutine (...) Form_MouseMoveBerikut kode yang Anda inginkan untuk yang rutin:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblCoordsB.Caption = "x = " & X & " y = " & Y
End Sub
13. Sekarang ketika Anda menjalankan program tersebut, Anda harus mendapatkan catatan yang aktif di mana mouse anda adalah ketika Anda bergerak di sekitar di formulir.
14. Okay, good to go. Satu hal terakhir untuk ditambahkan ke program ini. Menggunakan tool,. alat, menggambar kotak centang di formulir.
15. Ubah (nama) property of the checkbox to chkBGColour . milik kotak centang untuk chkBGColour.
16. . Lalu, mengubah properti keterangan dari kotak centang untuk membaca Ubah Warna Latar Belakang.
17. Selanjutnya, klik dua kali kotak centang untuk memberikan diri Anda shell untuk chkBGColour_Click () event handler. Kode untuk yang terlihat rutin seperti ini:
Private Sub chkBGColour_Click()
"Jika kotak centang dicentang kemudian mengatur latar belakang formulir ini untuk merah.
If (chkBGColour.Value = Checked) Then Form1.BackColor = RGB(255, 0, 0)
"Jika kotak centang tidak dicentang maka set latar belakang formulir ini untuk abu-abu.
ElseIf (chkBGColour.Value = Unchecked) Then Elseif (chkBGColour.Value = tak terkendali) Kemudian
Form1.BackColor = RGB(210, 210, 210) Form1.BackColor = RGB (210, 210, 210)
End If
End Sub
Dan yang harus cukup banyak melakukannya untuk program tersebut. Jika Anda menjalankan sekarang, harus melakukan semua hal yang sama bahwa contoh Anda download lakukan.
Contoh Project VB Pertama ^_^
Buka dan Jalankan Program Contoh Pertama
Saya pikir cara terbaik untuk mendapatkan diperkenalkan ke VB adalah untuk membuka program dan menjalankannya dan bermain-main dengan itu, sehingga akan menjadi urutan di halaman ini. Buka ini, jalankan itu, maka kita akan desain dari awal. Program pertama adalah contoh pertama . Berikut link untuk men-download file zip yang berisi contoh:
Klik di sini untuk men-download
Oke, langkah-langkah untuk mengikuti:
1. Hanya menyimpan file ke desktop Anda.
2. Klik dua kali file tersebut untuk membukanya dengan winzip.
Ini adalah apa yang VB Project File Icon terlihat seperti :)
3. Klik "Extract" dan ekstrak file ke desktop Anda (catatan: Anda perlu untuk mengekstrak kedua file).
4. Pada desktop Anda, Anda seharusnya sudah memiliki sebuah folder bernama "example01"
5. Masuk ke sana dan double-klik "firstproject.vbp" (. Vbp singkatan dari "Visual Basic Proyek")
6. Sekarang, Anda harus mendapatkan VB sarat dengan proyek, tidak masalah!
Dengan itu pergi, Anda dapat menekan tombol play (tengah tool bar atas) dan melihat apa yang tampak seperti. Ada beberapa hal yang dapat Anda lakukan dengan itu:
• Jika Anda menekan tombol, Anda akan melihat teks ada perubahan
• jika Anda memindahkan mouse Anda di sekitar, itu akan melacak gerakan mouse Anda dengan menampilkan koordinat
• Anda dapat mengubah warna latar belakang dengan mengklik kotak centang
inilah contoh program jendela pertama
Bagus, Anda telah melihat bahwa VB bekerja. Sekarang apa? Nah, pada saat ini ada beberapa hal yang dapat Anda lakukan. Salah satunya adalah menusuk-main dengan program ini, melihat 'kode , atau Anda dapat menutup ini dan desain dari awal (akan membawa Anda seperti 5 -!! 10 menit). Saya menyarankan bangunan itu ^_^
Saya pikir cara terbaik untuk mendapatkan diperkenalkan ke VB adalah untuk membuka program dan menjalankannya dan bermain-main dengan itu, sehingga akan menjadi urutan di halaman ini. Buka ini, jalankan itu, maka kita akan desain dari awal. Program pertama adalah contoh pertama . Berikut link untuk men-download file zip yang berisi contoh:
Klik di sini untuk men-download
Oke, langkah-langkah untuk mengikuti:
1. Hanya menyimpan file ke desktop Anda.
2. Klik dua kali file tersebut untuk membukanya dengan winzip.
Ini adalah apa yang VB Project File Icon terlihat seperti :)
3. Klik "Extract" dan ekstrak file ke desktop Anda (catatan: Anda perlu untuk mengekstrak kedua file).
4. Pada desktop Anda, Anda seharusnya sudah memiliki sebuah folder bernama "example01"
5. Masuk ke sana dan double-klik "firstproject.vbp" (. Vbp singkatan dari "Visual Basic Proyek")
6. Sekarang, Anda harus mendapatkan VB sarat dengan proyek, tidak masalah!
Dengan itu pergi, Anda dapat menekan tombol play (tengah tool bar atas) dan melihat apa yang tampak seperti. Ada beberapa hal yang dapat Anda lakukan dengan itu:
• Jika Anda menekan tombol, Anda akan melihat teks ada perubahan
• jika Anda memindahkan mouse Anda di sekitar, itu akan melacak gerakan mouse Anda dengan menampilkan koordinat
• Anda dapat mengubah warna latar belakang dengan mengklik kotak centang
inilah contoh program jendela pertama
Bagus, Anda telah melihat bahwa VB bekerja. Sekarang apa? Nah, pada saat ini ada beberapa hal yang dapat Anda lakukan. Salah satunya adalah menusuk-main dengan program ini, melihat 'kode , atau Anda dapat menutup ini dan desain dari awal (akan membawa Anda seperti 5 -!! 10 menit). Saya menyarankan bangunan itu ^_^
Pengenalan VB
Visual Basic merupakan event-driven bahasa. Jadi, ketika Anda berbicara tentang kejadian, kita sedang berbicara tentang hal-hal yang terjadi dalam program yang menyebabkan kejadian-kejadian kecil terjadi (ide serupa dengan hal IRQ Anda pelajari semoga di 455).. Contoh ini dapat mengklik tombol menyebabkan acara button_click dapat dihasilkan. Anda menulis kode untuk bereaksi terhadap kondisi dan membimbing pengguna melalui program anda.
Anda merancang formulir Anda benar-benar visual, dengan menggunakan satu set alat widget dan menggambar di formulir secara langsung seperti yang Anda lakukan dalam program cat atau sesuatu seperti ini. hal ini sangat mudah, anda akan menyukainya ... atau mungkin tidak tapi itu cepat dan relatif bebas rasa sakit.
. Oke, contoh-contoh tersebut dikembangkan oleh James Tam, dan saya baru saja direproduksi di sini.Memiliki semua rincian lengkap tentang apa yang sebenarnya memerlukan hal-hal ini, tapi aku akan masuk ke mereka sedikit diriku. Jika tampak bahwa ada sesuatu yang hilang di sini, pastikan untuk memeriksa di sana untuk info lebih lanjut.
Oke, hal pertama yang harus Anda lakukan dengan visual basic pada dasarnya hanya memulai itu. No problem Go: Go:
Mulai --- Program --- Microsoft Visual Basic --- Anda mendapatkan gambar .... :) :)
Ketika Anda memuat itu untuk pertama kalinya, Microsoft Office mungkin churn pergi selama beberapa menit. Ini adalah masalah dengan Office 2000 dan Anda tidak perlu khawatir tentang hal itu juga terlalu banyak. Ini hanya akan terjadi sekali. Dalam hal apapun, ketika akhirnya dimuat VB, dan Anda memilih Standard Exe dari dialog proyek baru, inilah yang Anda akan dihadapkan dengan:
Ini adalah lingkungan pemrograman utama Anda. Anda melakukan semua bentuk desain dan coding dari jendela ini. Sekarang, mungkin adalah cara terbaik untuk mendapatkan hak dalam hal ini adalah untuk duduk dan hanya hack sebuah program cepat. Seperti saya katakan, ini adalah orang yang James dibuat, dan mereka yang sempurna untuk tujuan kita sehingga pujian kepadanya. :) :)
Oke, besar, sekarang hanya keluar VB tanpa menyimpan apa pun yang Anda lakukan.
Anda merancang formulir Anda benar-benar visual, dengan menggunakan satu set alat widget dan menggambar di formulir secara langsung seperti yang Anda lakukan dalam program cat atau sesuatu seperti ini. hal ini sangat mudah, anda akan menyukainya ... atau mungkin tidak tapi itu cepat dan relatif bebas rasa sakit.
. Oke, contoh-contoh tersebut dikembangkan oleh James Tam, dan saya baru saja direproduksi di sini.Memiliki semua rincian lengkap tentang apa yang sebenarnya memerlukan hal-hal ini, tapi aku akan masuk ke mereka sedikit diriku. Jika tampak bahwa ada sesuatu yang hilang di sini, pastikan untuk memeriksa di sana untuk info lebih lanjut.
Oke, hal pertama yang harus Anda lakukan dengan visual basic pada dasarnya hanya memulai itu. No problem Go: Go:
Mulai --- Program --- Microsoft Visual Basic --- Anda mendapatkan gambar .... :) :)
Ketika Anda memuat itu untuk pertama kalinya, Microsoft Office mungkin churn pergi selama beberapa menit. Ini adalah masalah dengan Office 2000 dan Anda tidak perlu khawatir tentang hal itu juga terlalu banyak. Ini hanya akan terjadi sekali. Dalam hal apapun, ketika akhirnya dimuat VB, dan Anda memilih Standard Exe dari dialog proyek baru, inilah yang Anda akan dihadapkan dengan:
Ini adalah lingkungan pemrograman utama Anda. Anda melakukan semua bentuk desain dan coding dari jendela ini. Sekarang, mungkin adalah cara terbaik untuk mendapatkan hak dalam hal ini adalah untuk duduk dan hanya hack sebuah program cepat. Seperti saya katakan, ini adalah orang yang James dibuat, dan mereka yang sempurna untuk tujuan kita sehingga pujian kepadanya. :) :)
Oke, besar, sekarang hanya keluar VB tanpa menyimpan apa pun yang Anda lakukan.
Sabtu, 12 Februari 2011
Sampai Kapan KELALAIAN INI...?
Salah satu penyakit berbahaya yang menimpa umat manusia dewasa ini adalah penyakit LALAI. Bila penyakit ini menjankiti jiwa seseorang maka dia akan merasa malas, hatinya menjadi beku, asyik dengan segala macam maksiat, lupa beribadah merasa diluar pengawasan Allah dan rela menjual akhirat yang penuh kenikmatan dengan dunia yang penuh kepayahan. Hidupnya hanya untuk dunia, hari-harinya dipenuhi dengan dosa, sehingga dirinya jauh dari petunjuk Allah..
Seseorang yang mengaku dirinya muslim dan merasa ada gejala terjangkiti penyakit ini maka ia harus segera bangkit, bertobat dan mem perbaiki diri, agar menjadi orang yang sukses dunia akhirat.
WAKTU AKAN TERUS BERJALAN
Sungguh Al Qur’an dan Sunnah telah banyak mengingatkan kita tentang betapa bernilainya waktu di sisi hamba yang beriman. Allah telah menyebutkan bahwa waktu adalah nikmat yang besar. Ladang yang sangat bermanfaat dan mempunyai pengaruh yang sangat jelas. Allah berfirman :
وَالْعَصْرِ
نَّ الإنْسَانَ لَفِي خُسْرٍ
إِلا الَّذِينَ آمَنُوا وَعَمِلُوا الصَّالِحَاتِ وَتَوَاصَوْا بِالْحَقِّ وَتَوَاصَوْا بِالصَّبْرِ
Artinya :
1. Demi masa
2. Sesungguhnya manusia itu benar-benar berada dalam kerugian.
3. kecuali orang-orang yang beriman dan mengerjakan amal saleh dan nasehat menasehati supaya menta’ati kebenaran dan nasehat menasehati supaya menetapi kesabaran. (QS. al- Ashr{103}:1-3)
Dalam ayat ini Allah bersumpah dengan masa ( waktu ). Dia merupakan modal untuk mencari keberuntungan dengan amal sholih. Namun ia juga merupakan cobaan karena orang yang berpaling dari petunjuk akan merugi. Di dalamnya terdapat pelajaran dan keajaiban bagi yang mau berfikir.
Waktu adalah sebuah nikmat pemberian Allah yang besar firmanNya :
وَسَخَّرَ لَكُمُ اللَّيْلَ وَالنَّهَارَ وَالشَّمْسَ وَالْقَمَرَ وَالنُّجُومُ مُسَخَّرَاتٌ بِأَمْرِهِ إِنَّ فِي ذَلِكَ لآيَاتٍ لِقَوْمٍ يَعْقِلُونَ
Dan Dia menundukkan malam dan siang, matahari dan bulan untukmu. Dan bintang-bintang itu ditundukkan (untukmu) dengan perintah-Nya. Sesungguhnya pada yang demikian itu benar-benar ada tanda-tanda (kekuasaan Allah) bagi kaum yang memahami (nya),(QS. An Nahl {16}:12)
Allah berfirman pula :
وَهُوَ الَّذِي جَعَلَ اللَّيْلَ وَالنَّهَارَ خِلْفَةً لِمَنْ أَرَادَ أَنْ
يَذَّكَّرَ أَوْ أَرَادَ شُكُورًا
Dan Dia (pula) yang menjadikan malam dan siang silih berganti bagi orang yang ingin memgambil pelajaran atau orang yang ingin bersyukur. (QS. AL Furqon {25};62)
Namun ketahuilah wahai saudaraku seiman, waktu ini akan terus berjalan dan berganti , hari demi hari, bulan demi bulan, dan tahun demi tahun. Waktu hanyalah zaman yang singkat, dia akan pergi dan tak akan kembali. Termasuk kebodohan kita terhadap urgensi waktu ialah kita merasa senang bila matahari telah tenggelam pada setiap harinya, padahal ini menunjukkan bahwa umur kita akan berkurang dan tidak akan kembali lagi!.
Abdulloh bin Mas’ud berkata “Tidaklah aku menyesal atas sesuatu seperti penyesalanku terhadap matahari yang telah tenggelam pada hari ini, usiaku berkurang akan tetapi malanku tidak bertambah.”
Imam hasan al-Bashri berkata “Tidaklah berlalu sebuah hari bagi seorang anak Adam, kecuali hari itu akan berkata padanya : Hai anaka Adam, aku adalah harimu yang baru, apa yang telah engkau kerjakan untukku akan menjadi saksi. Apabila aku telah pergi, aku tidak akan kembali lagi, kerjakan sesukamu dengan segera dan engkau akan menjumpainya di hadapanmu dan akhirkanlah sesukamu maka dia tidak akan kembali kepadamu.”
Maka orang cerdas adalah yang mampu mengisi hari-harinya dengan amal kebaikan, memanfaatkan sisi hidup yang ada dengan segala perkara yang bermanfaat sebagai bekal menuju kampung yang abdi.
HIASILAH HIDUP ANDA DENGAN KETAATAN
Apabila nafas tinggal sepenggal, barang pinjaman telah dikembalikan, kain kafan telah dipersiapakan, dan tanahpun sudah siap digali, maka tiada sesuatupun yang dapat dilakukan kecuali menyambut malaikat Maut menjemput. Sungguh amat celaka orang yang sudah diperingatkan dengan berubahnya kondisi tubuhnya namun dia masih terlena dengan kenikmatan dunia, terbuai dengan syahwat.
Bahkan dia menyia-nyiakan waktu tersisa hanya untuk terpaku di depan tv, menonton video, sinetron, dan semisalnya duduk-duduk membuang umur bahkan berjudi dan lainya dari segala bentuk kemaksiatan. Waktunya habis hanya untuk perkara yang tidak bermanfaat dan sia-sia yang malah membuat dirinya tercebur dalam dosa.
Bangkitlah segera dari kelalaian ini Wahai saudaraku! Bersegeralah bertobat sebelum ajal menjemput.! Ingatlah engakau akan ditanya atas segala perbuatan selama di dunia.
Rosullulloh bersabda : “Tidak akan bergeser kedua kaki anak Adam pada hari kiamat dari sisi Robbnya hingga ditanya lima perkara : tentang umurnya untuk apa dihabiskan, masa mudanya untuk apa, hartanya dari mana dan kemana disalurkan , serta apa yang diperbuat atas ilmunya.” (HR. at-Tirmidzi : 2416 dan yang lainnya. al-Albani menshohihkan hadist ini dalam as-Shohibah:946)
Hasan al-Bashri berkata : “Termasuk tanda berpalingnya Allah dari seorang hamba ialah Dia akan menjadikan kesibukan hamba tersebut dalam perkara yang tidak bermanfaat sebagai bentuk penghinaan terhadapnya.”
Saudaraku seiman tidakkah engkau ingin bergabung bersama orang-orang yang sabar dalam ketaatan ? Sampai kapankah engkau bergelimang dengan kelalaian dan maksiat ini ? Apakah engkau akan menjadi budak hawa nafsu dan syahwat? Dengarkanlah firman Allah berikut ini :
وَاصْبِرْ نَفْسَكَ مَعَ الَّذِينَ يَدْعُونَ رَبَّهُمْ بِالْغَدَاةِ
وَالْعَشِيِّ يُرِيدُونَ وَجْهَهُ وَلا تَعْدُ عَيْنَاكَ عَنْهُمْ تُرِيدُ زِينَةَ الْحَيَاةِ الدُّنْيَا وَلا تُطِعْ مَنْ أَغْفَلْنَا قَلْبَهُ عَنْ ذِكْرِنَا وَاتَّبَعَ هَوَاهُ وَكَانَ أَمْرُهُ فُرُطًا
Dan bersabarlah kamu bersama-sama dengan orang-orang yang menyeru Tuhannya di pagi dan senja hari dengan mengharap keridaan-Nya; dan janganlah kedua matamu berpaling dari mereka (karena) mengharapkan perhiasan kehidupan dunia ini; dan janganlah kamu mengikuti orang yang hatinya telah Kami lalaikan dari mengingati Kami, serta menuruti hawa nafsunya dan adalah keadaannya itu melewati batas. (QS. Al-Kahfi {18}:28)
Imam Ibnu Qudamah berkata : “Manfaatkanlah waktu hidupmu yang sangar berharga, jagalah waktumu yang mulia. Ketahuilah bahwa masa hidupmu terbatas, nafasmu terbilang, setiap nafas akan mengurangi bagian umurmu. Umur itu hanya singkat dan tersisa hanya sedikit, setiap bagian umurmu adalah mutiara yang sangat mahal, tidak ada tandingan dan penggantinya. Sesunggguhnya dalam hidup yang singkart ini pasti akan bermuara pad a kenikmatan yang abadi atau pada azab yang pedih. Maka janganlah engkau sia-siakan mutiara umurmu yang sangar berharga dalam perkara yang bukan ketaatan.”
Thoifur al-Bithomi berkata: “Sesungguhnya malam dan siang adalah pangkal harta seorang muslim, keuntungannya adalah surga, dan kerugiaannya adalah neraka.”
Imam Ibul Qoyyim berkata:”Sesungguhnya tahun adalah ibarat sebuah pohon, bulan-bulan adalah akarnya sedangkan hari adalah rantingnya, jam adalah daunnya, dan nafas adalah buahnya. Barang siapa yang nafasnya untuk ketaatan maka hasilnya adalah pohonyang biak, barnagsiapa yang nafasnya dalam kemaksiatan maka hasilnya adalah hanzholah.”
Maka sungguh sangat merugi orang yang mendapat waktu sehat dan luang akan tetapi dia tidak memanfaatkan secara maksimal . kelalaian adalah pangkal segala kehancuran. Rosullulloh bersabda : “ dua nikmat yang kebanyakan manusia tertipu di dalamnya, nikmat sehat dan waktu luang.” (HR. al-Bukhori:6412)
Barang siapa yang sehat badannya dan waktunya kosong dari kesibukan sementara dia tidak berusaha untuk mengapai kebaikan akhirat, maka ibaratnya bagaikan orang yang tertipu dalam jual beli. Maksudnya bahwa mayoritas manusia tidak bisa memanfaatkan waktu sehat dan luangnya dengan baik, bahkan mereka malah menggunakan waktu tersebut bukan pada tempatnya. Andaikan mereka bisa memanfaatkan waktu tersebut dengan baik niscaya segala kebaikan akan mereka raih.
Umar din Dzar berkata :”Beramalah untuk dirimu sendiri di dalam waktu mala mini karena orang yang tertipu adalah orang yang terlelap dari kebaikan siang dan malam . Orang yang demikian tidak mendapat kebaikan malam dan siang. Siang dan malam dijadikan sebagai jalan yang beriman untuk taat kepada Robbnya dan sebagai ujian bagi orang lain karena kelalaian mereka terhadap diri mereka sendiri. Maka manfaatkanlah berjalannya waktu , malam, dan hari-hari.”
Sekali lagi, manfaatkanlah waktumu untuk ketaatan kepada Allah laksanakanlah perintah-Nya dan jauhilah larangan-Nya. Dunia adalah waktu yang singkat, dia ibarat sebuah perjalanan , segala sesuatu yang akan terjadi akan berakhir , sebagaimana berlalunya hari ,siang, dan malam. Allah berfirman :
يُقَلِّبُ اللَّهُ اللَّيْلَ وَالنَّهَارَ إِنَّ فِي ذَلِكَ لَعِبْرَةً لأولِي الأبْصَارِ
Allah mempergantikan malam dan siang. Sesungguhnya pada yang demikian itu, terdapat pelajaran yang besar bagi orang-orang yang mempunyai penglihatan. (QS An-Nur {24}:44)
ALLAH SELALU MENGAWASIMU
Jangan mengira bahwa amalan yang kita kerjakan lepas dari pengawasan Allah. Tidaklah setiap langkah, gerak gerik dan lisan terucap kecuali Allah mengetahuinya. Maka janganlah anda merasa aman ketika berbuat maksiat!, sekalipun engkau dalam kesendirian. Allah berfirman :
هُوَ الَّذِي خَلَقَ السَّمَاوَاتِ وَالأرْضَ فِي سِتَّةِ أَيَّامٍ ثُمَّ اسْتَوَى عَلَى الْعَرْشِ يَعْلَمُ مَا يَلِجُ فِي الأرْضِ وَمَا يَخْرُجُ مِنْهَا وَمَا يَنْزِلُ مِنَ السَّمَاءِ وَمَا يَعْرُجُ فِيهَا وَهُوَ مَعَكُمْ أَيْنَ مَا كُنْتُمْ وَاللَّهُ بِمَا تَعْمَلُونَ بَصِيرٌ
Dialah yang menciptakan langit dan bumi dalam enam masa; Kemudian Dia bersemayam di atas 'Arsy Dia mengetahui apa yang masuk ke dalam bumi dan apa yang keluar daripadanya dan apa yang turun dari langit dan apa yang naik kepadanya. Dan Dia bersama kamu di mana saja kamu berada. Dan Allah Maha Melihat apa yang kamu kerjakan. (QS. Ak-Hadid {57}:4)
Muhammad bi Ali at-Tirmidzi berkata:”Jadikanlah rasa diawasi kepada dzat yang tidak pernah hilang dari pandanganmu, dan jadikanlah rasa syukurmu kepada dzat yang nikmartnya tak akan terputus kepadamu.”
Imam ibnul Qoyyim berkata :”Seorang hamba sejak menginjakkan kakinya di dunia ini maka dia ibaratnya orang yang sedang berjalan menuju Robbnya. Jarak safarnya adalah umurnya, malam dan siang adalah tingkatan, maka dia akan senantiasa menjalaninya hingga safarnya berakhir. Orang yang cerdas adalah yang selalu semangat untuk menempuh jarak safar ini dalam perkara yangbisa mendekatkan diri kepada Allah hingga samapi ke negeri asalanya.”
Beliau berkata pula:”Memanfaatkan waktu adalah dengan menyibukkan diri dengan segenap kesempatan utnuk mendekatkan diri kepada Allah atau segala sesuatu yang menunjang pendekatan diri kepada allah berupa makan, minum, nikah, tidur , istirahat. Karena barangsiapa yang mengambil perkara diatas dengan niat agar kuat mengerjakan perkara yang Allah cintai dan menjauhi perkara yang terlarang maka hal itu termasuk bentuk pemanfaatan waktu yang baik.”
Maka takutlah engkau wahai saudaraku kepada Allah sesuai kadar kedekatan Allah kepadamu, engakau tidak bisa keluar dari kekuasaan Allah dan pengawasan-Nya . Agungkanlah Allah dalam hatimu , jangan engkau melanggar aturan dan batasan-Nya, ingatlah hari-hari Allah. Sesungguhnya Allah telah memerintahkan Nabi Musa agar memperingatkan Bani Israel untuk mengingat hari-hari Allah dan apa yang telah terjadi, dengan mengambil pelajaran dan hikmah dari kejadian tersebut. Allah Berfirman :
وَلَقَدْ أَرْسَلْنَا مُوسَى بِآيَاتِنَا أَنْ أَخْرِجْ قَوْمَكَ مِنَ الظُّلُمَاتِ إِلَى النُّورِ وَذَكِّرْهُمْ بِأَيَّامِ اللَّهِ إِنَّ فِي ذَلِكَ لآيَاتٍ لِكُلِّ صَبَّارٍ شَكُورٍ
Dan sesungguhnya Kami telah mengutus Musa dengan membawa ayat-ayat Kami, (dan Kami perintahkan kepadanya): "Keluarkanlah kaummu dari gelap gulita kepada cahaya terang benderang dan ingatkanlah mereka kepada hari-hari Allah". Sesungguhnya pada yang demikian itu terdapat tanda-tanda (kekuasaan Allah) bagi setiap orang penyabar dan banyak bersyukur. (QS. Ibrohim {14}:5)
SUKSES DUNIA DAN AKHIRAT
Wahai orang yang telah melalui hari-hari dan tahun , wahai orang yang telelap tidur dan terbaui dengan kelalaian , orang yang tahun berganti tahun masih tetap tenggelam dalam lautan kesalahan, tidakkah engkau sadar dan bangkit dari nii semua? Tidakkah engkau bangkit untuk memulai hidup baru dengan memperbaiki diri ? Tidakkah engkau mendengar ayat-ayat Allah ?? Perhatikan sejenak firman berikut ini : وَلَقَدْ ذَرَأْنَا لِجَهَنَّمَ كَثِيرًا مِنَ الْجِنِّ وَالإنْسِ لَهُمْ قُلُوبٌ لا يَفْقَهُونَ بِهَا وَلَهُمْ أَعْيُنٌ لا يُبْصِرُونَ بِهَا وَلَهُمْ آذَانٌ لا يَسْمَعُونَ بِهَا أُولَئِكَ كَالأنْعَامِ بَلْ هُمْ أَضَلُّ أُولَئِكَ هُمُ الْغَافِلُونَ
Dan sesungguhnya Kami jadikan untuk isi neraka Jahanam kebanyakan dari jin dan manusia, mereka mempunyai hati, tetapi tidak dipergunakannya untuk memahami (ayat-ayat Allah) dan mereka mempunyai mata (tetapi) tidak dipergunakannya untuk melihat (tanda-tanda kekuasaan Allah), dan mereka mempunyai telinga (tetapi) tidak dipergunakannya untuk mendengar (ayat-ayat Allah). Mereka itu sebagai binatang ternak, bahkan mereka lebih sesat lagi. Mereka itulah orang-orang yang lalai. (Qs. al-A’rof {7}:179)
Orang yang berbahagia dunia dan akherat adalah yang bersegera bertaubat dan mulai memperbaiki dirinya dengan segera beramal sholih dan meninggalkan segala kemaksiatan. Dia berusaha untuk mengubah arah hidupnya dari buruk menjadi baik , dari maksiat menjadi taat dan dari lalai mejadi ingat. Hal ini bila memang menginginkan kondisi yang lebih baik dari sebelumnya, karena usaha perbaikan diri berawal dari diri pribadi sendiri. Allah berfirman :
إِنَّ اللَّهَ لا يُغَيِّرُ مَا بِقَوْمٍ حَتَّى يُغَيِّرُوا مَا بِأَنْفُسِهِمْ
Sesungguhnya Allah tidak mengubah keadaan sesuatu kaum sehingga mereka mengubah keadaan yang ada pada diri mereka sendiri. (QS. ar-Ro’du{13}:11)
Syumaith bin Ajlan berkata:” Manusia ada dua golongan, orang yang berbekal selama di dunia dan orang yang selalu merasakan kenikmatan dunia. Maka lihatlah dirimu termasuk golongan yang mana. Aku melihat dirimu senang hidup kekal di dunia. Dengan alas an apa engkau senang kekal di dunia?? Jika engkau taat kepada Allah engkau memperbagusi ibadah kepada-Nya , mendekatkan diri dengan amal sholih , amal engkau orang yang beruntung. Ataukah engkau senang di dunia untuk makan dan minum, bermain-main dan mengumpulkan harta kemudian member kesenangan untuk anak dan sitrimu?? Maka alangkah jeleknya tujuan hidup seperti ini.”
Jika manusia tidak mengetahui kapan ajalnya menjemput, maka orang yang berbahagia adalah orang yang selalu mempersiapkan diri untuk menyambut tamu yang agung ini dengan amal sholih dan istiqomah, bertobat dan memperbaiki diri, sehingga dia menjadi orang yang beruntung di dunia dan akherat.
Imam Ibnu Jauzi berkata :”Selayaknya bagi orang yang tidak mengetahui kapan ajalnya dating untuk selalu bersiap, jangan tertipu dengan masa muda dan sehat.”
Maka orangyang berbahagia adalah yang sellalu siap untuk berjumpa dengan Allah , dia bersegera betobat dan beramal sholih. Tidak bosan utnuk introspeksi diri, dalam setiap jam, hari, bulan. Dan tahunya., hingga kematian menjemput sedangkan dia dalam keadaan sadar dan sudah siap. Billahitaufiq AllahuA’alam
Oleh : Abu Abdillah Syahrul Fatwa bin Luqman
Ditulis ulang bersumber dari majalah AL FURQON Edisi 6 thn ke-9 Muharrom 1431
Minggu, 06 Februari 2011
Jilbabku Sayang, Jilbabku Malang
Bismillahirrahmanirrahim..
Aktivitas pagi ku hari ini ingin olahraga bersama dengan dua sahabatku menuju taman kota. Aku sudah berjanji dengan mereka didepan komplek.
“ Assalamu’alaikum Iwan, Malik “
“ Wa’alaikumsalam bang Said “ Kata mereka kompak.
“ Ayuk langsung jalan “ Kataku.
Aku dan dua orang sahabatku berlari perlahan, kadang kala ada obrolan kecil keluar dari mulut kami. Candaan pun tak terlewatkan disela nafas kami yang tersengal karna rasa lelah dan keringat yang kian membanjir.
Mataku tiba-tiba menangkap sesosok wanita yang sedang berdiri di halte Bus, pakaiannya membuatku heran. Jilbab yang menutupi mahkotanya, tidak seimbang dengan baju ketat dan celana jeans yang dia kenakan. Belum lagi lipstik merah yang terpoles dibibirnya dan bedak tebal menutupi seluruh permukaan wajahnya. Aku segera tersadar, masyaallah mengapa aku mengomentari penampilan orang lain. Aku menggeleng-gelengkan kepala.
“ Kenapa bang ?“ Kata iwan mengagetkanku. Aku hanya cengar-cengir saja.
Tak lama kemudian, aku melihat seorang gadis sedang berboncengan dengan seorang pemuda. Gadis itu memeluknya sangat erat, lagi-lagi aku terheran-heran. Gadis itu memakai jilbab dengan baju dan celana ketat, yang sama sekali tidak cocok bila disandingkan dengan penutup mahkotanya. Tapi aku kembali beristighfar, aku harus konsentrasi pada jalanku.
“ Bang, kita sarapan dimana ? “ Kata Malik.
“ Kalian mau sarapan apa ? aku mau bubur ayam yang disana saja “ Kataku.
“ Kami ikut abang saja “ Kata Iwan.
Kami bergegas menuju sebuah grobak bubur yang telah ramai dikunjungi . Entah dari orang-orang yang sehabis olahraga atau yang sekedar mampir untuk sarapan. Aku pun segera berinisiatif mencari tempat duduk. Belum juga aku sempurna duduk, aku mendengat suara ramai wanita tertawa. Perhatianku langsung tertuju pada mereka, para wanita yang sedang bergerombol disudut alas tempat kami duduk. Ternyata bukan aku saja yang merasa tersedot perhatiannya oleh mereka, tapi orang-orang yang ada disekeliling ku.
“ Astaghfirullah “ Aku mendengar Iwan beristighfar.
“ Kenapa Wan ? “ Kata Malik. Aku pun hanya memandangi Iwan dan Malik bergantian.
“ Sayang ya , wanita cantik dan berjilbab seperti mereka, ndak bisa jaga kelakuan “ Kata Iwan lagi.
“ Hust, biarin saja “ Kataku.
==================================
Mungkin dari sahabat pernah menemui juga muslimah yang sama seperti kisah diatas. Sunggung sayang sekali kini jilbab mengalami perubahan makna.
Kerudung yang dipakai dengan pakaian serba ketat bukanlah jilbab. Jilbab adalah pakaian longgar yang menutup semua aurat dari ujung kaki sampai ujung rambut. Karna salah pengertian ini lah akhirnya muncul istilah jilbab gaul.
Jilbabmu adalah kehormatanmu, jangan kamu sandingkan dia dengan pakaian serba ketatmu. Apa tujuanmu berjilbab ? mengikuti syariatkah atau mengikuti trend ?? Kalo mengikuti syariat, tentu kamu akan menanggalkan pakaian serba ketatmu, bukan dengan trend yang mengacaukan syariat.
Fitrahnya wanita memang suka berhias, tapi bukan berarti berhias jadi dihalalkan untuk pamer bahkan untuk menarik perhatian lawan jenis. Berhiaslah secantik mungkin dihadapan suamimu, bukan malah sebaliknya. Kalo dirumah hanya pakai daster sedangkan kalo diluar berhias seheboh-hebohnya.
Jilbab sering kali tercoreng dengan mereka-mereka yang hanya mengenal jilbab untuk trend bukan karna syariat. Melihat wanita berkerudung yang disalah artikan menjadi jilbab dengan hal-hal maksiat, akhirnya menimbulkan berbagai konflik dari diri muslimah yang ingin berjilbab. Takut tidak bisa menjaga jilbabnya, karna merasa dirinya masih melakukan kenistaan. Padahal jilbab bisa merubah segalanya menjadi sebuah kebaikan yang nyata.
Tak sedikit muslimah yang berubah setelah memakai jilbab, itu karna rasa malu untuk menjaga jilbabnya. Kalo belum apa-apa sudah takut, artinya kamu belum ridho untuk menanggalkan kebathilan.
Masuklah secara kaffah kedalam islam, bukan masuk secara kaffah ke dalam trend.
Wallahua’lam bish shawwab.
Sumber
Langganan:
Postingan (Atom)
