?? hdlctest.cpp
字號:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "hdlctest.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "MSCommLib_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
static int SavePointer=0;//數據存儲指針
int rvbuf[1024]; /* receive RS-232 data buffer */
int sdbuf[1024];/* send RS-232 data buffer */
int sdbt; /* sending buffer tail pointer */
int sdbh; /* sending buffer head pointer */
int rvbt;/* receive buffer tail pointer */
int rvbh;/* receive buffer head pointer */
int RVBUF[1024]; /* receive RS-232 data buffer */
int sd_frame[262];//幀結構
int NS, NR, VS, VR;
int TBL, TBF, TCB, TEC; /* TEC: TRANSMIT END FLAG COUNT */ //TEC:發送終止標志位
int RBS, RV_ERR;
int RCB;
int RVBH;
int Bytenum;
int jishu;
int jishu1;
int ceshi;
int timenum;
int rej1;
int rej2;
int rej3;
int asd;
int asdf[1024];
int edc;
OleVariant TxBuff;
OleVariant RxBuff;
int rv_state;
/////////////////////////////
void send_sdbuf(int j,int send_data[]);
void ProcessData();
void SaveData(int RCount, int pbVal[]);
void rr_frame();
void rej_frame();
void info_frame();
void decmd();
void Transmitt();
void sim_frame();
void sim_frame() //初始化
{
sd_frame[0]=sd_frame[1]=0xee;
sd_frame[2]=sd_frame[3]=0x07;
sd_frame[4]=sd_frame[5]=0x77;
TCB=sd_frame[2];
TBF=0;
NS=0; NR=0; VS=0; VR=0;
TBL=6;
Transmitt();//發送
}
void rej_frame() //拒絕
{
sd_frame[0]=sd_frame[1]=0xee;
sd_frame[2]=sd_frame[3]=0x9+(VR<<5); //9代表拒絕幀（只能加奇數（非信息幀最后一位為1））
sd_frame[4]=sd_frame[5]=0x77;
TCB=sd_frame[2];
TBF=0;
TBL=6;
Transmitt();
jishu++;
jishu=jishu&0xffff;
Form1->Label2->Caption = IntToStr(jishu);
}
void rr_frame() //準備好幀
{
sd_frame[0]=sd_frame[1]=0xee;//0:起始標志位 1:地址位
sd_frame[2]=sd_frame[3]=1+(VR<<5);//2:控制字 3:信息位 最低位為1
sd_frame[4]=sd_frame[5]=0x77;//4,5:結束標志位
TCB=sd_frame[2];
TBF=0;
TBL=6;
Transmitt();
}
void decmd() //解幀
{
int check;
if(RV_ERR) //如果接收錯誤 非信息幀時2、3字節一樣，使RV_ERR=0;
//信息幀時2、3字節不同，使RV_ERR=1;
{
if(TBF==1)
sdbh=(sdbh-TBL+TEC+6)%1024; //定位上次幀指針位置
rej_frame(); //發拒絕幀
rej1++;
Form1->Label9->Caption = IntToStr(rej1);
RV_ERR=0;
}
else if (!(RCB&1))/* INF frame */ //接收正確時判斷為何種幀
{
check=0;
for( int zjd=rvbt;zjd!=RBS;)
{
check=(check+rvbuf[zjd])&0xff;//信息幀時求校驗和
zjd=(zjd+1)&0x3ff; //3ff=1024 防止越界
}
check=(check+RCB)&0xff;
NS=((RCB>>1)&0x7); //次站所發幀
NR=RCB>>5; //次站所等幀
check=check&0xff;
asd = rvbuf[RBS];
if(check!=rvbuf[RBS]) // 比較接收到的校驗和及計算所得的校驗和
{
rej_frame();
rej2++;
Form1->Label10->Caption = IntToStr(rej2);
}
else if((NR==((VS+1)&7))&&(NS==VR))//正常傳輸
{
VS=((VS+1)&7);
VR=((VR+1)&7);
rvbt=RBS;//RBS:接收緩沖器起始地址寄存器,存儲上次信息的頭指針;
if(sdbt!=sdbh)//頭尾指針不同
info_frame();
else rr_frame();
}
else if((NR==VS)&&(NS==VR))
{
VR=((VR+1)&7);
rvbt=RBS;
if(TBF==1)
Transmitt();
else if (sdbt!=sdbh)
info_frame();
else rr_frame();
}
else if((NR!=VS)&&(NR!=((VS+1)&7))&&(NS==VR))
{
VS=0;
VR=((VR+1)&7);
rvbt=RBS;
if(TBF==1)
sdbh=(sdbh+TEC+6-TBL)%1024;
sim_frame();
}
else if((NR==((VS+1)&7))&&(NS!=VR))
{
VS=((VS+1)&7);
rej_frame();
rej3++;
Form1->Label11->Caption = IntToStr(rej3);
}
else if((NR==VS)&&(NS!=VR))
{
if(TBF==1)
sdbh=(sdbh+TEC+6-TBL)%1024;
VR=0;
sim_frame();
}
else
{
if(TBF==1)
sdbh=(sdbh+TEC+6-TBL)%1024;
NS=0;
NR=0;
sim_frame();
}
}
else
{
switch(RCB&0xf) //RCB為次站發來的第二個字節（何種幀）
{
case 0x07://低4位為0x07為初始化幀
sim_frame();
break;
case 0x01: /* RR 接收準備好 S */
{
NR=(RCB>>5);
if(NR==((VS+1)&7))
{
VS=((VS+1)&7);
if(sdbt==sdbh) //發送BUFFER頭尾指針相同發準備好幀
rr_frame();
else //不同發信息幀
{
info_frame();
}
}
else if(NR==VS)
{
if(TBF)
Transmitt();
else
{
if (sdbh!=sdbt)
info_frame();
else
rr_frame();
}
}
else
{
sim_frame();
}
}
break;
case 0x09: /* REJ 拒絕 S */
{
jishu1++;
jishu1=jishu1 & 0xffff;
Form1->Label3->Caption = IntToStr(jishu1);
if ((TCB&0xf)==0x9)
{
rr_frame();
}
else Transmitt();
}
break;
case 0x03:/* UA 響應初始化 U */
{
rr_frame();
}
break;
default: break;
}
}
}
void SaveData(int RCount, int pbVal[])
{
int i,a;
AnsiString p;
p = "";
for(i=0;i<RCount;i++)
{
a=(SavePointer+i)&0x3ff;
RVBUF[a]=pbVal[i];//將收到的數據存入臨時接收緩沖區
p = p + IntToStr(pbVal[i]) + ",";
}
Form1->Label1->Caption=p;
SavePointer=(RCount+SavePointer)&0x3ff;
if(RCount>0)
{
ProcessData();//處理收到的數據
}
}
void ProcessData() //用來濾掉幀標志
{ int i=0;
for(i=RVBH;i!=SavePointer;)
{
switch(rv_state)
{
case 0:
if(RVBUF[i]==0xee)
{
rv_state=1;
}
break;
case 1:
if(RVBUF[i]==0xee)
{
rv_state=2;
}
else rv_state=0;
break;
case 2:
RCB=RVBUF[i];//控制字
if(!(RCB&1)) //最低位為0時為信息幀/* information frame */
{
rv_state=3;
RBS=rvbt;//RBS:信息部分頭指針,rvbt:上次信息的尾指針
}
else rv_state=5; /* S and U frame 最低位為1時為非信息幀 */
break;
case 3: //信息幀時轉case 3,4
if(RVBUF[i]==0x77) //在讀信息幀過程中如果出現0x77轉case 4
rv_state=4;
rvbuf[RBS]=RVBUF[i];//存儲信息部分
RBS=((RBS+1)&0x3ff);
break;
case 4:
if(RVBUF[i]==0x77)//連續0x77時認為幀結束
{
RBS=(RBS-2)&0x3ff;//信息部分的尾指針后退兩位,不要校驗和,77
rv_state=0; //濾掉兩個0x77
decmd(); //解幀
}
else
rv_state=3; //如果為0轉 case 3
break;
case 5: //2,3一樣時為非信息幀轉到case 5,6
if(RVBUF[i]!=RCB) //RCB 為第2個字節內容 i=3;
{
RV_ERR=1; //接收錯誤
decmd();
}
rv_state=6;
break;
case 6: //非信息幀各位已確定
if(RVBUF[i]==0x77)
rv_state=7;
break;
case 7:
if(RVBUF[i]==0x77)
{
decmd();
rv_state=0;
}
else rv_state=6;
break;
default:rv_state=0;
break;
}
i++;
i=i&0x3ff;
} RVBH = i;
}
void info_frame()//成幀
{
int j,k,l,q;
int check;
sd_frame[0]=sd_frame[1]=0xee; //將主站接收的VS賦給NS,(NS=VR)以備比較
sd_frame[2]=(VS<<1)+(VR<<5); //最低位為0;VS——NR；VR——NS；sd_frame[2]中放置主站收發的信息幀計數；
check=sd_frame[2];
j=3;
TEC=0;
while((sdbh != sdbt) && (j < 200))
{
q = sdbuf[sdbh];
for(k=0;k<q;k++,j++) //命令字以16個字節為單位處理
{
l=(k+sdbh) & 0x3ff;
sd_frame[j]=sdbuf[l]; //將命令字賦給sd_frame
check=(check+sd_frame[j]) & 0xff;
if(sd_frame[j]==0x77)
{
TEC++; //記錄插入0的個數;TBL為幀長度
j++;
sd_frame[j]=0;//插0
}
}
sdbh = (sdbh + q)&0x3ff;
}
sd_frame[j++]=check & 0xff;
if(check==0x77)
{
TEC++;
sd_frame[j++]=0;
}
sd_frame[j++]=0x77;
sd_frame[j++]=0x77;
TCB=sd_frame[2];
TBF=1;
TBL=j;//發送長度
Transmitt();
}
void send_sdbuf(int j,int send_data[]) //命令字存于send[16]->send_data[];
{
for(int i=0;i<j;i++)
{
sdbuf[sdbt]=send_data[i];
sdbt=(sdbt+1)&0x3ff;
}
}
//串口發送處理
void Transmitt()
{
int Count=TBL;
TxBuff=VarArrayCreate(OPENARRAY(int,(0,Count-1)),varByte);
for(int i=0;i<Count;i++)
TxBuff.PutElement(sd_frame[i],i);
Form1->MSComm1->Output=TxBuff;
timenum = 0;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
sim_frame();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
MSComm1->PortOpen=true;
int ii; //
rvbt = 0; //
rv_state = 0; //
for(ii = 0; ii < 262; ii++) //
sd_frame[ii] = 0; //
TBF = 0; // //
TBL = 0; // //
NS = 0; //
NR = 0; //
VR = 0; //
VS = 0; //
TEC = 0;
jishu = 0;
jishu1 = 0; //
for(ii = 0;ii<1024;ii++) //
{ //
sdbuf[ii]=0; //
rvbuf[ii]=0; //
RVBUF[ii]=0;
asdf[ii] = 0;
} //
sdbt = 0; //
rvbt = 0; //
sdbh = 0; //
rvbh = 0; //
RVBH = 0;
ceshi =0;
rej1=0;
rej2=0;
rej3=0;
timenum = 0;
asd = 0;
edc=0;
Timer1->Enabled = true;
Label2->Caption = IntToStr(jishu);
Label3->Caption = IntToStr(jishu1);
Label8->Caption = IntToStr(ceshi);
Label9->Caption = IntToStr(rej1);
Label10->Caption = IntToStr(rej2);
Label11->Caption = IntToStr(rej3); //
}
//---------------------------------------------------------------------------
void __fastcall TForm1::MSComm1Comm(TObject *Sender)
{
int BuffPtr=0; //接收數據
int buffr[256];
int knum;
knum=MSComm1->InBufferCount;
if (MSComm1->InBufferCount>0)
{
RxBuff=VarArrayCreate(OPENARRAY(int,(0,knum-1)),varByte);
RxBuff=MSComm1->Input;
for(int i=0;i<knum;i++)
{
buffr[BuffPtr++]=RxBuff.GetElement(i);
}
SaveData(knum,buffr);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
int send[256];
int i,j;
for( i=0;i<256;i=i+4)
{
send[i]=4;
for(j=1;j<4;j++)
send[j+i]=j;
}
send_sdbuf(i,send);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
timenum++;
if(timenum>60)
{
timenum=0;
ceshi++;
ceshi=ceshi&0xffff;
Label8->Caption=IntToStr(ceshi);
sim_frame();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Label1->Caption = "";
jishu = 0;
jishu1 = 0;
ceshi = 0;
timenum = 0;
rej1=0;
rej2=0;
rej3=0;
Form1->Label2->Caption = IntToStr(jishu);
Form1->Label3->Caption = IntToStr(jishu1);
Form1->Label8->Caption = IntToStr(ceshi);
Form1->Label9->Caption = "0";
Form1->Label10->Caption = "0";
Form1->Label11->Caption = "0";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
int send[9];
int i;
send[0] = 0x09;
send[1] = 0x20;
for( i=2;i<9;i++)
send[i]=0xff;
send_sdbuf(i,send);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
int send[9];
int i;
send[0] = 0x09;
send[1] = 0x20;
for( i=2;i<9;i++)
send[i]=0xff;
send_sdbuf(i,send);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer3Timer(TObject *Sender)
{
int send[256];
int i,j;
for( i=0;i<256;i=i+4)
{
send[i]=4;
for(j=1;j<4;j++)
send[j+i]=j;
}
send_sdbuf(i,send);
}
//---------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -