1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

DEMANDE Afficher XK3190-D18 Pont bascule

Discussion dans 'Windev' créé par Fouad, Sept 8, 2020.

  1. Fouad

    Fouad New Member

    Inscrit:
    Août 12, 2018
    Messages:
    6
    J'aime reçus:
    0
    Bonjour , je souhaite communiquer avec une balance sur le port COM1 rs 232

    mon code: ((( ca marche pas )))


    nGnNumeroMessage est un entier = 1

    // Ouverture du port spécifié
    sOuvre(1, 25000, 5000, 5000,Vrai)

    // Initialise les paramètres du port série
    sFixeParamètre(1,9600,0,8,0,Faux,Faux,Vrai)

    SI ErreurDétectée ALORS
    Erreur("Impossible d'initialiser le port", ErreurInfo())
    FIN
    sEvénement(1, sEveCaractèreReçu, SerialRead)

    sFinEvénement(1,sEveCaractèreReçu)
    ---------------------------------------------------------------------------------------------------------------
    PROCÉDURE SerialRead



    cMonCaractere est un caractère

    TANTQUE sDansFileEntrée(1) > 0
    cMonCaractere = sLit (1,1)
    SI cMonCaractere = Caract(10) ALORS
    sOutBuffer = sMonBuffer

    FEN_serial_com.SAI_RecNo = Milieu (sOutBuffer,Taille(sOutBuffer) - 5, 5)
    sMonBuffer = ""
    SINON
    sMonBuffer = sMonBuffer + cMonCaractere
    FIN

    FIN
     

    Fichiers attachés:

    Tags:
  2. Fouad

    Fouad New Member

    Inscrit:
    Août 12, 2018
    Messages:
    6
    J'aime reçus:
    0
    Voila le protocole de communication fourni par le constructeur
     
  3. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    647
    J'aime reçus:
    227

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    , J'ai fait ça en 2008 je crois. Je vais essayer juste de trouver mon code. C'était un truc Italien(appareil). Je dois fouiller, juste pour te donner mon code.
    Même le nom du projet, je ne connais même plus
     
  4. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    647
    J'aime reçus:
    227
    Bonsoir,
    C'est un vieux code, mais tu peux le lire


    [windev]
    popo est un entier=sEcrit(numport,"READ"+RC)
    //Multitache(1)
    s est une chaîne
    Multitâche(20)
    Saisie1=sLit(numport,500)
    //Multitache(10)
    s=Saisie1
    POIDS_BRUT=Val(ExtraitChaîne(Saisie1, 3, ","))
    POIDS_NET=Val(ExtraitChaîne(Saisie1, 3, ","))
    Unitepoids=ExtraitChaîne(Saisie1, 4, ",")
    [/windev]




    [windev]
    PROCEDURE ouvertureport()
    etatduport=2
    numport=0
    vvitesse,vbitdonnee,vbitstop sont des entiers
    ch est une chaîne =ComplèteRep(fRepExe())+"PORTPARAM.INI"
    numport =Val(INILit("CONNEXION", "PORT", "1", ch))
    //INILit(

    Vitesse est un entier=Val(INILit("CONNEXION", "VITESSE", "2", ch))
    PARITE est un entier=Val(INILit("CONNEXION", "PARTITE", "1", ch))
    Bitdonnee est un entier=Val(INILit("CONNEXION", "Bitdonnee", "5", ch))
    Bitstop est un entier=Val(INILit("CONNEXION", "BISTOP", "2", ch))
    TAILLEBUFFER est un entier=Val(INILit("CONNEXION", "BUFFER", "5000", ch))
    numport=Val(INILit("CONNEXION", "PORT", "1", ch))
    Vitesse=Val(INILit("CONNEXION", "VITESSE", "1", ch))
    PARITE=Val(INILit("CONNEXION", "PARITE", "1", ch))
    Bitdonnee=Val(INILit("CONNEXION", "BITDONNEE", "1", ch))
    Bitstop=Val(INILit("CONNEXION", "BITSTOP", "1", ch))
    TAILLEBUFFER=Val(INILit("CONNEXION", "BUFFER", "5000", ch))

    PARIte-=1
    vvitesse=Vitesse*4800
    vBitstop=Bitstop-1
    SELON Bitstop
    CAS 1
    vBitstop=0
    CAS 2
    vBitstop=1
    CAS 3
    vBitstop=2

    FIN
    vbitdonnee=3+Bitdonnee
    vparite est un entier=Parite-1
    //info(port,Vitesse,Bitdonnee,Bitstop,vvitesse,Parite,vbitstop,vbitdonnee)

    tbool est un booléen=sOuvre(numport, 5000, 5000)

    IF tbool=Faux THEN
    Erreur("Impossible d''ouvrir le port", ErreurInfo()) // if any error on fxing parameters
    SI OuiNon(Non,"Voulez vous saisir manuelement les valeur ?")=Non
    RENVOYER Faux
    END


    END



    //info(numPORT, vvitesse, Parite, vbitdonnee, vbitstop, Faux,Faux,Faux)

    vbool est un booléen= sFixeParamètre(numport,vvitesse, PARITE, vbitdonnee, vbitstop, Faux,Faux,Faux)
    SI ErreurDétectée ALORS
    Erreur("Impossible d'initialiser le port", ErreurInfo())
    FIN
    //vbool= sFixeparamètre(...
    // PORT, ... // Port
    // vvitesse, ... // Taux
    // Parite, ... // Parité : 0=aucune, 1=paire, 2=impaire
    // vbitdonnee, ... // Nb bit de données
    // vbitstop, ... // Nb bit de stop
    // // 0=1 bit de stop, 1=1,5 bits de stop, 2=2 bits de stop
    // Faux, ... // DTR/DSR ignoré
    // Faux, ... // RTS/CTS ignoré
    // Faux) // XON/XOFF ignoré


    IF vbool=Vrai THEN etatduport=1


    // numport=PORT

    RENVOYER Vrai
    [/windev]
     
    rober apprécie ceci.
  5. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    647
    J'aime reçus:
    227
    [CONNEXION]
    PORT=1
    VITESSE=2
    PARITE=1
    BITDONNEE=5
    BITSTOP=1
    BUFFER=5000

    Fichier ini
     
  6. Fouad

    Fouad New Member

    Inscrit:
    Août 12, 2018
    Messages:
    6
    J'aime reçus:
    0
    Merci mon ami c compliqué Mé je veux essayer
     
  7. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    647
    J'aime reçus:
    227

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    , je peux te dire que ça marchait très bien. En fait on ne lit pas seulement, Il te faut le bon API qui permet à ton pont d'éxécuter une commande. Ce que je ne vois pas. Tu dois lui dire de lire . Hors tus lis en continue. On charge le pont , ça affiche une valeur qu'on récupère. Dans le cas d'espèce, j'envoie READ au port série et il me retourne une chaine que je décompose.
    Je pense que tous est ici
     

    Fichiers attachés:

  8. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    647
    J'aime reçus:
    227
    Regardes la page 37, tous y est, les commandes à envoyer et comme lire.
    J'ai fini avec toi
     
  9. dj.ingenieur

    dj.ingenieur New Member

    Inscrit:
    Juin 5, 2023
    Messages:
    3
    J'aime reçus:
    1
    Bonjour monsieur fouad
    Est ce que vous avez trouvé une solution pour pond bascule
     
    popoy apprécie ceci.
  10. Dandypunk

    Dandypunk Well-Known Member

    Inscrit:
    Nov 28, 2019
    Messages:
    544
    J'aime reçus:
    297
    Bonjour,
    Comme le précisait LaPipe, il faut utiliser l'option RTFM P 37
     
    Isabelle apprécie ceci.
  11. dj.ingenieur

    dj.ingenieur New Member

    Inscrit:
    Juin 5, 2023
    Messages:
    3
    J'aime reçus:
    1
    BONJOUR MONSIEUR
    merci d'abord pour votre réponse rapide
    j'ai pas compris option RTFM P37
    Je développe sous windev
    voici le code actuel :
    reslt est un boolien=souvre(numport,2000,2000,stimeoutdefaut,vrai)
    si reslt =vrai alors
    sfixeparametre(numport,9600,0,8,0)
    POIDRECU EST UNE CHAINE = SLIT(NUMPORT,sdansfileentree(numport))
    -------------------------------------
    quand j'affiche upoidrecu je trouve = yyyyyyyyyyyyyyyyyyyyyyyy
    ou est le problème malgre dans un autre pont bascule il marche normalement et dans le
    XK3190-D18 ne marche pas
     
  12. popoy

    popoy Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 23, 2018
    Messages:
    2,879
    J'aime reçus:
    1,531
    irobot et Gemini1961 aiment ça.
  13. Gemini1961

    Gemini1961 Well-Known Member
    MEMBRE WX DUMP TEAM

    Inscrit:
    Jan 2, 2018
    Messages:
    572
    J'aime reçus:
    862

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    Cliquez pour agrandir...
    I Like LoL
    :-D
     
    #13 Gemini1961, Juin 8, 2023
    Dernière édition: Juin 8, 2023

Partager cette page

Chargement...