Besoin d'aide pour le VBscript

  • Auteur de la discussion Jaypay
  • Date de début
J

Jaypay

Nouveau
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.
 
J

Jaypay

Nouveau
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]
 
Y

yiab

Ouvrier
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à
 
Y

yiab

Ouvrier
OUH LA LA ! :shock: :shock: :eek: :eek:

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 :hang:

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 ! :grilled:

cdlt
 
Haut