基于溫度采集的單片機(jī)和visualc串口通信帶電腦端程序課程設(shè)計(jì)報(bào)告doc-資料下載頁
2025-07-18 01:22本頁面
【正文】 D IFEND SUBPRIVATE SUB COMMAND4_CLICK() ‘單擊按鈕清空數(shù)據(jù) = = END SUBPRIVATE SUB COMMAND5_CLICK() ‘單擊按鈕開關(guān)通信端口 IF = 開啟通信 THEN = 關(guān)閉通信 = FALSE = TRUE = TRUE = TRUE SELECT CASE 39。指定端口號(hào)（COM） CASE 0 = 1 CASE 1 = 2 CASE 2 = 3 CASE 3 = 4 END SELECT = 9600,N,8,1 39。9600 波特，無校驗(yàn)，8 位數(shù)據(jù)位，1 位停止位 = COMINPUTMODETEXT 39。接收文本數(shù)據(jù) = 0 39。讀出接收緩沖區(qū)的所有內(nèi)容 = 1024 = 1024 = 1 39。每接收到 1 個(gè)字符，發(fā)生 1 次事件 = TRUE 39。打開串口 ELSE = FALSE = B = B = 開啟通信 = TRUE = FALSE = 采集數(shù)據(jù) = FALSE = FALSE = FALSE END IFEND SUBPRIVATE SUB COMMAND7_CLICK() ‘單擊按鈕保存溫度數(shù)據(jù) = 2OPEN FOR APPEND AS 1 WRITE 1, NOW WRITE 1, CLOSE 1END SUBPRIVATE SUB FORM_LOAD() COM1 COM2 COM3 COM4END SUBPRIVATE SUB MSCOMM1_ONCOMM() ‘串口接收到數(shù)據(jù)時(shí)讀出數(shù)據(jù) SELECT CASE CASE COMEVRECEIVE = amp。 CASE ELSE END SELECTEND SUBPRIVATE SUB TEXT1_CHANGE() ‘對(duì)讀出的數(shù)據(jù)進(jìn)行處理IF (LEN() MOD 4 = 0) AND (LEN() 0) THEN = RIGHT$(, 4) amp。 ℃ = TIME amp。 CHR$(6) amp。 CHR$(6) amp。 CHR$(6) amp。 amp。 amp。 = TIME$N = N + 1END IFIF N = 100 THEN N = 0 = END IFEND SUBPRIVATE SUB TEXT5_CHANGE() ‘改變讀數(shù)據(jù)的時(shí)間 = VAL() * 1000END SUBPRIVATE SUB TIMER1_TIMER() ‘采集數(shù)據(jù)后進(jìn)行繪圖 = ADIM A AS SINGLEDIM A1 AS STRINGDIM A2 AS STRINGDIM A3 AS STRINGDIM K AS INTEGERSTATIC B(200) AS INTEGER = TIME FOR K = 1 TO 199 B(K) = B(K + 1) NEXT K B(200) = VAL()WITH MSCHART1FOR I = 1 TO 200A = VAL(MID(, 1, 2)) * 3600 + VAL(MID(, 4, 2)) * 60 + VAL(MID(, 7, 2)) 200 * VAL() + I * VAL() + 1IF A 0 THENA = A + 86400ELSEIF A 86400 THENA = A 86400END IFIF A \ 3600 10 THENA1 = 0 amp。 (A \ 3600)ELSEA1 = STR(A \ 3600)END IFIF (A MOD 3600) \ 60 10 THENA2 = 0 amp。 ((A MOD 3600) \ 60)ELSEA2 = (A MOD 3600) \ 60END IFIF ((A MOD 3600) MOD 60) 10 THENA3 = 0 amp。 ((A MOD 3600) MOD 60)ELSEA3 = ((A MOD 3600) MOD 60)END IF.ROW = I.DATA = B(I).ROWLABEL = A1 amp。 : amp。 A2 amp。 : amp。 A3NEXT IEND WITHEND SUBPRIVATE SUB TIMER2_TIMER() ‘設(shè)置溫度時(shí)間隔開發(fā)送數(shù)據(jù)的時(shí)間，以使IF T = 0 THEN ‘單片機(jī)能正常處理 = MID(, 1, 1) T = T + 1 ELSEIF T = 1 THEN = MID(, 2, 1) T = T + 1 ELSEIF T = 2 THEN = MID(, 3, 1) T = T + 1 ELSEIF T = 3 THEN = MID(, 4, 1) T = T + 1 ELSEIF T = 4 THEN = MID(, 5, 1) T = 0 = FALSEEND IFEND S
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1