PROGRAM DISKON PENJUALAN (VISUAL BASIC 6.0)

Berikut ini merupakan pemrograman visual basic tentang perhitungan diskon penjualan
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...?

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?....

Contoh Penggunaan For, Next, Locate, Print pada turbo basic

Berikut ini adalah contoh program turbo basic dengan penggunaan For, Next,delay.


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

Contoh Program Kakulator Turbo Basic

BERIKUT INI ADALAH 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

Fungsi-Fungsi Karakter Print, Rem, Locate, Turbo Basic

Fungsi fungsi karakter seperti Print, Rem, Locate, Colour pada turbo basic.

Dalam penggunaan karakter diatas hanya sekilas saya dijelaskan untuk mengetahui fungsi yang

digunakan untuk pemula yang ingin belajar menggunakan Turbo Basic.

Da....h gak usah panjang lebar cape....dehhh....? langsung aja yah ?....

Penggunaan :

Rem : Hanya menampilkan catatan penting dlm turbo basic tetapi tidak di tampilan pada Run.

Run : Menjalankan program dari hasil penulisan program, dengan menekan tombol (Alt-r).

Locate : Memeletakan posisi karakter sesuai keinginan programer.

Colour : Membuat warna pada tulisan.

Tanda petik (Kiri atas karakter) atas sama halnya dengan Rem juga membuat keterangan pada program tetapi tidak di tampilkan di Run.

Alt-e : Merupakan suatu tombol perintah mengedit kembali karakter.

Alt-enter : Menampilkan full screen pada Turbo Basic.

Sekilas info di berikan semoga bermanfaat untuk para pemula pengguna Turbo Basic.

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.

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...?