ada banyak cara untuk memanggil database yang bisa kita gunakan dalam bahasa perograman visual basic 6.0 salah satunya dapat manggunakan microsoft DAO object library
untuk lebih jelasnya silahkan klik disini
Senin, 23 November 2009
Rabu, 02 September 2009
Payudara Obat Darah Tinggi
Tau ga' sih
ternayata ngeliatin payudara yang montok selama 10 menit sama dengan latihan aerobik selama 30 menit
pernah dipostkan di FBI
oleh member FBI
Studi Payudara dan anjuran2nya
Studi yang dimuat di New England Journal of Medicine tersebut
mengatakan bahwa menatap buah dada yang seksi selama 10 menit
bisa disamakan dengan latihan aerobik selama 30 menit.
Penelitian dilakukan oleh Dr. Karen Bouncer dan koleganya
di tiga rumah sakit di Frankfurt ,Jerman, yang melibatkan 200 lelaki.
Seratus orang disuruh melihat payudara secara teratur setiap hari, sebaliknya seratus lelaki lainnya justru dilarang untuk melihatnya.
Studi dilakukan selama lima tahun dan hasilnya menunjukkan
kelompok pengintip dada perempuan mempunyai tekanan darah lebih rendah,
denyut nadi lebih lambat saat istirahat,
dan mengalami gangguan pembuluh darah jantung lebih rendah.
"Kenikmatan seksual memacu denyut jantung
dan memperlancar sirkulasi darah," kata Dr. Bouncer.
"Kami percaya jika lelaki memandang dada ukuran 'cup D' secara teratur,
mereka akan hidup lebih panjang empat atau lima tahun."
Dia menganjurkan kaum lelaki, terutama usia di atas30 tahun,
untuk menonton acara TV seperti Baywatch dan majalah-majalah panas seperti Playboy,
yang menampilkan perempuan-perempuan berdada besar.
Para peneliti juga mencatat nama-nama selebritis berdada seksi
yang dianggap bisa 'menyehatkan' lelaki, diantaranya Dolly Parton,
Heather Locklear, Anna Nicole Smith, dan Demi Moore.
Kalau selebritis Indonesia , siapa ya kira-kira?
Jadi dianjurkan untuk para lelaki harus mengikuti terapi ini secara teratur
antara lain :
Dirumah :
Harus suka me-lihat2 payudara isteri,
kalau isteri ogah coba kebelakang lihat2 payudara pembantu
(usahakan cari pembantu yg payudaranya gede,
ini semata2 utk terapi umur panjang saja).
Alternative lainnya, berlangganan majalah Playboy atau sering nonton Blue Film.
Di Kantor :
Usahakan bergaul dengan teman cewek yg punya payudara gede
atau sesuaidengan selera masing2.
Coba curi2 pandangan utk melihat payudara tsb selama 10 menit saja.
Alangkah baiknya kalo punya temen cewek yg bisa memback-up terapi ini
dengan kata lain dapat memperlihatkan payudaranya hanya selama 10 menit saja setiap harinya.
Di Jalanan :
Mata boleh jelalatan untuk me-lihat2 payudara perempuan di halte,
dibus atau dimana saja, tapi hati2 kalau lagi mengendarai mobil jangan sampai tubrukan
Di Cafe atau di Karaoke :
Usahakan untuk mendapatkan Ladies Companion yang sesuai dengan selera
yang mana semata2 untuk terapi, bukan utk selingkuh.
Untuk sang isteri :
Harus 100 % mem back-up suami untuk terapi umur panjang ini,
kalau perlu bahkan menjalani terapi-terapi yang diperlukan.
Good Luck, selamat mencoba Terapi Millenium ini
semoga bermanfaat dan panjang umur.
ternayata ngeliatin payudara yang montok selama 10 menit sama dengan latihan aerobik selama 30 menit
pernah dipostkan di FBI
oleh member FBI
Studi Payudara dan anjuran2nya
Studi yang dimuat di New England Journal of Medicine tersebut
mengatakan bahwa menatap buah dada yang seksi selama 10 menit
bisa disamakan dengan latihan aerobik selama 30 menit.
Penelitian dilakukan oleh Dr. Karen Bouncer dan koleganya
di tiga rumah sakit di Frankfurt ,Jerman, yang melibatkan 200 lelaki.
Seratus orang disuruh melihat payudara secara teratur setiap hari, sebaliknya seratus lelaki lainnya justru dilarang untuk melihatnya.
Studi dilakukan selama lima tahun dan hasilnya menunjukkan
kelompok pengintip dada perempuan mempunyai tekanan darah lebih rendah,
denyut nadi lebih lambat saat istirahat,
dan mengalami gangguan pembuluh darah jantung lebih rendah.
"Kenikmatan seksual memacu denyut jantung
dan memperlancar sirkulasi darah," kata Dr. Bouncer.
"Kami percaya jika lelaki memandang dada ukuran 'cup D' secara teratur,
mereka akan hidup lebih panjang empat atau lima tahun."
Dia menganjurkan kaum lelaki, terutama usia di atas30 tahun,
untuk menonton acara TV seperti Baywatch dan majalah-majalah panas seperti Playboy,
yang menampilkan perempuan-perempuan berdada besar.
Para peneliti juga mencatat nama-nama selebritis berdada seksi
yang dianggap bisa 'menyehatkan' lelaki, diantaranya Dolly Parton,
Heather Locklear, Anna Nicole Smith, dan Demi Moore.
Kalau selebritis Indonesia , siapa ya kira-kira?
Jadi dianjurkan untuk para lelaki harus mengikuti terapi ini secara teratur
antara lain :
Dirumah :
Harus suka me-lihat2 payudara isteri,
kalau isteri ogah coba kebelakang lihat2 payudara pembantu
(usahakan cari pembantu yg payudaranya gede,
ini semata2 utk terapi umur panjang saja).
Alternative lainnya, berlangganan majalah Playboy atau sering nonton Blue Film.
Di Kantor :
Usahakan bergaul dengan teman cewek yg punya payudara gede
atau sesuaidengan selera masing2.
Coba curi2 pandangan utk melihat payudara tsb selama 10 menit saja.
Alangkah baiknya kalo punya temen cewek yg bisa memback-up terapi ini
dengan kata lain dapat memperlihatkan payudaranya hanya selama 10 menit saja setiap harinya.
Di Jalanan :
Mata boleh jelalatan untuk me-lihat2 payudara perempuan di halte,
dibus atau dimana saja, tapi hati2 kalau lagi mengendarai mobil jangan sampai tubrukan
Di Cafe atau di Karaoke :
Usahakan untuk mendapatkan Ladies Companion yang sesuai dengan selera
yang mana semata2 untuk terapi, bukan utk selingkuh.
Untuk sang isteri :
Harus 100 % mem back-up suami untuk terapi umur panjang ini,
kalau perlu bahkan menjalani terapi-terapi yang diperlukan.
Good Luck, selamat mencoba Terapi Millenium ini
semoga bermanfaat dan panjang umur.
Selasa, 01 September 2009
Resitter T11
sebelum menggunakan Resitter T11 lakukan langkah-langkah berikut
Berikut adalah step by step untuk melakukan reset Waste Ink Counter Pad Epson T11:
>> Download Software Resetter Printer Epson Stylus T11.
>>Ekstrak resetter Epson T11 tersebut.
>>Hidupkan Printer.
>>Jalankan file AdjProg.exe dan klik Accept.
>>Pilih Particular adjustment mode.
>>Lanjutkan dengan memilih Waste Ink pad Counter dan setelah itu klik OK.
>>Klik Check button, untuk membaca Waste Ink Counter Pad, dan tunggu sampai proses pembacaan selesai.
>>Klik Initialization untuk reset waste ink counter pad ke angka 0 dan klik Finish.
>>Matikan printer, tunggu beberapa saat, kemudian hidupkan kembali printer.
>>Tunggu sampai printer selesai proses kalibrasi, dan printer akan normal kembali.
>>Lanjutkan dengan Test Page Printer.
Donload resitternya disini
moga bermmanfaat
tutorial ini udah pernah diterbitkan
tapi lupa sapa ya yang punya
- pastikan driver printer Epson T11 Sudah terinstall di komputer dan printer sudah konek ke komputer.
- Pastikan anda mempunyai software Resitter Epson T11
- pastikan kerusakan printer minta di reset " contohnya lampu menyala semua"
Berikut adalah step by step untuk melakukan reset Waste Ink Counter Pad Epson T11:
>> Download Software Resetter Printer Epson Stylus T11.
>>Ekstrak resetter Epson T11 tersebut.
>>Hidupkan Printer.
>>Jalankan file AdjProg.exe dan klik Accept.
>>Pilih Particular adjustment mode.
>>Lanjutkan dengan memilih Waste Ink pad Counter dan setelah itu klik OK.
>>Klik Check button, untuk membaca Waste Ink Counter Pad, dan tunggu sampai proses pembacaan selesai.
>>Klik Initialization untuk reset waste ink counter pad ke angka 0 dan klik Finish.
>>Matikan printer, tunggu beberapa saat, kemudian hidupkan kembali printer.
>>Tunggu sampai printer selesai proses kalibrasi, dan printer akan normal kembali.
>>Lanjutkan dengan Test Page Printer.
Donload resitternya disini
moga bermmanfaat
tutorial ini udah pernah diterbitkan
tapi lupa sapa ya yang punya
Minggu, 30 Agustus 2009
Dirgan Penjualan APP
Dirgan Penjualan APP
dibuat pada bulan agustus 2009
program penjualan pada Toko bangunan Pandan Jaya Tanjungpandan ini
berisikan program yang mencatat data penjualan barang pada toko Pandan Jaya
program ini menggunakan Ms.Access 2003 sebagai database
dan laporan menggunakan Cristall Report 8.0
silahkan download pada link dibawah ini
http://www.4shared.com/file/128828750/994be66b/Dirgan_APP_TA.html
dibuat pada bulan agustus 2009
program penjualan pada Toko bangunan Pandan Jaya Tanjungpandan ini
berisikan program yang mencatat data penjualan barang pada toko Pandan Jaya
program ini menggunakan Ms.Access 2003 sebagai database
dan laporan menggunakan Cristall Report 8.0
silahkan download pada link dibawah ini
http://www.4shared.com/file/128828750/994be66b/Dirgan_APP_TA.html
Sabtu, 29 Agustus 2009
SIMOPEL Versi VB6.0
Simopel (Sistem Informasi Pelabuahan) Tanjungpandan
dibuat pada tahun 2009 bulan mei ditujukan untuk kepentingan tugas akhir temanku
Dwi Agus widianti
SIMOPEL yang dibuat ini sangat sederhana sekali
hanya seputar input data kapal, jumlah penumpang
laporan penumpang setiap hari (baik masuk maupun keluar pelabuhan)
dibuat pada tahun 2009 bulan mei ditujukan untuk kepentingan tugas akhir temanku
Dwi Agus widianti
SIMOPEL yang dibuat ini sangat sederhana sekali
hanya seputar input data kapal, jumlah penumpang
laporan penumpang setiap hari (baik masuk maupun keluar pelabuhan)
silahkan download di
Aplikasi Penjualan Menggunakan Visual Basic 6.0
ini merupakan aplikasi penjualan yang sederhana manggunakan visual basic yang bertujuan untuk pembelajaran
bagi rekan-rekan yang suka dengan bahasa pemrograman ini silahkan di sedot sepuasnya
silah kan edit demi kemajuan programmer indonesia
nich linknya
http://www.4shared.com/file/128750183/37a3f304/Penjulan_APP.html
semoga bermanfaat
bagi rekan-rekan yang suka dengan bahasa pemrograman ini silahkan di sedot sepuasnya
silah kan edit demi kemajuan programmer indonesia
nich linknya
http://www.4shared.com/file/128750183/37a3f304/Penjulan_APP.html
semoga bermanfaat
Print Menggunakan listView VB6.0
membuat tampilan print dengan list view
langsung aja nich kodenya
Sub cetakdata()Dim mno, mhal, mbaris, mbaris1 As IntegerDim i, n As IntegerDim mgrs, mgrss As StringPrinter.Print "";Printer.Print "";Printer.Font = "Verdana"Printer.ForeColor = &H0&Printer.FontSize = 6Printer.FontBold = FalsePrinter.CurrentX = 0Printer.CurrentY = 0mno = 0mhal = 0i = 1m = 1Do While (i <= LV1.ListItems.Count) And (m <= LV2.ListItems.Count) mbaris = 1 mhal = mhal + 1 Printer.Print ; " " Printer.Print ; " " Printer.Print ; " " Printer.Print Tab(4); Printer.FontBold = False Printer.FontSize = 7 Printer.Print Tab(5); "Laporan Rugi Laba" Printer.Print ; " " Printer.Print Tab(5); Combo1.Text; Printer.Print Tab(25); ":"; Text1.Text; Printer.FontBold = False Printer.Print ; " " Printer.Print ; " "mgrs = String$(65, "=")mgrss = String$(100, "-")Printer.Print Tab(5); mgrssPrinter.FontBold = FalsePrinter.Print Tab(5); "Tanggal";Printer.Print Tab(25); "Jumlah Penjualan";Printer.Print Tab(55); "Tanggal";Printer.Print Tab(75); "Jumlah Pembelian";
Printer.FontBold = FalsePrinter.Print Tab(5); mgrssmbaris = 0Do While i <= LV1.ListItems.Count And mbaris < 60 Set itm = LV1.ListItems.Item(i) mno = mno + 1 Printer.Print Tab(5); itm.SubItems(1); Printer.Print Tab(25); itm.SubItems(2); mbaris = mbaris + 1 i = i + 1Loopmbaris1 = 0
Do While m <= LV2.ListItems.Count And mbaris < 60 Set itm1 = LV2.ListItems.Item(m) mno = mno + 1 Printer.Print Tab(55); itm1.SubItems(1); Printer.Print Tab(75); itm1.SubItems(2); mbaris1 = mbaris1 + 1 m = i + 1Loop
Printer.Print Tab(5); mgrss Printer.Print Tab(5); "Total Penjualan"; Printer.Print Tab(25); Text2.Text; Printer.Print Tab(40); "Total Pembelian"; Printer.Print Tab(75); Text3.Text; Printer.Print ; " " Printer.Print Tab(5); ket.Caption; Printer.Print Tab(25); Text4.Text;Printer.Print ; " "Printer.Print Tab(5); "Tanggal Cetak ";Printer.FontBold = FalsePrinter.FontItalic = TruePrinter.Print Tab(25); ":"; Format(Now, "dd/mm/yyyy");If mbaris >= 30 ThenPrinter.NewPageEnd IfLoopPrinter.EndDocEnd Sub
langsung aja nich kodenya
Sub cetakdata()Dim mno, mhal, mbaris, mbaris1 As IntegerDim i, n As IntegerDim mgrs, mgrss As StringPrinter.Print "";Printer.Print "";Printer.Font = "Verdana"Printer.ForeColor = &H0&Printer.FontSize = 6Printer.FontBold = FalsePrinter.CurrentX = 0Printer.CurrentY = 0mno = 0mhal = 0i = 1m = 1Do While (i <= LV1.ListItems.Count) And (m <= LV2.ListItems.Count) mbaris = 1 mhal = mhal + 1 Printer.Print ; " " Printer.Print ; " " Printer.Print ; " " Printer.Print Tab(4); Printer.FontBold = False Printer.FontSize = 7 Printer.Print Tab(5); "Laporan Rugi Laba" Printer.Print ; " " Printer.Print Tab(5); Combo1.Text; Printer.Print Tab(25); ":"; Text1.Text; Printer.FontBold = False Printer.Print ; " " Printer.Print ; " "mgrs = String$(65, "=")mgrss = String$(100, "-")Printer.Print Tab(5); mgrssPrinter.FontBold = FalsePrinter.Print Tab(5); "Tanggal";Printer.Print Tab(25); "Jumlah Penjualan";Printer.Print Tab(55); "Tanggal";Printer.Print Tab(75); "Jumlah Pembelian";
Printer.FontBold = FalsePrinter.Print Tab(5); mgrssmbaris = 0Do While i <= LV1.ListItems.Count And mbaris < 60 Set itm = LV1.ListItems.Item(i) mno = mno + 1 Printer.Print Tab(5); itm.SubItems(1); Printer.Print Tab(25); itm.SubItems(2); mbaris = mbaris + 1 i = i + 1Loopmbaris1 = 0
Do While m <= LV2.ListItems.Count And mbaris < 60 Set itm1 = LV2.ListItems.Item(m) mno = mno + 1 Printer.Print Tab(55); itm1.SubItems(1); Printer.Print Tab(75); itm1.SubItems(2); mbaris1 = mbaris1 + 1 m = i + 1Loop
Printer.Print Tab(5); mgrss Printer.Print Tab(5); "Total Penjualan"; Printer.Print Tab(25); Text2.Text; Printer.Print Tab(40); "Total Pembelian"; Printer.Print Tab(75); Text3.Text; Printer.Print ; " " Printer.Print Tab(5); ket.Caption; Printer.Print Tab(25); Text4.Text;Printer.Print ; " "Printer.Print Tab(5); "Tanggal Cetak ";Printer.FontBold = FalsePrinter.FontItalic = TruePrinter.Print Tab(25); ":"; Format(Now, "dd/mm/yyyy");If mbaris >= 30 ThenPrinter.NewPageEnd IfLoopPrinter.EndDocEnd Sub
Langganan:
Postingan (Atom)
