廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 2062 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
bckcookie
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x0
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[C/C++][求助] keil c 與vb6.0溝通的問題(急救!!)

我已做了一個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 可以看到全部內容



[ 此文章被bckcookie在2010-05-05 08:13重新編輯 ]




獻花 x0 回到頂端 [樓 主] From:未知地址 | Posted:2010-05-04 20:15 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.015190 second(s),query:15 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言