XProfan

Español

Heinz
Bernhard

Ein freundliches ¡Hola en el Runde!

Tuve en el Rubrik "Aktuelle Themen" después de Beiträgen encima el seriellen Port gesucht. Leider kam Yo sólo a a Página 10. Alle danach aufgerufenen Páginas zeigten sólo siempre otra vez Página 10 a - seltsam, oder? Na, tal vez ha mein IE gesponnen.
Daher es mi Cuestión evtl. ya überholt!?

Yo möchte Daten vom Notebook en el digitale Außenwelt enviar. Como el Gerät no seriellen Anschluss ha, muss uno encima Adapter geschaffen voluntad.
"Conrad" bietet una seriellen 8él-Relaisbaustein a, welcher encima internen Converter a USB angesteckt voluntad kann. Ein Relaisloser Baustein sólo digitalen Ein-/Ausgängen wäre me zwar más bien, aber el Zustand kann Yo sí antes el Relais abnehmen.

Diese Baugruppe beinhaltet para ihre Función aber una Controller-Schaltkreis.
El gesamte Programación es encima una Mini-Basic.

Como XProfan el seriellen Port ansprechen kann, wäre el una feine Sache para mich.
Nun weiß Yo pero no, si XProfan con seinen Befehlen el Programación des Controllers y el erforderlichen Datentransport tomar kann.
Basic me está fremd y yo hätte natürlich más bien con XProfan mi Daten programmiert.

Tal vez kann me alguien de el Runde helfen, oder una Referencia geben?

Yo bin para alles dankbar. Freundliche Grüße Heinz B.

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7

28.08.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Peter
Max
Müller

Moin.
Yo weiß no si dir el ahora weiterhilft. Aber schauen kannst du sí veces:
[...]

XProfan X3, X4ß, Win 10.1

29.08.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Yo habe auch ya seit Jahren así una Relaiskarte
de CONRAD, aber todavía con richtiger serieller Schnittstelle.
Se puede esta auch con un USB-Seriell Adapter betreiben.

Hier nochmals el Code :
Kompilieren Marca Separación

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%)
End

Tal vez ha se sí en el Baustein el Platine nichts geändert,
sólo sólo, daß ahora una USB-Anschluß como es. Dann könntest du el
Code original uso. Mußt sólo sólo el COMx: passend conjunto.

PS: Für todos, el auch ni ser. Karte besitzen :
Lo kann ser, daß esta sólo una Nullmodemkabel
va, como en me.
Entweder ha Conrad en el su Doku vergessen a erwähnen,
oder lo son Tx y Rx en Produktion vertauscht worden.
Yo denke, como gingen damals tausende Stück fuera y como el
sí determinado Fließband (Lötautomaten) Produktion es, voluntad
wohl todavía algunos dieser 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 Zitat

Absatzweise Cita Zeilenweise Cita

Heinz
Bernhard

Hallöchen !
Auch dir media herzlichen Dank para deine umfangreiche Mühe.

Yo habe mich en Grund deiner y otro beteiligten Profaner dazu entschlossen demnächst mein Taschengeld a "Conrad" a bringen y el Relaiskarte a kaufen.

Herzlichen Dank Allen el geholfen haben.
Grüße de Heinz B.

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7

29.08.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

¿Puede auch veces hier nachfragen :
[...]

Evtl. ha el todavía así una Relaiskarte.
Mit BT puede ser genauso encima seriell steuern.
Hab auch así una y somit no Kabelsalat mehr.

30.08.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Heinz
Bernhard

Hallöchen,
bastante herzlichen Dank para deine nochmalige Mühe. Schade, dass Yo a BT nada pensamiento habe. Aber nun es desafortunadamente a spät, evtl.. kann Yo sí veces otro así helfen.

Seit wenigen Stunden bin Yo nun "stolzer Besitzer" el "Seriellen-Conrad-Relaiskarte con USB". Nun kann Yo "loslegen" y todos Hinweise testen y verarbeiten.

Gracias y Saludo Heinz B.

XProfan 10
XProfan-Version 10+11
Betriebssystem Win7

30.08.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita