ترازو دیجیتال avr |
- hafez_hacker
- نویسنده موضوع
- آفلاین
- COM_KUNENA_SAMPLEDATA_RANK_ADMIN
بستن
اطلاعات بیشتر
- ارسال ها: 5
- تشکرهای دریافت شده: 0
10 سال 4 هفته قبل #197
توسط hafez_hacker
با عرض سلام خدمت بچه های زاگرس الکترونیک/ بچه ها من یه ترازو دیجیتال از این سایت دانلود کردم ولی بعضی جاهاش به مشکل برخوردم کسی هستش منو کمک کنه
لطفاً ورود یا ايجاد حساب كاربری برای پیوستن به بحث.
بستن
اطلاعات بیشتر
- ارسال ها: 111
- امتياز: 26
- تشکرهای دریافت شده: 43
10 سال 3 هفته قبل #198
توسط atmega128
سلام
مشکل چیه؟
مشکل چیه؟
لطفاً ورود یا ايجاد حساب كاربری برای پیوستن به بحث.
- hafez_hacker
- نویسنده موضوع
- آفلاین
- COM_KUNENA_SAMPLEDATA_RANK_ADMIN
بستن
اطلاعات بیشتر
- ارسال ها: 5
- تشکرهای دریافت شده: 0
10 سال 2 هفته قبل #206
توسط hafez_hacker
سلام داداش برنامه نویسیش و شبیه سازی
لطفاً ورود یا ايجاد حساب كاربری برای پیوستن به بحث.
بستن
اطلاعات بیشتر
- ارسال ها: 111
- امتياز: 26
- تشکرهای دریافت شده: 43
10 سال 2 هفته قبل #207
توسط atmega128
مشکلو بگو ولی فکر نمیکنم مشکلی داشته باشه
لطفاً ورود یا ايجاد حساب كاربری برای پیوستن به بحث.
- hafez_hacker
- نویسنده موضوع
- آفلاین
- COM_KUNENA_SAMPLEDATA_RANK_ADMIN
بستن
اطلاعات بیشتر
- ارسال ها: 5
- تشکرهای دریافت شده: 0
10 سال 1 هفته قبل #208
توسط hafez_hacker
سلام این برنامشه
$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
$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
لطفاً ورود یا ايجاد حساب كاربری برای پیوستن به بحث.
- hafez_hacker
- نویسنده موضوع
- آفلاین
- COM_KUNENA_SAMPLEDATA_RANK_ADMIN
بستن
اطلاعات بیشتر
- ارسال ها: 5
- تشکرهای دریافت شده: 0
10 سال 1 هفته قبل #209
توسط hafez_hacker
اگه راه ارتباطی دیگه ای مثل فیسبوک یا اگه کامل در مورد برنامه سر در میاری به من خبر بدید در ضمن پروتیوسش اصلا عکس العملی انجام نمیده
لطفاً ورود یا ايجاد حساب كاربری برای پیوستن به بحث.