VB温度显示乱码
下位机温度程序正确上位机温度显示乱码
下位机程序
void StartUART( void )
{ //波特率4800
SCON = 0x50;
TMOD = 0x20;
TH1 = 0xFA;
TL1 = 0xFA;
PCON = 0x00;
TR1 = 1;
}
//---------------------------------------------------串口发送数据-----------------------------------------------------
void R_S_Byte(uchar R_Byte)
{
SBUF = R_Byte;
while( TI == 0 ); //查询法
TI = 0;
VB上位机温度显示程序
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
val_str = MSComm1.Input
MSComm1.InBufferCount = 0
Text1.Text = val_str
val_num = Asc(val_str)