Besoin d'aide pour le VBscript

[Jaypay]

Bonjour à tous,

J'essaye de comprendre le VBScript et je cherche, par l'intermédiaire d'une LED, à choisir un programme ou un autre mais même en essayant de plusieurs façons, je n'arrive pas à faire fonctionner ce script..

Voici mon VBScript.

[spoil]Sub Main()
dim xx as double
DoOEMButton (169)

xprog1=GetOEMDRO(1000)
xprog2=GetOEMDRO(1001)
nombre=GetOEMDRO(1002)

Sub etape1()
xprog=xprog1+xprog2
End Sub

Sub etape2()
xprog=10000
End Sub

If GetUserLED(2000) Then
Sub etape1()
Else
Sub etape2()
End If

OpenTeachFile"coucou.tap"
Code "G81 X" & xprog

CloseTeachFile
rem call LoadStandardLayout()
call LoadTeachFile()
End Sub[/spoil]

Si vous pourriez m'indiquer comment résoudre ce problème je vous serais reconnaissant !
Merci d'avance.

Jaypay.

 

[amurianum]

je cherche, par l'intermédiaire d'une LED, à choisir un programme

là il faut éclairer ma lanterne / LED

 

[yiab]

bonjour,

V tech avait créé un commandbutton et mis son script dedans

https://www.usinages.com/threads/y-a-t-il-des-pro-des-plug-in.48692/

si ça peut t'aider

cdlt

 

[Jaypay]

Bonjour,

Je voudrais que le programme se répète selon le nombre de répétition que l'utilisateur à remplis. Par exemple si le nombre de répétition est égal à 3, il faudrait que le programme se répète et s’additionne trois fois.

[spoil]For repetition = 1 To repetition
Code "x" & longueur_piece+(epaisseur_montant*200)-epaisseur_montant/repetition
Else
Code " "

For repetition = 2 To repetition
Code "x" & longueur_piece+(epaisseur_montant*200)-epaisseur_montant/repetition
Else
Code " "[/spoil]

 

[yiab]

bonjour,

chez moi en VB ça donnerait un truc comme ça



Dim repetition As Integer 'ou single ou long
Dim epaisseurmontant As Integer 'ou single ou long
Dim longueurpiece As Integer 'ou single ou long

repetition = 3 ' ou repetiton = Val(text1)
longueurpiece = 200 ' cote au hasard
epaisseurmontant = 120

For I = 1 To repetition
Code "x" & longueurpiece + (epaisseurmontant * 200) - (epaisseurmontant /I)
Else
Code ""
Next i

et pas besoin de coder l'itération (for next) plusieurs fois

voilà

 

[yiab]

OUH LA LA !

je crois que j'ai mis des C... (j'ai une excuse, j'suis enrhubé, et djai la dedeu dans le padé)

donc dans mon exemple else suivi de code"" n'ont rien à faire la dedans

j'aurais du écrire :

For I = 1 To repetition
Code "x" & longueurpiece + (epaisseurmontant * 200) - (epaisseurmontant /I)
Next i

si je veux mettre ELSE je dois poser une condition (IF...THEN)

par exemple

For I = 1 To repetition

if epaisseurmontant >0 then ' exemple de conditions
Code "x" & longueurpiece + (epaisseurmontant * 200) - (epaisseurmontant /I)
else
Code ""
End if

Next i

maintenant est ce que c'est valable sous Vbscript ? et est ce que ça t’apporte quelque chose ?

en tous cas désolé pour mon couac !

cdlt