QBasic

[xaker00]

Կոդ:

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 փոփոխականի արժեքը:

Սախ լավ էր... միայն թե որ ձախ եմ տանում, մեքենայի լուսամուտը խախտվում է... ինչից կարողա լինի՞՞

[Աթեիստ]

նոր փորձեցի, նորմալ աշխատում է։ Ոչինչ չի խախտվում։

[DavitH]

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

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

[xaker00]

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

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

[DavitH]

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

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

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

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

[DavitH]

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

[xaker00]

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

Ես սկսնակ ծրագրավորող եմ....

[Սլավիկ]

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

[xaker00]

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

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

[xaker00]

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

[Սլավիկ]

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

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

[Աթեիստ]

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

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$