با عرض سلام خدمت بچه های زاگرس الکترونیک/ بچه ها من یه ترازو دیجیتال از این سایت دانلود کردم ولی بعضی جاهاش به مشکل برخوردم کسی هستش منو کمک کنه

سلام
مشکل چیه؟

سلام داداش برنامه نویسیش و شبیه سازی

مشکلو بگو ولی فکر نمیکنم مشکلی داشته باشه

سلام این برنامشه

$regfile = "m8def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , _
Db7 = Portd.0 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Enable Interrupts
Enable Adc

Dim I As Byte
Dim M As Single
Dim M_mem As Eram Single
Dim Y As Single
Dim X1 As Single
Dim X0 As Single
Dim X0_mem As Eram Single
Dim W As Word
Dim A As Single
Dim B As String * 4
Dim S As Word
Dim K As Single
Dim Tab As String * 10


Config Portc = Input
Config Portd = Output
Ddrb.0 = 1
Ddrb.1 = 1
Ddrb.4 = 0
Ddrb.5 = 0
Ddrb.6 = 0
Ddrb.7 = 0
Pinb.4 = 1
Pinb.5 = 1
Pinb.6 = 1
Pinb.7 = 1
'

---

'STARTP

---

'

---

Startp:
Cls
Cursor Off
Home
Lcd "Tarazoo Digital"
Wait 1
Cls
Home
Lcd "LOADING.."
Lowerline
For I = 0 To 15
Locate 2 , I
Lcd "*"
Waitms 90
Next
Cls
'

---

'CALIBRASION

---

'

---

If Pinb.7 = 0 Then
Locate 1 , 1 : Lcd "CALIBRATION=0Kgr"
Locate 2 , 1 : Lcd "PRES >>>>KEY<<<<"
Bitwait Pinb.7 , Set
Do
If Pinb.7 = 0 Then
Bitwait Pinb.7 , Set
'SET KARDAN 0KGR
W = Getadc(5)
X0 = W
Exit Do
End If
Loop
Locate 1 , 1 : Lcd "CALIBRATION=1Kgr"
Locate 2 , 1 : Lcd "PRES >>>>KEY<<<<"
Do
If Pinb.7 = 0 Then
Bitwait Pinb.7 , Set
'SET KARDAN 1KGR
W = Getadc(5)
X1 = W
Exit Do
End If
Loop
W = X1 - X0
M = 1000 / W
M_mem = M
Waitms 10
X0_mem = X0
Waitms 10
End If
M = M_mem
Waitms 10
X0 = X0_mem
Waitms 10
'

---

'MAIN

---

'

---

Cls
Do
Home
W = Getadc(5)
W = W - X0
Y = M * W
A = Int(y)


Locate 1 , 1 : Lcd "LOAD="
Locate 1 , 7 : Lcd A ; " g" ; " "
Waitms 90

If A > 1 And A < 700 Then
Reset Portd.6
Reset Portd.7
Reset Portb.0
Set Portb.1
Elseif A > 701 And A < 1400 Then
Reset Portd.6
Reset Portd.7
Set Portb.0
Set Portb.1
Elseif A > 1401 And A < 1900 Then
Reset Portd.6
Set Portd.7
Set Portb.0
Set Portb.1
Elseif A > 1901 And A < 2900 Then
Set Portd.6
Set Portd.7
Set Portb.0
Set Portb.1
End If






If Pinb.6 = 0 Then
Bitwait Pinb.6 , Set
S = S + Y
If S < 1000 Then
Locate 2 , 1 : Lcd "ACU=" ; S ; "gr "
Elseif S > 999 Then
K = S / 1000
Tab = Fusing(k , "$.$$$")
Locate 2 , 1 : Lcd "ACU=" ; Tab ; "kgr "
End If
End If



Loop


End


از قسمت قسمت کالیبراسیون تا اخره برنامه که متغیره w چه تغیراتتی روش انجام میشه یعنی این قسمت ها
If Pinb.7 = 0 Then
Locate 1 , 1 : Lcd "CALIBRATION=0Kgr"
Locate 2 , 1 : Lcd "PRES >>>>KEY<<<<"
Bitwait Pinb.7 , Set
Do
If Pinb.7 = 0 Then
Bitwait Pinb.7 , Set
'SET KARDAN 0KGR
W = Getadc(5)
X0 = W
Exit Do
End If
Loop
Locate 1 , 1 : Lcd "CALIBRATION=1Kgr"
Locate 2 , 1 : Lcd "PRES >>>>KEY<<<<"
Do
If Pinb.7 = 0 Then
Bitwait Pinb.7 , Set
'SET KARDAN 1KGR
W = Getadc(5)
X1 = W
Exit Do
End If
Loop
W = X1 - X0
M = 1000 / W
M_mem = M
Waitms 10
X0_mem = X0
Waitms 10
End If
M = M_mem
Waitms 10
X0 = X0_mem
Waitms 10
و این قسمت آخر که معلوم نیست چه عملیاتی انجام میده

If Pinb.6 = 0 Then
Bitwait Pinb.6 , Set
S = S + Y
If S < 1000 Then
Locate 2 , 1 : Lcd "ACU=" ; S ; "gr "
Elseif S > 999 Then
K = S / 1000
Tab = Fusing(k , "$.$$$")
Locate 2 , 1 : Lcd "ACU=" ; Tab ; "kgr "
End If
End If

اگه راه ارتباطی دیگه ای مثل فیسبوک یا اگه کامل در مورد برنامه سر در میاری به من خبر بدید در ضمن پروتیوسش اصلا عکس العملی انجام نمیده