Bascom kompatible PC > MC verbindung

[Jaecko]

hm... der MAX 232 sollte eigentlich funktionieren, wenn er korrekt angeschlossen ist.
Wenn Rx/Tx direkt an der PC-Buchse verbunden werden und es geht nix, dann stimmt irgendwo bei der Schnittstelle was nicht.

Wie verhält sich denn T_Out vom MAX232 (Spannung), wenn du T_In manuell zwischen 0 und 5V umschaltest? Kommt da abwechselnd ne negative / positive Spannung raus?

Den FT232RL ohne direkte Platine zu verwenden wäre für mich eher nicht machbar. Man könnte zwar evtl. die benötigten Pins etwas hochbiegen und da nen dünnen Draht hinfummeln, aber mechanisch stabil ist das nicht wirklich. Wenn ich sicher wäre, dass das dann funktioniert würd ichs mit Acrifix eingiessen. Änderungen sind aber danach nicht mehr möglich.

[Richard]

Wenn Du pin 2 mit pin 3 verbunden hast und bei Hypertern kommt
die Eingabe nicht zurück, sind möglicheweise die Eiostellungen
falsch. Unter flußkontrolle muß Keine angeklickt sein. Bei XON/XOFF
wartet die Schittstelle auf ein XON vom "Gegenüber", bei CTS/DTS
auf ein Hatwaresignal das gesendet werden darf. Ansonsten 8 Bit
1 Stoppbit, kein Parytibit. Wenn es dann mit Brücke immer noch nicht
klappt, den Treiber löschen und neu installieren.

Gruß Richard

[Basteltisch]

Hallo,
@Jaecko: Ja das trifft zu , habs grade getestet.

@Richard: Danke. Habe mir mal Hyperterm geladen und die Einstellung entsprechend vorgenommen, leider ohne Erfolg. Habe aber auch sonst nichts für den Comport was ich nehmen könnte um zu sehen ob der Port überhaupt funktioniert.


Ich werde dann wohl warten müssen bis ich es hinkriege Platinen zu ätzen, um dort drauf den FT232RL zu platzieren und dann damit weiterzuprobieren. Dafür brauche ich erstmal eine Ätzküvette...
Projekte über Projekte, dabei mache ich das nichtmal Hauptberuflich ^^

@Jaecko: Die Kondensatoren sind alle richtig gepolt. Aber ich wusste garnicht dass Kondensatoren zu gross sein können. Ich dachte man nimmt immer die kleinen um Kosten zu sparen.

Dann werd ich mal auch noch kleine Kondensatoren bestellen.

Es grüßt,
Basteltisch

[Jaecko]

Naja Kosten sparen ist das eine.
Das andere ist aber, dass ein _zu_ grosser Kondensator einfach länger braucht, bis er auf ne bestimmte Spannung geladen ist. Je nach Anwendung kann diese Zeit schon zu lange sein.

[Basteltisch]

Hallo,
Es gab doch einen Erfolg: ich habe die Pins am Subd9 Stecker falsch angelötet, da ich die Pinnummern auf dem Stecker selbst nicht gesehen habe und mich an einem Bild im Inernet orientiert habe wo die 1 ganz woanders ist. Nun habe ich bei einem neuen Stecker Pin 2 und 3 überbrückt, udn auch auf Windows7 kriege ich nun die Zeichen in TerraTerm zurück. Als ich allerdings die Pins entsprechend an meiner Konstruktion umgelötet habe kahm das Signal vom UC wieder nicht durch. Die Kondensatoren sind wie folgt verlegt:

100u,f zwischen Pin 4 und 5, Minus zeigt nach pin5.
2,2uf zwischen Pin 1 und 3, Minus zeigt nach pin3.
100uf zwischen max232n.2 und VCC, minus zeigt nach vcc.
4,7uf zwischen max232n.6 und GND, minus zeigt zum Pin6.

Ist da etwas verkehrt?

