VB Ansteuerung für Ausgangserweiterung für den COM-Port

Hallo und Danke für die schnelle Antwort,

das mit dem TxD habe ich schon gelesen 
Beitrag "VB-Programm zur seriellen Ansteuerung von 4094 gesucht"

Also müsste die Anschlussbelegung:

TxD   Strobe
DTR   Date
RTs   Clock

so aussehen anstatt

RTs   Strobe
TxD   Daten
DTR   Clock ???

Das werde ich heute umlöten.
Mit der Geschwindigkeit mache ich mir keine Sorgen, da die Schaltung von 
einer "echten" COM Schnittstelle angesprochen wird.

Nur wie gehe ich dann an die Ansteuerung mit VB-Net (bevorzugt) ran?

SerialPort1.DtrEnabelt =TRUE/FALSE
SerialPort1.RtsEnabelt =TRUE/FALSE ??? ..usw.

Was muß ich mit: SerialPort1.Write(...) übergeben und in welchem Format 
(Int, Chr, Byte...) damit ich beispilsweiße den ersten Ausgang schalten 
kann?

Ich brauche nur diese kleine Starthilfe! Den Rest bekomme ich dann 
selbst hin!

Wenn die Ausgabe über den 4094 mit VB funktioniert, werde ich einmal 
mehrere IC's kaskatieren und danach versuchen mit dem 4021 die ersten 
Eingänge (Gleisbesetztmelder, Weichenlagenmelder) zurückzulesen!

Bin schon sehr gespannt ob das alles so funktioniert wie ich es mir 
vorstelle!

Danke erst mal für die hilfe!

Gruß Tino

> Wenn ein FT232R verwendet wird, lassen sich hingegen die DLL-Funktionen
> von FTDI nutzen, und dann wird das Bitbanging hingegen deutlich
> schneller als irgendein Gefrickel mit der seriellen Schnittstelle.

Keine schlechte Idee! Darüber habe ich sogar ein Buch! Mit SUB Messen, 
Regeln und Steuern!

Was mir nur noch unklar ist, in welcher Abfolge muss ich die Eingänge 
des 4094 schalten damit am zbs zweiten Ausgang ein Signal anliegt? Den 
Rest bekomme ich selber hin.

Gruss Tino

Hallo Leute,

ich habe die Lösung gefunden!

1.Anschlussbelegung geändert auf:

TxD   Strobe
DTR   Date
RTs   Clock

2.Vb-Programm COM-Schnittstelle einfügen, konfigurieren und COM öffen

3.Es müssen immer 8-Bit pro 4094 pro ausgabe geschrieben werden. Das 
heißt also bei zwei 4094 muß ich für eine Ausgabe an der Hardware 16 Bit 
in die Schaltung schicken.

Wenn ich zum Beispiel bei nur einem 4096 LED 2 leuchten lassen möchte, 
muß ich Bit 2 auf HIGH setzen. Was im Programm so viel bedeutet wie 
Schleife von 1 bis 8 (8 Bit) und bei Schleifendurchlauf 2 (Bit 2) DTR 
auf High und wieder auf LOW! Fertig!!!

Wird in der Schleife kein Bit gesetzt, gehen alle LED's aus!!

Dim Z, i As Integer
Z = 2

  For i = 1 To 8
    SerialPort1.DtrEnable = False
    If i = Z Then
      SerialPort1.DtrEnable = True
    End If
    SerialPort1.RtsEnable = True
    SerialPort1.RtsEnable = False
  Next

  SerialPort1.BreakState = True
  SerialPort1.BreakState = False

Jetzt kann ich mich an das einlesen der Bits mit dem 4021 machen!

Gruß Tino