【文章內(nèi)容簡介】 , START_Y)(1, START_Y), LINE_COLORTime_long = / Width_per_20us For i = 0 To Int(Time_long / 8) Select Case Channel Case 1 Temp_buffer = Buffer1(Start + i) Case 2 Temp_buffer = Buffer2(Start + i) Case 3 Temp_buffer = Buffer3(Start + i) End Select k = 0 For j = 7 To 0 Step 1 k = k + 1 Dp = Int(Temp_buffer / 2 ^ j) If Dp = 0 Then If Dp_old = 0 Then ((i * 8 + k) * Width_per_20us, START_Y), LINE_COLOR If Dp_old = 1 Then ((i * 8 + k 1) * Width_per_20us, START_Y), LINE_COLOR ((i * 8 + k) * Width_per_20us, START_Y), LINE_COLOR End If End If If Dp = 1 Then Temp_buffer = Temp_buffer 2 ^ j If Dp_old = 1 Then ((i * 8 + k) * Width_per_20us, START_Y HEiGHT), LINE_COLOR If Dp_old = 0 Then ((i * 8 + k 1) * Width_per_20us, START_Y HEiGHT), LINE_COLOR ((i * 8 + k) * Width_per_20us, START_Y HEiGHT), LINE_COLOR End If End If Dp_old = Dp Next Next (0, Y + 200)(, START_Y + 200), RGB(200, 200, 255) PrintWord 0, Y + 20, Str(Round(Start * Width_per_BIT * 8 / 1000, 3)) amp。 ms For j = 0 To Int(Time_long / 50) (j * 50 * Width_per_20us, Y + 100)(j * 50 * Width_per_20us, START_Y + 200), RGB(200, 200, 255) NextEnd FunctionFunction PrintWord(ByVal x, Y As Integer, ByVal toprint As String) Dim temp1, temp2 As Integer temp1 = temp2 = With Picture1 .CurrentX = x .CurrentY = Y .ForeColor = RGB(255, 96, 96) End With toprint With Picture1 .CurrentX = temp1 .CurrentY = temp2 End WithEnd FunctionPrivate Sub Command1_Click() = Ird文件|*.irdDim temp_Filename As StringDim save_Filename As StringDim temp_counter As Longtemp_Filename = 39。39。save_Filename = On Error GoTo fuckOpen temp_Filename For Binary As 1 For temp_counter = 0 To 63488 Get 1, , Buffer1(temp_counter) Next For temp_counter = 0 To 63488 Get 1, , Buffer2(temp_counter) Next For temp_counter = 0 To 63488 Get 1, , Buffer3(temp_counter) NextClose 1temp_long = Draw_Square_Wave temp_long * 2, 0, 900, Wave_width, 1Draw_Square_Wave temp_long * 2, 0, 2200, Wave_width, 2Draw_Square_Wave temp_long * 2, 0, 3500, Wave_width, 3GoTo outfuck:MsgBox 打開文件出錯(cuò)out:End SubPrivate Sub Command2_Click() If = False Then Init_ Select Case Case False Data_point = 0 End Select = Not Select Case Case False = 0 = 串口已關(guān)閉，數(shù)據(jù)采集被強(qiáng)行停止 Data_point = 0 = 0 Bit/s = 開始采集 = True = True Case True = 強(qiáng)行停止 = True = False = False = False = 串口已開啟，波特率為115200bps,等待數(shù)據(jù)中 Time = 0 = 200 End SelectEnd SubPrivate Sub Command3_Click() = Ird文件|*.irdDim temp_Filename As StringDim temp_counter As Longtemp_Filename = 39。39。save_Filename = On Error GoTo fuckOpen temp_Filename For Binary As 1 For temp_counter = 0 To 63488 Put 1, , Buffer1(temp_counter) Next For temp_counter = 0 To 63488 Put 1, , Buffer2(temp_counter) Next For temp_counter = 0 To 63488 Put 1, , Buffer3(temp_counter) NextClose 1GoTo outfuck:MsgBox 保存文件出錯(cuò)out:End SubPrivate Sub Command5_Click() If Wave_width = 10240 Then Wave_width = 10240 Wave_width = Wave_width * 2 = 63486 / 2 ( / Wave_width) / 8 Draw_Square_Wave temp_long * 2, 0, 900, Wave_width, 1 Draw_Square_Wave temp_long * 2, 0, 2200, Wave_width, 2 Draw_Square_Wave temp_long * 2, 0, 3500, Wave_width, 3End SubPrivate Sub Command6_Click() Wave_width = Wave_width / 2 If Wave_width Then Wave_width = = 63486 / 2 ( / Wave_width) / 8 Draw_Square_Wave temp_long * 2, 0, 900, Wave_width, 1 Draw_Square_Wave temp_long * 2, 0, 2200, Wave_width, 2 Draw_Square_Wave temp_long * 2, 0, 3500, Wave_width, 3End