Pemilihan Turbobasic

Program pemilihan pada Turbobasic

Hai teman-teman kembali lagi di tulisan saya selanjutnya di blog ini, kali ini saya akan membagikan sedikit informasi tentang struktur pemilihan di program turbobasic dan akan memeberikan contoh programnya.Sebelumnya saya akan menjelaskan apa itu struktur dasar pemilihan? struktur pemilihan pada program turbobasic yaitu suatu kondisi terdapat ada dua buah kemungkinan yang akan terjadi pada program dimana perintah untuk melakukan proses selanjutnya terdapat kemungkinan benar atau salah (true/false) ini bisa digambarkan dengan menggunakan kata "jika".
contoh kasus pemilihan adalah dalam penentuan bialangan ganjil atau genap seperti berikut ini:

Masukkan bilangan bulat yang akan dicoba
Bagilah bilangan tersebut dengan angka 2
Hitung hasil sisa, jika nilai sisa sama dengan 0
Tampilkan "bilangan genap" pada layar
Jika nilai sisa tidak sama dengan 0
Tampilkan ke layar "bilangan ganjil"
Selesai

Apabila di tampilkan dengan sebuah flowchat maka akan menjadi seperti berikut:

Pada gambar diatas terdapat proses perintah yang bercabang, dan dua buah kemungkinan yaitu benar dan salah. Apabila kondisi memenuhi syarat prosesnya (benar) maka akan mencetak "bilangan genap" dan jika salah maka akan mencetak "bilangan ganjil", biasanya program pemilihan ini menggunakan fungsi if-then sebagai instruksinya.
Cukup sampai disini penjelasannya, selanjutnya saya akan memberikan contoh progam dalam turbobasic perulangan dengan if then else. Berikut contohnya:

Program menentukan bilangan positif atau negatif

cls
input "masukkan suatu bilangan =";bil
if bil = 0 then print "bilangan nol"
if bil > 0 then print "bilangan positif"
if bil < 0 then print "bilangan negatif"
end

Program dimensi hari ke waktu

cls
sub jam
input "masukkan jumlah hari =";hari
jam!=hari*24
Print "jumlah jam =";jam!
end sub
sub menit
input "masukkan jumlah hari="hari
menit!=hari*24*60
print "jumlah menit=";menit!
end sub
sub detik
input "masukkan jumlah hari=";hari
detik!=haro*24*60*60
print "jumlah detik=";detik!
end sub
cls
print "---->Menu pilihan<----"
print "1. Dalam jam"
print "2.Dalam menit"
print "3.Dalam detik"
input Masukkan piliahan anda=";pil$
if pil$="1" then
cls
call jam
elseif pil$="2" then
cls
call menit
elseif pil$="3" then
cls
call detik
end
end if
Berikut tampilan pada turbo basic :

Lanjutannya yah :D

Berikut hasil dari programnya :
Masukkan pilihan anda, kali ini saya memilih mengubah hari ke bentuk jam maka saya ketikkan angka "1" dan berikut hasilnya :

Demikian materi dan contoh program yang bisa saya bagikan di blog ini, semoga teman-teman paham tentang materi ini sehingga dapat membuat program yang lain sesuai kreatifitas masing-masing, apabila teman-teman ingin berdiskusi dengan saya silahkan tinggalkan komentar pada kolom komentar ya.
Sekian terimaksih
888730309180046