PDA

Դիտել ողջ տարբերակը : QBasic



xaker00
07.10.2009, 19:07
ժողովուրդ ջան... էս qbasic ծրագրավորման լիզուն մոռացել եք՞ արեք քննարկենք էս լիզուն էլ...

ինձ թվում է, լավ լիզու է... բայց սկսնակների համար... Ալգորիթմեր լուծելու...

MS-Doctor
12.10.2009, 01:03
Ախպերս քեզ ասեմ ... Լրիվ օդա ... ես ետ եզուտյուն է տարի առաջ եմ սովորե.. եթե ուզում ես իմանաս ամենաճիշտը ` cmd на այ ետ սկսնակների համարա .. տե չե Քբասիկը լրիվ օդա ... չնեղանաս բայց ինչ չիշտա են եմ ասում .. այ լավ լեզու ես ուզում սովորես նստի վիսուալ բասիկ սովորի այ ետ մակարդակա :8:B:B:B

Արամ
12.10.2009, 13:55
վախ տատիկիս արեգակ, չեմ հասկանում Ս պլըս պլըս-ը թողած ուր եք գնում???? ոնց որ պոլտիեխնիկ լինի, պասկալ են սովորում....բլյաա

_DEATH_
12.10.2009, 14:55
վախ տատիկիս արեգակ, չեմ հասկանում Ս պլըս պլըս-ը թողած ուր եք գնում???? ոնց որ պոլտիեխնիկ լինի, պասկալ են սովորում....բլյաա

Ապեր պոլտիեխնիկ առաջի կուրս ծրագրավորում են սովորացնում, ոչ թե ինչոր կոնկրետ լեզու, դրա համար ամենահարմար լեզուն Պասկալն ա: Իսկ այ երկրորդ կուրսում ինձ Ս պլըս պլըս են սովորացրել, չնայած իրանց սովորացրածը բանի պետք չի: Էս տարի ծրագիր են հանձնարարում գրենք տարբեր դասերից, մեր ամբողջ խմբում մենակ ես եմ գրում…

xaker00
16.12.2009, 19:33
Մի հատ կարող եք օգնել՞
հիմա qbaic են սովորացնում... մի հատ մեքենա եմ սարքել... պիտի շարժվի... էսքանը արել, ու կանգնել եմ.... այնպես է որ եթե աջ սեղմեմ, աջ գնա.... եթե ձախ ձախ...

Աթեիստ
16.12.2009, 20:11
Մի հատ կարող եք օգնել՞
հիմա qbaic են սովորացնում... մի հատ մեքենա եմ սարքել... պիտի շարժվի... էսքանը արել, ու կանգնել եմ.... այնպես է որ եթե աջ սեղմեմ, աջ գնա.... եթե ձախ ձախ...
Ֆայլդ երևի վնասված է, չի բացում:

xaker00
16.12.2009, 20:19
Ֆայլդ երևի վնասված է, չի բացում:
Qbasic ունես՞ ինքը visual basicov չի բացում...

Աթեիստ
16.12.2009, 20:26
Qbasic ունես՞ ինքը visual basicov չի բացում...
Qbasic-ի bas ֆայլերը notepad-ով բացվում կարդացվում են, իսկ տվածդ ֆայլը` ոչ:
Ավելի լավ է կոդն այստեղ տեղադրիր:

