VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 6735 ClientLeft = 135 ClientTop = 420 ClientWidth = 12195 BeginProperty Font Name = "Times New Roman" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form1" ScaleHeight = 6735 ScaleWidth = 12195 StartUpPosition = 3 'Windows Default Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 15 Left = 6960 Locked = -1 'True TabIndex = 32 Text = "Text1" Top = 5880 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 14 Left = 4680 Locked = -1 'True TabIndex = 31 Text = "Text1" Top = 5880 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 13 Left = 9000 Locked = -1 'True TabIndex = 29 Text = "Text1" Top = 2400 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 12 Left = 6960 Locked = -1 'True TabIndex = 28 Text = "Text1" Top = 2400 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 11 Left = 4680 Locked = -1 'True TabIndex = 27 Text = "Text1" Top = 2400 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 10 Left = 6960 Locked = -1 'True TabIndex = 26 Text = "Text1" Top = 5160 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 9 Left = 4680 Locked = -1 'True TabIndex = 25 Text = "Text1" Top = 5160 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 8 Left = 9000 Locked = -1 'True TabIndex = 24 Text = "Text1" Top = 4080 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 5 Left = 9000 Locked = -1 'True TabIndex = 23 Text = "Text1" Top = 3240 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 4 Left = 9000 Locked = -1 'True TabIndex = 22 Text = "Text1" Top = 1680 Width = 1215 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 2 Left = 1320 Locked = -1 'True TabIndex = 21 Text = "Text2" Top = 5280 Width = 615 End Begin VB.CommandButton Command6 Caption = "Ground" Height = 495 Left = 240 TabIndex = 20 Top = 5160 Width = 855 End Begin VB.PictureBox MSComm1 Height = 480 Left = 6480 ScaleHeight = 420 ScaleWidth = 1140 TabIndex = 39 Top = 360 Width = 1200 End Begin VB.CommandButton Command5 Caption = "CLEAR" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4200 TabIndex = 18 Top = 360 Width = 855 End Begin VB.TextBox Text3 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 18 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 2040 TabIndex = 17 Text = "Text3" Top = 360 Width = 1575 End Begin VB.Timer Timer1 Interval = 1000 Left = 8520 Top = 360 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 7 Left = 6960 Locked = -1 'True TabIndex = 15 Text = "Text1" Top = 4080 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 6 Left = 4680 Locked = -1 'True TabIndex = 14 Text = "Text1" Top = 4080 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 3 Left = 6960 Locked = -1 'True TabIndex = 13 Text = "Text1" Top = 3240 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 2 Left = 6960 Locked = -1 'True TabIndex = 12 Text = "Text1" Top = 1680 Width = 1215 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 1 Left = 1320 Locked = -1 'True TabIndex = 10 Text = "Text2" Top = 3000 Width = 615 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 Index = 0 Left = 1320 Locked = -1 'True TabIndex = 9 Text = "Text2" Top = 1800 Width = 615 End Begin VB.CommandButton Command3 Caption = "Reset" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 495 Left = 9720 TabIndex = 8 Top = 360 Width = 855 End Begin VB.CommandButton Command4 Caption = "IR" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 7 Top = 1680 Width = 855 End Begin VB.CheckBox Check2 Caption = "US Interference Control Override ENABLED" BeginProperty Font Name = "Courier New" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 240 TabIndex = 6 Top = 4320 Width = 2655 End Begin VB.CheckBox Check1 Caption = "US Short Distance Measurement ENABLED" BeginProperty Font Name = "Courier New" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 240 TabIndex = 5 Top = 3600 Width = 2295 End Begin VB.CommandButton Command2 Caption = "US" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 3 Top = 2880 Width = 855 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 1 Left = 4680 Locked = -1 'True TabIndex = 2 Text = "Text1" Top = 3240 Width = 1215 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Times New Roman" Size = 14.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 525 Index = 0 Left = 4680 Locked = -1 'True TabIndex = 1 Text = "Text1" Top = 1680 Width = 1215 End Begin VB.CommandButton Command1 Caption = "START" BeginProperty Font Name = "Courier New" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 735 Left = 240 TabIndex = 0 Top = 240 Width = 1335 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Ground 2" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 255 Index = 10 Left = 6840 TabIndex = 38 Top = 4800 Width = 1455 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Ground 1" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 255 Index = 9 Left = 4560 TabIndex = 37 Top = 4800 Width = 1455 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Module 3" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 255 Index = 8 Left = 8880 TabIndex = 36 Top = 1320 Width = 1455 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Module 2" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 255 Index = 7 Left = 6840 TabIndex = 35 Top = 1320 Width = 1455 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Module 1" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 255 Index = 6 Left = 4560 TabIndex = 34 Top = 1320 Width = 1455 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Lijn" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 255 Index = 4 Left = 2760 TabIndex = 33 Top = 6000 Width = 1695 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Distance IR (cm)" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 615 Index = 3 Left = 3000 TabIndex = 30 Top = 2400 Width = 1455 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Ground IR" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 255 Index = 5 Left = 2760 TabIndex = 19 Top = 5280 Width = 1695 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Distance US (m)" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 615 Index = 2 Left = 3360 TabIndex = 16 Top = 3960 Width = 1095 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Output IR" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 3000 TabIndex = 11 Top = 1800 Width = 1455 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "TOF US" BeginProperty Font Name = "Courier New" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 3360 TabIndex = 4 Top = 3360 Width = 1095 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit ' variabelen definieren Dim n As Integer Dim cent As Single Dim filename As String Dim SendBuffer As Integer Dim RecieveBuffer(19) As Single Dim InPointer As Integer Private Sub Check2_Click() ' om te kiezen voor US interference control override SendBuffer = SendBuffer Xor 4 MSComm1.Output = Chr(SendBuffer) + Chr(0) ' omrekening signaal om te kunnen doorsturen gevolgd door End Sub ' een 0 om duidlijk te maken dat er iets doorgestuurd werd Private Sub Command1_Click() ' wanneer op de startknop gedrukt wordt, SendBuffer = SendBuffer Xor 128 ' stop op de knop laten verschijnen en omgekeerd MSComm1.Output = Chr(SendBuffer) + Chr(0) ' als er op stop gedrukt wordt start laten verschijnen If Command1.Caption = "START" Then Command1.Caption = "STOP" Timer1.Enabled = True ' starten van de timer Else Command1.Caption = "START" Timer1.Enabled = False End If End Sub Private Sub Command2_Click() ' US sensoren aan of afzetten Dim Restore As Integer Restore = SendBuffer SendBuffer = SendBuffer Xor 2 If (SendBuffer And 19) = 0 Then SendBuffer = Restore Else MSComm1.Output = Chr(SendBuffer) + Chr(0) ' tekst on of off laten verschijnen If Text2(1).Text = "ON" Then ' in het tekstvak naast de US knop Text2(1).Text = "OFF" ' wanneer er op die knop gedrukt wordt Else Text2(1).Text = "ON" End If End If End Sub Private Sub Command3_Click() ' bedienen van de clear knop SendBuffer = SendBuffer Xor 64 MSComm1.Output = Chr(SendBuffer) + Chr(0) SendBuffer = 19 Command1.Caption = "START" ' start, IR, US en ground op on zetten Text2(0).Text = "ON" Text2(1).Text = "ON" Text2(2).Text = "ON" End Sub Private Sub Command4_Click() ' IR sensoren aan- of afzetten Dim Restore As Integer Restore = SendBuffer SendBuffer = SendBuffer Xor 1 If (SendBuffer And 19) = 0 Then SendBuffer = Restore Else MSComm1.Output = Chr(SendBuffer) + Chr(0) ' tekst on of off laten verschijnen If Text2(0).Text = "ON" Then ' in het tekstvak naast de IR knop Text2(0).Text = "OFF" ' wanneer er op die knop gedrukt wordt Else Text2(0).Text = "ON" End If End If End Sub Private Sub Command5_Click() ' wanneer op de CLEAR knop gedrukt wordt cent = 0 ' de timer terug op 0 zetten Text3.Text = cent End Sub Private Sub Command6_Click() ' groundsensor aan of afzetten Dim Restore As Integer Restore = SendBuffer SendBuffer = SendBuffer Xor 16 If (SendBuffer And 19) = 0 Then SendBuffer = Restore Else MSComm1.Output = Chr(SendBuffer) + Chr(0) ' tekst on of off laten verschijnen If Text2(2).Text = "ON" Then ' in het tekstvak naast de GROUND knop Text2(2).Text = "OFF" ' wanneer er op die knop gedrukt wordt Else Text2(2).Text = "ON" End If End If End Sub Private Sub Form_Unload(Cancel As Integer) MSComm1.PortOpen = False End Sub Private Sub Form_Load() ' inladen Dim count As Integer SendBuffer = 19 For count = 0 To 15 RecieveBuffer(count) = 255 ' initieel alle waardes op 255 zetten Next For count = 0 To 15 Text1(count).Text = "" ' om tekst te schrijven Next For count = 0 To 2 ' IR, US en GROUND op on zetten Text2(count).Text = "ON" Next Text3.Text = "" Command1.Caption = "START" ' start laten verschijnen op de knop InPointer = 0 MSComm1.CommPort = 1 MSComm1.Settings = "19200,N,8,1" MSComm1.RThreshold = 1 MSComm1.InputLen = 1 MSComm1.PortOpen = True filename = "c:\temp\sensors.csv" ' verwijzing naar de file waar hij de Timer1.Enabled = False ' resultaten inschrijft End Sub Private Sub MSComm1_OnComm() Dim InByte As Integer Dim count As Integer Dim dubbel As Integer Dim optel As Integer If InPointer > 15 Then InPointer = 0 If MSComm1.CommEvent = comEvReceive Then InByte = Asc(MSComm1.Input) ' input lezen If InByte <> 0 Then RecieveBuffer(InPointer) = InByte InPointer = InPointer + 1 If InByte = 0 Then InPointer = 0 Text1(0).Text = (RecieveBuffer(1) And 127) + (RecieveBuffer(0) And 7) * 128 ' IR input scrijven Text1(2).Text = (RecieveBuffer(5) And 127) + (RecieveBuffer(4) And 7) * 128 Text1(4).Text = (RecieveBuffer(9) And 127) + (RecieveBuffer(8) And 7) * 128 Text1(9).Text = (RecieveBuffer(13) And 127) + (RecieveBuffer(12) And 7) * 128 ' ground sensor input schrijven Text1(10).Text = (RecieveBuffer(15) And 127) + (RecieveBuffer(14) And 7) * 128 If (RecieveBuffer(0) And 32) <> 0 Then RecieveBuffer(2) = 0 If (RecieveBuffer(0) And 16) <> 0 Then RecieveBuffer(3) = 0 If (RecieveBuffer(4) And 32) <> 0 Then RecieveBuffer(6) = 0 If (RecieveBuffer(4) And 16) <> 0 Then RecieveBuffer(7) = 0 If (RecieveBuffer(8) And 32) <> 0 Then RecieveBuffer(14) = 0 If (RecieveBuffer(8) And 16) <> 0 Then RecieveBuffer(15) = 0 Text1(1).Text = RecieveBuffer(3) + RecieveBuffer(2) * 256 ' US input (TOF) schrijven Text1(3).Text = RecieveBuffer(7) + RecieveBuffer(6) * 256 Text1(5).Text = RecieveBuffer(11) + RecieveBuffer(10) * 256 Text1(6).Text = ((RecieveBuffer(3) + RecieveBuffer(2) * 256) / 1800) * 0.3048 ' US input omrekenen naar een Text1(7).Text = ((RecieveBuffer(7) + RecieveBuffer(6) * 256) / 1800) * 0.3048 ' afstand Text1(8).Text = ((RecieveBuffer(11) + RecieveBuffer(10) * 256) / 1800) * 0.3048 For count = 0 To 2 ' IR input omrekenen naar de afstand volgens dubbel = count * 2 ' de experimenteel opgemeten grafiek optel = count + 11 If Text1(dubbel).Text > 865 Then Text1(optel).Text = "ERR" ' indien afstand te groot ERR in tekstvak schrijven End If If 527 < Text1(dubbel).Text And Text1(dubbel).Text <= 865 Then 'lineaire benadering tussen opgemeten punten Text1(optel).Text = 10 + ((Text1(dubbel).Text - 865) * 5 / (527 - 865)) 'voor het verband tussen signaal IR en afstand End If If 380 < Text1(dubbel).Text And Text1(dubbel).Text <= 527 Then Text1(optel).Text = 15 + ((Text1(dubbel).Text - 527) * 5 / (380 - 527)) End If If 263 < Text1(dubbel).Text And Text1(dubbel).Text <= 380 Then Text1(optel).Text = 20 + ((Text1(dubbel).Text - 380) * 5 / (263 - 380)) End If If 200 < Text1(dubbel).Text And Text1(dubbel).Text <= 263 Then Text1(optel).Text = 25 + ((Text1(dubbel).Text - 263) * 5 / (200 - 263)) End If If 151 < Text1(dubbel).Text And Text1(dubbel).Text <= 200 Then Text1(optel).Text = 30 + ((Text1(dubbel).Text - 200) * 5 / (151 - 200)) End If If 112 < Text1(dubbel).Text And Text1(dubbel).Text <= 151 Then Text1(optel).Text = 35 + ((Text1(dubbel).Text - 151) * 5 / (112 - 151)) End If If 74 < Text1(dubbel).Text And Text1(dubbel).Text <= 112 Then Text1(optel).Text = 40 + ((Text1(dubbel).Text - 112) * 5 / (74 - 112)) End If If 51 < Text1(dubbel).Text And Text1(dubbel).Text <= 74 Then Text1(optel).Text = 45 + ((Text1(dubbel).Text - 74) * 5 / (51 - 74)) End If If 41 < Text1(dubbel).Text And Text1(dubbel).Text <= 51 Then Text1(optel).Text = 50 + ((Text1(dubbel).Text - 51) * 5 / (41 - 51)) End If If 10 < Text1(dubbel).Text And Text1(dubbel).Text <= 41 Then Text1(optel).Text = 55 + ((Text1(dubbel).Text - 41) * 5 / (10 - 41)) End If If 0 < Text1(dubbel).Text And Text1(dubbel).Text <= 10 Then Text1(optel).Text = 60 + ((Text1(dubbel).Text - 10) * 5 / (0 - 10)) End If If Text1(dubbel).Text = 0 Then Text1(optel).Text = "OK" End If Next If Text1(9).Text > 100 Then 'indien outputsignaal groot dan white schrijven Text1(14).Text = "white" 'indien klein dan black schrijven Else Text1(14).Text = "black" End If If Text1(10).Text > 100 Then Text1(15).Text = "white" Else Text1(15).Text = "black" End If n = n + 1 If n > 100 Then n = 0 If Command1.Caption = "STOP" And n > 49 Then Open filename For Append As #1 ' resultaten in file wegschrijven Print #1, Text1(6).Text + "," + Text1(7).Text + "," + Text1(8).Text + "," + Text1(11).Text + "," + Text1(12).Text + "," + Text1(13).Text + "," + Text1(14).Text + "," + Text1(15).Text Close #1 n = 0 End If End If End If End Sub Private Sub Check1_Click() ' om te kiezen voor short distance measurement SendBuffer = SendBuffer Xor 8 MSComm1.Output = Chr(SendBuffer) + Chr(0) End Sub Private Sub Timer1_Timer() ' om timer te starten en aantal seconden cent = cent + 1 ' weer te geven in bijhorende tekstvak Text3.Text = cent End Sub