//---------------------------------------------------------------------------

#include?
#pragma?hdrstop

#include?“MsCom.h“
//---------------------------------------------------------------------------
#pragma?package（smart_init）
#pragma?link?“MSCommLib_OCX“
#pragma?resource?“*.dfm“
TForm1?*Form1;
AnsiString?flag;//***聲明了一個選擇標志位
//---------------------------------------------------------------------------
__fastcall?TForm1::TForm1（TComponent*?Owner）
????????:?TForm（Owner）
{
if（MSComm1->PortOpen==true）
{
Button1->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
Shape1->Brush->Color=clGreen;
}
else
{
Button1->Enabled=true;
Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;
Shape1->Brush->Color=clRed;
}
}
//---------------------------------------------------------------------------
void?__fastcall?TForm1::Button1Click（Tobject?*Sender）
{
if（MSComm1->PortOpen!=true）
{
MSComm1->CommPort=StrToInt（ComboBox1->Text）;//選擇串口號
MSComm1->Settings=
ComboBox2->Text+““+
ComboBox3->Text+““+
ComboBox4->Text+““+
ComboBox5->Text;?//設置串口的屬性波特率、奇偶校驗、數據位和停止位。
MSComm1->InputMode=1;//設置傳入數據的格式，0表示文本形式?1表示二進制形式
MSComm1->RThreshold=1;
MSComm1->PortOpen=true;//打開串口
Button1->Enabled=false;
Button2->Enabled=true;
Button3->Enabled=true;
Button4->Enabled=true;
Shape1->Brush->Color=clGreen;
Application->?MessageBox（?“串口打開成功?“?“信息提示框?“MB_OK）;
}
}
//---------------------------------------------------------------------------
void?__fastcall?TForm1::Button2Click（Tobject?*Sender）
{
if（MSComm1->PortOpen!=false）
{
MSComm1->PortOpen=false;
Button1->Enabled=true;
Button2->Enabled=false;
Button3->Enabled=false;
Button4->Enabled=false;
Shape1->Brush->Color=clRed;
}
}
//---------------------------------------------------------------------------
void?__fastcall?TForm1::Button3Click（Tobject?*Sender）
{
flag=“a“;??//開始選擇標志位
MSComm1->Output=StringToOleStr（flag）;?//把AnsiString型轉化成Ole形式
}
//---------------------------------------------------------------------------
void?__fastcall?TForm1::MSComm1Comm（Tobject?*Sender）
{
AnsiString?str;?//聲明一個AnsiString類型的變量
OleVariant?rec;?//聲明一個用于接收數據的OleVariant變量。
//int??count;//?聲明一個int類型的變量
static?int?count=0;?//定義一個計數變量
static?int?i=0j=0;
static?unsigned?int?short?temp=0;?//聲明一個16位的接收轉換變量temp
static?float?value;??//轉換后的電壓值
//unsigned?char?buf[128];
Chart1->BottomAxis->SetMinMax（0?200?）;
Chart1->LeftAxis->SetMinMax（0?5?）;
if（MSComm1->CommEvent==comEvReceive）//?接收緩沖區中是否收到Rthreshold個字符。
{
if（MSComm1->InBufferCount）//?是否有字符駐留在接收緩沖區等待被取出
{
??rec=MSComm1->Input;?//取出接收緩沖器內容
??count++;
??switch（count）
??{
??case?1:?temp=rec.GetElement（0）;?break;?//轉換成字節類型
??case?2:?{
??????????temp=temp*256+rec.GetElement（0）;?//把兩個8位數據轉換成16位數據
??????????value=（float）（temp*5.0/1024）;?????//轉換后的電壓值
??????????Chart1->Series[0]->AddXY?（?j?value?““?clBlue?）;
??????????j++;
??????????i++;
??????????if（j==200）
??????

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2016-09-17?23:42??上位機C++?builder版本\
?????文件????????1368??2016-09-18?10:09??上位機C++?builder版本\readme.txt
?????目錄???????????0??2016-09-13?16:34??上位機C++?builder版本\上位機1\
?????文件????????3971??2016-09-12?22:00??上位機C++?builder版本\上位機1\MsCom.cpp
?????文件??????????51??2016-09-12?22:02??上位機C++?builder版本\上位機1\MsCom.ddp
?????文件??????207612??2016-09-12?19:10??上位機C++?builder版本\上位機1\MsCom.dfm
?????文件????????1745??2016-09-12?18:24??上位機C++?builder版本\上位機1\MsCom.h
?????文件???????37504??2016-09-13?16:34??上位機C++?builder版本\上位機1\MsCom.obj
?????文件????????3842??2016-09-12?20:22??上位機C++?builder版本\上位機1\MsCom.~cpp
?????文件??????????51??2016-09-12?20:28??上位機C++?builder版本\上位機1\MsCom.~ddp
?????文件??????207612??2016-09-12?19:10??上位機C++?builder版本\上位機1\MsCom.~dfm
?????文件????????1745??2016-09-12?18:24??上位機C++?builder版本\上位機1\MsCom.~h
?????文件????????3836??2016-09-12?22:02??上位機C++?builder版本\上位機1\Uint.bpr
?????文件????????1069??2016-06-22?21:09??上位機C++?builder版本\上位機1\Uint.cpp
?????文件??????904704??2016-09-13?16:34??上位機C++?builder版本\上位機1\Uint.exe
?????文件???????10477??2016-09-13?16:34??上位機C++?builder版本\上位機1\Uint.obj
?????文件???????93236??2016-09-12?21:53??上位機C++?builder版本\上位機1\Uint.res
?????文件???????12224??2016-09-13?16:34??上位機C++?builder版本\上位機1\Uint.str
?????文件?????3670016??2016-09-13?16:34??上位機C++?builder版本\上位機1\Uint.tds
?????文件????????3836??2016-09-12?21:35??上位機C++?builder版本\上位機1\Uint.~bpr
?????目錄???????????0??2016-09-14?15:23??上位機C++?builder版本\上位機2\
?????文件????????6262??2016-09-14?15:23??上位機C++?builder版本\上位機2\MsCom.cpp
?????文件??????????51??2016-09-14?15:23??上位機C++?builder版本\上位機2\MsCom.ddp
?????文件??????208178??2016-09-14?15:20??上位機C++?builder版本\上位機2\MsCom.dfm
?????文件????????1815??2016-09-13?21:10??上位機C++?builder版本\上位機2\MsCom.h
?????文件???????32326??2016-09-14?15:23??上位機C++?builder版本\上位機2\MsCom.obj
?????文件????????5659??2016-09-13?23:08??上位機C++?builder版本\上位機2\MsCom.~cpp
?????文件??????????51??2016-09-13?23:41??上位機C++?builder版本\上位機2\MsCom.~ddp
?????文件??????208175??2016-09-13?21:40??上位機C++?builder版本\上位機2\MsCom.~dfm
?????文件????????1815??2016-09-13?21:10??上位機C++?builder版本\上位機2\MsCom.~h
?????文件????????3836??2016-09-14?15:23??上位機C++?builder版本\上位機2\Uint.bpr
............此處省略90個文件信息