با سلام خدمت همه دوستان بنده تازه ماژول لودسل HX711 رو خریداری کردم و خیلی راحت تونستم راه اندازیش کنم دیدم بعضی از دوستان تو این زمینه مشکل دارن برنامه رو گذاشتم تا اگه کسی مشکی داره ازش استفاده کنه
'---------------------- HX711 LoadCell Madule ----------------------------------
$regfile = "m16def.dat"
$crystal = 8000000
'-------------------------------------------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 _
, Db7 = Portc.5
Cls
Lcd "morteza"
Waitms 3000
Cls
Config Portb.0 = Output
Config Pinb.1 = Input
Sck Alias Portb.0
Datain Alias Pinb.1
Sck = 0
Datain = 1
Dim Weight As Long
Dim I As Byte
Do
While Datain = 0
For I = 1 To 24
Sck = 1
Rotate Weight , Left
If Datain <> 0 Then Incr Weight
Sck = 0
Next I
Sck = 1
Weight = Weight Xor &H800000
Sck = 0
Wend
Cls
Lcd Weight
Waitms 2000
Loop
End
'---------------------- HX711 LoadCell Madule ----------------------------------
$regfile = "m16def.dat"
$crystal = 8000000
'-------------------------------------------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 _
, Db7 = Portc.5
Cls
Lcd "morteza"
Waitms 3000
Cls
Config Portb.0 = Output
Config Pinb.1 = Input
Sck Alias Portb.0
Datain Alias Pinb.1
Sck = 0
Datain = 1
Dim Weight As Long
Dim I As Byte
Do
While Datain = 0
For I = 1 To 24
Sck = 1
Rotate Weight , Left
If Datain <> 0 Then Incr Weight
Sck = 0
Next I
Sck = 1
Weight = Weight Xor &H800000
Sck = 0
Wend
Cls
Lcd Weight
Waitms 2000
Loop
End
دیدگاه