QBasic (contoh-contoh program sederhana, perulangan, menu, dll)
Quote:
Originally Posted by ochezz
Apa itu QBasic?... pasti agan-agan pada bingungkan? nah,disini ane akan menjelaskan tentang QBasic. Pada dasarnya Q-Basic, Q=Quick (cepat), dan Basicnya adalah Beginners All-purpose Symbolic Instruction Code (sebuah kelompok bahasa pemrograman tingkat tinggi). Itu baru pengertian dasarnya. lebih jelasnya Qbasicadalah salah satu bahasa pemrograman yang menggunakan bahasa basic, Qbasic sendiri singkatan dari Quick Basic yang merupakan salah satu produk Microsoft. Qbasic cukup baik untuk belajar dasar pemrograman. Bahasa Qbasic ini dapat dipelajari dari internet dan program Tipe data pada Qbasic : Tipe data numerik integer Tipe Ukuran memory jangkauan nilai Byte 1 byte 0 .. 255 Shortint 1 byte -128 .. 127 Integer 2 byte -32768 .. 32767 Word 2 byte 0 .. 65535 Longint 4 byte -2147483648 Tipe data numerik real Tipe konstanta numerik real berkisar dari 1E-38 sampai dengan 1E+38, nilai numerik real menempati memory sebesar 6 byte. Tipe data karakter Nilai karakter berupa sebuah karakter yang ditulis diantara tanda petik tunggal. Tipe data string Berupa kumpulan beberapa karakter yang terletak diantara tanda petik tunggal. Tipe data boolean. Tipe data ini mempunyai dua nilai yaitu true & false. STATEMEN KONDISI - Goto (kondisi tak bersyarat),seperti telah dijelaskan diatas - if then + goto (kondisi bersyarat, hanya satu syarat) - if then + else (kondisi bersyarat dengan 2 atau lebih syarat - select case : menyeleksi atau mengeksekusi kondisi yang ditest STATEMEN PERULANGAN
- For .. next Mengulangi suatu perintah / instruksi dalam jumlah yang telah ditentukan, serta besar kenaikannya. - Do while loop Mengulangi perintah selama suatu kondisi memenuhi syarat (true) dan berhenti bila tidak lagi memenuh syarat (false) - Do until loop mengulangi instruksi selama kondisi tidak memenuhi syarat (false) dan berhenti bila kondisi memenuhi syarat (true) - While wend sama dengan do while loop tetapi bentuk penulisannya hanya satu dan tidak memiliki perintah exit untuk menghentikan proses yang berulang sebelum berakhir
Quote:
Originally Posted by ochezz
Nih buat agan-agan n sista-sista yang mau download QBasic buka aja linknnya : [Link] Hapus tanda * nya
Quote:
Originally Posted by ochezz
CONTOH PROGRAM SEDERHANANYA
Quote:
Originally Posted by ochezz PROGRAM SEDERHANA:
OUTPUTNYA:
codingnya: CLS I AS INTEGER PRINT "Rizki", "1dc01", "Depok" GOSUB 10 PRINT "Fauzi", "1dc01", "Bogor" GOSUB 10 END 10 PRINT STRING$<35, "--"> RETURN
Quote:
Originally Posted by ochezz Contoh Program Menu BIODATA, LUAS SEGITIGA, DERET, EXIT PROGRAM:
OUTPUNYA: menu:biodata, luas segitiga, deret, exit
pil [Link]
pil [Link] Segitiga
pil [Link]
pil [Link]
pada pilihan exit maka program akan langsung keluar "Press any key to continue" Codingnya: CLS DIM a AS INTEGER LOCATE 5, 23 PRINT "Menu" LOCATE 6, 20 PRINT "[Link]" LOCATE 7, 20
PRINT "[Link] Segitiga" LOCATE 8,20 PRINT "[Link]" LOCATE 9,20 PRINT "[Link]" LOCATE 10, 20 INPUT "Mau Pilih Yang Mana?", a SELECT CASE a CASE 1 DIM Nama AS STRING, Kelas AS STRING, NPM AS INTEGER INPUT "Nama =", Nama INPUT "Kelas =", Kelas INPUT "NPM =", NPM PRINT COLOR 1 PRINT "Nama ="; Nama PRINT "Kelas ="; Kelas PRINT "NPM ="; NPM CASE 2 DIM alas, tinggi AS SINGLE INPUT "Alas =", a INPUT "Tinggi =", t LET L = a * t / 2 COLOR 9 PRINT "Luas Segitiga = a * t / 2 =";L CASE 3 DIM u AS INTEGER PRINT INPUT "Masukan Nilai u=", u PRINT FOR x = 1 TO u FOR y = 1 TO x COLOR 5 PRINT y: NEXT y PRINT NEXT x CASE 4 GOTO 500 END SELECT 500 END
Quote:
Originally Posted by ochezz QBasic, contoh program menu Nama, Kelas, NPM, dan CETAK PROGRAM:
OUTPUTNYA: pil 1
pil 2
pil 3
pil 4
sedangkan jika kita pil 5 maka program akan langsung keluar "Press any key to continue" codingnya: CLS DIM P AS INTEGER 10 PRINT "Menu" PRINT "[Link] Nama" PRINT "[Link] NPM" PRINT "[Link] Kelas" PRINT "[Link] Semua" PRINT "[Link]" INPUT "Pilihan Anda?", P SELECT CASE P CASE 1 CSL DIM NM AS STRING INPUT "Nama :", NM GOSUB 10 CASE 2 CLS DIM NPM AS LONG INPUT "NPM :", NPM GOSUB 10 CASE 3 CLS DIM KLS AS STRING INPUT "Kelas :", KLS GOSUB 10 CASE 4 CLS PRINT "Nama :"; NM PRINT "NPM :"; NPM
PRINT "Kelas :"; KLS GOSUB 10 CASE 5 CLS PRINT "Exit" END SELECT END
Quote:
Originally Posted by ochezz PROGRAM SEGITIGA TERBALIK PROGRAM
OUTPUTNYA:
Keterangan : Saat menjalankan program, maka kita akan diminta memasukan angka, lalu akan muncul symbol *(karena di program yang di print adalah *) sebanyak angka yang kita masukan. CODINGNYA: CLS INPUT Masukkan Nilai: , A FOR B = A TO 1 STEP -1 FOR C = B TO 1 STEP -1 PRINT *; NEXT PRINT NEXT B END