ايران ويج

صفحه‌ها: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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

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

حامد جان يه ديد به 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 

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

سلام رسول جان

کد: 
$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 تا فلیپ فلاپ توی خودش داره:
[تصویر: 7kqknot4rbkabxzcftbd.jpg]

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

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

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

مثل دستور toggle

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

سلام رسول جون حواسم نبود
ببین این جوری خوبه؟
[attachment=6260]

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

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

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

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

کد: 
Dim Sahgan As Integer

Dim Num As Integer

Sadgan = Num / 100

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

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

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

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

کد: 
'Clkpr = &H80

'Clkpr = &H00

(۰۸-فروردین-۱۳۹۰, ۲۳:۲۰:۵۹)ghatre نوشته است: [ -> ]سلام
یه عدد سه رقمی دلخواه دارم و می خوام رقم صدگان رو ازش بردارم.

کد:
Dim Sahgan As Integer Dim Num As Integer Sadgan = Num / 100

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

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

با سلام

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

صفحه‌ها: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

h0x00i

sharin

رسول

reza555

رسول

reza555

رسول

ghatre

ahmado

EBKA

arashdj