Mong mọi người giúp đỡ !!!

[merlin612]

mình đang học về GNMT với 8051 qua cổng Comm.
Đề bài của mình như sau : Mình muốn gửi một chuỗi bất kì nhập từ bàn phím .Sau đó từ VB6.0 mình sẽ gửi xuống VĐK 8051 và tiếp theo là hiển thị ra LCD.
Sau đây là tất cả những gì mình làm được...Mong mọi người chỉ giúp.Mình mong muốn là nhập và hiển thị một chuỗi bất kì.
Code C :nhờ mọi người sửa giúp mình .


#include<reg52.h>
#include<stdio.h>
#include<string.h>
sbit RS=P1^0 ;
sbit RW=P1^1 ;
sbit EN=P1^2 ;
char x,*ch ;
int j ,str ;
char Val[10] ;
void delay30ms(void)
{
TMOD = 0x10 ;
TH1 =35535/256 ;
TL1 =35535%256 ;
TR1 = 1 ;
while ( ! TF1 ) ;
TR1=TF1=0 ;
}
void delay(unsigned long int t )
{
unsigned long int i ;
for ( i= 0 ;i<=t ;++i ) ;
}
void busy_flag(void ) //kiem tra co ban cua LCD
{
P2=0xff ;
RS=0 ;
RW=1 ;
do
{
EN=1 ;
delay(10) ;
EN=0 ;
x=P2 ;
x=x&0x80 ;
}
while (x==0x80) ;
}
void write_command (unsigned char LCD_code) //ghi lenh ra LCD
{
busy_flag() ;
P2=LCD_code ;
RS=0 ;
RW =0 ;
EN =1 ;
delay(50) ;
EN=0 ;
delay(50) ;
}
void write_data ( unsigned char LCD_data) //ghi du lieu can hien thi ra LCD
{
busy_flag() ;
P2=LCD_data ;
RS=1 ;
RW=0 ;
EN =1 ;
delay(50) ;
EN=0 ;
delay(50) ;
}
void write_string(char *s)//ghi chuoi ra LCD
{
while(*s)
{
write_data (*s) ;
s++ ;
}
}
void init(void)
{
write_command (0x03) ;
write_command (0x38) ;
write_command (0x06 ) ;
write_command (0x0c ) ;
}
void main (void )
{
delay30ms() ;
init() ;
SCON=0x52 ;
TMOD=0x20 ;
TH0=TL0=-3 ;
TR0=1 ;
IE=0x90 ;
while(1)
{
write_command(0x80) ;
write_data(' ') ;
write_data(' ') ;
write_data(' ') ;
write_data(' ') ;
write_string("DH-CN-HN ") ;
write_command(0xc0) ;
{
for(j=0;j<=10;++j)
{
write_data(Val[j]) ;
}
}
}
}
void Interrupt_Rx(void) interrupt 4
{
if(RI==1)
{
*ch = SBUF ;
ch=Val ;
for(j=0;j<=10;++j)
{
scanf("%c",ch+j) ;
}
}
RI=0;
}
Còn đây là VB6.0 :
Dim RecvMsg As String
Option Explicit

Private Sub CmdExit_Click()
End
End Sub

Private Sub CmdSent_Click()
Dim SendMsg As String
RecvMsg = ""
SendMsg = "$" + txtSendMsg.Text + "#"
MSComm1.Output = SendMsg
End Sub

Private Sub Form_Load()
With MSComm1
.CommPort = 2 ' Using Com2
.Settings = "9600,N,8,1"
.InBufferSize = 1024 'bo dem nhan 1024K
.OutBufferSize = 1024 'do dem xuat 1024K.
.SThreshold = 1 ' cho phep ngat khi nhan.
.RThreshold = 1 '
.InputLen = 0 ' doc toan bo bo dem...
.InputMode = comInputModeText
If .PortOpen = False Then
.PortOpen = True
End If
End With
End Sub


Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
End Sub