【正文】 開(kāi)始。我將以更大的努力來(lái)答謝所有愛(ài)我的人和我愛(ài)的人!include void Delay1ms(unsigned int count){ unsigned int i,j。 for(i=0。icount。i++) for(j=0。j120。j++)。}main(){ unsigned char LEDIndex = 0。 bit LEDDirection = 1。 while(1) { if(LEDDirection) P1 = ~(0x01LEDIndex)。 else P1 = ~(0x80LEDIndex)。 if(LEDIndex==7) LEDDirection = !LEDDirection。 LEDIndex = (LEDIndex+1)%8。 Delay1ms(100)。 }}DO while not EOF0DO caseCASE this form．optiongroup1．Value=lIF not lLE (ytsOtJlee+”、KsZP、”+ALLTRIM(KS H)+．JPG”)This form．edit1．Value=”缺少”+ALLTRIM(ksh)+”的相片”+CHR(OxOD)+this form，edlt1．Valticqsnum qsnum+lxxqq=．fENDIFENDCASE舀num=舀num+lSKIPENDDOSET DEFAULT TOamp。mbs rce ＆＆mbsource為目標(biāo)文件路徑IF DIRECTORY(”KSZP”1IoFSO=CREATEOBJECT(”Scripting．HleS stemObject．’)loFSO．DeleteFolder(”KSZP”)ENDIFMKDIR KSZPgm1=SYS(5)+SYS(2003)＆＆獲得系統(tǒng)運(yùn)行目錄SET DEFAULTTO amp。gmlDO while not EOF0DO caseCASE thisform．optiongroupI．Value=lIF rlLE(ytsoLirce+”＼KSZP、”+ALLTRIM(ksh)+．JPG”1COPY file ytsouree+”W,SZ~”+ALLTRIM(ksh)+”3PG”LKSZP~”+ALLTRIM(ksh)+”．JPG”tqnum=tqnum+l＆＆成功提取圖片計(jì)數(shù)器ELsEthisform．edit1．Value=”未提取”+ALLTRIM(ksh)+”的相片”+CHR(OxOD)+thisform．edit1．Valueqsnum=qsnum+l ＆＆來(lái)提取圖片計(jì)數(shù)器ENDIFENDC^SESl(IPENDDOim data1(1000) As Single 39。用于存儲(chǔ)采樣值Dim data2(1000) As Single 39。用于存儲(chǔ)采樣值Dim data3(1000) As Single 39。用于存儲(chǔ)采樣值Dim data4(1000) As Single 39。用于存儲(chǔ)采樣值Dim data5(1000) As Single 39。用于存儲(chǔ)采樣值Dim data6(1000) As Single 39。用于存儲(chǔ)采樣值Dim data7(1000) As Single 39。用于存儲(chǔ)采樣值Dim data8(1000) As Single 39。用于存儲(chǔ)采樣值Dim data9(1000) As Single 39。用于存儲(chǔ)采樣值Dim data10(1000) As Single 39。用于存儲(chǔ)采樣值Dim data11(1000) As Single 39。用于存儲(chǔ)采樣值Dim num As Integer 39。用于存儲(chǔ)采樣個(gè)數(shù)Dim xlApp As 39。定義EXCEL類Dim xlBook As 39。定義工件簿類Dim xlsheet As 39。定義工作表類39。聲明變量Dim OldW As SingleDim OldH As Single39。窗口大小發(fā)生改變時(shí)Private Sub Form_Resize()On Error Resume Next39。最小大小,防止比例失調(diào)If 4800 Then = 4800If 3600 Then = 3600Dim cu As ControlFor Each cu In 39。調(diào)整大小 * / OldW, * / OldH, * / OldW, * / OldHNext39。賦值OldW = OldH = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Command3_Click() = FalseEnd SubPrivate Sub Command1_Click() = True Set xlApp = CreateObject() 39。創(chuàng)建EXCEL應(yīng)用類 = True 39。設(shè)置EXCEL可見(jiàn) Set xlBook = (D:\temp\) 39。打開(kāi)EXCEL工作簿 Set xlsheet = (1) 39。打開(kāi)EXCEL工作表 39。激活工作表 (1, 1) = 時(shí)間 39。給單元格1行1列賦值 (1, 2) = 11 39。給單元格1行駛列賦值 (1, 3) = 12 39。給單元格1行駛列賦值 (1, 4) = 13 39。給單元格1行1列賦值 (1, 5) = 21 39。給單元格1行駛列賦值 (1, 6) = 22 39。給單元格1行駛列賦值 (1, 7) = 23 39。給單元格1行駛列賦值 (1, 8) = 31 39。給單元格1行駛列賦值 (1, 9) = 32 39。給單元格1行駛列賦值 (1, 10) = 33 39。給單元格1行駛列賦值 (1, 11) = 41 39。給單元格1行駛列賦值 (1, 12) = 42 39。給單元格1行駛列賦值 (xlAutoOpen) 39。運(yùn)行EXCEL中的啟動(dòng)宏End SubPrivate Sub Form_Load() = 9600,n,8,1 = 2 = True = 0 = 1 39。輸入模式為binary = 0 = 1 = 79 (0, 1700)(9500, 150) (500, 0)(9300, 0) 39。200是縱坐標(biāo)的起始點(diǎn),X (500, 1600)(500, 0) 39。繪制Y軸For i = 1 To 25 39。 (i * 1000 + 20, 60)(i * 1000 + 20, 59) = (i 1) * 360 + 400: = 0 i 1 39。 (20, (i 1) * 500 + 10)(21, (i 1) * 500 + 10) 39。 = 12: = (10 i) * 200 + 8 39。 i 1 = (i 1) * 360 + 425: = 100 39。 = (i 1) * 650 + 18: = (10 i) * 5 + Next i = 12: = 400 5kW = 12: = 800 10kW = 12: = 1200 15W = 12: = 1600 20KW = 12 + 500: = 400 = 12 + 500: = 800 = 12 + 500: = 1200 = 12 + 500: = 1600 = = = = = = = = TrueEnd SubPrivate Sub Timer1_Timer() = Format(Now, yyyy年mm月dd日 ) amp。 WeekdayName(Weekday(Now)) amp。 Format(Now, hh:mm:ss)End SubPrivate Sub Timer2_Timer() Dim c(10) As Byte c(0) = amp。H55 39。從站號(hào)是1 c(1) = amp。HAA 39。從站號(hào)是1 c(2) = amp。H1 39。寫(xiě)一個(gè)字的命令代碼 c(3) = amp。H0 39。起始地址高字節(jié) c(4) = amp。H0 39。起始地址低字節(jié) c(5) = amp。H2 c(6) = amp。H1 c(7) = amp。H2 c(8) = amp。H0 c(9) = amp。H1 c(10) = amp。H5 = 0 If = False Then = True = c CmdLenth = 79 = CmdLenthEnd SubPrivate Sub MSComm1_OnComm() Dim Inbyte() As Byte 39。接收并顯示程序 Dim str1 As String Dim buf As String Dim i As Integer If num 1439 Then Call renew Else Select Case Case EvReceive 39。判斷為接收事件 = 0 39。禁止在處理數(shù)據(jù)時(shí)再觸發(fā)OnComm事件，干擾數(shù)據(jù)處理 = CmdLenth 39。接收數(shù)據(jù)的長(zhǎng)度 Inbyte = 39。接收數(shù)據(jù) For i = LBound(Inbyte) To UBound(Inbyte) If Len(Hex(Inbyte(i))) = 1 Then str1 = 0 amp。 Hex(Inbyte(i)) Else str1 = Hex(Inbyte(i)) End If buf = buf amp。 str1 Next i data1(num) = (Val(amp。H amp。 Mid(buf, 23, 2)) * 256 + Val(amp。H amp。 Mid(buf, 25, 2))) / 10 39。直流電壓1 data2(num) = (Val(amp。H amp。 Mid(buf, 31, 2)) * 256 + Val(amp。H amp。 Mid(buf, 33, 2))) / 10 39。直流電流1 data3(num) = Val(amp。H amp。 Mid(buf, 107, 2)) * 256 + Val(amp。H amp。 Mid(buf, 109, 2)) 39。直流功率1 data4(num) = (Val(amp。H amp。 Mid(buf, 27, 2)) * 256 + Val(amp。H amp。 Mid(buf, 29, 2))) / 10 39。直流電壓2 data5(num) = (Val(amp。H amp。 Mid(buf, 35, 2)) * 256 + Val(amp。H amp。 Mid(buf, 37, 2))) / 10 39。直流電流2 data6(num) = Val(amp。H amp。 Mid(buf, 111, 2)) * 256 + Val(amp。H amp。 Mid(buf, 113, 2)) 39。直流功率2 data7(num) = (Val(amp。H amp。 Mid(buf, 123, 2)) * 256 + Val(amp。H amp。 Mid(buf, 125, 2))) / 10 data8(num) = (Val(amp。H amp。 Mid(buf, 119, 2)) * 256 + Val(amp。H amp。 Mid(buf, 121, 2))) / 10 data9(num) = (Val(amp。H amp。 Mid(buf, 127, 2)) * 256 + Val(amp。H amp。 Mid(buf, 129, 2))) / 100 data10(num) = Val(amp。H amp。 Mid(bu