Դիտել ողջ տարբերակը : QBasic
ժողովուրդ ջան... էս qbasic ծրագրավորման լիզուն մոռացել եք՞ արեք քննարկենք էս լիզուն էլ...
ինձ թվում է, լավ լիզու է... բայց սկսնակների համար... Ալգորիթմեր լուծելու...
MS-Doctor
12.10.2009, 01:03
Ախպերս քեզ ասեմ ... Լրիվ օդա ... ես ետ եզուտյուն է տարի առաջ եմ սովորե.. եթե ուզում ես իմանաս ամենաճիշտը ` cmd на այ ետ սկսնակների համարա .. տե չե Քբասիկը լրիվ օդա ... չնեղանաս բայց ինչ չիշտա են եմ ասում .. այ լավ լեզու ես ուզում սովորես նստի վիսուալ բասիկ սովորի այ ետ մակարդակա :8:B:B:B
վախ տատիկիս արեգակ, չեմ հասկանում Ս պլըս պլըս-ը թողած ուր եք գնում???? ոնց որ պոլտիեխնիկ լինի, պասկալ են սովորում....բլյաա
վախ տատիկիս արեգակ, չեմ հասկանում Ս պլըս պլըս-ը թողած ուր եք գնում???? ոնց որ պոլտիեխնիկ լինի, պասկալ են սովորում....բլյաա
Ապեր պոլտիեխնիկ առաջի կուրս ծրագրավորում են սովորացնում, ոչ թե ինչոր կոնկրետ լեզու, դրա համար ամենահարմար լեզուն Պասկալն ա: Իսկ այ երկրորդ կուրսում ինձ Ս պլըս պլըս են սովորացրել, չնայած իրանց սովորացրածը բանի պետք չի: Էս տարի ծրագիր են հանձնարարում գրենք տարբեր դասերից, մեր ամբողջ խմբում մենակ ես եմ գրում…
Մի հատ կարող եք օգնել՞
հիմա qbaic են սովորացնում... մի հատ մեքենա եմ սարքել... պիտի շարժվի... էսքանը արել, ու կանգնել եմ.... այնպես է որ եթե աջ սեղմեմ, աջ գնա.... եթե ձախ ձախ...
Մի հատ կարող եք օգնել՞
հիմա qbaic են սովորացնում... մի հատ մեքենա եմ սարքել... պիտի շարժվի... էսքանը արել, ու կանգնել եմ.... այնպես է որ եթե աջ սեղմեմ, աջ գնա.... եթե ձախ ձախ...
Ֆայլդ երևի վնասված է, չի բացում:
Ֆայլդ երևի վնասված է, չի բացում:
Qbasic ունես՞ ինքը visual basicov չի բացում...
Qbasic ունես՞ ինքը visual basicov չի բացում...
Qbasic-ի bas ֆայլերը notepad-ով բացվում կարդացվում են, իսկ տվածդ ֆայլը` ոչ:
Ավելի լավ է կոդն այստեղ տեղադրիր:
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
Qbasic-ի bas ֆայլերը notepad-ով բացվում կարդացվում են, իսկ տվածդ ֆայլը` ոչ:
Ավելի լավ է կոդն այստեղ տեղադրիր:
էս կոդով տեղաշարժվում է... բայց մի հատ աջ, մի հատ ձախ....
Եթե մեքենան ինքնիրեն պետք է շարժվի, նշանակում է այս տողը սխալ է
10 s$ = INKEY$: IF s$ = "" THEN GOTO 10
Քանի որ ոչինչ չի կատարվում, մինչև մի բան չսեղմես:
Եթե մեքենան ինքնիրեն պետք է շարժվի, նշանակում է այս տողը սխալ է
10 s$ = INKEY$: IF s$ = "" THEN GOTO 10
Քանի որ ոչինչ չի կատարվում, մինչև մի բան չսեղմես:
ես գրել էի որ մենք եթե ձախ սեղմենք, պիտի ձախ գնա... եթե աջ, աջ...
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 փոփոխականի արժեքը:
Մի խորհուրդ.
երբ կոորդինատները նշանակում ես X և Y տառերով, ցանկալի է, որ X-ը իսկապես x լինի, այսինքն կետի կոորդինատները լինեն ասենք X1,Y1; X2,Y2 ոչ թե X1,X2; Y1,Y2:
Կոդ:
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 փոփոխականի արժեքը:
շաաատ շաաատ մերսի... հիմա փորձեմ...
Կոդ:
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 փոփոխականի արժեքը:
Սախ լավ էր... միայն թե որ ձախ եմ տանում, մեքենայի լուսամուտը խախտվում է... ինչից կարողա լինի՞՞
նոր փորձեցի, նորմալ աշխատում է։ Ոչինչ չի խախտվում։
Ախպերս քեզ ասեմ ... Լրիվ օդա ... ես ետ եզուտյուն է տարի առաջ եմ սովորե.. եթե ուզում ես իմանաս ամենաճիշտը ` cmd на այ ետ սկսնակների համարա .. տե չե Քբասիկը լրիվ օդա ... չնեղանաս բայց ինչ չիշտա են եմ ասում .. այ լավ լեզու ես ուզում սովորես նստի վիսուալ բասիկ սովորի այ ետ մակարդակա :8:B:B:B
վիսուալ բասիկ -ի մակարդակը որն ա ? 7-րդ դասարանի մակարդակ ա
վիսուալ բասիկ -ի մակարդակը որն ա ? 7-րդ դասարանի մակարդակ ա
Լուրջ՞՞ և ինչնա քեզ ստիպել նման եզրակացության հանգես՞
Լուրջ՞՞ և ինչնա քեզ ստիպել նման եզրակացության հանգես՞
հա լուրջ
C# սովորի ու կհասկանաս
VB-ի դեմ բան չունեմ ու իրանով լիքը բաներ եմ գրել լավ լեզու ա բայց Մակարդակ չի հաստատ
http://ru.wikipedia.org/wiki/Visual_Basic
էս էլ հետաքրքրվողների համար
իսկ որպես բացահայտում ասեմ որ QBasic-ը իսկական սկսնակների համար ա (ինչպես նաև Pascal-ը) ու եթե ուզում ես լավ ծրագրավորող դառնաս պիտի տենց լեզուներից սկսես էս իմ փորձից եմ ասում
իսկ որպես բացահայտում ասեմ որ QBasic-ը իսկական սկսնակների համար ա (ինչպես նաև Pascal-ը) ու եթե ուզում ես լավ ծրագրավորող դառնաս պիտի տենց լեզուներից սկսես էս իմ փորձից եմ ասում
Ես սկսնակ ծրագրավորող եմ....
Սենց մի հատ խնդիր կա:
Կազմել ծրագիր որը գործարկելուց կերևա Հայաստանի դրոշը, որը կփողփողա:
Կարաք օգնեք?
Նախապես շնորհակալություն:
Սենց մի հատ խնդիր կա:
Կազմել ծրագիր որը գործարկելուց կերևա Հայաստանի դրոշը, որը կփողփողա:
Կարաք օգնեք?
Նախապես շնորհակալություն:
Եթե դրոշի փողփղալը պարտադիր չի, կարող եմ օգնել...
Ժողովուրդ ջաաան, մի հատ ծրագիր է պետք քբեսիկով, եթե բառը մուտք անեմ, ծրագիրը պիտի որոշի թե էտ բառը դարձելի է թե չէ, ասենք մոմ բառը հակառակ կարդացվում է մոմ, ծրագիրը տպի այս բառը դարձելի է, իսկ եթե դարձելի չէ, տպի դարձելի չէ... նախապես շնորհակալություն
Եթե դրոշի փողփղալը պարտադիր չի, կարող եմ օգնել...
Եթե դժվար չի քո տարբերակով դիր:
Ժողովուրդ ջաաան, մի հատ ծրագիր է պետք քբեսիկով, եթե բառը մուտք անեմ, ծրագիրը պիտի որոշի թե էտ բառը դարձելի է թե չէ, ասենք մոմ բառը հակառակ կարդացվում է մոմ, ծրագիրը տպի այս բառը դարձելի է, իսկ եթե դարձելի չէ, տպի դարձելի չէ... նախապես շնորհակալություն
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$