»ùÓÚ52µ¥Æ¬»úÎÂʪ¶È´«¸ÐÆ÷¿Î³ÌÉè¼Æ±¨¸æ£¨º¬´úÂ룩 ÁªÏµ¿Í·þ

·¢²¼Ê±¼ä : ÐÇÆÚÁù ÎÄÕ»ùÓÚ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[]={\ʪ¶ÈÏÂÏÞ:\