srf05

[rezam11]

سلام دوستان
من یک متر با srf05 بستم و میخوام تو اندازه های مختلف و بازه های مختلف تعدادی ال ای دی رو برام روشن و خاموش کنه
ولی مشکل من اینه که دقیقا نمیدونم این بازه ها رو چجور تو دستور if بنویسم :sad:

[yousef55]

پاسخ : srf05

Dim A As Word
Dim S As Single
'--------------------------------------------

Const K = 0.1725
Waitms 50
Do
Trigger = 1
Waitus 15
Trigger = 0
Waitus 10
Pulsein A , Pinc , 5 , 1
S = A * K
Waitms 1
If S > 1 And S < 10 Then Portd = &B11100000
If S => 10 And S < 20 Then Portd = &B11100001
If S => 20 And S < 35 Then Portd = &B11100011
If S => 35 And S < 50 Then Portd = &B11100111
If S => 50 And S < 70 Then Portd = &B11101111
If S => 70 Then Toggle Portd.3


Waitms 400
Loop

[rezam11]

پاسخ : srf05

سلام دوستان
من یک متر با srf05 بستم و میخوام تو اندازه های مختلف و بازه های مختلف تعدادی ال ای دی رو برام روشن و خاموش کنه
ولی مشکل من اینه که دقیقا نمیدونم این بازه ها رو چجور تو دستور if بنویسم :sad:

چ

Dim A As Word
Dim S As Single
'--------------------------------------------

Const K = 0.1725
Waitms 50
Do
Trigger = 1
Waitus 15
Trigger = 0
Waitus 10
Pulsein A , Pinc , 5 , 1
S = A * K
Waitms 1
If S > 1 And S < 10 Then Portd = &B11100000
If S => 10 And S < 20 Then Portd = &B11100001
If S => 20 And S < 35 Then Portd = &B11100011
If S => 35 And S < 50 Then Portd = &B11100111
If S => 50 And S < 70 Then Portd = &B11101111
If S => 70 Then Toggle Portd.3


Waitms 400
Loop

ممنون دوست عزیز ولی به زبان c مینویسم از اسمبل چیز زیادی سر در نمیارم :sad: