ریشه معادله در avr

[farahnaz1900]

من یه برنامه با بسکام میخوام بنویسم که معادله درجه 1 و 2 و 3 رو حل کنه ولی بسکام همش ایراد میگیره.مشکل کد من از کجاست؟

کد:

$regfile = "m8def.dat"
$crystal = 8000000


Declare Sub Daraje2(a As Integer , B As Integer , C As Integer)



Sub Daraje2(a As Integer , B As Integer , C As Integer)

delta = b ^ 2 - (4 * a * c)
If delta < 0 Then
Lcd "JAVAB NADARAD"
Exit Sub
End If
If (delta = 0) Then
x = -b \ (2 * a)
Lcd(x)
Exit Sub
End If
If delta > 0 Then
h = (-b + (Sqr(delta))) \ (2 * a)
m = (-b - (Sqr(delta))) \ (2 * a)
lcd (h)
Lcd(m)
End If


End Sub

اینو از روی یه کد که واسه ویژوال بیسیک بود تبدیل کردم ولی پر از خطا هست.
ممنون میشم یه نگاهی به کد بندازید

[t3r!p3000]

مهندس متغير هاتو قبل استفاده بايد تعريف كني .

Lcd(m) چي كار ميكنه ؟ تا حالا چنين دستوري تو بسكام ديده بودم .

بعد از Then بايد دو نقطه بذاري ، چون چند تا دستوره و End If هم گذاشتي !

اين كار رو هم نمي شه تو بسكام كرد !
h = (-b + (Sqr(delta))) \ (2 * a)
تك تك عمليات رو انجام بده !

[farahnaz1900]

خیلی از اخطارها از بین رفتند.خیلی متشکرم.
ولی باز هم مشکل داره.

کد:

$regfile = "m8def.dat"
$crystal = 8000000


Declare Sub Daraje2(a As Integer , B As Integer , C As Integer)



Sub Daraje2(a As Integer , B As Integer , C As Integer)

Dim Delta As Single
Dim Delta2 As Single
Dim Delta3 As Single

Dim X As Single
Dim X2 As Single

Dim A As Integer
Dim B As Integer
Dim C As Integer

Dim H As Single
Dim H2 As Single
Dim H3 As Single
Dim H4 As Single

Dim M As Single
Dim M2 As Single
Dim M3 As Single
Dim M4 As Single



Delta = B ^ 2
Delta2 = 4 * A
Delta3 = Delta2 * C


If Delta3 < 0 Then:
Lcd "JAVAB NADARAD"
Exit Sub
End If

If Delta = 0 Then:
X2=2 * a
X = -b \ X2
Lcd X
Exit Sub



If Delta > 0 Then:
H2 = Sqr(delta)
H3 = -b + H2
H4 = 2 * A
H = H3 \ H4


M2 = Sqr(delta)
M3 = -b - M2
M4 = 2 * A
M = M3 \ M4

Lcd H
Lcd M
End If


End Sub



End

برای X = -b \ X2 اخطار variable not dimensioned میده.این اخطار واسه چی هست؟
دو تا اخطار دیگه هم میگیره IF THEN expected و END IF expected اینا واسه چی هستند؟

[t3r!p3000]

اين برنامه رو يه تست كنيد :

کد php:

$regfile = "m8def.dat" : $crystal = 8000000


Declare Sub Daraje2(a As Integer , B As Integer , C As Integer)


Sub Daraje2(a As Integer , B As Integer , C As Integer)
Dim Delta As Single , Delta2 As Single , Delta3 As Single
Dim X As Single , X2 As Single , Ant As Single
Dim A As Integer , B As Integer , C As Integer
Dim H As Single , H2 As Single , H3 As Single , H4 As Single
Dim M As Single , M2 As Single , M3 As Single , M4 As Single


Delta = B ^ 2 : Delta2 = 4 * A : Delta3 = Delta2 * C


If Delta3 < 0 Then:
      Lcd "JAVAB NADARAD"
      Exit Sub

Elseif Delta = 0 Then:
      Ant = 2 * B : Ant = B - Ant : X = Ant \ X2
      Home : Lcd X ; "          "
      Exit Sub

Elseif Delta > 0 Then:
      H2 = Sqr(delta)
      Ant = 2 * B : Ant = B - Ant : H3 = Ant \ H2
      H4 = 2 * A : H = H3 \ H4 : M2 = Sqr(delta)
      M3 = Ant - M2 : M4 = 2 * A : M = M3 \ M4
      Home : Lcd H ; "   " ; M ; "     "
      Exit Sub

End If

End Sub

End 


ايرادهاشو نگاه كنيد مي فهميد .

جالبه كه برنامه اي به اين كوچولويي حدود 3 كيلو جا مي گيره . 37 درصد از ATmega 8

[farahnaz1900]

