/*硬件部分由AT89C51,MAX232，ADC0809，NF555組成，555用來產生ADC0809的CLK，
現在好像是300多K，輸入電壓直接加在ADC0809的IN0，因為我只用一路所以ADC0809的
A、B、C三個進址我直接接地。ADC0809的ALE和StartART我連在一起由單片機的P3.4控制。*/

#include <reg51.h>
sbit Start =P3^4;
sbit eoc=P3^3;
void delay(unsigned int count)
{ unsigned int i,j;
  for(i=0;i<count;i++)
  for(j=0;j<count;j++);
}
void send(unsigned char k)
{SBUF=k;
 while(!TI);
 TI=0;
}
unsigned char ad()
{ unsigned char temp;
  Start=0;
  Start=1;
  Start=0;
  while(!eoc);
  temp=P1;
  return(temp);
}
main()
{unsigned char temp;
 SCON=0x50;
 TMOD=0x20;
 TH1=0x0f3;
 TL1=0x0f3;         //2400bps
 EA=1;
 TR1=1;
 while(1)
 {
  temp=ad();
  send(temp); 
 }
}

/*VB端我已做好接收處理，希望你給提點建設！ 

程序中沒有必要使用EOC管腳，可以直接用延時等待就可以了，我以前用EOC曾經有過教訓 [李竹君]*/