Alternativ könnte ich Spontan Kerkos anbieten, die laut dem Link dort ja funktionieren (ber der SMD variante). Aber leider kann ich nicht genau nachfragen da ich dort nicht auf "antworten" klicken kann (dann bringt er mich zur startseite).


Es grüßt,
Basteltisch

[Jaecko]

Ein häufiger Fehler: Rx/Tx zwischen AVR und MAX232 bzw. MAX232 und Stecker vertauscht. (Passiert mir auch fast immer; genau so wie die vergessenen PullUps beim I2C).

Ansonsten wirklich nochmal abgesteckt von Hand die Pins schalten und am anderen Ende messen, ob der MAX232 beide Leitungen korrekt zwischen 0V/+5V <=> -12...-3V / +3...+12V wandelt.
Wenn die Kerkos 4x 100nF wären, kannst die ja auch mal testen, falls es mit der jetzigen Kombination nicht geht.

[Basteltisch]

Hallo,
in einem Thread habe ich gelesen das der Hersteller der MAX232 Chips in seinem Datenblatt sogar Kerkos empfielt.

Dann löte ich die mal anstelle der Elkos drann.

Meine Rx/Tx Leitungen sehen folgendermassen aus:

Attiny2313.Port2 (RXD) >> Max232n.Port12(R1Out)
Attiny2313.Port3 (TXD) >> Max232n.Port11(T1IN)
Max232n.Pin13(R1IN) >> Subd.Pin2
Max232n.Pin14(T1OUT) >> Subd.Pin3

Ist daran etwas verkehrt?

Es grüßt,
Basteltisch

[Basteltisch]

Ein Meilenstein ist errungen, die ersten Reaktionen des AVR an meinem PC

Bild hier  

irgendeine Baudrate ist wohl noch falsch, das kenne ich von Cisco routern, das müsste leicht zu beheben sein, deswegen kommen da wohl diese Kästchen. Die Klartextschrift oben drüber stammt von mir als ich den Loopback getestet habe.

Das Problem war dass ich die Pins am SubD Stecker wiedermal vertauscht habe.

Vielen dank an alle die mir geholfen habe. Aber ich befürchte dass es noch nicht vorbei ist

Es grüßt,
Basteltisch

[Jaecko]

Falls die Baudraten richtig angegeben sind, prüf mal, ob die Angabe der CPU-Frequenz mit dem übereinstimmt, was in den Fuses eingestellt ist bzw. was der evtl. dranhängende Quarz hat.
Wenn die Angaben widersprüchlich sind, wird die Baudrate falsch berechnet.

[Basteltisch]

So zur Feier des Tages hab ich mich mal dem Problem des ständig wechselnden USB COM Ports angenommen:

Ist nicht die sauberste Art, aber funktioniert

Imports System
Imports System.IO
Imports System.IO.Ports
Imports System.Text

Module Module1
    Dim mySerial(0) As SerialPort
    Sub Main()
        Dim Serial(50) As SerialPort

        For i As Integer = 1 To 50
            Serial(i) = New SerialPort("COM" & i, 9600)

            Try
                Serial(i).Open()
                ReDim Preserve mySerial(mySerial.Length)
                mySerial(mySerial.Length - 2) = Serial(i)
                Console.WriteLine("COM" & i & " geöffnet")
                AddHandler Serial(i).DataReceived, AddressOf ReadFromSerial
            Catch e As Exception
            End Try
        Next
        ReDim Preserve mySerial(mySerial.Length - 2)
        While (True)
            SendToAllSerial(Console.ReadKey(True).KeyChar)
        End While

    End Sub
    Sub SendToAllSerial(ByVal txt As String)
        For i As Integer = 0 To mySerial.Length - 1
            mySerial(i).Write(txt)
        Next
    End Sub

    Public Sub ReadFromSerial(ByVal sender As Object, ByVal e As EventArgs)
        Dim sIn As SerialPort = sender
        Dim sData As String = sIn.ReadExisting
        ' Console.WriteLine("[" & sIn.PortName & "]" & sData)
        Console.Write(sData)
    End Sub

End Module