[phatcddt08a]

minh thi chua tung lam ve cai nay .nhung chung ta co the su dung timer trong vb 6 de hien thi gio phuc giay ngay thang nam cua may tinh len vb .
nen minh nghi chac no cung phai truyen duoc nhu nhung thu khac chi co dieu no la integer . vi vay ban sua thuoc tinh mscomm1.InputMode = comInputModebinary
de truyen 1 byte suong pic .day chi la nhung y tuong cua minh thoi minh cung chua lam voi lai minh cung hieu chut it ve vb nay thoi.coi co the giup duoc ban khong
Private Sub Timer1_Timer(Index As Integer)
mscomm1 .output= day(now) // truyen byte ngay ra com
mscomm1 .output = month(now)
mscomm1.output = year(now)
mscomm1.output=Hour(Time)
mscomm1.output=Minute(Time)
mscomm1.output=Second(Time)
mscomm1.output= ":"
End Sub

code pic
int1 tam;
int dem;
char mang[10];
#int_rda
void ngatnhan()
{
int bien;
if(kbhit()==1)
{
bien=getc();
if(bien==':')
{
mang[dem]=bien;
dem=0;
tam=1; // luu y cho nay khai bao bien int1 tam; nhe
putc(bien); // phan hoi lai ky tu cuoi cung de bao nhan du byte truyen xuong .
}
else
mang[dem]=bien;
dem++;
}
}