ماشين حساب

[franky]

پروژه ماشين حساب كه حداقل 4 عمل اصلي رو داشته باشه ، در محيط بسكام، كي داره؟

[franky]

و ما كماكان منتظريم........... 8) يه بار خواستيم تقلب كنيم ها.

[ha_60]

شاید کسی نداشته باشه یکم زور بزن بنویس :wink:

[franky]

اينو ببينين. تنها هنرش اينه كه جواب ميده و فقط هم دو رقميه
اگه بخوام اعداد بزرگتر رو بيارم كدهاش خيلي زياد ميشه،چه كنم؟تازه كار بودن هم بد درديه ها!!!

کد:

' Key 10 = 0
   ' Key 11 = "="
   ' Key 12 = "+"
   ' Key 13 = "*"
   ' Key 14 = "-"
   ' Key 15 = "/"
$regfile = "m8535.dat"
$crystal = 8000000
Config Portb = Output
Config Kbd = Porta , Debounce = 200
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , Rs = Portb.3 , E = Portb.2
   Config Lcd = 16 * 2
      Dim A As Integer , B As Integer , C As Integer , D As Integer
      Dim G As Integer , F As Integer
Cls
Do
M1:
  Do
    A = Getkbd()
  Loop Until A < 10
Lcd A
Mn:
  Do
    C = Getkbd()
  Loop Until C < 10
Lcd C
M7:
  B = Getkbd()
  If B >= 12 And B <= 15 Then
  Goto M2
  Else
  Goto M7
  End If
  M2:
Select Case B
Case 12 :
          Lcd "+"
           Goto M4
Case 13 :
          lcd "*"
           Goto M4
Case 14 :
           lcd "-"
           Goto M4
Case 15 :
            lcd "/"
            Goto M4
End Select
M4:
  Do
    D = Getkbd()
Loop Until D < 10
Lcd D
M5:
Do
    F = Getkbd()
Loop Until F < 10
Lcd F
  Do
   G = Getkbd()
Loop Until G = 11
M3:
  Select Case B
  Case 12 :
               A = A * 10
                A = C + A
                D = D * 10
                D = D + F
                A = A + D
  Lcd "="
  Lcd A
  Case 13 :
                A = A * 10
                A = C + A
                D = D * 10
                D = D + F
                A = A * D
  Lcd "="
  Lcd A
  Case 14 :
                     A = A * 10
                A = C + A
                D = D * 10
                D = D + F
                A = A - D
  Lcd "="
  Lcd A
  Case 15 :
               A = A * 10
                A = C + A
                D = D * 10
                D = D + F
                A = A / D
                Lcd "="
  Lcd A
   End Select
    M0:
     Do
  D = Getkbd()
  Loop Until D = 10
  Cls
      Loop
      End                                                   'end program

[/u][/list]

[ha_60]

والا دقیقا نمی دونم چی کار می کنه
ولی یه این مشکلی نیست شما اعدا رو می گیری تا یکی از عملگر های اصلی یا cancel زده بشه هر عددی هم که وارد می کنی بقیه رو 10 برابر می کنی اینو باهاش جمع می کنی
ok ؟
یکی از عملگر ها که فشرده شد دخیره می کنی و عدد بعدی بعد هم با دستور ضرب یا تقسیم یا ...

[fereshtehjoony]

اگه میشه به زبان سی هم بدید .
مرسی

[masoodhashemy]

ببخشید البته تاریخ پست خیلی قدیمی هست ولی این هم ببینید ضرر ندارد:(البته مهندسی هست)
http://kavirelectronic.ir/fa/modules.php...0&start=45
اگر ساده 4 عمل اصلی هم بخواهید میگذارم.

[fereshtehjoony]

ممنون میشم اگه ماشین حساب ساده رو به زبان سی هم بزارید .مرسی

[masoodhashemy]

ماشین حساب ساده به basic هست میخوای؟
پروژه 60 رو مخصوص شما گذاشتم :)
http://kavirelectronic.ir/fa/modules.php...=6461#6461