有關類比轉數位之程式 8051 ADC0804 RS232 請求達人幫助

sss555

小弟有個問題，想請各位達人 大師 幫忙ㄧ下
小弟卡在類比轉數位的8051以及AD0804、RS232之間不會溝通，8051程式碼在編譯的時候有誤 但是怎嚜找都找不到，望請各位大大幫忙ㄧ下 附上程式碼  還是小弟本身程式有誤，還請各位大大指教... 或者大大您可否幫寫程式，小弟我萬分感激 好人有好報啊

程式碼如下     
ORG 0000H
JMP START
ORG 0023H
JMP INTERR
START:
MOV SP,#70H
MOV DPTR,#TABLE
MOV 20H,#00H
MOV 21H,#00H
MOV IE,#10010000B
MOV SCON,#01110000B
MOV TMOD,#00100000B
MOV TH1,#0FDH
SETB TR1
MAIN:
CLR P1.7
ACALL DELAY
SETB P1.7
WAIT:
JB P1.6,WAIT
MOV A,P2
MOV B,A
SWAP A
ANL A,#00001111B
MOVC A,@A+DPTR
MOV DPTR,
MOV 20H,A
MOV A,B
ANL A,
MOVC A,@A+DPTR
MOV 21H,A
SETB TI
AJMP MAIN
INTERR:
PUSH A
JBC TI,TIINT
POP A
RETI
TIINT:
MOV A,20H
MOV SBUF,A
JNB TI,$
CLR TI
MOV A,21H
MOV SBUF,A
JNB TI,$
CLR TI
POP A
RETI
DELAY:
MOV R6,#20
DL1: MOV R7,#200
DJNZ R7,$
DJNZ R6,DL1
RET
TABLE:
DB 30H
DB 31H
DB 32H
DB 33H
DB 34H
DB 35H
DB 36H
DB 37H
DB 38H
DB 39H
DB 41H
DB 42H
DB 43H
DB 44H
DB 45H
DB 46H
END

alphi

有考慮C語言嗎.這樣我可以幫你寫一下

sss555

alphi 發表於 2011-11-7 22:17  
有考慮C語言嗎.這樣我可以幫你寫一下

好~大大感謝你了 小弟感激不盡

alphi

你需要的baudrate 用RS232輸出格式為何 其結尾為\r\n 還是其他

begti20

組譯後有兩個指令錯誤如下
               2500 A.D. 8051 Macro Assembler  -  Version 5.00c
               ------------------------------------------------
                       Input  Filename : adc0804.asm
                       Output Filename : adc0804.obj

   26   0051   90 00 00                 MOV DPTR,
        ***** adc0804.asm : Line 26 *****
        ***** ILLEGAL ADDRESSING MODE *****
   29   0058   55 41                    ANL A,
        ***** adc0804.asm : Line 29 *****
        ***** SYNTAX ERROR *****

           Lines Assembled :  61             Assembly Errors :  2

26 DPTR在START:程式段中 MOV DPTR,#TABLE設定過初始值,它指向TABLE
   整個程式並不需要更改DPTR。
   所以可以將這個指令刪除

29 在MAIN的程式中，你檢查P1.6=0輸入P2 port，將P2的高4bit值轉換成
   ASCII碼置於20H,低4bit值轉換成ASCII碼置於21H。
   修改成ANL A,#00001111B即可

修改後的程式如下,試試看
         ORG 0000H
         JMP START
         ORG 0023H
         JMP INTERR
START:
         MOV SP,#70H
         MOV DPTR,#TABLE
         MOV 20H,#00H
         MOV 21H,#00H
         MOV IE,#10010000B
         MOV SCON,#01110000B
         MOV TMOD,#00100000B
         MOV TH1,#0FDH
         SETB TR1
MAIN:
         CLR P1.7
         ACALL DELAY
         SETB P1.7
WAIT:
         JB P1.6,WAIT
         MOV A,P2
         MOV B,A
         SWAP A
         ANL A,#00001111B
         MOVC A,@A+DPTR
;        MOV DPTR,
         MOV 20H,A
         MOV A,B
         ANL A,#00001111B
         MOVC A,@A+DPTR
         MOV 21H,A
         SETB TI
         AJMP MAIN
INTERR:
         PUSH A
         JBC TI,TIINT
         POP A
         RETI
TIINT:
         MOV A,20H
         MOV SBUF,A
         JNB TI,$
         CLR TI
         MOV A,21H
         MOV SBUF,A
         JNB TI,$
         CLR TI
         POP A
         RETI
DELAY:
         MOV R6,#20
