Bunga

Ahmad Rizal Abidin, M.Kom

Bunga merupakan tanaman hias yang sangat digemari oleh semua orang karena keindahannya, begitu juga bagi penulis…, bunga bukan hanya indah, tetapi karena dengan bunga lah penulis dapat melanjutkan studi sampai sekarang ini.

Bunga yang ada di kampung halaman (Gisting Atas Blok 11, Depan SD N 1 Kec. Talang Padang, Kab. Tanggamus) merupakan penghasilan pokok dari orang tua, yang sudah merupakan pekerjaan turun temurun dari nenek. Menjual Bunga itulah pekerjaan orang tua penulis, berbagai macam bunga yang ada dipekarang rumah penulis merupakan bunga untuk diperjual belikan. Mulai dari bunga potong (dahlia, airbras, sedap malam, wamar, anggrek… dll) dan juga bunga hias (anthurium, adenium, kamboja, sirih merah… dll,)

Bunga di kampung halaman ? Indahnya bunga yang bermekaran tak dapat kunikmati lagi, Bau Bunga yang harum, juga tak lagi bisa dicium dari jarak yang cukup jauh…

yaa… itulah bunga dikampung halamanku,… indah dipandang, harum semerbak,  Kini Tinggal kenangan…

Advertisements

Smadav 2010 Rev. 8.0 dirilis !!!

Ahmad Rizal Abidin, M.Kom

Smadav 2010 Rev. 8 dirilis dengan berbagai fitur dan penyempurnaan baru yang dikhususkan untuk pemberantasan virus lokal. Fitur-fitur itu seperti Smad-Behavior yang bisa mengenali virus lokal baru yang belum ada di database Smadav dari tingkah lakunya ketika menginfeksi sistem. Smad-Ray yang bisa melakukan scan flashdisk secara otomatis setelah terpasang hanya dalam waktu maksimum 5 detik. Smadav 2010 lebih stabil dan sangat disarankan untuk digabungkan dengan antivirus internasional karena Smadav hanya bisa menangani virus lokal. Pengebalan flashdisk (menggunakan folder autorun.inf) telah disempurnakan lagi dan sebelumnya akan ada konfirmasi sehingga Anda bisa memutuskan apakah suatu flashdisk ingin dikebalkan atau tidak.

Baca Selengkapnya di http://www.smadav.net

Kampung Halaman

Gisting Atas Blok 11 Depan SD N 1,  Kec. TalangPadang, Kab. Tanggamus, tepatnya dilereng gunung Tanggamus dengan ketinggian 2.400 meter di atas permukaan laut, merupakan daerah yang sangat subur, kebanyakan masyarakatnya merupakan petani sayur mayur dan perkebunan Kopi, daerahnya dingin dan sejuk.

Tempat Pendidikan :

SD N 1 Gisting Atas, SMP Bhakti Kembang kantil (Gisting Bawah), SMA Santo Pius X, Gisting Bawah.

Kenangan :

Karena rumah tempat tinggal di lereng Gunung Tanggamus, sehingga sangat hobi sekali untuk mendaki Gunung tersebut, jalan menuju puncak gunung merupakan jalan setapak yang sangat terjal dan licin berlumut, yang paling terkesan adalah pada saat memasuki hutan lumut, dimana semua pohon dipenuhi lumut basah, sangat senang sekali memegang lumut tersebut sambil berjalan, tanpa disadari tangan menjadi beku karena sangat dingin. Karena begitu lebatnya hutan apabila kita melihat ke langit hanya nampak kelip-kelip sinar matahari diantara pepohonan tanpa bisa melihat awan.

Selain mendaki ke Puncak Gunung,  saya sangat suka menelurusi kali mati, ya kali mati merupakan sungai yang tidak ada air, tapi kalau lagi hujan lebat airnya sangat besar sekali, penuh dengan bebatuan dan pasir, sayang sekali saya tidak pernah sampai keujung kali mati tersebut, perjalanan menelurusi kali mati hanya sampai pada curah merupakan tebing batu yang sangat tinggi sekali dan diatasnya merupakan hamparan batu yang cukup luas dan panjang.

