【正文】 baokai amp。 juankai amp。 amp。 amp。 amp。 amp。 amp。清除接收緩沖區(qū) biaozhi = 0 End If If kaishi = 1 And rBuf(0) 255 Then shuju(i) = rBuf(0) i = i + 1 End If End Select End Sub 39。自動控制標志位 End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles Select Case Case Is = 600 = 600,N,8,1 Case Is = 1200 = 1200,N,8,1 Case Is = 2400 = 2400,N,8,1 Case Is = 4800 = 4800,N,8,1 Case Is = 9600 = 9600,N,8,1 Case Is = 14400 = 14400,N,8,1 Case Is = 19200 = 19200,N,8,1 Case Is = 38400 = 38400,N,8,1 Case Is = 56000 = 56000,N,8,1 Case Is = 57600 = 57600,N,8,1 Case Is = 115200 = 115200,N,8,1 End Select End Sub Private Sub chuankou_Click(ByVal sender As , ByVal e As ) Handles On Error GoTo duankou If = 連接串口 Then = 斷開串口 chuan = 1 39。 TimeString amp。 vbCrLf amp。設置數(shù)據(jù)接收模式為二進制形式 = 0 39。 Public fasong As Byte Public biaozhi As Byte Public baojin As Byte Public baojinkong As Byte Public jieshoujian(0 To 9) As Byte Public shoudongbian(0 To 5) As Byte Private Function chushihua() As Integer zi = 0 shou = 0 chuan = 0 i = 0 biaozhi = 0 wenjian = 0 kaishi = 0 = False = False If = True Then = False End If End Function Private Function chuanshuzi() As Integer Dim aa(0 To 11) As Byte Dim bb(0 To 9) If zi = 1 Then aa(0) = 255 aa(1) = aa(2) = aa(3) = aa(4) = aa(5) = aa(6) = juankai aa(7) = baokai aa(8) = shou aa(9) = zi aa(10) = 0 For p = 0 To 9 bb(p) = aa(p + 1) Mod 10 Next aa(11) = bb(0) + bb(1) + bb(2) + bb(3) + bb(4) + bb(5) + bb(6) + bb(7) + bb(8) + bb(9) If = True Then = aa End If End If End Function Private Function chuanshushou() As Integer Dim aa(0 To 11) As Byte If shou = 1 Then aa(0) = 255 aa(1) = shoudongbian(0) aa(2) = shoudongbian(1) aa(3) = shoudongbian(2) aa(4) = shoudongbian(3) aa(5) = shoudongbian(4) aa(6) = shoudongbian(5) aa(7) = 0 aa(8) = shou aa(9) = zi aa(10) = 0 aa(11) = aa(1) + aa(2) + aa(3) + aa(4) + aa(5) + aa(6) + aa(7) + aa(8) + aa(9) + aa(10) If = True Then = aa End If End If End Function Private Function yinyue() As Integer (, ) End Function Private Sub 蔬菜大棚控制平臺_Load(ByVal sender As , ByVal e As ) Handles = DateString + + TimeString = True = True = True = True = True = True = 20 39。 Public kaishi1 As Byte Public i As Byte 39。 //OCR2=0。 DDRD|=0X80。 //DDRD|=0X20。}void PWM_init(void){ //TCCR1A=0X83。 lasterror=preerror。 }}void lightctl(unsigned char a,unsigned int b){ int error=0。 } else if(read_pre[11]==2) { for(j=0。 } if(read_pre[11]==1) { for(j=0。}void read_date(void){ unsigned char j=0。 (1EEWE))。 EEDR = ucData。c)。 for(b=a。/******************************************/unsigned char read_pre[12]。unsigned char U8T_data_H,U8T_data_L,U8RH_data_H,U8RH_data_L,U8checkdata。 //逆時鐘旋轉(zhuǎn)相序表unsigned char CW[8]={0x09,0x01,0x03,0x02,0x06,0x04,0x0c,0x08}。//AD采集數(shù)據(jù)存放數(shù)組，shiyan[0]為內(nèi)光照，shiyan[1]為外光照，shiyan[2]為卷簾度unsigned char kaiguan_chuan=0,xunhuani=0,kaiguan=0。//接收數(shù)據(jù)存放數(shù)組unsigned char cunshushou[12]。/*************************************/unsigned char jianyan=0。 } }}unsigned char kaishi=0。//a[12] jishu=0。//溢出中斷使能 TCNT2=254。//定時器8分頻 TIMSK|=0X01。 wendu_ge=U8T_data_H%10。 U8checkdata=U8checkdata_temp。 if(U8temp==U8checkdata_temp) { U8RH_data_H=U8RH_data_H_temp。 DDRB|=0X02。 COM()。 COM()。amp。U8FLAG++)。0X20)) { U8FLAG=2。=~0X20。=~0X20。 } }void shidu_read(void){ DDRB|=0X20。U8FLAG++)。 U8FLAG=2。 Delay(50)。U8FLAG++)。i++) { U8FLAG=2。//溢出中斷使能}void Delay(unsigned int a){ while(a)。 } EEPROM_write(11,2)。i++) { cunshuzi[i]=shou[i]。i10。 PWM_init1()。i11。shou[8]==0)//手動控制 { if(shou[10]==(shou[0]+shou[1]+shou[2]+shou[3]+shou[4]+shou[5]+shou[6]+shou[7]+shou[8]+shou[9])) { for(i=0。 } if(xunhuani==11)//數(shù)據(jù)接收完成 { kaiguan_chuan=0。kaiguan_chuan==0)//數(shù)據(jù)開始 { kaiguan_chuan=1。=0Xfe。i++) { USART_TX(str[i])。i++) { b[i]=(a[i+1]+1)%10。 /* 將數(shù)據(jù)放入緩沖器，發(fā)送數(shù)據(jù) */ UDR = data。RX:D0 UCSRB|=0X98。 //TX:D1。 //計算溫度的小數(shù)部分,將余數(shù)乘以10再除以16取整，//這樣得到的是溫度小數(shù)部分的第一位數(shù)字(保留1位小數(shù)) a[1]=TN。 //讀溫度準備 TL=ReadOneChar()。 // 啟動溫度轉(zhuǎn)換 Init_DS18B20()。time++)。time++)。time++)。 PORTB=datamp。 // 先將數(shù)據(jù)線拉高 NOP()。 dat=6。time++)。 if(flag1==0X40) dat|=0x80。time2。 //等待一個機器周期 PORTB|=0X40。 //等待一個機器周期 PORTBamp。 //儲存讀出的一個字節(jié)數(shù)據(jù) for (i=0。 //延時足夠長時間，等待存在脈沖輸出完畢//200 DDRB|=0X40。0X40。=0XBF。 //釋放數(shù)據(jù)線（將數(shù)據(jù)線拉高） for(time=0。 //再將數(shù)據(jù)線從高拉低，要求保持480~960us for(time=0。time2。 }}/************************************************************************以下是DS18B20的操作程序