کد:
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
مجمو عه سورس هاي qbasic
نمي كنيد
پاسخ با نقل قول