DL1:    MOV R7,#200
         DJNZ R7,$
         DJNZ R6,DL1
         RET
TABLE:  ; ASCII code: 0..9,A..F
         DB 30H,31H,32H,33H,34H
         DB 35H,36H,37H,38H,39H
         DB 41H,42H,43H,44H,45H
         DB 46H
         END

sss555

alphi 大師~ 這我從網上找到的  是能寫入8051上 但是我不曉得 為什麼RS232總是沒反應   在這感謝大大
程式如下
// Program to read the values of ADC and serially tranmitting it to PC.
#include<reg51.h>
sbit wr= P2^0;        // Write pin. It is used to start the conversion.
sbit rd= P2^1;        // Read pin. It is used to extract the data from internal register to the output pins of ADC.
sbit intr= P2^2;        // Interrupt pin. This is used to indicate the end of conversion. It goes low when conversion is complete.

void transmit()        // Function for serial tranmission of data.
{
    SBUF=P1;
    while(TI==0);
    TI=0;
}

void delay(unsigned int msec )        // The delay function provides delay in msec.
{
    int i ,j ;
    for(i=0;i<msec;i++)
        for(j=0; j<1275; j++);
}

void adc()        //Function to read the values from ADC and tranmit serially.
{
    rd=1;
    wr=0;
    delay(2);
    wr=1;
    while(intr==1);
    rd=0;
    transmit();
    delay(2);
    intr=1;
}

void init()        // Intialize timer 1 in mode 2 for serial transmission. The baud rate is set to 9600bps.
{
    TMOD=0x20;
    TH1=0xFD;
    SCON=0x50;
    TR1=1;
}

void main()
{
    P1=0xff;        // Declare P1 as input port.
    init();
    while(1)
    {
        adc();
    }
}

sss555

大師 此軟體沒用過 我是用網路上所找的檢測RS232

alphi

那是一套可以模擬AVR,Microchip,8051,ARM7,z80等MCU的模擬軟體

http://www.labcenter.co.uk

你可以試試看驗證

helper197

    嗨嗨..

     sbit intr= P2^2;        // Interrupt pin. This is used to indicate the end of conversion. It goes low when conversion is complete.
   
    不曉得您有沒有觸發他哩？？  

    另外是 他是送出去P1這個值唷

     SBUF=P1; //偶的電腦可以跑  耶

    您在試試看 :D

alphi

我沒仔細設計其ADC電源及採用偷懶方法使用Freerun 並且採用RC震盪方式.
用模擬軟體可以正常動作

#include <at89x52.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>

///Delay函數
void delay(int);
///初始化UART 1200,N,8,1 at 16MHz
void UART_Init(void);
///傳送資料
void UART_SendByte(unsigned char ch);
///發送資料
unsigned char UART_GetByte(void);
///轉換
unsigned int ADC_Convert(void);


void delay(int d)
{
int i, j;
for(i=0; i<d; i++)
    for(j=0; j<200; j++)  ;
}

//初始化UART
void UART_Init(void)
{
        SCON  = 0x50;                        /* SCON: mode 1, 8-bit UART, enable rcvr      */
    TMOD |= 0x20;               /* TMOD: timer 1, mode 2, 8-bit reload        */
    TH1   = 221;                /* TH1:  reload value for 1200 baud @ 16MHz   */
    TR1   = 1;                  /* TR1:  timer 1 run                          */
    TI    = 1;    // SCON: mode 1, 8-bit UART, enable rcvr      */
   
   
                        
   //TI    = 1;           // TI:   set TI to send first char of UART    */
}

void UART_SendByte(unsigned char ch)
{
        //發送資料
        SBUF=ch;
        //等待資料發送完成
        while(TI==0)
                  ;
        TI=0;       
}

unsigned char UART_GetByte()
{
        //等待資料接收
        while(RI==0)
                  ;
          RI=0;
          return SBUF;
}

int main(void)
{
       

        //初始化UART
        UART_Init();
       
        while(1)
           {
       
                //P2_0=1;
       
                //UART_SendByte('A');
                printf("adc:%u\r\n",ADC_Convert());
                // delay(5000);
           
       
   }
}
unsigned int ADC_Convert(void)
{
//電壓值=(ADC_Value/256)*5V
unsigned int ADC_Value;
        //P2.0 0->1 正源觸發 告知ADC轉換
        P2_0=0;
        P2_0=1;
        //P0高阻抗
        P0=0xFF;
        //進行轉換
        ADC_Value=P0;
        P1=        ADC_Value;
              return ADC_Value;
}