سوالهای برنامه نویسی با کامپایلر BASCOM

[h0x00i]

مثل IF کار می کنه فقط در این یک کارکتر چک می کنن

مثلا اینجا شما S را چک می کنی و اگر برقرار بود شروط زیرش انجام میشه در غیر اینصوزت یا ELSE# انجام میشه توی HELP یه نگاه کنی توضیح داده

[sharin]

حامد جان يه ديد به help اش انداختم ، ولي چيزي كه مد نظرم بود رو نگرفتم !!
اين برنامه ي زير رو ببين :

کد:

$regfile = "M16DEF.DAT"
$crystal = 8000000
#if Varexist( "S("
Dim A As Byte
#else
Dim S As Byte
#endif
End

اين برنامه كامل هست ؟؟!!
منظور از چك كردن يه كاراكتر چي هست ؟؟
مثلا مثل اينه كه ما حرف خاصي رو از روي keyboard انتخاب كنيم و اين حرف توسط اين دستور چك بشه كه درسته يا ...
آره ؟؟ منظور اينه ؟؟
اين برنامه ي بالادقيقا چي كار مي كنه ؟؟

ممنون.

[رسول]

سلام

من یه برنامه ای نوشتم که توسط چهار تا کلید چهار تا خروجی رو کنترل کنم ... یعنی کلیدها کار ON/OFF رو انجام میدن ... بعبارتی وقتی کلیدی یکبار فشرده شد خروجی یک و اگه یکبار دیگه فشرده شد خروجی صفر باید بشه ...

در ضمن هر چهار تا کلید و خروجیها هر کدوم باید جداگونه کارشون رو انجام بدن <*-*>


اما نمی دونم اشکالش کجاست که جواب نمیده!!!

کد php:

$regfile = "M8DEF.dat"
$crystal = 8000000

Ddrd.0 = 0 : Portd.0 = 1
Ddrd.1 = 0 : Portd.1 = 1
Ddrd.2 = 0 : Portd.2 = 1
Ddrd.3 = 0 : Portd.3 = 1

Ddrb.0 = 1
Ddrb.1 = 1
Ddrb.2 = 1
Ddrb.3 = 1




Do
Debounce Pind.0 , 0 , Sar1 , Gosub

Loop

Sar1:
Toggle Portb.0






Do
Debounce Pind.1 , 0 , Sar2 , Gosub

Loop

Sar2:
Toggle Portb.1




Do
Debounce Pind.2 , 0 , Sar3 , Gosub

Loop

Sar3:
Toggle Portb.2



Do
Debounce Pind.3 , 0 , Sar4 , Gosub

Loop

Sar4:
Toggle Portb.3


Return 


اینم یه جور دیگه که بازم جواب نداد!!

کد php:

$regfile = "m8def.dat"
$crystal = 8000000

Ddrd.0 = 0 : Portd.0 = 1
Ddrd.1 = 0 : Portd.1 = 1
Ddrd.2 = 0 : Portd.2 = 1
Ddrd.3 = 0 : Portd.3 = 1

Ddrb.0 = 1
Ddrb.1 = 1
Ddrb.2 = 1
Ddrb.3 = 1



Bitwait Pind.0 , Reset
Toggle Portb.0
Bitwait Pind.0 , Reset
Toggle Portb.0


Bitwait Pind.1 , Reset
Toggle Portb.1
Bitwait Pind.1 , Reset
Toggle Portb.1


Bitwait Pind.2 , Reset
Toggle Portb.2
Bitwait Pind.2 , Reset
Toggle Portb.2


Bitwait Pind.3 , Reset
Toggle Portb.3
Bitwait Pind.3 , Reset
Toggle Portb.3


Return 


----------------------------------------------
خداوند تا دم واپسین توبه بنده را می پذیرد

[reza555]

سلام رسول جان

کد:

$regfile = "M8DEF.dat"
$crystal = 8000000

Config Portd = Output : Portd = 0
Config Portb = Input : Portb = 255

Dim Temp1 As Byte , Temp2 As Byte

Do

Temp1 = Pinb
Waitms 50
Temp2 = Pinb
If Temp1 = Temp2 Then Portd = Temp1
'If Temp1 = Temp2 Then Portd = Temp2

Loop

End

به جای استفاده از میکرو میتونی از 2 تا D Flip-Flop با شماره 4013 استفاده کنی به صورت زیر:
هر آی سی 2 تا فلیپ فلاپ توی خودش داره:

[رسول]

سلام رضا جون ... خیلی ممنون


این برنامه خیلی کامله ممنون .... ولی کلیدها لحظه ای عمل میکنند!!

من میخوام که دائمی باشه ... یعنی اگه کلید یکبار فشار داده شد مثبت بشه و بمونه و اگه دوباره فشرده شد صفر بشه و بمونه ....

مثل دستور toggle

-----------------------------------
هر که میانه روی کند فقیر نشود

[reza555]

سلام رسول جون حواسم نبود
ببین این جوری خوبه؟

  Rasoul.rar (اندازه: 13.18 KB / تعداد دفعات دریافت: 46)

[رسول]

رضا جون شرمنده کردین ...

دیگه فایل پروتئوس لازم نبود که ... چرا خودتون رو به زحمت انداختین


----------------------------------------------
صدقه ای بهتر از یاد کردن خدای والا نیست

[ghatre]

سلام
یه عدد سه رقمی دلخواه دارم و می خوام رقم صدگان رو ازش بردارم.

کد:

Dim Sahgan As Integer
Dim Num As Integer
Sadgan = Num / 100

ولی تو خط Sadgan = Num / 100 خطای invalid datatype داده. num یک عدد دلخواه 3 رقمی است

[ahmado]

باسلام : به دوستان عزيز: من يه مشكل در دريافت اطلاعات (رشته ها) و مقايسه اونها دارم لطفا راهنمايي كنيد :
اكر ما در حال دريافت تعدادي رشته به صورت سريال باشيم : مثلا : ( ahmad mahmod hosinie sara mina ahmadi) كه بعد از دريافت هررشته يا كلمه فوق ( اينتر ) زده باشد . اولا جطوري اين رشته ها را دريافت كنيم ودر ميكرو .دخيره كنيم و دوما اكر ما بخواهيم در اين رشته ها دنبال رشته خودمان باشيم . مثلا mina ahmadi را جطوري بفهميم كه در اين رشته ها است : ممنون ميشم كسي جواب بده :

[EBKA]

سلام به دوستان
این دستور برای چیه؟؟؟ من تو هلپ بسکام هم گشتم چیزی نبود!!!

کسی میدونه؟؟؟

کد:

'Clkpr = &H80
'Clkpr = &H00

---

---

سلام
یه عدد سه رقمی دلخواه دارم و می خوام رقم صدگان رو ازش بردارم.

کد:

Dim Sahgan As Integer
Dim Num As Integer
Sadgan = Num / 100

ولی تو خط Sadgan = Num / 100 خطای invalid datatype داده. num یک عدد دلخواه 3 رقمی است

dim sahgan رو به dim sadgan تغییر بده

[arashdj]

با سلام

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