xaker00
16.12.2009, 20:47
CLS
SCREEN 12
x1 = 50: x2 = 30: x3 = 110: x4 = 20: x5 = 110: x6 = 30: x7 = 65:
x8 = 90: x9 = 15: x10 = 60: x11 = 65: x12 = 90: x13 = 110: x14 = 50:
x15 = 170: x16 = 90: x17 = 75: x18 = 50: x19 = 95: x20 = 40
y1 = 65: y2 = 105: y3 = 145: y4 = 105: y5 = 65: y6 = 105: y7 = 145: y8 = 105
if$ = CHR$(0) + CHR$(75)
rt$ = CHR$(0) + CHR$(77)
esc$ = CHR$(27)
10 s$ = INKEY$: IF s$ = "" THEN GOTO 10
LINE (x1, x2)-(x3, x4), 4, B: LINE (x5, x6)-(x7, x8), 4, B:
LINE (x9, x10)-(x11, x12), 4, B: LINE (x13, x14)-(x15, x16), 4, B:
LINE (x17, x18)-(x19, x20), 4, B
CIRCLE (y1, y2), 15, 4: CIRCLE (y3, y4), 15, 4: CIRCLE (y5, y6), 10, 4:
CIRCLE (y7, y8), 10, 4
SELECT CASE s$
CASE rt$: LINE (x1 + 3, x2)-(x3 + 3, x4), 4, B:
LINE (x5 + 3, x6)-(x7 + 3, x8), 4, B: LINE (x9 + 3, x10)-(x11 + 3, x12), 4, B
LINE (x13 + 3, x14)-(x15 + 3, x16), 4, B:
LINE (x17 + 3, x18)-(x19 + 3, x20), 4, B
CIRCLE (y1 + 3, y2), 15, 4: CIRCLE (y3 + 3, y4), 15, 4:
CIRCLE (y5 + 3, y6), 15, 4: CIRCLE (y7 + 3, y8), 15, 4:
CASE if$: LINE (x1 - 3, x2)-(x3 - 3, x4), 4, B:
LINE (x5 - 3, x6)-(x7 - 3, x8), 4, B
LINE (x9 - 3, x10)-(x11 - 3, x12), 4, B:
LINE (x13 - 3, x14)-(x15 - 3, x16), 4, B
LINE (x17 - 3, x18)-(x19 - 3, x20), 4, B:
CIRCLE (y1 - 3, y2), 15, 4: CIRCLE (y3 - 3, y4), 15, 4:
CIRCLE (y5 - 3, y6), 15, 4: CIRCLE (y7 - 3, y8), 15, 4:
CASE esc$: END
CASE ELSE: GOTO 10
END SELECT
GOTO 10

