Kod: Zaznacz cały

Dim sProg1, sProg2, sProg3
Dim sProg4, sProg5, sProg6

Sub Main ()

sProg1 = "C:\Mach3\GCode\Program1.tap"
sProg2 = "C:\Mach3\GCode\Program2.tap"
sProg3 = "C:\Mach3\GCode\Program3.tap"
sProg4 = "C:\Mach3\GCode\Program4.tap"
sProg5 = "C:\Mach3\GCode\Program5.tap"
sProg6 = "C:\Mach3\GCode\Program6.tap"


Begin Dialog ProgSelect 31,32,142,130,"Wybierz numer programu"
PushButton 16,24,110,10,"Program nr. 1",.but1
PushButton 16,40,110,10,"Program nr. 2",.but2
PushButton 16,56,110,10,"Program nr. 3",.but3
PushButton 16,72,110,10,"Program nr. 4",.but4
PushButton 16,88,110,10,"Program nr. 5",.but5
PushButton 16,104,110,10,"Program nr. 6",.but6
End Dialog

Dim Dlg1 As ProgSelect
Button = Dialog (Dlg1)

Select Case Button
Case 1
    LoadFile(sProg1)
Case 2
    LoadFile(sProg2)
Case 3
    LoadFile(sProg3)
Case 4
    LoadFile(sProg4)
Case 5
    LoadFile(sProg5)
Case 6
    LoadFile(sProg6)
End Select

End Sub

Kod: Zaznacz cały

Sub Main()

Dim nVal, nOldPosX As Double

nVal     = 333
nOldPosX = GetOEMDRO(800)

    SetOEMDRO(800,nOldPosX+nVal)
    While ismoving()
        sleep(10)
    Wend

End Sub

Kod: Zaznacz cały

SetOEMDRO(800,GetOEMDRO(800)+333)
While ismoving()
    sleep(10)
Wend