ايران ويج

من یه برنامه با بسکام میخوام بنویسم که معادله درجه 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

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

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

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

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

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

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

کد: 
$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 اینا واسه چی هستند؟

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

کد 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

اقا خیلی ممنون حالا فهمیدم و مشکلم رو حل کردید.تو بسکام نمیشه عملیات رو پشت هم نوشت و باید جدا جدا انجام داد که البته این خیلی بده و تو 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 

farahnaz1900 نوشته است:آیا میشه کاری کرد که هر بار که یکی از کلید کیبرد 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 ذخيره مي شه و عين ماشين حساب از سمت راست نشون داده مي شه .

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

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

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

همين

سلام
میتونید بین گرفتن هر عدد یه تاخیر زمانی 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

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

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

farahnaz1900

t3r!p3000

farahnaz1900

t3r!p3000

farahnaz1900

t3r!p3000

farahnaz1900

t3r!p3000

1nafar

farahnaz1900

1nafar