1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.

Besoin d'aide pour le VBscript

Discussion dans 'Mach' créé par Jaypay, 28 Janvier 2013.

  1. Jaypay

    Jaypay Nouveau

    Messages:
    2
    Inscrit:
    4 Juin 2012
    Besoin d'aide pour le VBscript
    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.
     
  2. amurianum

    amurianum Compagnon

    Messages:
    956
    Inscrit:
    21 Janvier 2013
    Besoin d'aide pour le VBscript
    là il faut éclairer ma lanterne / LED :-D
     
  3. yiab

    yiab Apprenti

    Messages:
    243
    Inscrit:
    23 Février 2011
    Localité:
    St nazaire
    Dernière édition par un modérateur: 16 Avril 2015
  4. Jaypay

    Jaypay Nouveau

    Messages:
    2
    Inscrit:
    4 Juin 2012
    Besoin d'aide pour le VBscript
    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]
     
  5. yiab

    yiab Apprenti

    Messages:
    243
    Inscrit:
    23 Février 2011
    Localité:
    St nazaire
    Besoin d'aide pour le VBscript
    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à
     
  6. yiab

    yiab Apprenti

    Messages:
    243
    Inscrit:
    23 Février 2011
    Localité:
    St nazaire
    Besoin d'aide pour le VBscript
    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
     
Chargement...
Articles en relation
  1. David51
    Réponses:
    5
    Affichages:
    1 161
  2. cubalu
    Réponses:
    1
    Affichages:
    854
  3. nodz
    Réponses:
    2
    Affichages:
    626
  4. dede02
    Réponses:
    3
    Affichages:
    849
  5. mvagusta
    Réponses:
    0
    Affichages:
    658

Partager cette page