Daerah-daerah yang sering dikunjungi :

kali grem, (vila) Batu keramat, Way lalaan, pantai terbaya, pantai Batu kebo Kota Agung, Bukit Barisan Wonosobo, Wonotirto (Wonoarjo), Air Terjun Gunung Batu…

Kini tinggal kenangan…

salam buat rekan-rekan yang sekampung halaman

Ahmad Rizal Abidin

Page Rank


Page Rank Check

A.W.$urveys

Ingin mendapatkan uang dengan survey klik aja disini:

Perintah Dasar Sql (Mysql) pada Visual Basic 6.0

Perintah SQL Pada Visual Basic 6
Oleh : Ahmad Rizal Abidin, M.Kom
1. Instal mysql-essential-5.1.29-rc-win32
2. Instal mysql-connector-odbc-5.1.5-win32
3. Setting ODBC
a. Klik Start, All Program, Control Panel, Administrative Tools, Data Source (ODBC)
b. Pada ODBC Data source Administrator
– Klik System DSN, klik ADD
– Pilih ODBC Mysql 5.1 Driver, Lalu klik Finish
Data source Name : ODBC_stock
Server : Localhost
User : root
Pasword : ******
Database : stock
– Klik Test, maka tampil “connection successfull”
– Klik OK,
4. Aktifkan Microsoft Visual Basic 6
5. Pilih VB Enterprise Edition Control, lalu klik Open
6. Pada layar kerja VB Klik Project, Klik Add Module, Klik Open
Ketik Listing program berikut :
Public kondb As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strconnect As String
Public strsql As String
Sub Pindah(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys “{Tab}”
End If
End Sub
Public Function konek()
strconnect = “Provider = MSDASQL.1;persist security info = false; data source =odbc_stock;user id=root;pwd=”
If kondb.State = adStateOpen Then
kondb.Close
Set kondb = New ADODB.Connection
Set rs = New ADODB.Recordset
kondb.Open strconnect
Else
kondb.Open strconnect
End If
End Function
7. Klik File, Klik Save, lalu ketik mod_stock (module), form_barang (form1), stock (Project)
8. Aktifkan form 1 dengan cara klik Project Explorer, Klik Forms, lalu double klik Form 1 (Form1))
9. Buatlah sebuah form seperti gambar di bawah ini yang terdiri dari : label, textbox, datagrid dan CommanDButton


10. Apabila setelah selesai membuat form ketikan listing berikut dengan cara :
a. Double klik pada object form lalu ketikkan : (Form Load)
Private Sub Form_Load()
konek
kondb.CursorLocation = adUseClient
strsql = “SELECT * FROM BARANG”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub
b. Kembali ke form dan double klik tombol simpan : (command1)
Private Sub Command1_Click()
strsql = “insert into barang values (‘” + Text1.Text + “‘,'” + Text2.Text + “‘,'” + Text3.Text + “‘,'” + Text4.Text + “‘)”
Set rs = kondb.Execute(strsql)
End Sub
c. Kembali ke form dan double klik tombol Hapus : (command2)
Private Sub Command2_Click()
strsql = “delete from barang where kode_Barang ='” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
d. Kembali ke form dan double klik tombol Edit : (command3)
Private Sub Command3_Click()
strsql = “update barang set nama_Barang ='” + Text2.Text + “‘,satuan_barang = ‘” + Text3.Text + “‘ where kode_Barang='” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
e. Kembali ke form dan double klik tombol Keluar : (command4)
Private Sub Command4_Click()
Unload me
End Sub
f. Kembali ke form dan double klik textbox kode barang : (text1) ganti event dari change menjadi key press
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = “select * from barang where kode_barang ='” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
If rs.EOF Then
Text2.SetFocus
Else
Text2.Text = rs!nama_Barang
Text3.Text = rs!satuan_Barang
Text4.Text = rs!stok_barang
End If
End If
End Sub

Bigmoneyptc

Bigmoneyptc

Rich PTC

Klik Disini Untuk Gabung