Assalamu'alaikum.. disini saya ingin berbagi kodingan aplikasi warteg sederhana dengan menggunakan bahasa pemrograman QBasic. semoga bermanfaat :) Keep Learn, Keep Coding.. ! :D rem database data "Nasi Uduk",7000 data "Nasi Rawon",6000 data "Pecel Lele",6000 data "Sate",15000 data "Nasi Kunning",7000 data "Es Teh",2000 data "Jus Jeruk",5000 data "Kopi",3000 data "Wedang Jahe",6000 data "Es Kelapa Muda",15000 rem variable DIM namabarang$(20) DIM harga(20) rem baca database for a=1 to 10 read namabarang$(a),harga(a) next a cls x: cls color 3 print" Warteg Bengkel Perut " print print color 4 print " ...
Change the world by your own Code