Quick Basic

Membuat Backgraound Lingkaran dengan Quick Basic

Ini merupakan hasil browsing lewat internet. dan saya menemukan cara untuk membuat background lingkaran dengan menggunakan QBasic. Sebuah aplikasi yang digunakan untuk membuat program oleh seorang Programmer. Dan berikut saya akan menggunaklan cara tersebut dan mengaplikasikannya di QBasic, berikut cara penulisannya.

screen 12

                   screen 12              

                   cls 
                   for i=1 to 50
                          x=int(rnd*640) 
                         y=int(rnd*480)
                          r=int(rnd*100) 
                         color1=int(rnd*16)
                          circle (x,y),r, color1 
                         paint(x,y),color1,color1
                   next i

Nah.. itulah yang harus kita tulis di Program Quick Basic. Selamat mencoba n semoga berhasil!!!!

Dan satu lagi,,, ini adalah hasil dari kode-kode tersebut. Kurang lebih seperti ini!! Check Q Doth!

Makluim QBasicnya ndak mau di Print Screen Hehehe!