·¢²¼Ê±¼ä : ÐÇÆÚÁù ÎÄÕ»ùÓÚ52µ¥Æ¬»úÎÂʪ¶È´«¸ÐÆ÷¿Î³ÌÉè¼Æ±¨¸æ£¨º¬´úÂ룩¸üÐÂÍê±Ï¿ªÊ¼ÔĶÁ
²¦Â뿪¹Ø£©¡£µ±´ò¿ª¿ª¹Øʱ£¬±³¹â¹Øµô£¬¿ÉÒÔÊ¡µç£»ºÏÉÏ¿ª¹Ø£¬µ÷½Úµç×è¿ÉÒÔʹ12864ÏÔʾÁÁ¶È±ä»¯¡£
2. Äܹ»ÏÔʾÒԺ󣬷¢ÏÖÏÔʾ½çÃæÒ»Ö±ÔÚˢУ¬ÏÔʾ²»Îȶ¨¡£ÔÒòÊÇÿÃëËæ×ÅÃëˢгõʼ»¯½çÃæÒ»´Î£¬½â¾öµÄ·½°¸ÊDz»ÖØе÷ÓÃÏÔʾ£¬¶øÊÇÖ»¸øÏÔʾÃëµÄλÖÃˢУ¬ÆäËûʱ¼äËæÃë±ä»¯¡£ÎÂʪ¶ÈÖµÔòÊÇÓÐÁ˱仯¾ÍˢС£
3. ÓÉÓÚ±àд³ÌÐòʱ£¬Ã»Óп¼Âǵ½´®¿ÚͨÐÅÖд«»ØPCµÄÊý¾ÝµÄÊ®Áù½øÖÆÓëÏÔʾ×Ö·ûÖ®¼äµÄÊý¾Ý´¦Àí¹Øϵ£¬µ¼ÖÂÔÚ´®¿ÚÖúÊÖÈí¼þÖÐÖ»ÏÔʾÁË´«»ØµÄ×îºóÒ»¸öÊ®Áù½øÖÆÊýËù¶ÔÓ¦µÄASC¢òµÄ×Ö·û£¬ÕÒµ½ÎÊÌâµÄ½â¾ö¹Ø¼üËùÔں󣬾¹ýÊýµÄ·ÖλÓë×Ö·ûÏÔʾºó£¬³É¹¦µÄÏÔʾÁË´«»ØµÄζȡ¢Êª¶ÈµÄÊý¾Ý£¬ÈÃÎÒÃǾàÀë³É¹¦Ö»²îһС²½ÁË¡£½ÓÏÂÀ´µÄÈÎÎñ¾ÍÊÇÏÔʾÔÚ12864Òº¾§ÉÏ£¬¸ù¾Ý֮ǰµ¥¶ÀÔÚÆäÉÏÏÔʾ¹ýÒº¾§ÍòÄêÀúµÄ»ù´¡£¬ÖªµÀÖ»Òª½«dht11¼ì²âµÄÊý¾Ý½øÐÐÏàÓ¦´¦Àíºó²¢ÇÒÓëÒº¾§ÍòÄêÀúµÄÏÔʾ¼¯³ÉÒ»ÆðËÍÏÔʾ¾ÍÐÐÁË¡£ÀíÂÛËä¼òµ¥£¬µ«Êµ¼ÊÔÚÏÂÔص½Ð¾Æ¬Öмì²âÏÖÏóʱ£¬ÎÒÃÇ·¢Ïֱַ𵥶ÀÏÔʾÁ½ÕßµÄÊý¾ÝûÓÐÎÊÌ⣬µ«¼¯³ÉÔÚÒ»¿éÏÔʾ²»¾Ã¾Í»á»¨ÆÁµÄÏÖÏó£¬ÎÊÌâ³öÔÚˢкº×Öʱ£¬Ö¸Õë¹â±êµÄλÖÃÐ޸ĴíÎóËùµ¼Öµġ£Ö®ºó¾¹ýÖØÐÂд»ØÖ¸Õëºó¾Í´ïµ½Á˽ÏΪÂúÒâµÄЧ¹û¡£ÔÚ±¨¾¯³ÌÐòµÄÉèÖÃÉÏ£¬Ö÷Òª½â¾ö·äÃùÆ÷±¨¾¯¼ä¸ôºÍLEDµÆÉÁ˸µÄʱ¼äÆ¥ÅäÎÊÌ⣬ÈÃÁ½ÕßÏÖÏóͳһ¡£
4. µ¥Æ¬»úÓë¼ÆËã»úͨÐÅ¡£ÉÏλ»ú½çÃæÉè¼Æ£¬ÀûÓÃVB±à³Ì£¬ÓÃMSComm¿Ø¼þÄܹ»ÊµÏÖµ¥Æ¬»ú´«ËÍÊý¾Ýµ½¼ÆËã»ú²¢ÏÔʾ¡£
Private Sub MSComm1_OnComm() Dim rec As String ;¶¨Òå½ÓÊÕ×Ö·û´®
Select Case MSComm1.CommEvent ;´®¿ÚʼþÑ¡Ôñ Case comeEvReceive ;´®¿ÚʼþΪ½ÓÊÕ
rec = MSComm1.Input ;´Ó½ÓÊÕ»º³åÇøÖжÁÈ¡Êý¾Ý Text1.Text = rec ;½«½ÓÊÕµ½µÄ×Ö·û´®Ð´ÈëÎı¾¿ò MSComm1.InBufferCount = 0 ;ÉèÖýÓÊÕ»º³åÇøÖеȴý¼ÆËã»ú½ÓÊܵÄ×Ö·ûÊýΪ0
End Select End Sub
Private Sub form_load()
MSComm1.Settings = \ ;²¨ÌØÂÊ£¬ÆæżУÑ飬·¢ËÍλÊý£¬Í£Ö¹Î»
MSComm1.CommPort = 5 ;´®¿ÚºÅ
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.RThreshold = 8 ;½ÓÊÕ»º³åÇø×Ö·ûΪ8ʱ£¬´®¿Ú¿Ø¼þÉèÖô®¿ÚʼþΪ½ÓÊÕ£¬²¢²úÉúOnCommʼþ
MSComm1.SThreshold = 2 ;·¢ËÍ»º³åÇøÖÐ×Ö·ûСÓÚ2ʱ£¬´®¿Ú¿Ø¼þÉèÖô®¿ÚʼþΪ·¢ËÍ£¬²¢²úÉúOnCommʼþ
MSComm1.InputLen = 0 ;·µ»ØÒ»´Î´Ó½ÓÊÕ»º³åÇø¶ÁÈ¡Ëù
ÓÐ×Ö½Ú
MSComm1.InputMode = comInputModeText ;½ÓÊÕģʽΪÎı¾
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
MSComm1.InBufferCount = 0 Me.Caption = \ÎÂʪ¶ÈÏÔʾ\End Sub
Private Sub Form_Resize() ;´°Ìå±³¾°Í¼Æ¬ÉèÖà Image1.Top = 0 Image1.Left = 0 Image1.Stretch = True
Image1.Height = Me.ScaleHeight Image1.Width = Me.ScaleWidth End Sub
Private Sub mnuQuit_Click() End End Sub
Áù¡¢ Éè¼Æ×ܽá
±¾´ÎÉè¼ÆÊÇС×éÈýÈ˹²Í¬Å¬Á¦µÄ³É¹û£¬´ó¼ÒÆëÐÄÐÁ¦¿Ë·þÁËÉÏÊöÖÖÖÖÀ§ÄÑ£¬²Å°ÑʵÎï×ö³öÀ´¡£Í¨¹ýÕâ´ÎÉè¼Æ£¬ÎÒÃÇѧϰµ½ÁËÈçºÎ
°Ñ´«¸ÐÆ÷ÁªÏµµ¥Æ¬»ú֪ʶ×ö³ÉÒ»¸ö¼òµ¥µÄ¼ì²âϵͳ£¬ÈçºÎÍê³É¼òµ¥µÄͨÐÅÈÎÎñ£¬ÈçºÎ±àд¸ßЧÂʵÄC´úÂë¡£µ±È»ÎÒÃǵIJ»×ãÒ²Óкܶ࣬±ÈÈçÓ²¼þÉè¼Æµç·¿¼ÂDz»È«Ã棬Ôì³ÉºóÀ´²»µÃ²»ÐÞ¸ÄһЩÁ¬ÏߺÍÔª¼þʹµÃµç·°å²»¹»ÃÀ¹Û£»»¹ÓгÌÐò²»¹»Ä£¿é»¯£¬Óв»ÉÙÈßÓ࣬ÒÆÖ²ÐԺͼæÈÝÐÔÒ²²»ºÃ£¬½ñºóÒª¸ü¼Ó×¢ÖØÕâЩ·½ÃæµÄ¸Ä½ø¡£
¸½Â¼´úÂë:
/*****»ùÓÚµ¥Æ¬»úµÄÎÂʪ¶È¼ì²âϵͳ******/ #include
#define uchar unsigned char #define uint unsigned int
/***¶Ë¿Ú¶¨Òå***/ sbit LCD_RS=P3^5; //¼Ä´æÆ÷Ñ¡ÔñÊäÈë sbit LCD_RW=P3^6; //Òº¾§¶Á/д¿ØÖÆ sbit LCD_EN=P3^4; //Òº¾§Ê¹ÄÜ¿ØÖÆ sbit LCD_PSB=P3^7; //´®/²¢·½Ê½¿ØÖÆ sbit s5=P0^3; //¹Ø±¨¾¯ sbit s4=P0^4; //ÉèÖÃÎÂʪ¶È±¨¾¯Öµ¼°¿ª¹Ø±¨¾¯ sbit s3=P0^5; //µ÷ʱ¿ª/¹Ø sbit s2=P0^6; //¼Ó²Ù×÷ sbit s1=P0^7; //¼õ²Ù×÷ sbit led1=P2^0; //ζȱ¨¾¯ sbit led2=P2^1; //ʪ¶È±¨¾¯ sbit buzzer=P2^5; //·äÃùÆ÷ sbit AM2301=P2^6; //P2.6¿ÚΪͨѶ¿ÚÁ¬½ÓDHT11 typedef unsigned char U8; typedef unsigned int U16;
char sec,min,hour,week,day=1,month=1,year; bit flag,flag2,flag3=0,flag4=0,flag5=0,flag6=0; uchar a;
uchar s1num,s4num;
uchar code dis1[]={\Äê12ÔÂ02ÈÕ%uchar code dis2[]={\ʱ00·Ö00Ãë%uchar code dis3[]={\ζÈ: 25.0 ÈÕ%uchar code dis4[]={\ʪ¶È: 40.0\
uchar code dis5[]={\ζÈÉÏÏÞ:\ÎÂʪ¶ÈÉèÖýçÃæ uchar code dis6[]={\ζÈÏÂÏÞ:%uchar code dis7[]={\ʪ¶ÈÉÏÏÞ:%uchar code dis8[]={\ʪ¶ÈÏÂÏÞ:\