توجه ! این یک نسخه آرشیو شده می باشد و در این حالت شما عکسی را مشاهده نمی کنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : مجمو عه سورس هاي qbasic
منبع:
http://feroozyan.blogfa.com/post-3.aspx (http://woozbiz.com/nb/p/index.php?q=aHR0cDovL2Zlcm9venlhbi5ibG9nZmEuY29tL3 Bvc3QtMy5hc3B4)
بازی فکر بکر:
کد:
CLS
SCREEN 12
RANDOMIZE TIMER
LINE (0, 0)-(900, 900), 12, BF
COLOR 10
LOCATE 1, 63
PRINT "No. 1 Blue"
LOCATE 2, 63
PRINT "No. 2 Green"
LOCATE 3, 63
PRINT "No. 3 sky blue"
LOCATE 4, 63
PRINT "No. 4 red"
a% = RND * 3 + 1
b% = RND * 3 + 1
c% = RND * 3 + 1
d% = RND * 3 + 1
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
LINE (0, 0)-(200, 50), 9, BF
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
LINE (290, 290)-(650, 650), 12, BF
CIRCLE (40, 420), 18, e%
CIRCLE (90, 420), 18, f%
CIRCLE (140, 420), 18, g%
CIRCLE (190, 420), 18, h%
PAINT (30, 420), e%
PAINT (90, 420), f%
PAINT (140, 420), g%
PAINT (190, 420), h%
LOCATE 27, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 380), 18, e%
CIRCLE (90, 380), 18, f%
CIRCLE (140, 380), 18, g%
CIRCLE (190, 380), 18, h%
PAINT (40, 380), e%
PAINT (90, 390), f%
PAINT (140, 390), g%
PAINT (190, 390), h%
LINE (290, 290)-(650, 650), 12, BF
COLOR 10
LOCATE 24, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 340), 18, e%
CIRCLE (90, 340), 18, f%
CIRCLE (140, 340), 18, g%
CIRCLE (190, 340), 18, h%
PAINT (40, 340), e%
PAINT (90, 340), f%
PAINT (140, 340), g%
PAINT (190, 340), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 22, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 300), 18, e%
CIRCLE (90, 300), 18, f%
CIRCLE (140, 300), 18, g%
CIRCLE (190, 300), 18, h%
PAINT (40, 300), e%
PAINT (90, 300), f%
PAINT (140, 300), g%
PAINT (190, 300), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 19, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 260), 18, e%
CIRCLE (90, 260), 18, f%
CIRCLE (140, 260), 18, g%
CIRCLE (190, 260), 18, h%
PAINT (40, 260), e%
PAINT (90, 260), f%
PAINT (140, 260), g%
PAINT (190, 260), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 17, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "adade range khod ra entehkab namaid?", h%
CIRCLE (40, 220), 18, e%
CIRCLE (90, 220), 18, f%
CIRCLE (140, 220), 18, g%
CIRCLE (190, 220), 18, h%
PAINT (40, 220), e%
PAINT (90, 220), f%
PAINT (140, 220), g%
PAINT (190, 220), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 14, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 180), 18, e%
CIRCLE (90, 180), 18, f%
CIRCLE (140, 180), 18, g%
CIRCLE (190, 180), 18, h%
PAINT (40, 180), e%
PAINT (90, 180), f%
PAINT (140, 180), g%
PAINT (190, 180), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 12, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 140), 18, e%
CIRCLE (90, 140), 18, f%
CIRCLE (140, 140), 18, g%
CIRCLE (190, 140), 18, h%
PAINT (40, 140), e%
PAINT (90, 140), f%
PAINT (140, 140), g%
PAINT (190, 140), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 9, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 100), 18, e%
CIRCLE (90, 100), 18, f%
CIRCLE (140, 100), 18, g%
CIRCLE (190, 100), 18, h%
PAINT (40, 100), e%
PAINT (90, 100), f%
PAINT (140, 100), g%
PAINT (190, 100), h%
LOCATE 7, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
CLS
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
COLOR 4
LOCATE 17, 33
PRINT "YOU LOSE"
END
مسئله پيدا كردن ريشه هاي معادله درجه دوم
کد:
input a,b,c
let delta=(b*b)-(4*a*c)
if delta<0 then
print "there is no root"
else if delta=0 then
r1= -b/(2*a)
print "the root is",r1
else if delta>0 then
r1=(-b+sqr(delta))/(2*a)
r2=(-b-sqr(delta))/(2*a)
print "the roots are",r1,r2
end if
الگوریتم جدول ضرب
کد:
cls
i=1 :j=1
do while i<=10
do while j<=10
print i*j;
i=i+1
j=j+1
loop
print
loop
هشت وزیر:
http://www.xs4all.nl/~hwiegman/other/8queens.zip (http://woozbiz.com/nb/p/index.php?q=aHR0cDovL3d3dy54czRhbGwubmwvfmh3aWVnbW FuL290aGVyLzhxdWVlbnMuemlw)
بقیه سورسها اینجا:
http://www.xs4all.nl/~hwiegman/qbasic.html (http://woozbiz.com/nb/p/index.php?q=aHR0cDovL3d3dy54czRhbGwubmwvfmh3aWVnbW FuL3FiYXNpYy5odG1s)
کد:
CHESS
8QUEENS.ZIP (18 Kb) - 8 Queens Problem Solver
CHESS1.ZIP (13 Kb) - Chess by Joshua Dickerson
CHESS2.ZIP (3 Kb) - Another Chess program
CHESS3.ZIP (13 Kb) - The WarLord, a one ply chess program
KNIGHT.ZIP (2 Kb) - Solves the Knight problem
MINIMAX.ZIP (23 Kb) - A Didactics Chess Program
MINIMAX-GERMAN.ZIP (22 Kb) - above in German
NPC201EN.ZIP (10 Kb) - New Proto Chess System
QUEENS.ZIP (3 Kb) - Finds all solutions to the N queens problem by G.H. George
CHECKERS
CHECKERS.ZIP (55 Kb) - A Checkers Game That Learns From Its Mistakes
CHECKERS2.ZIP (3 Kb) - Another Checkers program
CHECKERS3.ZIP (2 Kb) - Checkers program by James Prevatt
CHECKERS5.ZIP (5 Kb) - Checkers program
TFCHECKERS.ZIP (160 Kb) - TF Checkers
PC Solutions - Checker Kit, a very simple demonstration checkers program
Grant Castillou - Checkers program
LOTTERY
11-1-4.ZIP (1 Kb) - Display a lottery number
LOTTO.ZIP (1 Kb) - 6 of 49
LOTTERY.ZIP (2 Kb) - Lottery Simulation Program - By Damian McLean
LOTTO1.ZIP (1 Kb) - Another Lotto program
LOTTO-01.ZIP (1 Kb) - 6 of 45
TOWERS OF HANOI
HANOI.ZIP (30 Kb) - Towers of Hanoi
HANOI2.ZIP (2 Kb) - another Towers of Hanoi
HANOI3.ZIP (2 Kb) - Towers of Hanoi by Tomohiko Sato
HANOI_NR.ZIP (3 Kb) - Timothy Rolfe's Implementation
Hanoimania! - Over a hundred implementations of the Towers of Hanoi problem
اصول رمز نگاری (http://woozbiz.com/nb/p/index.php?q=aHR0cDovL2Zlcm9venlhbi5ibG9nZmEuY29tL3 Bvc3QtOS5hc3B4)
CLS
DIM m(10000) AS STRING
DO
m(n&) = INKEY$
IF m(n&) = CHR$(13) THEN
EXIT DO
ELSEIF m(n&) = CHR$(27) THEN
END
ELSEIF m(n&) = CHR$(8) THEN
n& = n& - 1
ELSEIF m(n&) <> "" THEN
PRINT m(n&);
n& = n& + 1
x& = n&
END IF
LOOP
n& = 1
DO
IF m(n&) = " " THEN
n& = n& + 1
ELSEIF m(n&) = "A" OR m(n&) = "a" THEN
m(n&) = "z"
n& = n& + 1
ELSEIF m(n&) = "B" OR m(n&) = "b" THEN
m(n&) = "y"
n& = n& + 1
ELSEIF m(n&) = "C" OR m(n&) = "c" THEN
m(n&) = "x"
n& = n& + 1
ELSEIF m(n&) = "D" OR m(n&) = "d" THEN
m(n&) = "w"
n& = n& + 1
ELSEIF m(n&) = "E" OR m(n&) = "e" THEN
m(n&) = "v"
n& = n& + 1
ELSEIF m(n&) = "F" OR m(n&) = "f" THEN
m(n&) = "u"
n& = n& + 1
ELSEIF m(n&) = "G" OR m(n&) = "g" THEN
m(n&) = "t"
n& = n& + 1
ELSEIF m(n&) = "H" OR m(n&) = "h" THEN
m(n&) = "s"
n& = n& + 1
ELSEIF m(n&) = "I" OR m(n&) = "i" THEN
m(n&) = "r"
n& = n& + 1
ELSEIF m(n&) = "J" OR m(n&) = "j" THEN
m(n&) = "q"
n& = n& + 1
ELSEIF m(n&) = "K" OR m(n&) = "k" THEN
m(n&) = "p"
n& = n& + 1
ELSEIF m(n&) = "L" OR m(n&) = "l" THEN
m(n&) = "o"
n& = n& + 1
ELSEIF m(n&) = "M" OR m(n&) = "m" THEN
m(n&) = "n"
n& = n& + 1
ELSEIF m(n&) = "N" OR m(n&) = "n" THEN
m(n&) = "m"
n& = n& + 1
ELSEIF m(n&) = "O" OR m(n&) = "o" THEN
m(n&) = "l"
n& = n& + 1
ELSEIF m(n&) = "P" OR m(n&) = "p" THEN
m(n&) = "k"
n& = n& + 1
ELSEIF m(n&) = "Q" OR m(n&) = "q" THEN
m(n&) = "j"
n& = n& + 1
ELSEIF m(n&) = "R" OR m(n&) = "r" THEN
m(n&) = "i"
n& = n& + 1
ELSEIF m(n&) = "S" OR m(n&) = "s" THEN
m(n&) = "h"
n& = n& + 1
ELSEIF m(n&) = "T" OR m(n&) = "t" THEN
m(n&) = "g"
n& = n& + 1
ELSEIF m(n&) = "U" OR m(n&) = "u" THEN
m(n&) = "f"
n& = n& + 1
ELSEIF m(n&) = "V" OR m(n&) = "v" THEN
m(n&) = "e"
n& = n& + 1
ELSEIF m(n&) = "W" OR m(n&) = "w" THEN
m(n&) = "d"
n& = n& + 1
ELSEIF m(n&) = "X" OR m(n&) = "x" THEN
m(n&) = "c"
n& = n& + 1
ELSEIF m(n&) = "Y" OR m(n&) = "y" THEN
m(n&) = "b"
n& = n& + 1
ELSEIF m(n&) = "Z" OR m(n&) = "z" THEN
m(n&) = "a"
n& = n& + 1
END IF
IF n& = x& THEN EXIT DO
LOOP
n& = 0
PRINT
PRINT "*";
DO
n& = n& + 1
PRINT m(n&);
IF n& = x& THEN EXIT DO
LOOP
بازی برای محاسبات ریاضی (http://woozbiz.com/nb/p/index.php?q=aHR0cDovL2Zlcm9venlhbi5ibG9nZmEuY29tL3 Bvc3QtNy5hc3B4)
CLS
SCREEN 12
RANDOMIZE TIMER
PAINT (5, 6), 6
w% = 46
LOCATE 15, 36
COLOR 14
PRINT "V a s n e"
COLOR 15
qw = TIMER
DO
IF qw + 3 < TIMER THEN EXIT DO
LOOP
CLS
PAINT (10, 80), 6
DO
p% = RND * 39 + 10
q% = RND * 39 + 10
r% = RND * 39 + 10
s% = RND * 39 + 10
t% = RND * 39 + 10
IF p% <> q% AND p% <> r% AND p% <> s% AND p% <> t% AND q% <> r% AND q% <> s% AND q% <> t% AND r% <> s% AND r% <> t% AND s% <> t% THEN EXIT DO
LOOP
DO
v1% = RND * 4 + 1
v2% = RND * 4 + 1
v3% = RND * 4 + 1
IF v1% <> v2% AND v1% <> v3% AND v2% <> v3% THEN EXIT DO
LOOP
LOCATE 22, 16
PRINT p%
LOCATE 22, 28
PRINT q%
LOCATE 22, 39
PRINT r%
LOCATE 22, 51
PRINT s%
LOCATE 22, 62
PRINT t%
LINE (230, 223)-(420, 230), 7, BF
LINE (420, 260)-(430, 190), v1%, BF
LINE (230, 260)-(220, 190), v1%, BF
LINE (219, 250)-(210, 200), v2%, BF
LINE (431, 250)-(440, 200), v2%, BF
LINE (209, 240)-(200, 210), v3%, BF
LINE (441, 240)-(450, 210), v3%, BF
CIRCLE (w% * 3, 410), 45, 1
CIRCLE (w% * 5, 410), 45, 2
CIRCLE (w% * 7, 410), 45, 3
CIRCLE (w% * 9, 410), 45, 4
CIRCLE (w% * 11, 410), 45, 5
FOR f1 = 3 TO 11 STEP 2
x = x + 1
PAINT (w% * f1, 410), x
NEXT
DO
qw = TIMER
DO
IF qw + 1 < TIMER THEN EXIT DO
LOOP
u = u + 1
LOCATE 1, 1
PRINT "Timer:"; 11 - u
IF u = 11 THEN EXIT DO
LOOP
CLS
IF v1% = 1 THEN
m = p%
ELSEIF v1% = 2 THEN
m = q%
ELSEIF v1% = 3 THEN
m = r%
ELSEIF v1% = 4 THEN
m = s%
ELSEIF v1% = 5 THEN
m = t%
END IF
IF v2% = 1 THEN
ac = p%
ELSEIF v2% = 2 THEN
ac = q%
ELSEIF v2% = 3 THEN
ac = r%
ELSEIF v2% = 4 THEN
ac = s%
ELSEIF v2% = 5 THEN
ac = t%
END IF
IF v3% = 1 THEN
ab = p%
ELSEIF v3% = 2 THEN
ab = q%
ELSEIF v3% = 3 THEN
ab = r%
ELSEIF v3% = 4 THEN
ab = s%
ELSEIF v3% = 5 THEN
ab = t%
END IF
l = 2 * (ab + ac + m)
LOCATE 13, 37
INPUT "Your number:"; va%
IF va% = l THEN
s = s + 25
qr = 25
ELSEIF va% = l - 1 OR va% = l + 1 THEN
s = s + 20
qr = 20
ELSEIF va% = l - 2 OR va% = l + 2 THEN
s = s + 15
qr = 15
ELSEIF va% = l - 3 OR va% = l + 3 THEN
s = s + 10
qr = 10
ELSEIF va% = l - 4 OR va% = l + 4 THEN
s = s + 5
qr = 5
ELSE
va% = 0
s = s + 0
qr = 0
END IF
CLS
LOCATE 15, 36
PRINT "your score:"; qr
u = 0
x = 0
qw = TIMER
DO
IF qw + 6 < TIMER THEN EXIT DO
LOOP
بازی دوز
DECLARE FUNCTION computer$ (kleur1$, kleur2$, kleur3$, kleur4$, kleur5$, kleur6$, kleur7$, kleur8$, kleur9$)
RANDOMIZE (TIMER)
10 CLS : SCREEN 12: WINDOW (-30, -30)-(30, 30): LOCATE 30, 36: COLOR 5: PRINT "By Feroozyan": c = 14: s = beurt: kleur1$ = "": kleur2$ = "": kleur3$ = "": kleur4$ = "": kleur5$ = "": kleur6$ = "": kleur7$ = "": kleur8$ = "": kleur9$ = "": x = 0: y _
= 0: x1 = 0: y1 = 0: pe$ = "": pt$ = "": p3$ = "": p4$ = "": p5$ = "": p6$ = "": p7$ = "": p8$ = "": p9$ = ""
12 beurt = beurt + 1: IF beurt = 2 THEN beurt = 0
15 IF p1$ <> "" THEN COLOR 15: LOCATE 2, 1: PRINT p1$; " : "; score1: LOCATE 2, 65: PRINT p2$; " : "; score2
20 COLOR 15: LOCATE 1, 36: PRINT "Game Doze": COLOR c
30 LINE (-15, -15)-(15, 15), , B: LINE (-17, -17)-(17, 17), , B: PAINT (16, 16), c, c
40 LINE (-4, -15)-(-4, 15): LINE (-6, -15)-(-6, 15): PAINT (-5, 0), c, c
50 LINE (4, -15)-(4, 15): LINE (6, -15)-(6, 15): PAINT (5, 0), c, c
60 LINE (-15, -4)-(15, -4): LINE (-15, -6)-(15, -6): PAINT (0, -5), c, c: PAINT (-10, -5), c, c: PAINT (10, -5), c, c
70 LINE (-15, 4)-(15, 4): LINE (-15, 6)-(15, 6): PAINT (0, 5), c, c: PAINT (-10, 5), c, c: PAINT (10, 5), c, c
80 LOCATE 10, 27: PRINT "7": LOCATE 10, 40: PRINT "8": LOCATE 10, 54: PRINT "9"
90 LOCATE 16, 27: PRINT "4": LOCATE 16, 40: PRINT "5": LOCATE 16, 54: PRINT "6"
100 LOCATE 21, 27: PRINT "1": LOCATE 21, 40: PRINT "2": LOCATE 21, 54: PRINT "3"
103 IF p1$ <> "" THEN LOCATE 25, 31: PRINT "same names?": DO: a$ = INKEY$: LOOP WHILE a$ = "": IF a$ = "n" THEN LOCATE 25, 31: PRINT " ": score1 = 0: score2 = 0: GOTO 110 ELSE 126
105 COLOR 9: LOCATE 25, 34: INPUT "Players(1-2)"; spelers%
IF spelers% <> 1 AND spelers% <> 2 THEN 105
110 COLOR 9: LOCATE 26, 31: INPUT "Player 1 : ", p1$
120 IF spelers% = 2 THEN COLOR 9: LOCATE 27, 31: INPUT "Player 2 : ", p2$
122 IF p1$ = "" THEN p1$ = "Player 1"
124 IF p2$ = "" THEN
IF spelers% = 2 THEN p2$ = "Player 2" ELSE p2$ = "Computer"
END IF
126 COLOR 15: LOCATE 2, 1: PRINT p1$; " : "; score1: LOCATE 2, 65: PRINT p2$; " : "; score2:
130 LOCATE 25, 31: PRINT " ": LOCATE 26, 31: PRINT " ": LOCATE 27, 31: PRINT " "
140 COLOR 11: IF s = 0 THEN LOCATE 5, 2: COLOR 12: PRINT p1$; "'s turn " ELSE LOCATE 5, 2: COLOR 2: PRINT p2$; : PRINT "'s turn "
150 IF (s = 0 AND spelers% = 1) OR spelers% = 2 THEN DO: a$ = INKEY$: LOOP WHILE a$ = ""
IF s = 1 AND spelers% = 1 THEN a$ = computer$(kleur1$, kleur2$, kleur3$, kleur4$, kleur5$, kleur6$, kleur7$, kleur8$, kleur9$)
160 IF a$ = "7" AND s < 1 AND pe$ <> "1" THEN x = -14: y = 14: x1 = -7: y1 = 7: c = 12: pe$ = "1": s = s + 1: kleur7$ = "r"
170 IF a$ = "8" AND s < 1 AND pt$ <> "1" THEN x = -3: y = 14: x1 = 3: y1 = 7: c = 12: pt$ = "1": s = s + 1: kleur8$ = "r"
180 IF a$ = "9" AND s < 1 AND p3$ <> "1" THEN x = 14: y = 14: x1 = 7: y1 = 7: c = 12: p3$ = "1": s = s + 1: kleur9$ = "r"
190 IF a$ = "4" AND s < 1 AND p4$ <> "1" THEN x = -14: y = 3: x1 = -7: y1 = -3: c = 12: p4$ = "1": s = s + 1: kleur4$ = "r"
200 IF a$ = "5" AND s < 1 AND p5$ <> "1" THEN x = -3: y = 3: x1 = 3: y1 = -3: c = 12: p5$ = "1": s = s + 1: kleur5$ = "r"
210 IF a$ = "6" AND s < 1 AND p6$ <> "1" THEN x = 14: y = 3: x1 = 7: y1 = -3: c = 12: p6$ = "1": s = s + 1: kleur6$ = "r"
220 IF a$ = "1" AND s < 1 AND p7$ <> "1" THEN x = -14: y = -14: x1 = -7: y1 = -7: c = 12: p7$ = "1": s = s + 1: kleur1$ = "r"
230 IF a$ = "2" AND s < 1 AND p8$ <> "1" THEN x = -3: y = -14: x1 = 3: y1 = -7: c = 12: p8$ = "1": s = s + 1: kleur2$ = "r"
240 IF a$ = "3" AND s < 1 AND p9$ <> "1" THEN x = 14: y = -14: x1 = 7: y1 = -7: c = 12: p9$ = "1": s = s + 1: kleur3$ = "r"
250 IF a$ = "7" AND s > 0 AND pe$ <> "1" THEN x = -14: y = 14: x1 = -7: y1 = 7: c = 2: pe$ = "1": s = s - 1: kleur7$ = "g"
260 IF a$ = "8" AND s > 0 AND pt$ <> "1" THEN x = -3: y = 14: x1 = 3: y1 = 7: c = 2: pt$ = "1": s = s - 1: kleur8$ = "g"
270 IF a$ = "9" AND s > 0 AND p3$ <> "1" THEN x = 14: y = 14: x1 = 7: y1 = 7: c = 2: p3$ = "1": s = s - 1: kleur9$ = "g"
280 IF a$ = "4" AND s > 0 AND p4$ <> "1" THEN x = -14: y = 3: x1 = -7: y1 = -3: c = 2: p4$ = "1": s = s - 1: kleur4$ = "g"
290 IF a$ = "5" AND s > 0 AND p5$ <> "1" THEN x = -3: y = 3: x1 = 3: y1 = -3: c = 2: p5$ = "1": s = s - 1: kleur5$ = "g"
300 IF a$ = "6" AND s > 0 AND p6$ <> "1" THEN x = 14: y = 3: x1 = 7: y1 = -3: c = 2: p6$ = "1": s = s - 1: kleur6$ = "g"
310 IF a$ = "1" AND s > 0 AND p7$ <> "1" THEN x = -14: y = -14: x1 = -7: y1 = -7: c = 2: p7$ = "1": s = s - 1: kleur1$ = "g"
320 IF a$ = "2" AND s > 0 AND p8$ <> "1" THEN x = -3: y = -14: x1 = 3: y1 = -7: c = 2: p8$ = "1": s = s - 1: kleur2$ = "g"
330 IF a$ = "3" AND s > 0 AND p9$ <> "1" THEN x = 14: y = -14: x1 = 7: y1 = -7: c = 2: p9$ = "1": s = s - 1: kleur3$ = "g"
340 IF a$ = CHR$(27) THEN END
350 LINE (x, y)-(x1, y1), c, B: PAINT ((x + x1) / 2, (y + y1) / 2), c, c
360 IF kleur1$ <> "" AND kleur1$ = kleur2$ AND kleur2$ = kleur3$ THEN 480
370 IF kleur4$ <> "" AND kleur4$ = kleur5$ AND kleur5$ = kleur6$ THEN 480
380 IF kleur7$ <> "" AND kleur7$ = kleur8$ AND kleur8$ = kleur9$ THEN 480
390 IF kleur1$ <> "" AND kleur1$ = kleur4$ AND kleur4$ = kleur7$ THEN 480
400 IF kleur2$ <> "" AND kleur2$ = kleur5$ AND kleur5$ = kleur8$ THEN 480
410 IF kleur3$ <> "" AND kleur3$ = kleur6$ AND kleur6$ = kleur9$ THEN 480
420 IF kleur1$ <> "" AND kleur1$ = kleur5$ AND kleur5$ = kleur9$ THEN 480
430 IF kleur3$ <> "" AND kleur3$ = kleur5$ AND kleur5$ = kleur7$ THEN 480
440 IF pe$ = "1" AND pt$ = "1" AND p3$ = "1" AND p4$ = "1" AND p5$ = "1" AND p6$ = "1" AND p7$ = "1" AND p8$ = "1" AND p9$ = "1" THEN BEEP: GOTO 500
450 IF s = 0 THEN COLOR 12: LOCATE 5, 2: PRINT p1$; "'s turn " ELSE COLOR 2: LOCATE 5, 2: PRINT p2$; : PRINT "'s turn "
460 GOTO 150
470 REM Dit alles is gecre‰erd door Jarno vd Kolk
480 PLAY "l16 o1 mb ml t255 cde c. p32 c+d+e c+."
490 COLOR 5: LOCATE 15, 30: IF s = 0 THEN PRINT p2$; " has won": score2 = score2 + 1 ELSE PRINT p1$; " has won": score1 = score1 + 1
500 COLOR 15: LOCATE 2, 1: PRINT p1$; " : "; score1: LOCATE 2, 65: PRINT p2$; " : "; score2: COLOR 7: LOCATE 26, 35: PRINT "Again?": DO: a$ = INKEY$: LOOP UNTIL a$ <> "": IF a$ = "n" THEN SYSTEM: ELSE 10
FUNCTION computer$ (kleur1$, kleur2$, kleur3$, kleur4$, kleur5$, kleur6$, kleur7$, kleur8$, kleur9$)
computer$ = CHR$(INT(9 * RND) + 49)
IF kleur5$ = "" THEN computer$ = "5"
IF kleur1$ = "r" AND kleur2$ = "" AND kleur3$ = "" AND kleur4$ = "" AND kleur5$ = "g" AND kleur6$ = "" AND kleur7$ = "" AND kleur8$ = "" AND kleur9$ = "r" THEN
keus% = INT(4 * RND) + 1
IF keus% = 1 THEN computer$ = "2"
IF keus% = 2 THEN computer$ = "4"
IF keus% = 3 THEN computer$ = "6"
IF keus% = 4 THEN computer$ = "8"
END IF
IF kleur1$ = "" AND kleur2$ = "" AND kleur3$ = "r" AND kleur4$ = "" AND kleur5$ = "g" AND kleur6$ = "" AND kleur7$ = "r" AND kleur8$ = "" AND kleur9$ = "" THEN
keus% = INT(4 * RND) + 1
IF keus% = 1 THEN computer$ = "2"
IF keus% = 2 THEN computer$ = "4"
IF keus% = 3 THEN computer$ = "6"
IF keus% = 4 THEN computer$ = "8"
END IF
IF kleur1$ = "" AND kleur2$ = "r" AND kleur3$ = "" AND kleur4$ = "r" AND kleur5$ = "g" AND kleur6$ = "" AND kleur7$ = "" AND kleur8$ = "" AND kleur9$ = "" THEN
keus% = INT(3 * RND) + 1
IF keus% = 1 THEN computer$ = "1"
IF keus% = 2 THEN computer$ = "3"
IF keus% = 3 THEN computer$ = "7"
END IF
IF kleur1$ = "" AND kleur2$ = "r" AND kleur3$ = "" AND kleur4$ = "" AND kleur5$ = "g" AND kleur6$ = "r" AND kleur7$ = "" AND kleur8$ = "" AND kleur9$ = "" THEN
keus% = INT(3 * RND) + 1
IF keus% = 1 THEN computer$ = "1"
IF keus% = 2 THEN computer$ = "3"
IF keus% = 3 THEN computer$ = "9"
END IF
IF kleur1$ = "" AND kleur2$ = "" AND kleur3$ = "" AND kleur4$ = "" AND kleur5$ = "g" AND kleur6$ = "r" AND kleur7$ = "" AND kleur8$ = "r" AND kleur9$ = "" THEN
keus% = INT(3 * RND) + 1
IF keus% = 1 THEN computer$ = "3"
IF keus% = 2 THEN computer$ = "7"
IF keus% = 3 THEN computer$ = "9"
END IF
IF kleur1$ = "" AND kleur2$ = "" AND kleur3$ = "" AND kleur4$ = "r" AND kleur5$ = "g" AND kleur6$ = "" AND kleur7$ = "" AND kleur8$ = "r" AND kleur9$ = "" THEN
keus% = INT(3 * RND) + 1
IF keus% = 1 THEN computer$ = "1"
IF keus% = 2 THEN computer$ = "7"
IF keus% = 3 THEN computer$ = "9"
END IF
IF kleur1$ = "" AND kleur2$ = "" AND kleur3$ = "" AND kleur4$ = "" AND kleur5$ = "r" AND kleur6$ = "" AND kleur7$ = "" AND kleur8$ = "" AND kleur9$ = "" THEN
keus% = INT(4 * RND) + 1
IF keus% = 1 THEN computer$ = "1"
IF keus% = 2 THEN computer$ = "3"
IF keus% = 3 THEN computer$ = "7"
IF keus% = 4 THEN computer$ = "9"
END IF
IF ((kleur1$ = "r" AND kleur9$ = "g") OR (kleur1$ = "g" AND kleur9$ = "r")) AND kleur2$ = "" AND kleur3$ = "" AND kleur4$ = "" AND kleur5$ = "r" AND kleur6$ = "" AND kleur7$ = "" AND kleur8$ = "" THEN
keus% = INT(2 * RND) + 1
IF keus% = 1 THEN computer$ = "3"
IF keus% = 2 THEN computer$ = "7"
END IF
IF ((kleur3$ = "r" AND kleur7$ = "g") OR (kleur7$ = "g" AND kleur3$ = "r")) AND kleur2$ = "" AND kleur1$ = "" AND kleur4$ = "" AND kleur5$ = "r" AND kleur6$ = "" AND kleur9$ = "" AND kleur8$ = "" THEN
keus% = INT(2 * RND) + 1
IF keus% = 1 THEN computer$ = "1"
IF keus% = 2 THEN computer$ = "9"
END IF
FOR i% = 1 TO 2
IF i% = 1 THEN ding$ = "r"
IF i% = 2 THEN ding$ = "g"
IF kleur1$ = ding$ AND kleur2$ = ding$ AND kleur3$ = "" THEN computer$ = "3"
IF kleur1$ = ding$ AND kleur2$ = "" AND kleur3$ = ding$ THEN computer$ = "2"
IF kleur1$ = "" AND kleur2$ = ding$ AND kleur3$ = ding$ THEN computer$ = "1"
IF kleur4$ = ding$ AND kleur5$ = ding$ AND kleur6$ = "" THEN computer$ = "6"
IF kleur4$ = ding$ AND kleur5$ = "" AND kleur6$ = ding$ THEN computer$ = "5"
IF kleur4$ = "" AND kleur5$ = ding$ AND kleur6$ = ding$ THEN computer$ = "4"
IF kleur7$ = ding$ AND kleur8$ = ding$ AND kleur9$ = "" THEN computer$ = "9"
IF kleur7$ = ding$ AND kleur8$ = "" AND kleur9$ = ding$ THEN computer$ = "8"
IF kleur7$ = "" AND kleur8$ = ding$ AND kleur9$ = ding$ THEN computer$ = "7"
IF kleur1$ = ding$ AND kleur4$ = ding$ AND kleur7$ = "" THEN computer$ = "7"
IF kleur1$ = ding$ AND kleur4$ = "" AND kleur7$ = ding$ THEN computer$ = "4"
IF kleur1$ = "" AND kleur4$ = ding$ AND kleur7$ = ding$ THEN computer$ = "1"
IF kleur2$ = ding$ AND kleur5$ = ding$ AND kleur8$ = "" THEN computer$ = "8"
IF kleur2$ = ding$ AND kleur5$ = "" AND kleur8$ = ding$ THEN computer$ = "5"
IF kleur2$ = "" AND kleur5$ = ding$ AND kleur8$ = ding$ THEN computer$ = "2"
IF kleur3$ = ding$ AND kleur6$ = ding$ AND kleur9$ = "" THEN computer$ = "9"
IF kleur3$ = ding$ AND kleur6$ = "" AND kleur9$ = ding$ THEN computer$ = "6"
IF kleur3$ = "" AND kleur6$ = ding$ AND kleur9$ = ding$ THEN computer$ = "3"
IF kleur3$ = ding$ AND kleur5$ = ding$ AND kleur7$ = "" THEN computer$ = "7"
IF kleur3$ = ding$ AND kleur5$ = "" AND kleur7$ = ding$ THEN computer$ = "5"
IF kleur3$ = "" AND kleur5$ = ding$ AND kleur7$ = ding$ THEN computer$ = "3"
IF kleur1$ = ding$ AND kleur5$ = ding$ AND kleur9$ = "" THEN computer$ = "9"
IF kleur1$ = ding$ AND kleur5$ = "" AND kleur9$ = ding$ THEN computer$ = "5"
IF kleur1$ = "" AND kleur5$ = ding$ AND kleur9$ = ding$ THEN computer$ = "1"
NEXT i%
END FUNCTION
ک بازی جالب (http://woozbiz.com/nb/p/index.php?q=aHR0cDovL2Zlcm9venlhbi5ibG9nZmEuY29tL3 Bvc3QtMy5hc3B4) CLS
SCREEN 12
RANDOMIZE TIMER
LINE (0, 0)-(900, 900), 12, BF
COLOR 10
LOCATE 1, 63
PRINT "No. 1 Blue"
LOCATE 2, 63
PRINT "No. 2 Green"
LOCATE 3, 63
PRINT "No. 3 sky blue"
LOCATE 4, 63
PRINT "No. 4 red"
a% = RND * 3 + 1
b% = RND * 3 + 1
c% = RND * 3 + 1
d% = RND * 3 + 1
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
LINE (0, 0)-(200, 50), 9, BF
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
LINE (290, 290)-(650, 650), 12, BF
CIRCLE (40, 420), 18, e%
CIRCLE (90, 420), 18, f%
CIRCLE (140, 420), 18, g%
CIRCLE (190, 420), 18, h%
PAINT (30, 420), e%
PAINT (90, 420), f%
PAINT (140, 420), g%
PAINT (190, 420), h%
LOCATE 27, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 380), 18, e%
CIRCLE (90, 380), 18, f%
CIRCLE (140, 380), 18, g%
CIRCLE (190, 380), 18, h%
PAINT (40, 380), e%
PAINT (90, 390), f%
PAINT (140, 390), g%
PAINT (190, 390), h%
LINE (290, 290)-(650, 650), 12, BF
COLOR 10
LOCATE 24, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 340), 18, e%
CIRCLE (90, 340), 18, f%
CIRCLE (140, 340), 18, g%
CIRCLE (190, 340), 18, h%
PAINT (40, 340), e%
PAINT (90, 340), f%
PAINT (140, 340), g%
PAINT (190, 340), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 22, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 300), 18, e%
CIRCLE (90, 300), 18, f%
CIRCLE (140, 300), 18, g%
CIRCLE (190, 300), 18, h%
PAINT (40, 300), e%
PAINT (90, 300), f%
PAINT (140, 300), g%
PAINT (190, 300), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 19, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 260), 18, e%
CIRCLE (90, 260), 18, f%
CIRCLE (140, 260), 18, g%
CIRCLE (190, 260), 18, h%
PAINT (40, 260), e%
PAINT (90, 260), f%
PAINT (140, 260), g%
PAINT (190, 260), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 17, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "adade range khod ra entehkab namaid?", h%
CIRCLE (40, 220), 18, e%
CIRCLE (90, 220), 18, f%
CIRCLE (140, 220), 18, g%
CIRCLE (190, 220), 18, h%
PAINT (40, 220), e%
PAINT (90, 220), f%
PAINT (140, 220), g%
PAINT (190, 220), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 14, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 180), 18, e%
CIRCLE (90, 180), 18, f%
CIRCLE (140, 180), 18, g%
CIRCLE (190, 180), 18, h%
PAINT (40, 180), e%
PAINT (90, 180), f%
PAINT (140, 180), g%
PAINT (190, 180), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 12, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 140), 18, e%
CIRCLE (90, 140), 18, f%
CIRCLE (140, 140), 18, g%
CIRCLE (190, 140), 18, h%
PAINT (40, 140), e%
PAINT (90, 140), f%
PAINT (140, 140), g%
PAINT (190, 140), h%
LINE (290, 290)-(650, 650), 12, BF
LOCATE 9, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
LOCATE 25, 42
INPUT "Please enter your number of color?", e%
LOCATE 26, 42
INPUT "Please enter your number of color?", f%
LOCATE 27, 42
INPUT "Please enter your number of color?", g%
LOCATE 28, 42
INPUT "Please enter your number of color?", h%
CIRCLE (40, 100), 18, e%
CIRCLE (90, 100), 18, f%
CIRCLE (140, 100), 18, g%
CIRCLE (190, 100), 18, h%
PAINT (40, 100), e%
PAINT (90, 100), f%
PAINT (140, 100), g%
PAINT (190, 100), h%
LOCATE 7, 29
za% = 0
zb% = 0
zc% = 0
zd% = 0
IF a% = e% THEN
za% = 1
END IF
IF b% = f% THEN
zb% = 1
END IF
IF c% = g% THEN
zc% = 1
END IF
IF d% = h% THEN
zd% = 1
END IF
x% = za% + zb% + zc% + zd%
PRINT x%; "right"
IF x% = 4 THEN
CLS
LOCATE 17, 33
PRINT "YOU WIN"
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
END
END IF
x% = 0
CLS
CIRCLE (30, 30), 20, a%
CIRCLE (80, 30), 20, b%
CIRCLE (130, 30), 20, c%
CIRCLE (180, 30), 20, d%
PAINT (30, 30), a%
PAINT (80, 30), b%
PAINT (130, 30), c%
PAINT (180, 30), d%
COLOR 4
LOCATE 17, 33
PRINT "YOU LOSE"
END
http://pnu-club.com/imported/mising.jpgساعت در
(http://woozbiz.com/nb/p/index.php?q=aHR0cDovL2Zlcm9venlhbi5ibG9nZmEuY29tL3 Bvc3QtMi5hc3B4)QBasic (http://woozbiz.com/nb/p/index.php?q=aHR0cDovL2Zlcm9venlhbi5ibG9nZmEuY29tL3 Bvc3QtMi5hc3B4)
CLS
SCREEN 12
DIM h, hx, hy, m, mx, my, s, sx, sy, e AS DOUBLE
LOCATE 15, 13
COLOR 4
PRINT "Welcame to clock to start press(S)to exit press(Esc)"
DO
s$ = INKEY$
IF s$ = "s" THEN
EXIT DO
ELSEIF s$ = CHR$(27) THEN
END
END IF
LOOP
LOCATE 15, 13
PRINT " "
LOCATE 15, 25
INPUT " Do you want to have beep(Y/N)"; bee$
COLOR 6
LOCATE 15, 20
INPUT "Do you want to show a degetal clock(Y/N)"; d$
LOCATE 15, 20
PRINT " "
IF d$ = "y" THEN
COLOR 14
ELSEIF d$ = "n" THEN
COLOR 0
END IF
CIRCLE (320, 240), 150, 3
DO
s = ((TIMER MOD 3600) MOD 60)
DO
e = s + 1
IF s + 1 = 60 THEN e = 0
IF e = ((TIMER MOD 3600) MOD 60) THEN
IF bee$ = "y" OR bee$ = "Y" THEN BEEP
EXIT DO
END IF
LOOP
FOR r = 1 TO 10
s = ((TIMER MOD 3600) MOD 60) - 15
m = ((TIMER MOD 3600) \ 60) - 15
h = (TIMER \ 3600) - 3
LINE (320, 240)-(sy, sx), 0
sx = 240 + 130 * SIN(s * 6 * (3.141593 / 180))
sy = 320 + 130 * COS(s * 6 * (3.141593 / 180))
LINE (320, 240)-(sy, sx), 4
IF m = 60 THEN m = 0
LINE (320, 240)-(my, mx), 0
mx = 240 + 90 * SIN(m * 6 * (3.141593 / 180))
my = 320 + 90 * COS(m * 6 * (3.141593 / 180))
LINE (320, 240)-(my, mx), 9
IF h = 12 THEN h = h - 12
LINE (320, 240)-(hy, hx), 0
hx = 240 + 60 * SIN(h * 30 * (3.141593 / 180))
hy = 320 + 60 * COS(h * 30 * (3.141593 / 180))
LINE (320, 240)-(hy, hx), 7
LOCATE 2, 34
PRINT h + 3; m + 15; s + 15
a$ = INKEY$
IF a$ = CHR$(27) THEN END
NEXT
LOOP
Powered by vBulletin™ Version 4.2.2 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.