سلام
وقت بخیر
در 8051 برای تبدیل یک بایت به معادل رقمی آن ، به اینصورت عمل میشد .
منتها در BASCOM نتونستم چیزی برای این تبدیل پیدا کنم
اساتید گرامی ، لطفا بفرمایید کد این تبدیل به چه صورتی باید نوشته بشه ؟
با احترام
93/9/26
وقت بخیر
در 8051 برای تبدیل یک بایت به معادل رقمی آن ، به اینصورت عمل میشد .
کد:
BIN_DEC MOV A,#xxxxxxxxB MOV B,#100 DIV AB صـدگان درR3 MOV R3,A ; R3 CONTAIN HUNDRED NUMBER MOV A,B MOV B,#10 DIV AB دهگان درR2 MOV R2,A ; R2 CONTAIN TENTH NUMBER و یـکان درR1 MOV R1,B ; R1 CONTAIN LEFT DECIMAL NUMBER
کد:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 20 * 2
Config Lcdpin = Pin , Rs = Portd.0 , E = Portd.1 , Db4 = Portd.6 _
, Db5 = Portd.7 , Db6 = Portb.0 , Db7 = Portb.1
Cursor Off
Dim Mixer As Byte
Dim Sp1 As Byte
Dim Sp2 As Byte
Dim Sp3 As Byte
Cls
Mixer = 0
Do
'====== >>> calculate a byte register to 3 bcd register <<< ============================================
؟؟؟ code
same : 10010010 '
mixer : 146
sp1 : 1 sp2 : 4 sp3 : 6
' ================== register number ==============
Locate 1 , 8
Lcd Mixer
' ================== hundredths digit ==============
Locate 2 , 6
Lcd ; Sp1;
' ================== tenths digit ==============
Locate 2 , 9
Lcd ; Sp2;
' ================== ones digit ==============
Locate 2 , 12
Lcd ; Sp3;
Incr Mixer
Waitms 30
Loop
End
با احترام
93/9/26
دیدگاه