xaker00
16.12.2009, 20:54
Qbasic-ի bas ֆայլերը notepad-ով բացվում կարդացվում են, իսկ տվածդ ֆայլը` ոչ:
Ավելի լավ է կոդն այստեղ տեղադրիր:
էս կոդով տեղաշարժվում է... բայց մի հատ աջ, մի հատ ձախ....

Աթեիստ
17.12.2009, 10:41
Եթե մեքենան ինքնիրեն պետք է շարժվի, նշանակում է այս տողը սխալ է
10 s$ = INKEY$: IF s$ = "" THEN GOTO 10

Քանի որ ոչինչ չի կատարվում, մինչև մի բան չսեղմես:

xaker00
18.12.2009, 10:40
Եթե մեքենան ինքնիրեն պետք է շարժվի, նշանակում է այս տողը սխալ է
10 s$ = INKEY$: IF s$ = "" THEN GOTO 10

Քանի որ ոչինչ չի կատարվում, մինչև մի բան չսեղմես:
ես գրել էի որ մենք եթե ձախ սեղմենք, պիտի ձախ գնա... եթե աջ, աջ...

Աթեիստ
19.12.2009, 00:06
CLS
SCREEN 12
x1 = 50: x2 = 30: x3 = 110: x4 = 20: x5 = 110: x6 = 30: x7 = 65:
x8 = 90: x9 = 15: x10 = 60: x11 = 65: x12 = 90: x13 = 110: x14 = 50:
x15 = 170: x16 = 90: x17 = 75: x18 = 50: x19 = 95: x20 = 40
y1 = 65: y2 = 105: y3 = 145: y4 = 105: y5 = 65: y6 = 105: y7 = 145: y8 = 105
qayl = 3

LINE (x1, x2)-(x3, x4), 4, B: LINE (x5, x6)-(x7, x8), 4, B:
LINE (x9, x10)-(x11, x12), 4, B: LINE (x13, x14)-(x15, x16), 4, B:
LINE (x17, x18)-(x19, x20), 4, B
CIRCLE (y1, y2), 15, 4: CIRCLE (y3, y4), 15, 4: CIRCLE (y5, y6), 10, 4:
CIRCLE (y7, y8), 10, 4


Dzax$ = CHR$(0) + CHR$(75)
Aj$ = CHR$(0) + CHR$(77)
Verev$ = CHR$(0) + CHR$(72)
Nerqev$ = CHR$(0) + CHR$(80)

Verj$ = CHR$(27)
10 s$ = INKEY$
IF s$ = "" THEN 10
IF s$ = Verj$ THEN END
IF s$ = Aj$ THEN x1 = x1 + qayl: x3 = x3 + qayl: x5 = x5 + qayl: x7 = x7 + qayl:
IF s$ = Aj$ THEN x9 = x9 + qayl: x11 = x11 + qayl: x13 = x13 + qayl:
IF s$ = Aj$ THEN x15 = x15 + qayl: x17 = x17 + qayl: x19 = x19 + qayl
IF s$ = Aj$ THEN y1 = y1 + qayl: y3 = y3 + qayl: y5 = y5 + qayl: y7 = y7 + qayl

IF s$ = Dzax$ THEN x1 = x1 - qayl: x3 = x3 - qayl: x5 = x5 - qayl: x7 = x7 - qayl:
IF s$ = Dzax$ THEN x9 = x9 - qayl: x11 = x11 - qayl: x13 = x13 - qayl:
IF s$ = Dzax$ THEN x15 = x15 - qayl: x17 = x17 - qayl: x19 = x19 - qayl:
IF s$ = Dzax$ THEN y1 = y1 - qayl: y3 = y3 - qayl: y5 = y5 - qayl: y7 = y7 - qayl

IF s$ = Nerqev$ THEN x2 = x2 + qayl: x4 = x4 + qayl: x6 = x6 + qayl: x8 = x8 + qayl:
IF s$ = Nerqev$ THEN x10 = x10 + qayl: x12 = x12 + qayl: x14 = x14 + qayl:
IF s$ = Nerqev$ THEN x16 = x16 + qayl: x18 = x18 + qayl: x20 = x20 + qayl
IF s$ = Nerqev$ THEN y2 = y2 + qayl: y4 = y4 + qayl: y6 = y6 + qayl: y8 = y8 + qayl

IF s$ = Verev$ THEN x2 = x2 - qayl: x4 = x4 - qayl: x6 = x6 - qayl: x8 = x8 - qayl:
IF s$ = Verev$ THEN x10 = x10 - qayl: x12 = x12 - qayl: x14 = x14 - qayl:
IF s$ = Verev$ THEN x16 = x16 - qayl: x18 = x18 - qayl: x20 = x20 - qayl
IF s$ = Verev$ THEN y2 = y2 - qayl: y4 = y4 - qayl: y6 = y6 - qayl: y8 = y8 - qayl

CLS
LINE (x1, x2)-(x3, x4), 4, B: LINE (x5, x6)-(x7, x8), 4, B:
LINE (x9, x10)-(x11, x12), 4, B: LINE (x13, x14)-(x15, x16), 4, B:
LINE (x17, x18)-(x19, x20), 4, B
CIRCLE (y1, y2), 15, 4: CIRCLE (y3, y4), 15, 4: CIRCLE (y5, y6), 10, 4:
CIRCLE (y7, y8), 10, 4
GOTO 10



Վերև-ներքև էլ ավելացրի:
Արագությունը փոխելու համար փոխում ես միայն վերևի qayl փոփոխականի արժեքը:

Աթեիստ
19.12.2009, 00:09
Մի խորհուրդ.
երբ կոորդինատները նշանակում ես X և Y տառերով, ցանկալի է, որ X-ը իսկապես x լինի, այսինքն կետի կոորդինատները լինեն ասենք X1,Y1; X2,Y2 ոչ թե X1,X2; Y1,Y2:

xaker00
20.12.2009, 12:57
Կոդ:

CLS
SCREEN 12
x1 = 50: x2 = 30: x3 = 110: x4 = 20: x5 = 110: x6 = 30: x7 = 65:
x8 = 90: x9 = 15: x10 = 60: x11 = 65: x12 = 90: x13 = 110: x14 = 50:
x15 = 170: x16 = 90: x17 = 75: x18 = 50: x19 = 95: x20 = 40
y1 = 65: y2 = 105: y3 = 145: y4 = 105: y5 = 65: y6 = 105: y7 = 145: y8 = 105
qayl = 3

LINE (x1, x2)-(x3, x4), 4, B: LINE (x5, x6)-(x7, x8), 4, B:
LINE (x9, x10)-(x11, x12), 4, B: LINE (x13, x14)-(x15, x16), 4, B:
LINE (x17, x18)-(x19, x20), 4, B
CIRCLE (y1, y2), 15, 4: CIRCLE (y3, y4), 15, 4: CIRCLE (y5, y6), 10, 4:
CIRCLE (y7, y8), 10, 4


Dzax$ = CHR$(0) + CHR$(75)
Aj$ = CHR$(0) + CHR$(77)
Verev$ = CHR$(0) + CHR$(72)
Nerqev$ = CHR$(0) + CHR$(80)

Verj$ = CHR$(27)
10 s$ = INKEY$
IF s$ = "" THEN 10
IF s$ = Verj$ THEN END
IF s$ = Aj$ THEN x1 = x1 + qayl: x3 = x3 + qayl: x5 = x5 + qayl: x7 = x7 + qayl:
IF s$ = Aj$ THEN x9 = x9 + qayl: x11 = x11 + qayl: x13 = x13 + qayl:
IF s$ = Aj$ THEN x15 = x15 + qayl: x17 = x17 + qayl: x19 = x19 + qayl
IF s$ = Aj$ THEN y1 = y1 + qayl: y3 = y3 + qayl: y5 = y5 + qayl: y7 = y7 + qayl

IF s$ = Dzax$ THEN x1 = x1 - qayl: x3 = x3 - qayl: x5 = x5 - qayl: x7 = x7 - qayl:
IF s$ = Dzax$ THEN x9 = x9 - qayl: x11 = x11 - qayl: x13 = x13 - qayl:
IF s$ = Dzax$ THEN x15 = x15 - qayl: x17 = x17 - qayl: x19 = x19 - qayl:
IF s$ = Dzax$ THEN y1 = y1 - qayl: y3 = y3 - qayl: y5 = y5 - qayl: y7 = y7 - qayl

IF s$ = Nerqev$ THEN x2 = x2 + qayl: x4 = x4 + qayl: x6 = x6 + qayl: x8 = x8 + qayl:
IF s$ = Nerqev$ THEN x10 = x10 + qayl: x12 = x12 + qayl: x14 = x14 + qayl:
IF s$ = Nerqev$ THEN x16 = x16 + qayl: x18 = x18 + qayl: x20 = x20 + qayl
IF s$ = Nerqev$ THEN y2 = y2 + qayl: y4 = y4 + qayl: y6 = y6 + qayl: y8 = y8 + qayl

IF s$ = Verev$ THEN x2 = x2 - qayl: x4 = x4 - qayl: x6 = x6 - qayl: x8 = x8 - qayl:
IF s$ = Verev$ THEN x10 = x10 - qayl: x12 = x12 - qayl: x14 = x14 - qayl:
IF s$ = Verev$ THEN x16 = x16 - qayl: x18 = x18 - qayl: x20 = x20 - qayl
IF s$ = Verev$ THEN y2 = y2 - qayl: y4 = y4 - qayl: y6 = y6 - qayl: y8 = y8 - qayl

CLS
LINE (x1, x2)-(x3, x4), 4, B: LINE (x5, x6)-(x7, x8), 4, B:
LINE (x9, x10)-(x11, x12), 4, B: LINE (x13, x14)-(x15, x16), 4, B:
LINE (x17, x18)-(x19, x20), 4, B
CIRCLE (y1, y2), 15, 4: CIRCLE (y3, y4), 15, 4: CIRCLE (y5, y6), 10, 4:
CIRCLE (y7, y8), 10, 4
GOTO 10

Վերև-ներքև էլ ավելացրի:
Արագությունը փոխելու համար փոխում ես միայն վերևի qayl փոփոխականի արժեքը:
շաաատ շաաատ մերսի... հիմա փորձեմ...

xaker00
20.12.2009, 17:48
Կոդ:

CLS
SCREEN 12
x1 = 50: x2 = 30: x3 = 110: x4 = 20: x5 = 110: x6 = 30: x7 = 65:
x8 = 90: x9 = 15: x10 = 60: x11 = 65: x12 = 90: x13 = 110: x14 = 50:
x15 = 170: x16 = 90: x17 = 75: x18 = 50: x19 = 95: x20 = 40
y1 = 65: y2 = 105: y3 = 145: y4 = 105: y5 = 65: y6 = 105: y7 = 145: y8 = 105
qayl = 3

LINE (x1, x2)-(x3, x4), 4, B: LINE (x5, x6)-(x7, x8), 4, B:
LINE (x9, x10)-(x11, x12), 4, B: LINE (x13, x14)-(x15, x16), 4, B:
LINE (x17, x18)-(x19, x20), 4, B
CIRCLE (y1, y2), 15, 4: CIRCLE (y3, y4), 15, 4: CIRCLE (y5, y6), 10, 4:
CIRCLE (y7, y8), 10, 4


Dzax$ = CHR$(0) + CHR$(75)
Aj$ = CHR$(0) + CHR$(77)
Verev$ = CHR$(0) + CHR$(72)
Nerqev$ = CHR$(0) + CHR$(80)

Verj$ = CHR$(27)
10 s$ = INKEY$
IF s$ = "" THEN 10
IF s$ = Verj$ THEN END
IF s$ = Aj$ THEN x1 = x1 + qayl: x3 = x3 + qayl: x5 = x5 + qayl: x7 = x7 + qayl:
IF s$ = Aj$ THEN x9 = x9 + qayl: x11 = x11 + qayl: x13 = x13 + qayl:
IF s$ = Aj$ THEN x15 = x15 + qayl: x17 = x17 + qayl: x19 = x19 + qayl
IF s$ = Aj$ THEN y1 = y1 + qayl: y3 = y3 + qayl: y5 = y5 + qayl: y7 = y7 + qayl

IF s$ = Dzax$ THEN x1 = x1 - qayl: x3 = x3 - qayl: x5 = x5 - qayl: x7 = x7 - qayl:
IF s$ = Dzax$ THEN x9 = x9 - qayl: x11 = x11 - qayl: x13 = x13 - qayl:
IF s$ = Dzax$ THEN x15 = x15 - qayl: x17 = x17 - qayl: x19 = x19 - qayl:
IF s$ = Dzax$ THEN y1 = y1 - qayl: y3 = y3 - qayl: y5 = y5 - qayl: y7 = y7 - qayl

IF s$ = Nerqev$ THEN x2 = x2 + qayl: x4 = x4 + qayl: x6 = x6 + qayl: x8 = x8 + qayl:
IF s$ = Nerqev$ THEN x10 = x10 + qayl: x12 = x12 + qayl: x14 = x14 + qayl:
IF s$ = Nerqev$ THEN x16 = x16 + qayl: x18 = x18 + qayl: x20 = x20 + qayl
IF s$ = Nerqev$ THEN y2 = y2 + qayl: y4 = y4 + qayl: y6 = y6 + qayl: y8 = y8 + qayl

IF s$ = Verev$ THEN x2 = x2 - qayl: x4 = x4 - qayl: x6 = x6 - qayl: x8 = x8 - qayl:
IF s$ = Verev$ THEN x10 = x10 - qayl: x12 = x12 - qayl: x14 = x14 - qayl:
IF s$ = Verev$ THEN x16 = x16 - qayl: x18 = x18 - qayl: x20 = x20 - qayl
IF s$ = Verev$ THEN y2 = y2 - qayl: y4 = y4 - qayl: y6 = y6 - qayl: y8 = y8 - qayl

CLS
LINE (x1, x2)-(x3, x4), 4, B: LINE (x5, x6)-(x7, x8), 4, B:
LINE (x9, x10)-(x11, x12), 4, B: LINE (x13, x14)-(x15, x16), 4, B:
LINE (x17, x18)-(x19, x20), 4, B
CIRCLE (y1, y2), 15, 4: CIRCLE (y3, y4), 15, 4: CIRCLE (y5, y6), 10, 4:
CIRCLE (y7, y8), 10, 4
GOTO 10

Վերև-ներքև էլ ավելացրի:
Արագությունը փոխելու համար փոխում ես միայն վերևի qayl փոփոխականի արժեքը:
Սախ լավ էր... միայն թե որ ձախ եմ տանում, մեքենայի լուսամուտը խախտվում է... ինչից կարողա լինի՞՞

Աթեիստ
20.12.2009, 20:40
նոր փորձեցի, նորմալ աշխատում է։ Ոչինչ չի խախտվում։

DavitH
20.12.2009, 21:58
Ախպերս քեզ ասեմ ... Լրիվ օդա ... ես ետ եզուտյուն է տարի առաջ եմ սովորե.. եթե ուզում ես իմանաս ամենաճիշտը ` cmd на այ ետ սկսնակների համարա .. տե չե Քբասիկը լրիվ օդա ... չնեղանաս բայց ինչ չիշտա են եմ ասում .. այ լավ լեզու ես ուզում սովորես նստի վիսուալ բասիկ սովորի այ ետ մակարդակա :8:B:B:B

