tag:blogger.com,1999:blog-52764638235059866292024-03-12T17:18:27.458-07:00Tukang Onlinex_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.comBlogger21125tag:blogger.com,1999:blog-5276463823505986629.post-85803255416659742562011-06-20T02:09:00.000-07:002011-07-08T06:11:12.174-07:00Sekedar Promisi Gan<span style="color:red;"><b>Blog ini sudah DoFollow</b></span><br /><span style="font-weight: bold; color: rgb(51, 255, 51);">Peluang Bisnis Yang Luar Biasa…!</span><br />Anda pasti tahu, sekarang jutaan pengguna HP ada di sekeliling anda, ribuan orang pengguna HP ada di daerah anda, tentunya itu merupakan pangsa pasar anda ke depan. Bisa anda bayangkan, bila anda bisa menggaet 100 orang menjadi downline anda? dan dari tiap downline anda dapat melakukan 10 trx per hari, dari tiap trx anda mengambil keuntungan Rp. 100/trx. Berapa rupiah yang bisa anda dapatkan dalam 1 bulan?.<br />Mari kita hitung bersama :<br />100 x 10 trx = 1.000 trx/hari<br />1.000 x 30 hari = 30.000 trx/bulan<br />30.000 x Rp. 100 = Rp. 3.000.000 / bulan.<br />Itu perhitungan jika anda punya 100 Downline dengan trx rata-rata 10 trx/hari dengan markup Rp.100,- . Bagai mana jika lebih ??? jawabannya ya anda hitung saja sendiri, pasti penghasilan anda lebih dari pada itu.<br />3 Juta/bln, lumayankan buat tambahan uang saku, itu semua tanpa kerja keras, asal anda sudah mempunyai downline aktif yang produktif, otomatis bonus berjalan terus tanpa henti. Semua itu tidaklah sulit, malah sangatlah mudah.<br />hanya dengan mengalihkan pembelian pulsa mereka, yang tadinya suka beli pulsa ke konter sekarang tinggal ajak mereka supaya mereka gabung disini, menjadi downline anda.<br />Mudah bukan…????Cara mendaftarkan downline/ jaringan anda ada di menu …….Tidak ada masalah jika anda sudah terdaftar di dealer yang lain, sebab anda dapat menggunakan chip / nomor yang sama untuk didaftarkan menjadi Agen / Dealer DQCELL RELOAD, dan dapat digunakan bersama. <span style="font-weight: bold; color: rgb(51, 255, 51);">DQCELL RELOAD</span> berikan kecepatan dan kualitas dalam pengisian pulsa kepada anda dengan stok nasional, jadi walaupun anda berada di luar Jawa Timur juga bisa melakukan transaksi. Sebagai konsumen, Anda tidak perlu lagi harus pergi ke counter untuk pengisian pulsa Handphone dengan harga mahal. Pulsa yang Anda dapatkan dari <span style="font-weight: bold; color: rgb(51, 255, 51);">DQCELL RELOAD</span> adalah harga distributor. Untuk itu kami menawarkan suatu usaha penjualan voucher yang berbeda dan MUDAH DIPAHAMI semua kalangan para profesional MAUPUN AWAM. Anda tidak harus memiliki counter yang besar, bahkan Anda tidak memiliki counter pun bisa berjualan PULSA. Anda bisa menjual kepada teman kantor, kerabat, saudara, terutama untuk mengisi pulsa handphone sendiri dengan harga murah. Oke kan???<br /><br /><p>Untuk daftar caranya sangat mudah sekali, yaitu tinggal ketik sms:</p> <p><strong>DAFTAR.NO HP.NAMA</strong><br />Contoh :<br /><strong>DAFTAR.085336000999.DQCELL</strong></p> <p>Langsung saja kirim ke :</p> <p><strong>085749350351 <span class="fullpost"><br /></span></strong></p> <p>Tunggu beberapa saat hingga Anda mendapatkan sms REGISTRASI dari server <strong>DQCELL RELOAD</strong> yang berisi <strong>ID dan Pin</strong> anda untuk trx.<br />Setelah itu silahkan langsung melakukan deposit atau tambah saldo.</p> <p>Cara Deposit/ Tambah Saldo :</p> <p><strong>MELALUI BCA</strong></p> <p>No Rek : 2000347305</p> <p>a.n : Deky Arifin</p> <p><strong>MELALUI MANDIRI</strong></p> <p>No Rek : 143 001 096 4581</p> <p>a.n : Deky Arifin</p> <p>Setelah transfer berhasil langsung konfirmasi ke <strong>081559574108</strong> dengan Format:</p> <p><strong>C.Sdh tfr via BCA sbsr 500.000 a.n Aisa</strong><br />tunggu beberapa saat, dan saldo anda otomatis bertambah sesuai transferan dari anda.</p> <p>Mudah bukan…???<br />Sekarang anda bisa langsung berjualan Pulsa ataupun mengisi pulsa HP anda sendiri.</p> <p>Untuk menjadi <strong>Dealer</strong> syarat deposit <strong>minimal 1jt</strong> dan ketik:</p> <p><strong>Upgrade.NoHP</strong></p> <p><strong>contoh: Upgrade.085336000999</strong></p> <p>Langsung saja kirim ke :</p> <p><strong>081559574108</strong></p> <p>Selamat Ber trx dengan lancar dan kilat……!!!! </p><br />informasi lebih lengkap klik <a style="font-weight: bold;" href="http://dqcell.wordpress.com/" target="blank">di sini</a><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-56685688812869759802011-06-20T01:55:00.000-07:002011-06-20T01:59:10.275-07:00Crystal Reports<font color="red"><b>Blog ini sudah DoFollow</b></font><br />Crystal Reports adalah piranti standar untuk pembuatan laporan pada sistem operasi Windows, dimana cetakan/templete laporan yang dihasilkan dapat disertakan pada banyak bahasa pemrograman, untuk memudahkan crystal report disingkat CR<br /><br />Prestasi yang di rasih CR tidak lepas dari sejarah perjalanan produk yang panjang. CR versi 8.5 dilunjurkan pada tahun 2001 (tahun peluncuran didasarkan pada tahun file User’s Guiode, maka dapat diperkirakan versi pertama CR diluncurkan pada tahun 1990-1992 dengan pola hitungan setiap versi membutuhkan waktu 1 tahun. Pada saat ini versi CR sudah pada versi 11, tetapi pembahasan pada tutorial ini, kita hanya membahas CR versi 8.5 karena lebih mudah dipahami.<br /><span class=fullpost><br />Pada tutorial ini sy tidak akan menjelaskan tatacara instalasi CR 8.5, tetapi lebih membahas bagaimana merancang/mendesain laporan CR 85. dengan menggunakan database MySQL. Untuk lebih jelasnya klik <a href="http://www.ziddu.com/download/1344790/CrystalReport8.5.rar.html" target=blank>disini</a></span><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com2tag:blogger.com,1999:blog-5276463823505986629.post-35065649332978644742011-06-20T01:14:00.000-07:002011-06-20T01:53:20.021-07:00Tips and Triks Visual Basic 6.0<font color="red"><b>Blog ini sudah DoFollow</b></font><br />Kumpulan Source Code tuk Validasi Program dengan menggunakan Visual Basic 6.o, Jika anda tertatik dengan Tips dan Trik Visual Basic ini Silahkan Baca di...<br /><br />--> Hanya Angka yang bisa di Input dalam TextBoxt<br /><br />Private Sub txtNomor_KeyPress(KeyAscii As Integer)<br />If Not (KeyAscii >= Asc("0") & Chr(13) _<br />And KeyAscii <= Asc("9") & Chr(13) _<br />Or KeyAscii = vbKeyBack _<br />Or KeyAscii = vbKeyDelete _<br />Or KeyAscii = vbKeySpace) Then<br />Beep<br />KeyAscii = 0<br />End If<br />End Sub<br /><br />--> Hanya Huruf<br /><br />Private Sub txtNama_KeyPress(KeyAscii As Integer)<br />If Not (KeyAscii >= Asc("a") & Chr(13) _<br />And KeyAscii <= Asc("z") & Chr(13) _<br />Or (KeyAscii >= Asc("A") & Chr(13) _<br />And KeyAscii <= Asc("Z") & Chr(13) _<br />Or KeyAscii = vbKeyBack _<br />Or KeyAscii = vbKeyDelete _<br />Or KeyAscii = vbKeySpace)) Then<br />Beep<br />KeyAscii = 0<br />End If<br /><br />End Sub<br /><br />--> membersihkan Seluruh Control TextBox dan Combo Box<br /><span class="fullpost"><br />Sub Clear()<br />For Each Control In Me.Controls<br />If TypeOf Control Is TextBox Then<br />Control.Text = ""<br />End If<br />If TypeOf Control Is ComboBox Then<br />Control.Text = ""<br />End If<br />Next Control<br />End Sub<br /><br />NB: jika ada tombol yang lain tinggal di tambah kondisi IFnya aja, dan tuk menonaktifkan seluruh tombol tinggal ganti "Control.Text=Enabled" aja<br /><br />--> Get Auto Number<br /><br />Private Sub Auto()<br />Dim Urutan As String * 10<br />Dim Tgl As String<br />Dim Hitung<br />Set TMasuk = New ADODB.Recordset<br />TMasuk.Open "Select * from Masuk", Persediaan, adOpenDynamic, adLockPessimistic<br />'TMasuk.MoveFirst<br />Tgl = Format(Now, "yy/mm/dd")<br />With TMasuk<br />If .RecordCount = 0 Then<br />Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"<br />Else<br />.MoveLast<br />If Left(![No Masuk], 6) <> Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) Then<br />Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"<br />Else<br />Hitung = (![No Masuk]) + 1<br />Urutan = (Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2)) + Right("0000" & Hitung, 4)<br />End If<br />End If<br />txtNomor = Urutan<br />End With<br />End Sub<br /><br />--> Mengambil record ke dalam COmboBox<br /><br />Sub DaftarPelanggan()<br />Me.MousePointer = 11<br />Pesan = "Select * from Pelanggan Order By kodePlg"<br />Set TPelanggan = New ADODB.Recordset<br />TPelanggan.Open Pesan, Persediaan, adOpenStatic<br />cmbPlg.Clear<br />If Not TPelanggan.EOF Then<br />TPelanggan.MoveFirst<br />While Not TPelanggan.EOF<br />cmbPlg.AddItem TPelanggan!KodePlg<br />TPelanggan.MoveNext<br />Wend<br />End If<br />TPelanggan.Close<br />Set TPelanggan = Nothing<br />Me.MousePointer = 1<br />End Sub<br /><br />-- Laporan dengan Crystall Report<br /><br />Sub CetakLap()<br />With CrtLaporan<br />.Reset<br />.DataFiles(0) = App.Path & "\Penduduk.mdb"<br />.ReportFileName = App.Path & "\Lap Lahir.rpt"<br />.WindowMinButton = False<br />.WindowShowCancelBtn = True<br />.WindowShowCloseBtn = True<br />.WindowShowPrintBtn = True<br />.WindowShowPrintSetupBtn = True<br />.WindowState = crptMaximized<br />.Action = 1<br />End With<br />end sub<br /><br />--> terima kasih...<br />sumber <a href="http://amirmahmud2008.blogspot.com/2008/12/tips-and-triks-visual-basic-60.html" target=blank>amirmahmud2008.blogspot.com</a></span><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-41236282007374227982010-12-04T11:14:00.000-08:002010-12-04T11:31:00.656-08:00Mengenal Data dan Variabel<font color="red"><b>Blog ini sudah DoFollow</b></font><br /><div align=justify><br />Ketika seorang user (pengguna) menggunakan sebuah program komputer, seringkali komputer<br />memintanya untuk memberikan informasi. Informasi ini kemudian disimpan atau diolah oleh komputer.<br />Informasi inilah yang disebut dengan DATA.<br />Visual Basic 6 mengenal beberapa type data, antara lain :<br />Ö String adalah type data untuk teks (huruf, angka dan tanda baca).<br />Ö Integer adalah type data untuk angka bulat.<br />Ö Single adalah type data untuk angka pecahan.<br />Ö Currency adalah type data untuk angka mata uang.<br />Ö Date adalah type data untuk tanggal dan jam.<br />Ö Boolean adalah type data yang bernilai TRUE atau FALSE.<br />Data yang disimpan di dalam memory komputer membutuhkan sebuah wadah. Wadah inilah yang<br />disebut dengan VARIABEL. Setiap variabel untuk menyimpan data dengan type tertentu membutuhkan<br />alokasi jumlah memory (byte) yang berbeda.<br />Variabel dibuat melalui penulisan deklarasi variabel di dalam kode program :<br />Dim <nama_variabel> As <type_data><br />Contoh : Dim nama_user As String<br />Aturan di dalam penamaan variabel :<br />Ö Harus diawali dengan huruf.<br />Ö Tidak boleh menggunakan spasi. Spasi bisa diganti dengan karakter underscore (_).<br />Ö Tidak boleh menggunakan karakter-karakter khusus (seperti : +, -, *, /, <, >, dll).<br />Ö Tidak boleh menggunakan kata-kata kunci yang sudah dikenal oleh Visual Basic 6 (seperti : dim, as,<br />string, integer, dll).<br />Sebuah variabel hanya dapat menyimpan satu nilai data sesuai dengan type datanya. Cara mengisi nilai<br />data ke dalam sebuah variabel :<br /><nama_variabel> = <nilai_data><br />Contoh : nama_user = “krisna”<br />Untuk type data tertentu nilai_data harus diapit tanda pembatas. Type data string dibatasi tanda petikganda<br />: “nilai_data”. Type data date dibatasi tanda pagar : #nilai_data#. Type data lainnya tidak perlu<br />tanda pembatas.<br /><span class="fullpost"><br />Sebuah variabel mempunyai ruang-lingkup (scope) dan waktu-hidup (lifetime) :<br />Ö Variabel global adalah variabel yang dapat dikenali oleh seluruh bagian program. Nilai data yang<br />tersimpan didalamnya akan hidup terus selama program berjalan.<br />Ö Variabel lokal adalah variabel yang hanya dikenali oleh satu bagian program saja. Nilai data yang<br />tersimpan didalamnya hanya hidup selama bagian program tersebut dijalankan.<br />Variabel yang nilai datanya bersifat tetap dan tidak bisa diubah disebut KONSTANTA. Penulisan<br />deklarasi konstanta di dalam kode program :<br />Const <nama_kontanta> As <type_data> = <nilai_data><br />Contoh : Const tgl_gajian As Date = #25/09/2003#<br /></span><br /></div><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-72523114620592152932010-12-04T10:23:00.000-08:002011-07-10T02:25:43.396-07:00:: Pengaturan Pembayaran dan Pemanggilan ::<font color="red"><b>Blog ini sudah DoFollow</b></font><br />nie program di buat sesudahnya prakerin, namanya <a href="http://www.ziddu.com/download/12823613/PROGRAMTA.rar.html<br />" target=_blank>"Aplikasi Pengaturan Pembayaran dan Pemanggilan"</a> jelek sih tapi mungkin berguna...amien<br><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-82669315780327678292010-03-08T18:03:00.000-08:002010-03-08T18:28:55.668-08:00Validasi Input...<font color="red"><b>Blog ini sudah DoFollow</b></font><br><br />Source Code dibawah ini untuk Validasi input Program dengan menggunakan Visual Basic 6.o:<br /><br />Hanya Angka yang bisa di Input dalam TextBoxt<br /><br />Private Sub txtNomor_KeyPress(KeyAscii As Integer)<br />If Not (KeyAscii >= Asc("0") & Chr(13) _<br />And KeyAscii <= Asc("9") & Chr(13) _<br />Or KeyAscii = vbKeyBack _<br />Or KeyAscii = vbKeyDelete _<br />Or KeyAscii = vbKeySpace) Then<br />Beep<br />KeyAscii = 0<br />End If<br />End Sub<br /><br />Hanya Huruf yang bisa di Input dalam TextBoxt<br /><span class="fullpost"><br />Private Sub txtNama_KeyPress(KeyAscii As Integer)<br />If Not (KeyAscii >= Asc("a") & Chr(13) _<br />And KeyAscii <= Asc("z") & Chr(13) _<br />Or (KeyAscii >= Asc("A") & Chr(13) _<br />And KeyAscii <= Asc("Z") & Chr(13) _<br />Or KeyAscii = vbKeyBack _<br />Or KeyAscii = vbKeyDelete _<br />Or KeyAscii = vbKeySpace)) Then<br />Beep<br />KeyAscii = 0<br />End If<br /><br />End Sub<br /><br />udah segitu aja dulu lainkali aku teruskan makasi...<br /></span><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-28668324349621774582010-02-22T01:25:00.000-08:002010-02-22T01:33:01.715-08:00Membuat Blog Itu Mudah<div align="justify"><font color="red"><b>Blog ini sudah DoFollow</b></font><br><br />Blogger.com barangkali menjadi salah satu content management sistem software yang akan mengubah dunia jurnalisme dan content internet. Di Blogger.com memungkinkan setiap orang membuat blog, karena Blogger.com bersifat gratis. Pada post kali ini kita akan menggunakan Blogger.com untuk membuat sebuah blog.<br><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjScxegGmWsmgDNYF4wLj7-vu28R6pC4f6DDwBRTc_vMehp_iHRYfFoUac6KrFjWueCbk19iIF6jEawzB0CR5_4w4v_pH5h4Cqa9qR6k5GxXXMvlaYsdy-yYZ_cXAlbgjHzdoAeQfYK6HY/s1600-h/cara+membuat+blog.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 88px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjScxegGmWsmgDNYF4wLj7-vu28R6pC4f6DDwBRTc_vMehp_iHRYfFoUac6KrFjWueCbk19iIF6jEawzB0CR5_4w4v_pH5h4Cqa9qR6k5GxXXMvlaYsdy-yYZ_cXAlbgjHzdoAeQfYK6HY/s320/cara+membuat+blog.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5440997191387999090" /></a><br><br />Langkah pertama, mendaftarkan diri ke Google untuk mendapatkan sebuah akun, sebelum membuat blog kita harus terdaftar di Google, karena untuk masuk ke Blogger.com, harus menggunakan akun Google. Sekarang buka Blogger.com, jika anda sudah memiliki akun di Google anda bisa langsung Log In disana seperti gambar diatas.<br />Tapi kali ini saya asumsikan bahwa anda belum mempunyai akun di Google, sekarang bagi anda yang belum mempunyai akun di Google, silahkan anda klik "Buat Blog".<br><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj_OKBzn4EJZnHzBbjmU6a2MMb9Tqha28Xvw2vs8JrCKaxJjvNgWT_osa-xwtvD3EywnNdf1puHgnk-TeQOBhNkCiAkbcN7ShMmqaxBD-kX_5YQYVL8hwHoCfinB6vntdPznCzVDnUqQUI/s1600-h/cara+membuat+blog1.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 218px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj_OKBzn4EJZnHzBbjmU6a2MMb9Tqha28Xvw2vs8JrCKaxJjvNgWT_osa-xwtvD3EywnNdf1puHgnk-TeQOBhNkCiAkbcN7ShMmqaxBD-kX_5YQYVL8hwHoCfinB6vntdPznCzVDnUqQUI/s320/cara+membuat+blog1.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5440997599900696754" /></a><br><br />Langkah ke-dua, melengkapi pendaftaran akun di Blogger.com, setelah klik Buat Blog, kita akan dibawa ke tempat pengisian formulir. Proses ini akan melengkapi akun Google untuk layanan lainnya. Silahkan anda lengkapi formulir tersebut dengan data anda.<br /><span class="fullpost"><br />Langkah ke-tiga, memberi nama dan alamat blog kita, setelah mengisi formulir tadi kita akan dibawa ke halaman dimana kita harus memberi nama dan memilih alamat blog anda nantinya, alamat yang kita pilih nantinya adalah subdomain blogspot.com, seperti contoh agungbijaksana.blogspot.com, tetapi bila contoh alamat blog yang anda inginkan tidak tersedia, itu berarti alamat tersebut telah terlebih dahulu digunakan oleh orang lain, bila sudah selesai silahkan klik Lanjutkan.<br><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9PhNVRykOb_0NkT-Cx-RTyY1qD2s9WIcnqZu3WouyEpdhqjNw9wxek409dJYdYutT2iAsxXD7D71LzeZdqr-ikBLSjnKTNPnp-dCe3pY_GxOGSTdYnlBqgM5w7n29dFTcB9WPllndDJ8/s1600-h/cara+membuat+blog2.jpg"><img style="cursor:pointer; cursor:hand;width: 320px; height: 218px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9PhNVRykOb_0NkT-Cx-RTyY1qD2s9WIcnqZu3WouyEpdhqjNw9wxek409dJYdYutT2iAsxXD7D71LzeZdqr-ikBLSjnKTNPnp-dCe3pY_GxOGSTdYnlBqgM5w7n29dFTcB9WPllndDJ8/s320/cara+membuat+blog2.jpg" border="0" alt=""id="BLOGGER_PHOTO_ID_5440997876833248738" /></a><br><br />Langkah ke-empat, memilih template blog kita, kali ini kita akan memilih template yang akan kita jadikan template blog kita nanti, pilihlah sebuah template yang anda sukai, seperti contoh minima dan lain - lainnya, tetapi bila tidak ada template yang sesuai dengan selera anda. Tidak usah anda khawatir, karena setelah anda selesai nanti anda bisa memilih template yang lain, jadi sekarang pilih yang tersedia terlebih dahulu. Setelah selesai memilih, silahkan klik Lanjutkan, maka blog anda sudah tercipta, sekarang anda bisa membuat posting, polling, memasang video dan lain - lainnya di blog anda.<br><br /></span></div><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com4tag:blogger.com,1999:blog-5276463823505986629.post-49259615762964831972010-02-16T20:39:00.000-08:002010-02-22T00:11:42.949-08:00Kamus Sederhana<div align=justify><br />Kemaren waktu aQ pinjem buku Visual Basic temanQ ternyata disana ada tutorial membuat kamus mini(alias cuman mengartikan satu kata bahasa Inggris ke bahasa Indonesia)<br />jadi aQ cuman megubah sedikit dan aQ menambahkan komponent aktif skin, jika temen2 belum punya aktivskin download aja <a href="<br />http://www.ziddu.com/download/8622728/ACTIVESKINV.4.3.rar.html<br />"><font color="red">disini</font></a><br />klo ada seorang master yang kebetulan membuka blog ini aQ minta tolong bantuannya mungkin mau memperbaiki aplikasi <a href=" <br />http://www.ziddu.com/download/8622727/kamus.rar.html"><font color="red">kamus mini </font></a>ini <br /></div><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-14523646856706500512010-02-15T00:02:00.000-08:002011-07-10T02:25:40.870-07:00contoh bell sederhana<div align="justify">program ni adalah program latihan yaitu hanya membuat bell sederhana dengan vb 6.0<br />source kodenya bisa di download <a href="http://www.ziddu.com/download/8595653/BEL---.rar.html" target=_blank><span style="color:red;">disini</span></a><br /><span="fullpost"><br />moho maaf sekali jika programnya jelek atau tidak bermutu..<br /></span="fullpost"></div><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com1tag:blogger.com,1999:blog-5276463823505986629.post-21306541148231832512010-02-11T19:55:00.000-08:002010-02-11T20:18:35.850-08:00Speedy Prepaid<div align=justify>
<br />Speedy, si gesit irit ini meluncurkan sebuah layanan baru bagi pengguna yang memiliki mobilitas
<br />tinggi yaitu Speedy Prepaid. Speedy Prepaid adalah kartu prabayar untuk
<br />melakukan koneksi internet dengan menggunakan Telkom Hotspot maupun koneksi
<br />Speedy prabayar untuk melakukan line Speedy reguler maupun melalui line
<br />Speedy di public area. <br>
<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibHdwdW_iNXLE4-kOm0DmUoWWm4ajiCOfTzV1Ydlh2T0zyfzaJFlS1OoMxrqRAQvV14amDcrqRHHcG-qPCRN7V6XExlJzAE3pGDP3xqz00qaAn6EpwgWwxpHFRlaIWT9QLaC5g6Xv3NX8/s1600-h/kartu.gif"><img style="cursor:pointer; cursor:hand;width: 320px; height: 314px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibHdwdW_iNXLE4-kOm0DmUoWWm4ajiCOfTzV1Ydlh2T0zyfzaJFlS1OoMxrqRAQvV14amDcrqRHHcG-qPCRN7V6XExlJzAE3pGDP3xqz00qaAn6EpwgWwxpHFRlaIWT9QLaC5g6Xv3NX8/s320/kartu.gif" border="0" alt=""id="BLOGGER_PHOTO_ID_5437206321591873058" /></a>
<br />Kartu Speedy Prepaid dapat diisi ulang
<br />menggunakan voucher iVAS/Speedy Prepaid.
<br />
<br />Manfaat kartu Speedy Prepaid adalah:
<br /><span class="fullpost">
<br /></b>
<br /><ol>
<br /><li> Untuk koneksi layanan internet di TELKOM Hotspot. </li>
<br /><li>Untuk koneksi satu line Speedy oleh banyak user individual dengan
<br />menggunakan login yang berbeda (misalnya<br>
<br />di tempat kos atau public area). </li>
<br /><li>Solusi bagi pengguna Speedy dengan mobilitas tinggi, karena dapat
<br />menggunakan kartu Speedy Prepaid yang<br>
<br />dapat digunakan di line Speedy maupun sebagai user akses untuk layanan
<br />TELKOM Hotspot. </li>
<br /><li>Sebagai komplemen dan pilihan alternatif koneksi bagi pengguna Speedy
<br />dalam melakukan koneksi internet (hybrid<br>
<br />volume based dan time based). </li>
<br /></ol></span></div>
<br />
<br /><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com1tag:blogger.com,1999:blog-5276463823505986629.post-38861656331244120922010-02-11T19:05:00.000-08:002010-02-11T19:19:29.880-08:00Membuat Text Bergerak<div align=justify>kali ini kita akan coba membuat program text bergerak, sebelum kita mulai mengerjakannya kita siapkan bahan-bahannya yaitu secangkir kopi, tiga tahu isi, hehehe becanda.<br /><br />Pertama kita buka program vibi kita caranya klik start->program->Microsoft Visual Basic 6.0 selanjutnya akan muncul jendela tampilan awal Microsoft Visual Basic 6.0 dan pilih project pilih aja Standart EXE dan klik Open..<br /><span class="fullpost"><br />selanjutnya tambahkan satu picturebox, dua commandbutton, satu label, satu timer dengan properties sbb:<br />Picturebox : name= Picture1<br /> Appearance=flat<br />Label(diletakkan di tengah picturebox) : name=label1<br /> Backstyle=transparent<br /> Caption= Tulisan Ini Berjalan.....<br />Timer : name=timer1<br /> Interval=1<br /> Enable=false<br />Commandbutton : name=command1<br />caption=start<br />name=command2<br />caption=stop<br /><br />setelah kita mendesain form tersebut dobel klik pada timer1 dan ketikkan code sebagai berikut:<br /><br /> If (Label1.Top + Label1.Height = Picture1.Top) Then<br /> Label1.Top = Picture1.Top + Picture1.Height<br /> End If<br /> Label1.Top = Label1.Top – 3<br /><br />Kemudia dobel klik lagi pada command1 dan ketik kode sbb: <br /><br /> Timer1.Interval = 1<br /><br />Dan langkah terakhir dobel klik pada command2 ketikkan kode sbb:<br /><br /> Timer1.Interval = 0<br /><br />Selesai sudah selamat mencoba....<br /></span></div><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-58424290340294251072010-02-07T18:02:00.000-08:002010-02-07T18:49:47.151-08:00Penggunaan Operator<div align="justify"> Apa itu Operator ?<br /><br />OPERATOR di dalam bahasa pemrograman bisa diartikan sebagai simbol yang digunakan untuk<br />melakukan suatu operasi terhadap nilai data. Simbol operator bisa berupa karakter ataupun kata khusus.<br /><br />Visual Basic 6 mengenal tiga jenis operator, yaitu :<br /><br />1. Operator Aritmatika digunakan untuk operasi matematis terhadap nilai data. Simbol-simbol yang<br />digunakan :<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6Po6p7jW4qMfTyiuukv4OZrBqTPm8AYn0qVqMSo-Sdxc6VlXojIzBa1oAbqeJIt2EdxJ0secGwrJ9CDGzS4MoJGIdC3WZRKbr2Y52h94BWiqZ-5pYBX3Q7id-rDEDLqYtHqfKYPzeuXs/s1600-h/op1.gif"><img style="cursor:pointer; cursor:hand;width: 320px; height: 101px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh6Po6p7jW4qMfTyiuukv4OZrBqTPm8AYn0qVqMSo-Sdxc6VlXojIzBa1oAbqeJIt2EdxJ0secGwrJ9CDGzS4MoJGIdC3WZRKbr2Y52h94BWiqZ-5pYBX3Q7id-rDEDLqYtHqfKYPzeuXs/s320/op1.gif" border="0" alt=""id="BLOGGER_PHOTO_ID_5435696927483556994" /></a><br /><br />2. Operator Perbandingan digunakan untuk operasi yang membandingkan nilai data. Simbol-simbol<br />yang digunakan :<span class="fullpost"><br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7L0vu2EWa_WvgsUHXmAexncb9F4mRDjMV7Hdtnos2x6U6T5mA0aMnzSwfjZCrJRNkHAyQURsc_EwyPTVPmBFI1XwezSpGootKg4iCMCIrt9Nr1ii5M4ffUsvAtlKn9pHA9Izs9o_aMZY/s1600-h/op2.gif"><img style="cursor:pointer; cursor:hand;width: 320px; height: 84px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7L0vu2EWa_WvgsUHXmAexncb9F4mRDjMV7Hdtnos2x6U6T5mA0aMnzSwfjZCrJRNkHAyQURsc_EwyPTVPmBFI1XwezSpGootKg4iCMCIrt9Nr1ii5M4ffUsvAtlKn9pHA9Izs9o_aMZY/s320/op2.gif" border="0" alt=""id="BLOGGER_PHOTO_ID_5435697200654658002" /></a><br /><br />3. Operator Logika digunakan untuk operasi yang membandingkan suatu perbandingan. Simbolsimbol yang digunakan :<br /><br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2B2CPYclZYJZiGbQUypaneKIPvJmOncNQkV2camKbc02lghvUzYd5joLgbrPA1C5CzU-632hOGbV8cdqhOPhPpsESy4dc8JSoukKMZnPgxkLDyXizJp5PZn8kMgtsEvZ6y3h4HWcm8zQ/s1600-h/op3.gif"><img style="cursor:pointer; cursor:hand;width: 320px; height: 57px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2B2CPYclZYJZiGbQUypaneKIPvJmOncNQkV2camKbc02lghvUzYd5joLgbrPA1C5CzU-632hOGbV8cdqhOPhPpsESy4dc8JSoukKMZnPgxkLDyXizJp5PZn8kMgtsEvZ6y3h4HWcm8zQ/s320/op3.gif" border="0" alt=""id="BLOGGER_PHOTO_ID_5435697341333286770" /></a><br /><br />Copyright © 2003 IlmuKomputer.Com<br /></span></div><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com1tag:blogger.com,1999:blog-5276463823505986629.post-74095805864950087112010-02-02T23:02:00.001-08:002010-02-04T00:59:55.785-08:00Konsep Dasar Pemrograman Dalam Visual Basic 6.0...<div align="justify">Konsep dasar pemrograman Visual Basic 6.0, adalah pembuatan form <br />dengan mengikuti aturan pemrograman Property, Metode dan Event. Hal ini <br />berarti: <br />(1) Property: Setiap komponen di dalam pemrograman Visual Basic dapat diatur <br />propertinya sesuai dengan kebutuhan aplikasi. Property yang tidak boleh <br />dilupakan pada setiap komponen adalah “Name”, yang berarti nama variabel <span class="fullpost"><br />(komponen) yang akan digunakan dalam scripting. Properti “Name” ini hanya <br />bisa diatur melalui jendela Property, sedangkan nilai peroperti yang lain bisa <br />diatur melalui script seperti <br />Command1.Caption=”Play” <br />Text1.Text=”Visual Basic” <br />Label1.Visible=False <br />Timer1.Enable=True <br />(2) Metode: Bahwa jalannya program dapat diatur sesuai aplikasi dengan <br />menggunakan metode pemrograman yang diatur sebagai aksi dari setiap <br />komponen. Metode inilah tempat untuk mengekpresikan logika pemrograman <br />dari pembuatan suatu prgram aplikasi. <br />(3) Event: Setiap komponen dapat beraksi melalui event, seperti event click pada <br />command button yang tertulis dalam layar script Command1_Click, atau event <br />Mouse Down pada picture yang tertulis dengan Picture1_MouseDown. <br />Pengaturan event dalam setiap komponen yang akan menjalankan semua metode <br />yang dibuat. </span></div><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com3tag:blogger.com,1999:blog-5276463823505986629.post-16125037611938492182010-01-31T19:13:00.000-08:002010-02-04T01:05:28.582-08:00Interface vb.60<div align="justify">Tampilan Awal Visual Basic 6.0, berisi menu, toolbar, toolbox, form, project explorer dan property seperti terlihat pada gambar 1.1. berikut:<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhX5iIsFXpn54YOQFFJ_Z8ADGtiRAXeOP_b03JN_Yssj56X0QPqYhyphenhypheneMMx-kZSFYzD-DvOYgkYS-A8Q5174eGv46GI5X_VpiZ5GxQxi-FA92wgxOweMd8MEqjnb_2GhN8oVFm25JIYiBYg/s1600-h/interface.gif"><img style="cursor:pointer; cursor:hand;width: 320px; height: 274px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhX5iIsFXpn54YOQFFJ_Z8ADGtiRAXeOP_b03JN_Yssj56X0QPqYhyphenhypheneMMx-kZSFYzD-DvOYgkYS-A8Q5174eGv46GI5X_VpiZ5GxQxi-FA92wgxOweMd8MEqjnb_2GhN8oVFm25JIYiBYg/s320/interface.gif" border="0" alt=""id="BLOGGER_PHOTO_ID_5433109834910747058" /></a><br /> Pembuatan program aplikasi menggunakan Visual Basic dilakukan dengan membuat tampilan aplikasi pada form, kemudian diberi script program di dalam komponen-komponen yang diperlukan. Form disusun oleh komponen-komponen yang berada di [Toolbox], dan setiap komponen yang dipakai harus diatur propertinya lewat jendela [Property].<span class="fullpost"><br />Menu pada dasarnya adalah operasional standar di dalam sistem operasi windows, seperti membuat form baru, membuat project baru, membuka project dan menyimpan project. Di samping itu terdapat fasilitas-fasilitas pemakaian visual basic pada menu.<br /> Toolbox berisi komponen-komponen yang bisa digunakan oleh suatu project aktif, artinya isi komponen dalam toolbox sangat tergantung pada jenis project yang dibangun. Komponen standar dalam toolbox dapat dilihat pada gambar 1.2 berikut ini.<br /><a onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgHFQN412T9NpazxfB5-75oHs-BDhyvGM4t2fPXomvb_GkKl1o_MYapjG1pmnTVMK0RSGxb5z7cvYbs7hIDfW2HwfgWO6440BFuObv0hxsdwa80Ytg0IRqOgF4oE2JkmyS06DQHOB3a-lM/s1600-h/toolbox.gif"><img style="cursor:pointer; cursor:hand;width: 320px; height: 242px;" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgHFQN412T9NpazxfB5-75oHs-BDhyvGM4t2fPXomvb_GkKl1o_MYapjG1pmnTVMK0RSGxb5z7cvYbs7hIDfW2HwfgWO6440BFuObv0hxsdwa80Ytg0IRqOgF4oE2JkmyS06DQHOB3a-lM/s320/toolbox.gif" border="0" alt=""id="BLOGGER_PHOTO_ID_5433111582784101010" /></a></span></div><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-30375261810397587062010-01-31T18:48:00.000-08:002010-02-04T01:07:13.053-08:00APA ITU VISUAL BASIC 6.0 ???<div align=justify>Visual Basic pada dasarnya adalah bahasa yang mudah dimengerti sehingga pemrograman di dalam bahasa Basic dapat dengan mudah dilakukan meskipun oleh orang yang baru belajar membuat program. Hal ini lebih mudah lagi setelah hadirnya Microsoft Visual Basic, yang dibangun dari ide untuk membuat bahasa yang sederhana dan mudah dalam pembuatan scriptnya (simple scripting language) untuk graphic user interface yang dikembangkan dalam sistem operasi Microsoft Windows.<br />Visual Basic merupakan bahasa pemrograman yang sangat mudah dipelajari, dengan teknik pemrograman visual yang memungkinkan penggunanya untuk berkreasi lebih baik dalam menghasilkan suatu program aplikasi. <span class="fullpost">Ini terlihat dari dasar pembuatan dalam visual basic adalah FORM, dimana pengguna dapat mengatur tampilan form kemudian dijalankan dalam script yang sangat mudah.<br />Ledakan pemakaian Visual Basic ditandai dengan kemampuan Visual Basic untuk dapat berinteraksi dengan aplikasi lain di dalam sistem operasi Windows dengan komponen ActiveX Control. Dengan komponen ini memungkinkan penguna untuk memanggil dan menggunakan semua model data yang ada di dalam sistem operasi windows. Hal ini juga ditunjang dengan teknik pemrograman di dalam Visual Basic yang mengadopsi dua macam jenis pemrograman yaitu Pemrograman Visual dan Object Oriented Programming (OOP).<br />Visual Basic 6.0 sebetulnya perkembangan dari versi sebelumnya dengan beberapa penambahan komponen yang sedang tren saat ini, seperti kemampuan pemrograman internet dengan DHTML (Dynamic HyperText Mark Language), dan beberapa penambahan fitur database dan multimedia yang semakin baik. Sampai saat buku ini ditulis bisa dikatakan bahwa Visual Basic 6.0 masih merupakan pilih pertama di dalam membuat program aplikasi yang ada di pasar perangkat lunak nasional. Hal ini disebabkan oleh kemudahan dalam melakukan proses development dari aplikasi yang dibuat.</span></div><div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com1tag:blogger.com,1999:blog-5276463823505986629.post-34862868456688729822010-01-14T18:14:00.000-08:002010-01-14T19:03:02.261-08:0015 januari 2010q ngerjakan aplikasi inventori gudang on web ama adji..<br /><br />theronds<br />setiaatmadja<div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-79631281375774787222010-01-11T23:13:00.000-08:002010-01-11T23:14:07.451-08:0012 januari 2010sekarang belajar html....<div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-19786375166784217042010-01-07T18:26:00.000-08:002010-03-08T19:53:47.875-08:00kelimahari kelima katanya pak oskar sekarang presentasi tapi nggak tahu nih kok gak kelihatan pak oskar yah....<br /><br />kalo aku sih dari kemarin ngerjakan projek bell ku yang belum selesai xmpe sekarang...<div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-24567554239765501182010-01-04T19:40:00.000-08:002010-01-05T01:16:34.595-08:00kedua<marquee behavior="alternate"><span style="font-weight:bold;">HARI KEDUA AKU PRAKERIN</span></marquee><br />hari ini aku membuat program login untuk laporan nanti dengan vb 6.0<br />script sederhananya kayak gini ...<br /><br />Dim rs As Recordset<br /><br />Private Sub Command1_Click()<br />Set rs = New Recordset<br />rs.Open " select * from login where password ='" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic<br />If rs.EOF Then<br /> MsgBox "---Masukkan password anda dengan benar---", vbExclamation + vbCritical, "warning"<br /> Text1.Text = ""<br /> Text1.SetFocus<br />Else<br /> Form2.Show<br /> Me.Hide<br />End If<br />End Sub<br /><br />Private Sub Command2_Click()<br />End<br />End Sub<br /><br />Private Sub Form_Load()<br /><br />Call koneksi<br /><br />End Sub<br /><br />Private Sub Text1_KeyPress(KeyAscii As Integer)<br />If KeyAscii = 13 Then<br />Command1_Click<br />End If<br />End Sub<br /><br />dan di dalam modulex......<br /><br />Public db As Connection<br /><br />Sub koneksi()<br /><br />Set db = New Connection<br />db.CursorLocation = adUseClient<br />db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\siswa prakerin\vb\buat laporan\db_barang.mdb;Persist Security Info=False"<br /><br />End Sub<br /><br />yo' opo........?!!!<div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-5293515737863062172010-01-03T23:53:00.000-08:002010-01-03T23:55:35.471-08:00membuat fungsi hari dlm vb 6.0Private Function NamaHari()<br />Dim BilHari As Integer<br />BilHari = Weekday(Date)<br />Select Case BilHari<br />Case 1NamaHari = “MINGGU”<br />Case 2NamaHari = “SENIN”<br />Case 3NamaHari = “SELASA”<br />Case 4NamaHari = “RABU”<br />Case 5NamaHari = “KAMIS”<br />Case 6NamaHari = “JUMAT”<br />Case 7NamaHari = “SABTU”<br />End Select<br />End Function<div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0tag:blogger.com,1999:blog-5276463823505986629.post-37894253405669025142010-01-03T21:56:00.000-08:002010-01-03T22:00:14.687-08:00pertama<div class="blogger-post-footer">Copyright © 2009 ronioke.blogspot.com</div>x_moo^^http://www.blogger.com/profile/17293666984993070222noreply@blogger.com0