Belajar QBasic + Contoh Konversi Temperatur

Kali Ini kita akan membahas tentang Qbasic yang merupakan bahasa pemograman sederhana namun beberapa Programmer Pro Juga masih sering menggunakannya.Belajar Qbasic kali ini saya lengkapi dengan contoh yang saya buat sendiri waktu semester 2 (Tugas Kuliah).

Sebelum mulai Siapkan Qbasicnya dulu yang belum punya Download Qbasic

Input dibagi jadi tiga bagian:

Input Numerik (berupa angka/integer), Contoh : A = 5
Input Character(berupa huruf-huruf/string) Contoh : A$ = “blah blah”
Input dari User (menggunakan statement input) contoh: INPUT “nama”, nama${nantinya akan meminta nama,kemudian “nama$” adalah variabel untuk menyimpan masukan dari user, yang nantinya akan dipanggil dengan nama variabel yang sama. Bisa juga langsung memasukkan variabel seperti Input numerik dan karakter}

Proses dibagi jadi dua bagian:

Formula/rumus, Contoh : Z=X*Y
Kondisi, Contoh : if X > 9 or X = 9 then Print “A”else if X > 7 or X = 7 then Print “B”else Print “C”endif

Output dibagi jadi tiga bagian:

Numerik, Contoh : Print 13, outputnya 13
Karakter, Contoh : Print “namaku banu”, outputnya namaku banu
Proses, Contoh: Print 2*3 ,outputnya 6

· Di bawah ini ada 2 contoh program untuk mempermudah penjelasan di atas:

· input a=3 {input mumerik}

· input b=4 {input mumerik}

· c=a+b {proses perumusan}

· print c{output numerik, karena “c” mengandung suatu nilai}

· end

· input “Masukkan Panjang:”,p {contoh input karakter}

· input “Masukkan Lebar:”,l {contoh input karakter}

· L=p*l

· K=2*(p*l)

· Print “Luasnya adalah”{contoh output karakter};L;”dan Kelilingnya adalah”{contoh output karakter}; K {titik koma untuk memisahkan }

· end

Pada bahasa BASIC, simbol matematikanya sama dengan yang digunakan pada flowchart:

· Perpangkatan (^)

· Perkalian (*)

· Pembagian (/)

· Penjumlahan (+)

· Pengurangan (-)

30 PRINT " TEKAN 3 UNTUK KONVERSI CELSIUS : RHEAMUR "

COLOR 6

40 PRINT " TEKAN 4 UNTUK KONVERSI KELVIN : CELSIUS "

COLOR 6

50 PRINT " TEKAN 5 UNTUK KONVERSI KELVIN : FAHRENHEIT "

COLOR 6

60 PRINT " TEKAN 6 UNTUK KONVERSI KELVIN : RHEAMUR "

COLOR 2

70 PRINT " TEKAN 7 UNTUK KONVERSI FAHRENHEIT : CELSIUS "

COLOR 2

80 PRINT " TEKAN 8 UNTUK KONVERSI FAHRENHEIT : KELVIN "

COLOR 2

90 PRINT " TEKAN 9 UNTUK KONVERSI FAHRENHEIT : RHEAMUR "

COLOR 9

100 PRINT " TEKAN 10 UNTUK KONVERSI RHEAMUR : CELSIUS "

COLOR 9

110 PRINT " TEKAN 11 UNTUK KONVERSI RHEAMUR : FAHRENHEIT "

COLOR 9

120 PRINT " TEKAN 12 UNTUK KONVERSI RHEAMUR : KELVIN "

COLOR 3

150 PRINT TAB(30); " PILIHAN 1-12 : "

160 INPUT PILIHAN

170 PRINT ""

180 PRINT ""

190 IF PILIHAN = 1 THEN 310

200 IF PILIHAN = 2 THEN 390

210 IF PILIHAN = 3 THEN 480

220 IF PILIHAN = 4 THEN 570

230 IF PILIHAN = 5 THEN 660

240 IF PILIHAN = 6 THEN 750

250 IF PILIHAN = 7 THEN 840

260 IF PILIHAN = 8 THEN 930

270 IF PILIHAN = 9 THEN 1020

280 IF PILIHAN = 10 THEN 1110

290 IF PILIHAN = 11 THEN 1200

300 IF PILIHAN = 12 THEN 1290

310 COLOR 4

320 PRINT " 1 KONVERSI CELSIUS KE KELVIN "

330 INPUT CELSIUS

340 KONVERSI = (CELSIUS + 273.15)

350 PRINT " KELVIN = "; KONVERSI

360 PRINT " TEKAN 1 UNTUK KEMBALI "

370 INPUT KEMBALI

380 IF KEMBALI = 1 THEN 1

381 PRINT TAB(11); " TERIMA KASIH TELAH MENGGUNAKAN PROGRAM

KONVERSI TEMPERATUR "

385 END

390 COLOR 4

400 PRINT " 2 KONVERSI CELSIUS KE FAHRENHEIT "

410 INPUT CELSIUS

420 KONVERSI = (CELSIUS * 1.8) + 32

430 PRINT " FAHRENHEIT = "; KONVERSI

440 PRINT " TEKAN 1 UNTUK KEMBALI "

450 INPUT KEMBALI

460 IF KEMBALI = 1 THEN 1

461 PRINT TAB(11); " TERIMA KASIH TELAH MENGGUNAKAN PROGRAM KONVERSI

TEMPERATUR "

470 END

Untuk bahan belajar anda coba lengkapi code di atas dengan rumus berikut :

TABEL RUMUS

Dari kelvin
Skala		Formula
Celsius		°C = K − 273,15
Fahrenheit		°F = K × 1,8 − 459,67
Réaumur		°Ré = (K − 273,15) × 0,8
Dari Fahrenheit
Skala		Formula
kelvin		K = (°F + 459,67) / 1,8
Celsius		°C = (°F − 32) / 1,8
Réaumur		°Ré = (°F − 32) / 2,25
Dari Celsius
Skala	Formula
kelvin	K = °C + 273,15
Fahrenheit	°F = °C × 1,8 + 32
Réaumur	°Ré = °C × 0,8
Dari Réaumur
Skala	Formula
kelvin	K = °Ré / 0,8 + 273,15
Celsius	°C = °Ré / 0,8
Fahrenheit	°F = °Ré × 2,25 + 32