我已做了一個8052的控制, 目的是P1.0~P1.3 收SENSOR OUTPUT +5V, 而P2.0~2.3能自動相應而著燈及經過RS232去電腦, 現在最重要是不知寫的KEIL C CODE 可以將SIGNAL傅送到電腦的VB6.0顯示燈上??  請各位幫忙!! 

程式如下:
#include<REGX52.H>
#include<STDIO.H>
main()
{
  TMOD=0x20;
  TH1=230;
  TL1=230;
  TR1=1;

  SCON=0x70;
  while(1)
    {

      RI=0;
          TI=0;
          SBUF=P1 | 0xf0;
          while(TI==0);

          while(RI==0);

          if(SBUF==0xfe)
             P1=0x3f;
          else if(SBUF==0xfd)
         P1=0xcf;
          else if(SBUF==0xfb)
         P1=0x0f;
          else if(SBUF==0xf7)
         P1=0xff;
    }
} 

另外我的VB6.0 程式如下:


Private Sub Command5_Click()
tex1.Text = "連線中"
MSComm1.Output = "0"
delayms 100
buf = MSComm1.Input
If buf = "2" Then
   LOAD1.FillColor = RGB(0, 255, 0)
   LOAD2.FillColor = RGB(0, 255, 0)
   LOAD3.FillColor = RGB(0, 255, 0)
   LOAD4.FillColor = RGB(0, 255, 0)
Else
   tex1.Text = "連線失敗"
End If
End Sub
Private Sub Command6_Click()
On Error Resume Next
   msg = "您確定要結束本程式嗎 ?"
   code = 65
   Title = "關閉程式"
   return_value = MsgBox(msg, code, Title)
If return_value = 1 Then
   Command5_Click
   MSComm1.PortOpen = False
   End
End If
End Sub
Private Sub Command7_Click()

On Error GoTo OUTPUTERR
Dim i As Integer, iFile As String

iFile = "d:\test.txt"
Do While Dir(iFile) <> "" ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容