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