اقا خیلی ممنون حالا فهمیدم و مشکلم رو حل کردید.تو بسکام نمیشه عملیات رو پشت هم نوشت و باید جدا جدا انجام داد که البته این خیلی بده و تو codevision این مشکل رو نداشت.خیلی هم گیج کننده میشه و احتمال اینکه اشتباه کنیم تو محاسبات زیاد میشه.

حالا یه سوال دیگه؟
آیا میشه کاری کرد که هر بار که یکی از کلید کیبرد 3*4 رو میزنیم فقط یک عدد رو بگیره و مثل ماشین حساب دقیق عدد ها رو روی lcd و یک متغیر ذخیره کنه؟

این کدی هست که من نوشتم:

کد php:

$regfile = "m8def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.0 , Rs = Portd.1
Config Kbd = Portb , Debounce = 250

Dim B As Byte
Main:

Dim A As Byte
A = Getkbd()

If A > 15 Then
Goto Main
End If

If A = 0 Then : B = 1 : End If
If A = 1 Then : B = 4 : End If
If A = 2 Then : B = 7 : End If
'If A = 3 Then : B = 10 : End If     ' char is *
If A = 4 Then : B = 2 : End If
If A = 5 Then : B = 5 : End If
If A = 6 Then : B = 8 : End If
If A = 7 Then : B = 0 : End If
If A = 8 Then : B = 3 : End If
If A = 9 Then : B = 6 : End If
If A = 10 Then : B = 9 : End If
'If A = 11 Then : B = 12 : End If    'char is #

Home
Lcd b
jmp main

End 


[t3r!p3000]

آیا میشه کاری کرد که هر بار که یکی از کلید کیبرد 3*4 رو میزنیم فقط یک عدد رو بگیره و مثل ماشین حساب دقیق عدد ها رو روی lcd و یک متغیر ذخیره کنه؟

منظورتون چيه ؟
الان برنامه خودتون هم همين كارو مي كنه .

البته بهتره اگه يه عدد طولاني هستش ؛ عدد اول رو بگيري و در ه ضرب و كني و بعلاوه عدد دوم كني و دوباره حاصل رو در ده ضرب كني و بعلاوه عدد سوم و ..

اين برنامه رو يه تست كن .

کد php:

$regfile = "m8def.dat"
$crystal = 8000000

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.0 , Rs = Portd.1
Config Lcd = 16 * 2 : Cursor Off : Cls

Config Kbd = Portb , Debounce = 200

Dim B As Byte , A As Byte , C As Byte , L As Long

L = 0

Do

   Do
         A = Getkbd()
         If A <> 16 Then Exit Do
   Loop

   If A <> 3 Or A <> 11 Then B = Lookup(a , Number)

   L = L * 10 : L = L + B : Home

   If L < 10 Then : Lcd "        " ; L
   Elseif L < 100 Then : Lcd "       " ; L
   Elseif L < 1000 Then : Lcd "      " ; L
   Elseif L < 10000 Then : Lcd "     " ; L
   Elseif L < 100000 Then : Lcd "    " ; L
   Elseif L < 1000000 Then : Lcd "   " ; L
   Elseif L < 10000000 Then : Lcd "  " ; L
   Elseif L < 100000000 Then : Lcd " " ; L
   Elseif L < 1000000000 Then : Lcd L : L = 0
   End If

Loop

Number:
Data 1 , 4 , 7 , 10 , 2 , 5 , 8 , 0 , 3 , 6 , 9 , 12 


عدد مورد نظر تو متغير L ذخيره مي شه و عين ماشين حساب از سمت راست نشون داده مي شه .

[farahnaz1900]

نه منظورم اینه که تا دستمون رو مثلا روی 1 گذاشتیم بیست سی تا 1 تایپ نکنه.
Debounce رو هرچی زیاد میکنم بازم نمیشه!
تو پروتوس جواب میده ولی توی عمل خیلی بدجوره چند تا مقاومت 220 اهم هم با هر کدوم از پایه ها زمین کردم لرزشی که روی lcd داشت درست شد ولی باز هم با هر بار فشردن یک کلید تعداد زیادی از آن رو تایپ میکنه.

[t3r!p3000]

خوب عدد اول رو بگيريد .

بعد هر موقع عدد 16 از كيبرد دريافت شد ( يعني هيچ دكمه اي فشار داده نشد ) اون موقع عدد دوم رو بگيرين .

همين

[1nafar]

سلام
میتونید بین گرفتن هر عدد یه تاخیر زمانی 200 میکلی ثانیه ای بزارید.
یه نمونه کد برای گرفتن عدد از کیبرد:

کد:

dim a as byit ,b as word
q:
a=getkbd()
if a>15 then goto q
end if
if b = 0 then
b=a
else
b=b*10
b=b+a
end if
lcd b
waitms 200
goto q

[farahnaz1900]

مرسی.
تاخیرها تو بسکام باعث بروز یه سری مشکل میشه.
من تونستم با Microbasic این مشکل رو با Delay خوده کیبرد حل کنم.

[1nafar]

سلام
میشه مشکلات رو بگید؟