91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 9.48MB
    文件類型: .zip
    金幣: 2
    下載: 0 次
    發(fā)布日期: 2023-10-07
  • 語(yǔ)言: VB
  • 標(biāo)簽: vb程序??vb串口??

資源簡(jiǎn)介

vb串口通信程序

資源截圖

代碼片段和文件信息

#include?

#define?c(x)?(x*110592/120000)
??sbit?Ir_Pin=P3^2;
??sbit?beep=P3^6;
#define?INBUF_LEN?4?//數(shù)據(jù)長(zhǎng)度
unsigned?char?inbuf1[INBUF_LEN]={‘0‘‘0‘‘0‘‘0‘};//發(fā)送緩沖區(qū)
unsigned?char?inbuf2[50];//接收緩沖區(qū)
unsigned?char?count3;
void?init_serialcomm(?void?)
{
SCON?=?0x50?;?//SCON:?serail?mode?1?8-bit?UART?enable?ucvr
T2CON=0x30;
TH2=0x00;
TL2=0x00;
RCAP2H=0xFF;
RCAP2L=0xDC;
TR2=1;
}
//向串口發(fā)送一個(gè)字符
void?send_char_com(?unsigned?char?ch)
{
SBUF=ch;
while?(TI==?0?);
TI=?0?;
}
//向串口發(fā)送一個(gè)字符串,strlen?為該字符串長(zhǎng)度
void?send_string_com(?unsigned?char?*str?unsigned?int?strlen)
{
unsigned?int?k=?0?;
do
{
send_char_com(*(str?+?k));
k++;
}?while?(k?}
//串口接收中斷函數(shù)
void?serial?()?interrupt?4?using?3
{
if?(RI)?//RI==開(kāi)始接收
{
unsigned?char?ch;
RI?=?0?;?//軟件RI=0
ch=SBUF;
if?(ch>?1?)
{
count3=?0?;
inbuf2[count3]=ch;
}
else
{
count3++;
inbuf2[count3]=ch;
}
}
} ?

????
??????unsigned?char?code?Led_Tab[]={0xC00xF90xA40xB00x990x920x82
??????0xf80x800x900x880x830xC60xA10x860x8E};????????????????????????//共陽(yáng)極數(shù)碼顯示碼0-F.
??????unsigned?char?code?Led_Sel[]={0xef0xdf0xbf0x7f};
??unsigned?char?dis_8[17]={‘0‘‘1‘‘2‘‘3‘‘4‘‘5‘‘6‘‘7‘‘8‘‘9‘‘A‘‘B‘‘C‘‘D‘‘E‘‘F‘‘-‘};

??????unsigned?char?Led_Buf[4];?//顯示緩沖區(qū)
??????char?Led_Index;???????????????????//位選?????????

??????unsigned?char?Ir_Buf[4];?//用于保存解碼結(jié)果
?void?delay_50ms(unsigned?int?t)
{
?unsigned?int?j;???
?for(;t>0;t--)?
??for(j=6245;j>0;j--)?
{;}
}

??????//==============================================================
??????//數(shù)碼管掃描
??????timer0()?interrupt?1?using?1
??????{
??????TL0=65536-1000;
??????TH0=(65536-1000)/256;?//定時(shí)器0設(shè)定約1000us中斷一次,用于數(shù)碼管掃描
??????//P0=0xff;
??????P2=Led_Sel[Led_Index];????????????????????????????//位選
??????P0=Led_Tab[Led_Buf[Led_Index]];????????????????????//段選

??????if(++Led_Index>3)?Led_Index=0;????????????????????//四個(gè)掃描完了到第一個(gè)數(shù)碼管
??????}
??????//==============================================================
??????unsigned?int?Ir_Get_Low()
??????{
??????TL1=0;
??????TH1=0;
??????TR1=1;
??????while(!Ir_Pin?&&?(TH1&0x80)==0);????????????????
??????TR1=0;???????????
??????return?TH1*256+TL1;
??????}
??????//=============================================================
??????unsigned?int?Ir_Get_High()
??????{
??????TL1=0;
??????TH1=0;
??????TR1=1;
??????while(Ir_Pin?&&?(TH1&0x80)==0);
??????TR1=0;
??????return?TH1*256+TL1;
??????}
??????//==============================================================
??????main()
??????{
??????unsigned?int?temp;
??????char?ij;
??????Led_Index=1;
???init_serialcomm();?//初始化串口
??????TMOD=0x11;
??????TL0=65536-1000;
??????TH0=(65536-1000)/256;?//定時(shí)器0設(shè)定約1000us中斷一次,用于數(shù)碼管掃描
??????EA=1;
??????ET0=1;
??????TR0=1;

??????Led_Buf[0]=0;
??????Led_Buf[1]=0;
??????Led_Buf[2]=0;
??????Led_Buf[3]=0;?//顯示區(qū)設(shè)成0
??????do{
??????restart:
??????while(Ir_Pin);
??????temp=Ir_Get_Low();
??????if(tempc(9500))?contin

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2012-08-19?19:27??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\
?????目錄???????????0??2012-08-19?19:27??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\
?????文件??????147728??1999-03-08?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\ASYCFILT.DLL
?????文件???????22288??1998-05-31?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\COMCAT.DLL
?????文件???????21880??2007-12-05?14:39??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\Form1.frm
?????文件????????2399??2007-12-05?14:39??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\Form1.frx
?????文件???????13857??2007-12-05?21:43??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\Form2.frm
?????文件?????????932??2005-06-18?14:39??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\Form2.frx
?????文件???????69632??2007-11-30?21:24??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\HIFANSBROWSER.uzy
?????文件????????1070??2008-02-18?12:47??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\HIFANSBROWSER.vbp
?????文件?????????102??2008-04-22?09:03??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\HIFANSBROWSER.vbw
?????文件???????12800??1998-07-07?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\MSCOMCHS.DLL
?????文件??????103744??1998-06-24?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\MSCOMM32.OCX
?????文件?????????198??2005-06-18?13:15??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\MSSCCPRJ.SCC
?????文件?????1386496??2004-02-23?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\MSVBVM60.DLL
?????文件??????278581??2004-02-17?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\MSVCRT.DLL
?????文件??????598288??2000-04-12?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\OLEAUT32.DLL
?????文件??????164112??1999-03-08?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\OLEPRO32.DLL
?????文件???????77824??2007-12-05?21:43??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\RICHMCU?IR?Player.exe
?????文件??????102160??2000-10-02?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\VB6CHS.DLL
?????文件??????101888??2001-01-16?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\VB6STKIT.DLL
?????文件?????????183??2007-12-02?22:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\hifans.ini
?????文件??????176167??2005-06-11?10:55??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\rmoc3260.dll
?????文件???????49152??2005-06-09?10:35??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\rmoc3260.oca
?????文件???????20480??2000-01-10?12:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\scrrnchs.dll
?????文件??????151552??2004-08-09?21:27??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\scrrun.dll
?????文件???????17920??1999-06-03?00:00??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\stdole2.tlb
?????目錄???????????0??2012-08-19?19:27??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\安裝程序\
?????文件?????8298718??2007-12-06?22:35??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\VB遙控音樂(lè)播放器上位機(jī)程序\安裝程序\VB遙控播放器安裝程序.exe
?????文件????????9781??2009-12-15?16:42??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\s51yaokong
?????文件???????11861??2009-12-15?16:42??24-本站原創(chuàng)?VB遙控播放器紅外遙控解碼\s51yaokong.M51
............此處省略10個(gè)文件信息

評(píng)論

共有 條評(píng)論