Anasayfa > Diğerleri > QBasic ile Türk bayrağı yapmak

QBasic ile Türk bayrağı yapmak

 QBasic programı ile Türk Bayrağı yapımınında kullanılan kod örneklerini vericem. Bu kodları Not defterine kopyalayp uzantısını ".bat " olarak kaydederek QBasic programının içine atıyoruz ve F5 e basarak Türk Bayrağını karşımızda görüyoruz

Kodlar :

CLS
SCREEN 1: COLOR 4, 1
pi = 3.141592
CIRCLE (106, 100), 53, 3, pi / 4.45, 7 * pi / 3.85
CIRCLE (119, 100), 42, 3, pi / 4, 7 * pi / 4
PAINT (60, 100), 3
LINE (154, 100)-(168, 95): LINE (154, 100)-(168, 105)
LINE (168, 95)-(168, 85): LINE (168, 105)-(168, 114)
LINE (189, 89)-(180, 100): LINE (189, 111)-(180, 100)
LINE (189, 89)-(175, 93): LINE (189, 111)-(175, 107)
LINE (168, 114)-(175, 106): LINE (168, 85)-(175, 93)
PAINT (160, 100), 3
DO WHILE INKEY$ = ""
LOOP
CLS
SCREEN 13
LOCATE 5, 5
PRINT "Mirac Barlak"
LOCATE 6, 5
PRINT mirach_cadi@hotmail.com
DO WHILE INKEY$ = ""
LOOP
END

Kategoriler:Diğerleri Etiketler:, , , , , ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: