XProfan

Français

Heinz
Bernhard

un freundliches allô dans qui Runde!

je hatte dans qui Rubrik "Aktuelle Themen" pour Beiträgen sur den seriellen Port gesucht. malheureusement kam je seulement jusqu'à zur page 10. Alle après aufgerufenen Seiten zeigten seulement toujours wieder page 10 à - seltsam, ou bien? Na, peut-être hat mon IE gesponnen.
Daher ist mon Frage peut-être. déjà überholt!?

je voudrais données vom Notebook dans qui digitale Außenwelt envoyons. là cela Gerät keinen seriellen Anschluss hat, muss einer sur Adapter geschaffen volonté.
"Conrad" bietet une seriellen 8il-Relaisbaustein à, quel sur internen Converter à USB angesteckt volonté peux. un Relaisloser Baustein seulement avec digitalen un-/Ausgängen wäre mir zwar lieber, mais den Zustand peux je oui avant den Relais décroître.

cet Baugruppe beinhaltet pour ses Funktion mais une Controller-Schaltkreis.
qui gesamte Programmation erfolgt sur un Mini-Basic.

là XProfan den seriellen Port ansprechen peux, wäre cela une feine l'affaire pour mich.
eh bien sais je mais pas, si XProfan avec seinen Befehlen qui Programmation des Controllers et den erforderlichen Datentransport prendre peux.
Basic c'est moi fremd et je hätte naturellement lieber avec XProfan mon données programmiert.

peut-être peux mir quelqu'un aus qui Runde aider, ou bien une Hinweis donner?

je suis pour alles reconnaissant. Freundliche Grüße Heinz B.

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7

28.08.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Peter
Max
Müller

Moin.
je ne sais pas si dir cela maintenant weiterhilft. mais regarder peux du oui la fois:
[...]

XProfan X3, X4ß, Win 10.1

29.08.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

j'ai aussi déjà depuis Jahren so une Relaiskarte
de CONRAD, mais encore avec richtiger serieller Schnittstelle.
il peut cet aussi avec einem USB-Seriell Adapter betreiben.

ici nochmals qui Code :
Kompilieren Marque Séparation

Declare hD%, hB%, schalt%, statusbar%, OK%, hcombo%
Declare comport%, f%, adresse%, kommando%, Pruefsumme%
Declare chk1%, chk2%, chk3%, chk4%, chk5%, chk6%, chk7%, chk8%
Declare daten%, com$, send$
daten% = 1
adresse% = 1

Proc GetCheckboxStates

    If @GetCheck(chk1%)

        daten% = SetBit(daten%, 0, 1)

    Else

        daten% = SetBit(daten%, 0, 0)

    EndIf

    If @GetCheck(chk2%)

        daten% = SetBit(daten%, 1, 1)

    Else

        daten% = SetBit(daten%, 1, 0)

    EndIf

    If @GetCheck(chk3%)

        daten% = SetBit(daten%, 2, 1)

    Else

        daten% = SetBit(daten%, 2, 0)

    EndIf

    If @GetCheck(chk4%)

        daten% = SetBit(daten%, 3, 1)

    Else

        daten% = SetBit(daten%, 3, 0)

    EndIf

    If @GetCheck(chk5%)

        daten% = SetBit(daten%, 4, 1)

    Else

        daten% = SetBit(daten%, 4, 0)

    EndIf

    If @GetCheck(chk6%)

        daten% = SetBit(daten%, 5, 1)

    Else

        daten% = SetBit(daten%, 5, 0)

    EndIf

    If @GetCheck(chk7%)

        daten% = SetBit(daten%, 6, 1)

    Else

        daten% = SetBit(daten%, 6, 0)

    EndIf

    If @GetCheck(chk8%)

        daten% = SetBit(daten%, 7, 1)

    Else

        daten% = SetBit(daten%, 7, 0)

    EndIf

EndProc

Proc GetComInput

    Parameters id%
    Declare in$
    in$ = @ReadCom$(f%,8)' 8 Zeichen einlesen
    Case @Len(in$):SetText statusbar%, "Antwort : " + Str$(ord(in$))

EndProc

Proc Senden

    ' 4 Byte - Rahmen zum Senden erstellen
    Pruefsumme% = XOR(XOR(kommando%, adresse%), daten%)
    send$ = Chr$(kommando%) + Chr$(adresse%) + Chr$(daten%) + Chr$(Pruefsumme%)
    WriteCom(f%, send$)
    ComError(f%)
    GetComInput(f%)
    Sleep 1000

EndProc

