۱۳-آذر-۱۳۸۶, ۰۸:۴۶:۲۰
صفحه‌ها: 1 2
۱۴-آذر-۱۳۸۶, ۰۰:۱۶:۳۸
و ما كماكان منتظريم........... 8) يه بار خواستيم تقلب كنيم ها.
۱۴-آذر-۱۳۸۶, ۱۰:۰۴:۳۹
شاید کسی نداشته باشه یکم زور بزن بنویس :wink:
۲۳-آذر-۱۳۸۶, ۱۲:۳۱:۴۰
اينو ببينين. تنها هنرش اينه كه جواب ميده و فقط هم دو رقميه
اگه بخوام اعداد بزرگتر رو بيارم كدهاش خيلي زياد ميشه،چه كنم؟تازه كار بودن هم بد درديه ها!!!
[/u][/list]
اگه بخوام اعداد بزرگتر رو بيارم كدهاش خيلي زياد ميشه،چه كنم؟تازه كار بودن هم بد درديه ها!!!
کد:
' 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۲۴-آذر-۱۳۸۶, ۱۰:۰۱:۳۳
والا دقیقا نمی دونم چی کار می کنه
ولی یه این مشکلی نیست شما اعدا رو می گیری تا یکی از عملگر های اصلی یا cancel زده بشه هر عددی هم که وارد می کنی بقیه رو 10 برابر می کنی اینو باهاش جمع می کنی
ok ؟
یکی از عملگر ها که فشرده شد دخیره می کنی و عدد بعدی بعد هم با دستور ضرب یا تقسیم یا ...
ولی یه این مشکلی نیست شما اعدا رو می گیری تا یکی از عملگر های اصلی یا cancel زده بشه هر عددی هم که وارد می کنی بقیه رو 10 برابر می کنی اینو باهاش جمع می کنی
ok ؟
یکی از عملگر ها که فشرده شد دخیره می کنی و عدد بعدی بعد هم با دستور ضرب یا تقسیم یا ...
۱۴-آذر-۱۳۸۸, ۲۱:۰۹:۳۴
اگه میشه به زبان سی هم بدید .
مرسی
مرسی
۱۵-آذر-۱۳۸۸, ۱۰:۵۵:۵۷
ببخشید البته تاریخ پست خیلی قدیمی هست ولی این هم ببینید ضرر ندارد:(البته مهندسی هست)
http://kavirelectronic.ir/fa/modules.php...0&start=45
اگر ساده 4 عمل اصلی هم بخواهید میگذارم.
http://kavirelectronic.ir/fa/modules.php...0&start=45
اگر ساده 4 عمل اصلی هم بخواهید میگذارم.
۱۸-آذر-۱۳۸۸, ۲۳:۳۰:۵۰
ممنون میشم اگه ماشین حساب ساده رو به زبان سی هم بزارید .مرسی
۲۰-آذر-۱۳۸۸, ۱۰:۲۹:۰۷
ماشین حساب ساده به basic هست میخوای؟
پروژه 60 رو مخصوص شما گذاشتم :)
http://kavirelectronic.ir/fa/modules.php...=6461#6461
پروژه 60 رو مخصوص شما گذاشتم :)
http://kavirelectronic.ir/fa/modules.php...=6461#6461
صفحه‌ها: 1 2