مجمو عه سورس هاي qbasic

**TAHA** · 11-11-2009, 05:59 PM

منبع:
http://feroozyan.blogfa.com/post-3.aspx

بازی فکر بکر:
کد:

کد:

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

**TAHA** · 11-11-2009, 06:00 PM

مسئله پيدا كردن ريشه هاي معادله درجه دوم

کد:

کد:

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

**TAHA** · 11-11-2009, 06:01 PM

الگوریتم جدول ضرب
کد:

کد:

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

**TAHA** · 11-11-2009, 06:02 PM

هشت وزیر:
http://www.xs4all.nl/~hwiegman/other/8queens.zip

بقیه سورسها اینجا:
http://www.xs4all.nl/~hwiegman/qbasic.html

کد:

کد:

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

**TAHA** · 11-11-2009, 06:06 PM

اصول رمز نگاری

کد:

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

**TAHA** · 11-11-2009, 06:06 PM

بازی برای محاسبات ریاضی

کد:

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

**TAHA** · 11-11-2009, 06:07 PM

بازی دوز

کد:

  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

**TAHA** · 11-11-2009, 06:08 PM

ک بازی جالب 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

**TAHA** · 11-11-2009, 06:08 PM

ساعت در

کد:

QBasic
  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

موضوع: مجمو عه سورس هاي qbasic

ابزارهای موضوع

نمایش

Hybrid View

مجمو عه سورس هاي qbasic

برچسب برای این موضوع

مجوز های ارسال و ویرایش