کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

[saeed450]

سلام .این برنامه یه قفل رمز هست ...که رمز پیش فرضش 123 هست ..جالبه توی بسکام فقط از خط اخر از من ارور می گیره .حالا نمی دونم چرا ؟ به نظرتون مشکل این برنامه چیه ؟ :angry: :angry: :angry:

اصلا جواب میده اینننننننننننن ؟!


Cls
Lcd "in the name of god"
Waitms 100
Cls
Dim A As Byte
Config kbd = porta
Config Portb = Output
Main:
Do
Cls
A = Getkbd()
Locate 1 , 1
Lcd A
If A = 1 Then Goto S1
If A > 1 Then Goto S5
Loop
End
S5:
A = Getkbd()
Locate 1 , 2
Lcd A
Waitms 50
A = Getkbd()
Locate 1 , 3
Lcd A
Waitms 100
Lcd "incorect"
Goto Main
S1:
A = Getkbd()
Locate 1 , 2
Waitms 50
Lcd A
Do
If A = 2 Then Goto S2
If A < 2 Then Goto S5
If A > 2 Then Goto S5
Loop
End
S2:
A = Getkbd()
Locate 1 , 3
Lcd A
Do
If A = 3 Then Goto S4
If A < 3 Then Goto S5
If A > 3 Then Goto S5
Loop
End
S4:
Set Portb.0
Lcd "correct"
Goto Main

[majid_teh2005]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

شما Then را باید با If بکار ببرید

در خط آخر بنویسید

Goto Main

[مصطفی]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

سلام

حلقه if کامل نیست

[saeed450]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

go to main هم میزارم باز هم همون خط ارور میده ............ :cry2: :cry2:

[M.M.-T]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

سلام.دوست من lable های s1وs2و... چون بعد از دستور End برنامه هستند باید با دستور Return ختم بشوند.فعلا همین به نظرم میاد اگر برنامه کامل رو بگذارید میتونم واستون درستش کنم.

[milad2546]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

از JMP و یا goto میتونی استفاد کنی///

یا میتونی با gosubآ پرش رو انجام بدی و با return برگردی.

[majid_teh2005]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

1- goto را سرهم ( به هم چسبیده بنویسید)
2- برنامه تونو کامل همه رو بزارید لطفا

[saeed450]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

دوستان راستیتش این برنامه کاملا ابتکاری هست و خودم نوشتمش ...........بزاریدتوضیح بدم چیه به چیه

رمز پیش فرض 123 هست ..اول میاد عددرومیگره اگر 1 بود میره به زیربرنامه اس 1 اگر دوباره عدد وارد شده درست بود (2) میره به اس 2 اگه سومی هم درست وارد اس 4 میشه پیغام میده درست .و یک پایه رو یک میکنه .......

اگر هر کدوم از این مراحل اشتباه بود میفته توی اس 5 که فقط عدد میگیره و نشون میده اخرش هم مینویسه اشتباه ..........حالا من تو این دستوراتی که وارد کردم هیچ کدوم ارور نمیده فقط اون خط اخر رو گیر دارم

که برنامه نمی فهمه بعدش چه کار کنه (وقتی پایه 1 شد)

نمی دونم گیج شدم خودم

[saeed450]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

دوستان من 3تا end گذاشتم تو این برنامه اشتباه هست ؟ تو زیر برنامه اس 1 واس2 بعد از loop چی بزارم من ؟

اخه جالب این جاست بسکام واسش اروری نمیده ! :cry:

[Ahp_online]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

سلام
ببین دوست عزیز شما باید End را در انتهای برنامه بنویسید نیازی نیست که بعد از هر loop یک end بگذارید البته اشتباه نیست چون برنامه هیچ وقت به اون خط نمی رسه چون شما بعد از loop گذاشتین و هرگز اون خطوط اجرا نمی شوند ولی درست نیست در برنامه استفاده کنید.

[majid_teh2005]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

همانطوری که جناب حیاتی فرمودند

در روتین S1 , S2 شما باید Do و Loop و end را بردارید .


در خط آخر بنویسید

Goto Main

مشکل حل میشود

[saeed450]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

تمام کار هایی که شما دوستان گفتید رو من انجام دادم ....ولی همش ارور میده :angry:

در صورتی که خودتون هم می بینید برنامه اشکال خاصی نداره . :cry2:

فکر کنم این از همون مواردی هست که بسکام بیخودی ارور میده و هیچ علت خاصی هم نداره :NO:

[M.M.-T]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

شما لطف کنید برنامتون رو بگذارید مشکلتون سریع حل خواهد شد.

[saeed450]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

خب گذاشتم که ...پس این چیه

شما این برنامه من توی پست اولم رو تو بسکام کپی کنید ببینید میتونید ارور هاش رو بر طرف کنید ......

[hamed_online62]

پاسخ : کسی میتونه اشکال این برنامه رو به من بگه ؟ (بیسیک)

برنامه پست اول یه سری مشکلات داره .
اول اینکه میکرو تعریف نشده و فرکانس کاری مشخص نشده

اما دو تا خطایی که تو برنامه پست اول مشهوده ایناست
1) تعریف کیبورد که باید اینطوری باشه : Config kbd=POrta
2) خط آخر باید Then حذف بشه