Sub Main()
Dim DoXY As String
Dim DoZ As String
Dim XaxisDRO As Integer
Dim YaxisDRO As Integer
Dim ZaxisDRO As Integer
Dim ToolDia As Double
Dim TouchPlateThickness As Double
Dim msg As String
Dim
Style As String
Dim Title As String
Dim Answer As Long
XaxisDRO=0
YaxisDRO=1
ZaxisDRO=2
MsgBox "Hou de maten van de touchplatedikte en de diameter van het snijgereedschap (boor of frees) bij de hand.
Deze waarden moet U dadelijk invullen!",0,"LET OP"
1:
Answer = MsgBox ("Wilt U uitleg over de nulstelling (zeroing procedure) van het werkstuk?",4,"UITLEG?")
If Answer = 6 Then
GoTo 2
End If
If Answer = 7 Then
GoTo 3
End If
2:
MsgBox "Om de nulstelling te verrichten gebruiken we een 'raakplaat' (touchplate) met een bepaalde dikte die aan + 5 Volt ligt",0,"UITLEG"
MsgBox "Het snijgereedschap (boor of frees) met een bepaalde diameter in de spantang leggen we aan 0 Volt",0,"UITLEG"
MsgBox "Het snijgereedschap in de spantang wordt voorzichtig naar de touchplate toegebracht tot ze elkaar raken",0,"UITLEG"
MsgBox "De respectieve coördinaten worden bij aanraking op 0 gezet en de tool trekt zich terug. ",0,"UITLEG"
MsgBox "Voor de Z-as wordt de dikte van de touchplate afgetrokken. Deze waarde wordt dadelijk gevraagd",0,"UITLEG"
MsgBox "Voor
de X-as en Y-as wordt de halve diameter van het snijgereedschap afgetrokken. Deze waarde wordt dadelijk gevraagd",0,"UITLEG"
MsgBox "We doen eerst de Z-as. De Z-as moet altijd gedaan worden",0,"UITLEG"
MsgBox "Daarna kunt U kiezen of
de X en Y as ook moeten, maar dat hoeft niet",0,"UITLEG"
GoTo 3
3:
TouchPlateThickness = AskTextQuestion("Dikte van de touchplate invoeren. Waarde in millimeters, het decimale scheidingsteken is
een punt")
ToolDia = AskTextQuestion("Diameter van het snijgereedschap in de spantang invoeren. Dit hoeft niet als U X en Y niet doet")
GoTo 4
4:
Answer = MsgBox ("Is de touchplate met + 5 V verbonden?",4,"CONTROLE")
If Answer = 6 Then
GoTo 5
End If
If Answer = 7 Then
GoTo 11
End If
5:
Answer = MsgBox ("Is de frees
of de boor in de spantang met 0 volt verbonden?",4,"CONTROLE")
If Answer = 6 Then
GoTo 6
End If
If Answer = 7 Then
GoTo
11
End If
6:
'Answer = MsgBox ("Wilt U de bovenkant van het werkstuk bepalen (= Z-as )?",4,"BOVENKANT VAN HET WERKSTUK")
'If Answer = 6 Then
MsgBox "We gaan nu de Z-as doen. Zorg dat de touchplate op het werkstuk ligt",0,"Z-as"
'
GoTo 7
'End If
'If Answer = 7 Then
' GoTo 11
'End If
7:
MsgBox "Z as wordt nu gedaan",0,"Z-as"
SetDRO(ZaxisDRO, 0.0000)
Sleep 100
If IsSuchSignal (22) Then
code "G31 Z-2 F10"
While IsMoving()
Sleep 100
Wend
SetDRO(ZaxisDRO, TouchPlateThickness)
Sleep 100
code "G1 Z1"
End If
MsgBox
"Z-as is gedaan",0,"Z-as"
Answer = MsgBox ("X- en Y-as op nul zetten?",4,"ZIJKANTEN VAN HET WERKSTUK")
If Answer = 6 Then
MsgBox "Zorg dat de touchplate aan de zijkant van de X-as van het werkstuk ligt",0,"X-as"
GoTo 8
End If
If Answer = 7 Then
GoTo 11
End If
8:
MsgBox "X-as wordt nu gedaan",0,"X-as"
SetDRO(XaxisDRO, 0.0000)
Sleep 100
If IsSuchSignal (22) Then
code "G31 X-2 F10"
While IsMoving()
Sleep 100
Wend
SetDRO(XaxisDRO, ToolDia/2)
Sleep 100
code "G1 X.5"
End If
MsgBox "X-as is gedaan",0,"X-as"
MsgBox "Zorg dat de touchplate aan de zijkant van de Y-as van het werkstuk ligt",0,"Y-as"
MsgBox "Y-as wordt nu gedaan",0,"Y-as"
SetDRO(YaxisDRO, 0.0000)
Sleep 100
If IsSuchSignal (22) Then
code "G31 Y-1 F10"
While IsMoving()
Sleep 100
Wend
SetDRO(YaxisDRO, ToolDia/2)
Sleep 100
code "G1 Y.5"
End If
MsgBox "Y-as is gedaan",0,"Y-as"
9:
10:
MsgBox "U kunt nu gaan bewerken",0,"KLAAR"
11:
MsgBox "Tot ziens",0,"EINDE"
End Sub