վիսուալ բասիկ -ի մակարդակը որն ա ? 7-րդ դասարանի մակարդակ ա

xaker00
21.12.2009, 17:55
վիսուալ բասիկ -ի մակարդակը որն ա ? 7-րդ դասարանի մակարդակ ա
Լուրջ՞՞ և ինչնա քեզ ստիպել նման եզրակացության հանգես՞

DavitH
21.12.2009, 21:08
Լուրջ՞՞ և ինչնա քեզ ստիպել նման եզրակացության հանգես՞

հա լուրջ
C# սովորի ու կհասկանաս

VB-ի դեմ բան չունեմ ու իրանով լիքը բաներ եմ գրել լավ լեզու ա բայց Մակարդակ չի հաստատ

http://ru.wikipedia.org/wiki/Visual_Basic
էս էլ հետաքրքրվողների համար

DavitH
21.12.2009, 21:11
իսկ որպես բացահայտում ասեմ որ QBasic-ը իսկական սկսնակների համար ա (ինչպես նաև Pascal-ը) ու եթե ուզում ես լավ ծրագրավորող դառնաս պիտի տենց լեզուներից սկսես էս իմ փորձից եմ ասում

xaker00
22.12.2009, 17:51
իսկ որպես բացահայտում ասեմ որ QBasic-ը իսկական սկսնակների համար ա (ինչպես նաև Pascal-ը) ու եթե ուզում ես լավ ծրագրավորող դառնաս պիտի տենց լեզուներից սկսես էս իմ փորձից եմ ասում
Ես սկսնակ ծրագրավորող եմ....

Սլավիկ
13.01.2010, 17:32
Սենց մի հատ խնդիր կա:
Կազմել ծրագիր որը գործարկելուց կերևա Հայաստանի դրոշը, որը կփողփողա:
Կարաք օգնեք?
Նախապես շնորհակալություն:

xaker00
20.01.2010, 16:11
Սենց մի հատ խնդիր կա:
Կազմել ծրագիր որը գործարկելուց կերևա Հայաստանի դրոշը, որը կփողփողա:
Կարաք օգնեք?
Նախապես շնորհակալություն:

Եթե դրոշի փողփղալը պարտադիր չի, կարող եմ օգնել...

xaker00
09.02.2010, 20:38
Ժողովուրդ ջաաան, մի հատ ծրագիր է պետք քբեսիկով, եթե բառը մուտք անեմ, ծրագիրը պիտի որոշի թե էտ բառը դարձելի է թե չէ, ասենք մոմ բառը հակառակ կարդացվում է մոմ, ծրագիրը տպի այս բառը դարձելի է, իսկ եթե դարձելի չէ, տպի դարձելի չէ... նախապես շնորհակալություն

Սլավիկ
14.02.2010, 14:55
Եթե դրոշի փողփղալը պարտադիր չի, կարող եմ օգնել...

Եթե դժվար չի քո տարբերակով դիր:

Աթեիստ
15.02.2010, 23:31
Ժողովուրդ ջաաան, մի հատ ծրագիր է պետք քբեսիկով, եթե բառը մուտք անեմ, ծրագիրը պիտի որոշի թե էտ բառը դարձելի է թե չէ, ասենք մոմ բառը հակառակ կարդացվում է մոմ, ծրագիրը տպի այս բառը դարձելի է, իսկ եթե դարձելի չէ, տպի դարձելի չէ... նախապես շնորհակալություն

CLS
10 INPUT k$
IF LEN(k$) < 1 THEN GOTO 10
ardyunq$ = "Dardzeli e"
FOR i = 1 TO INT(LEN(k$) / 2)
IF MID$(k$, i, 1) <> MID$(k$, LEN(k$) + 1 - i, 1) THEN ardyunq$ = "Dardzeli che": GOTO 20
NEXT i
20 PRINT ardyunq$