Kreasi kreasi
Selasa, 22 Desember 2009
PROGRAM DISKON PENJUALAN (VISUAL BASIC 6.0)
program ini sama halnya dengan membuat program kakulator seperti yang pernah di bahas. seperti contoh berikut :
MAU....TAU CARANYA? HE....HE.....HE...... kirimkan mail ke victor_indra@yahoo.com. saya kirim melalui mail ke anda...?
Sabtu, 19 Desember 2009
Membuat Kakulator Sederhana Dengan Visual Basic 6.0
Alhamdulillah ada kesempatan bisa baru nulis lagi , Langsung aja yah berikut ini saya menuliskan mengenai membuat kakulator dengan visual basic.
TEXT 1 ,2 dihapus tulisannya biarkan kosong tak terisi dan text 3 tulis hasil.
KLIK 2 kali pada command 1, 2, 3 dan 4 ketikan perintah seperti dibawah :
jangan lupa ganti tulisan commend jadi penjumlahn perkalian dan lain-lain.
jangan
Private Sub Command1_Click().
hasil = Val(Text1) + Val(Text2).
text3 = Hasil
nah gampangkan sekilas pembuatan kakulator sederhana.? he....h.e... klo blom ngerti berikan komentar atau kirim mail yah?....
Kamis, 12 November 2009
Contoh Penggunaan For, Next, Locate, Print pada turbo basic
cls
Color 14
locate 5,23 : print " Program By: Victor Indra Gunawan "
color 25
locate 19,27 : print " Tekan Enter Untuk Keluar "
Color 15
locate 8,33 : print "============="
locate 9,33 : print "= ="
locate 10,33: print "= ="
locate 11,33: print "= ="
locate 12,33: print "= ="
locate 13,33: print "= ="
locate 14,33: print "= ="
Locate 15,33: print "= ="
locate 16,33: print "============="
color 14
for a=1 to 5 step 2
locate 10,35+a
print a
delay 0.5
next a
for b=2 to 5 step 2
locate 11,35+b
delay 0.5
print b
next b
for c=1 to 5 step 2
locate 12,35+c
delay 0.5
print c
next c
for d=2 to 5 step 2
locate 13,35+d
delay 0.5
print d
next d
for e=1 to 5 step 2
locate 14,35+e
delay 0.5
print e
next e
end
Senin, 02 November 2009
Contoh Program Kakulator Turbo Basic
cls
color 6
locate 1,16: print "TUGAS ALOGARITMA DAN PEMROGRAMAN 1"
color 3
locate 2,20: print "========================="
locate 3,20: print " DIBUAT OLEH : VICTOR INDRA"
locate 4,20: print "========================="
color 9
locate 6,20: print "========================="
locate 8,21: print " Program Perhitungan "
locate 9,20: print "========================="
locate 10,20: print "[1] Penjumlahan "
locate 11,20:print "[2] Pengurangan "
locate 12,20: print "========================"
locate 14,20: print "Pilihan Anda : Enter"
locate 14,35: input ,pil$
if pil$="1" then
cls
locate 7,20: print "========================="
locate 8,20: print " ketik angka pertama ="
locate 9,20: print " ketik angka kedua ="
locate 10,20: print " hasil Penjumlahan ="
locate 11,20: print "========================="
locate 8,42: input ,a1
locate 9,42: input ,a2
locate 10,42: print ;a1+a2
locate 11,20: print "tekan enter untuk keluar program!"
end if
if pil$="2" then
cls
locate 7,20: print "========================="
locate 8,20: print "ketik angka pertama ="
locate 9,20: print "ketik angka kedua ="
locate 10,20: print "Hasil Pengurangan ="
locate 11,20: print "========================="
locate 8,42: input ,a1
locate 9,42: input ,a2
locate 10,42: print ,a1-a2
locate 11,20: print "tekan enter untuk keluar program!"
end if
Kamis, 15 Oktober 2009
Fungsi-Fungsi Karakter Print, Rem, Locate, Turbo Basic
Selasa, 13 Oktober 2009
TURBO BASIC
Turbo Basic adalah kompiler BASIC dan dialek yang awalnya dibuat oleh Robert 'Bob' Zale dan kemudian dibeli serta diperdagangkan oleh oleh Borland. Saat Borland memutuskan untuk menghentikan pengembangannya, Robert Zale membelinya kembali dari Borland, mengganti namanya menjadiPowerBASIC dan kemudian mendirikan perusahaan PowerBASIC Inc. untuk melanjutkan dukungan dan pengembangan perangkat lunak tersebut.[1]
Perangkat lunak ini umum digunakan pada era tahun 1987-88 dan menampilkan "layar hitam" sebagai ciri khas Borland yang serupa dengan Turbo Pascal 4.0, Turbo C 1.0/1.5, dan Turbo Prolog 1.1. Borland tidak mengadopsi ciri khas "layar biru" pada lingkungan pengembangan terintegrasi hingga periode 1989 saat Turbo C 2.0, Turbo C++ 1.1, dan lain-lain ditembangkan. Saat ini, Turbo Basic dan Turbo Prolog sudah tidak lagi diperdagangkan.
Tidak seperti implementasi BASIC yang ada umumnya saat ini, Turbo Basic merupakan kompiler yang benar-benar menghasilkan kode biner yang langsung dapat dijalankan pada sistem operasi MS-DOS. Sementara produk lainnya merupakan sebuah interpreter, atau pcode (pseudo code) yang sangat bergantung pada sebuah pustaka runtime. Lingkungan pengembangan terintegrasi yang ada dapat menjalankan program BASIC untuk kebutuhan debugging, atau menghasilkan file EXE untuk MS-DOS yang benar-benar mandiri dan dapat dijalankan pada sistem lain meski tanpa melibatkan produk Turbo Basic atau keberadaan pustaka runtime.
[sunting]Contoh kode
Program berikut merupakan contoh dari dialek BASIC yang mirip ALGOL yang didukung oleh Turbo Basic. Tidak seperti BASIC tradisional yang menggunakan nomor bari dan memiliki keterbatasan dalam hal struktur kontrol, serta tidak mendukung subrutin dengan dialek seperti ALGOL:
INPUT "Siapa nama anda:", A$ PRINT "Halo "; A$ DO S$ = "" INPUT "Berapa banyak bintang yang akan ditampilkan"; S FOR I = 1 TO S S$ = S$ + "*" NEXT I PRINT S$ DO INPUT "Anda ingin menampilan lebih banyak tanda bintang"; Q$ LOOP WHILE LEN(Q$) = 0 Q$ = LEFT$ (Q$, 1) LOOP WHILE (Q$ = "Y") OR (Q$ = "y") PRINT "Sampai jumpa "; A$
Seperti halnya produk Borland lainnya pada masa tersebut, kode di atas bisa secara langsung dieksekusi melalui lingkungan pengembangan terintegrasi yang terpaket bersama Turbo Basic.
Senin, 12 Oktober 2009
Trik & Tip pencaharian google dengan cepat.
Trick Google = Untuk Mendapatkan File Jenis Apapun Secara Gratis
Pencaharian melalui web www.Google.com merupakan suatu hal yang dapat membantu anda dalam kebutuhan pencaharian sesuatu . Disini dapat di percepat untuk mini hack mengenai file-file yang tersembunyi. contohnya adalah file video, music, ebook, film, dokumen, arsip zip dan masih banyak lainnya. INgat..ingat,,,hanya trik dasar saja ya ! Kalo mau yang profesional bisa dikembangkan sendiri atau berguru pada ahlinya .
Berikut cara caranya :
Googling E-Book.
+(”index of”) +(”/ebooks”|”/book”) +(chm|pdf|zip|rar) +apache
Keterangan :
Adalah Query yang menghasilkan Index ebook di server yang berbasis
Apache
allinurl: +(rar|chm|zip|pdf|tgz|lit) judul buku
Keterangan :
Ganti “judul buku” dengan buku yang ingin dicari. Jika ingin mencari
“Wiro Sableng”, ganti “judul buku” dengan Wiro Sableng. Cara ini
digunakan jika benar-benar mengetahui judul buku yang dicari.
Googling Warez :
“parent directory ” Xvid -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” MP3 -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” applications -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” Gamez -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
“parent directory ” DVDRip -xxx -html -htm -php -shtml -opendivx -md5 -md5sums
Keterangan :
Ganti Kata yang tebal dengan query.
Contoh, jika ingin mencari Limewire maka ganti “applications” dengan
Limewire. jika ingin mencari lagu dari Deep Purple berjudul Child In
Time, ganti “MP3? dengan Child in Time atau jika ingin mencari
lagu-lagu
Deep Purple tinggal ganti “MP3? dengan Deep Purple.
Googling MP3 :
?intitle:index.of? mp3
Segitu aja dulu untuk informasinya yang lain bisa nyusul deh...he....he....he...?