Machsupport Forum
Mach Discussion => VB and the development of wizards => Topic started by: birillo1959 on January 06, 2022, 03:23:45 AM
-
Good morning
I modified the macro for multiple passes
I understand very little of VB I would like to know if it can work
Is there anyone who can help me control her?
can it work?
I thank those who can help me
original macro
REM Context 10002
repeats = Question ("Quante ripetizioni?")
depth = Question ("Profondità massima della prima passata?")
perpass = Question ("Abbassamento asse Z per ogni passata?")
SetOEMDro 80, depth
SetOEMDro 78, repeats
SetOEMDro 79, perpass
DoOEMButton 218
Message "Premere Esegui lavorazione / Alt+R per iniziare"
modified macro
REM Context 10002
Speak (" passate multiple") 'Avviso Vocale
REM Context 10002
Begin Dialog TextBoxSample 300,200,155,120," PASSATE MULTIPLE"
OKButton 25,88,40,14
CancelButton 80,88,40,14
GroupBox 8,5,140,110,"PASSATE MULTIPLE IMPOSTAZIONI",.GroupBox1
TextBox 15,22,40,12,.TextBox1
Text 60,24,80,8,"NUMERO PASSATE"
TextBox 15,42,40,12,.TextBox2
Text 60,44,80,8,"DISCESA 1 PASSATA"
TextBox 15,62,40,12,.TextBox3
Text 60,64,80,8,"DISCESA PER PASSATA"
End Dialog
Dim Dlg1 As TextBoxSample
Dialog Dlg1
repeats = CDbl(Dlg1.TextBox1)
depth = CDbl(Dlg1.TextBox2)
perpass = CDbl(Dlg1.TextBox3)
SetOEMDro 80, depth
SetOEMDro 78, repeats
SetOEMDro 79, perpass
DoOEMButton 218
Message "Premere il pulsante Lavorazione (Alt+R) per iniziare"