Proc Dialog

    'Dialogfenster erzeugen
    hD% =     @Create("Dialog",%DeskTop,"Relaisplatine 8fach seriell",100,100,600,400)
    'Einen Button mit 'ENDE' erzeugen
    hB% =     @Create("Button",hD%,"&ENDE",10,10,60,25)
    schalt% = @Create("Button", hD%, "&Schalten", 100, 10, 80, 25)
    chk1% =   @Create("CheckBox", hD%, "Relais 1", 350, 10, 100, 25)
    chk2% =   @Create("CheckBox", hD%, "Relais 2", 350, 40, 100, 25)
    chk3% =   @Create("CheckBox", hD%, "Relais 3", 350, 70, 100, 25)
    chk4% =   @Create("CheckBox", hD%, "Relais 4", 350,100, 100, 25)
    chk5% =   @Create("CheckBox", hD%, "Relais 5", 350,130, 100, 25)
    chk6% =   @Create("CheckBox", hD%, "Relais 6", 350,160, 100, 25)
    chk7% =   @Create("CheckBox", hD%, "Relais 7", 350,190, 100, 25)
    chk8% =   @Create("CheckBox", hD%, "Relais 8", 350,220, 100, 25)
    ' erste Checkbox setzen
    SetCheck chk1%, 1
    statusbar% = @Create("StatusWindow", hD%, "Ready !")
    Clear OK%' OK% auf 0 setzen

    WhileNot Ok%' solange OK% gleich 0 ist

        ' Hier in der Schleife warten wir mit WaitInput auf Benutzer - Eingaben
        ' Wir verwenden die in XProfan 10 neue Funktion @Clicked() statt @GetFocus()
        WaitInput

        If @Clicked(hB%)

            'ENDE wurde angeklickt, OK% wird auf 1 gesetzt und somit
            ' die Schleife verlassen, das Fenster gelöscht und das Programm beendet.
            Ok% = 1

        ElseIf %Key = 2

            ' Hier wird das 'X' (rechts oben Schließen) ausgewertet
            OK% = 1

        ElseIf @Clicked(schalt%)

            ' Relais schalten.
            kommando% = 3
            adresse% = 1
            daten% = 0
            GetCheckboxStates' Checkboxen auswerten u. Bits setzen
            Senden
            '@MessageBox("Ich bin der Autor : " + Name$, "Info", 0)

        EndIf

    EndWhile

    'Dialogfenster (incl. Button, usw.) entfernen
    @DestroyWindow(hD%)

EndProc

' Relaiskarte initialisieren
kommando% = 1
adresse% = 1
daten% = 0
f% = @OpenCom("COM5", 1024, 1024)
SetCom("COM5: 19200, N, 8, 1")
Senden
' Hier wird die Dialogbox (Procedur) aufgerufen
Dialog
' Programm Ende
../../funktionsreferenzen/XProfan/closecom/'>CloseCom(f%)
Fin

peut-être hat sich oui chez dem Baustein qui Platine rien geändert,
seulement arrêt, qui maintenant un USB-Anschluß voilà. ensuite könntest du den
Code original verwenden. dois arrêt seulement qui COMx: convenable mettons.

PS: Pour alle, qui aussi encore une ser. carte besitzen :
Es peux son, qui cet seulement avec einem Nullmodemkabel
allez, so comment chez mir.
Entweder hat Conrad cela chez seiner Doku oublier qc trop erwähnen,
ou bien il y a Tx et Rx chez qui Produktion vertauscht worden.
je denke, là gingen autrefois tausende Stück raus et là cela
oui bestimmt Fließband (Lötautomaten) Produktion ist, volonté
wohl encore quelques cette Exemplare existieren.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

29.08.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Heinz
Bernhard

Hallöchen !
aussi dir meinen herzlichen Dank pour deine umfangreiche Mühe.

j'ai mich sur Grund deiner et qui anderen beteiligten Profaner en supplément entschlossen bientôt mon argent de poche trop "Conrad" trop apporter et qui Relaiskarte trop achetons.

Herzlichen Dank Allen qui geholfen avons.
Grüße de Heinz B.

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7

29.08.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

peux aussi la fois ici informer :
[...]

Evtl. hat qui encore so une Relaiskarte.
avec BT peux on genauso sur seriell steuern.
Hab aussi so une et somit keinen Kabelsalat plus.

30.08.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Heinz
Bernhard

Hallöchen,
entier herzlichen Dank pour deine nochmalige Mühe. tant pis, dass je à BT gar pas gedacht habe. mais eh bien ist es malheureusement trop spät, peut-être.. peux je oui la fois anderen avec cela aider.

depuis wenigen Stunden suis je eh bien "stolzer Besitzer" qui "Seriellen-Conrad-Relaiskarte avec USB". eh bien peux je "loslegen" et alle Hinweise testen et verarbeiten.

merci et Salut Heinz B.

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7

30.08.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation