Aplikasi Komputer - Pemrograman JustBasic
Firman Surya (2020)
Contoh program sederhana (looping While ... Wend)
--------------------------------------------------------------------
jawab$ = "y"
while jawab$ = "y" or jawab$ = "Y"
cls
print "PROGRAM INPUT NAMA"
print "------------------"
input "Siapakah Nama Anda?: "; nama$
input "Dimanakah Anda Tinggal?: "; alamat$
print "Hello "; nama$; " Anda tinggal di "; alamat$
print
input "Apakah ingin mengulang? <Y/N>: "; jawab$
wend
cls
print "Program Selesai..."
end
--------------------------------------------------------------------
Aplikasi Komputer - Pemrograman JustBasic
Firman Surya (2020)
Contoh program menghitung gaji bersih (Looping While ... Wend)
------------------------------------------------------
jawab$ = "y"
while jawab$ = "y" or jawab$ = "Y"
cls
input "Gaji Pokok :"; gpokok
input "Tunjangan :"; tunjangan
input "Potongan :"; potongan
print "---------------------------------------"
print "Data yang anda input :"
print "---------------------------------------"
print using ("##############.##", gpokok)
print using ("##############.##", tunjangan)
print using ("##############.##", potongan)
gbersih = gpokok + tunjangan - potongan
print "Gaji Bersih Anda :" ; gbersih
print
input "Apakah ingin mengulang? <Y/T>: "; jawab$
wend
cls
print "Program Selesai..."
end
-------------------------------------------------------
Aplikasi Komputer - Pemrograman JustBasic
Firman Surya (2020)
Contoh program operasi matematika (Looping While ... Wend)
-----------------------------------------------------------------
jawab$ = "y"
while jawab$ = "y"
cls
print "Program Operasi Matematika"
print "--------------------------"
input "Masukkan Angka Pertama: "; angkapertama
input "Masukkan Angka Kedua : "; angkakedua
print "Hasil Penjumlahan : "; angkapertama + angkakedua
print "Hasil Perkalian : "; angkapertama * angkakedua
print "Hasil Pembagian : "; angkapertama / angkakedua
print "Hasil Pengurangan : "; angkapertama - angkakedua
print "Hasil Perpangkatan : "; angkapertama ^ angkakedua
print
input "Apakah ingin mengulang? <Y/T>: "; jawab$
wend
cls
print "Program Selesai..."
End
-------------------------------------------------------------------
Aplikasi Komputer - Pemrograman JustBasic
Firman Surya (2020)
Contoh program operasi statistik (Looping For ... Next)
-----------------------------------------------------------------
cls
print "PROGRAM MENGHITUNG RATA-RATA"
print "----------------------------"
print
input "Masukkan jumlah data anda : "; jdata
print "-------------------------------"
sumdata = 0
baris = 6
for ulang = 1 to jdata
print "Masukkan data ke "; ulang; " : ";
'123456789012345678901234567890
input angka
sumdata = sumdata + angka
locate 30, baris
print sumdata
baris = baris + 1
next ulang
print "-------------------------------"
print "Jumlah seluruh data: "; sumdata
print
print "Rata-rata hitung : "; sumdata / jdata
print
print "selesai..."
End
--------------------------------------------------------------------------