ISP Software schreiben

[Dominik Schmidt (Gast)]

Moin !

Wir sind gerade dabei, ein kleines Projekt zu verwirklichen. Und zwar
ein Datenlogger für den Modellbaubereich. Das ganze findet sich hier:
http://www.ganzfix.de/MiniLogger/ . Die Geschichte hat die Idee, einen
Logger zu entwickeln, der möglichst einfach zu bauen und zu bedienen
ist. Da wir auch den Quellcode für den µC freigeben, müsste man den
Tiny26 auch proggen können. Und genau das würde ich gerne in mein
Programm Logview (http://www.pibros.de/LogView/) einbauen.
Ich sollte dazu sagen, das ich in Delphi progge und den Zugriff auf die
serielle Schnittstelle über die RSAPI.DLL realisiere (ähnlich der
PORT.DLL). Das ganze funzt auch soweit, denn I2C habe ich schon
eingebaut.
Den bisherigen Code habe ich mal als Datei angehängt.
Er dient nur dazu, den µC in den Programming Mode zu schalten.
Normalerweise müsste ich als Ergebnis beim 3 Byte eine 53h bekommen,
aber ich kriege da eine 166 dez.

Kurze Rede langer Sinn ... Könnte mir jemand etwas behilflich sein und
mir etwas Quellcode (der mit der seriellen Schnittstelle arbeitet) zur
Verfügung stellen, den ich dann in mein Prog einbauen kann? Genauer
ginge es mir um eine Funktion. Gleichzeitiges lesen und Schreiben. Von
der kann man alles andere ableiten.

Ich habe hier gelesen, das manche ein Basic Prog geschrieben haben.
Könnte mir das wohl wer zukommen lassen? Ich werde es auch nicht
weitergeben und auch keine Fragen stellen. Nur irgendwie komme ich im
Mom nicht weiter :-(

Ach ja, den Schaltplan kann man hier sehen (unten):
http://www.rclineforum.de/forum/thread.php?threadid=61463&sid=&threadview=0&hilight=&hilightuser=&page=11

Ich danke schonmal und hoffe auf etwas Feedback.

Greetz Dominik

[Gerhard Gunzelmann (Gast)]

Hm
166 = A6 hex. Auffällig ist, daß das gleich 53h*2 ist !? Wird das
seriell empfangen ? und vielleicht einmal zuviel nach links geschoben
(oder zuwenig nach rechts ?)

gerhard

[Dominik Schmidt (Gast)]

Moin !

Ne das kann nicht sein.
  For n:= 1 To 8 do
  begin
    If (Wert And bitwert) = bitwert Then
      begin  // Wert (2^x) kommt in der Zahl vor (MOSI Bit auf 1
[DTR(1)])
        DTR(1);         // MOSI Bit setzen
        RTS(1);         // Takt auf 1 setzen
        delay(1);
      end
      Else
      begin  // Wert kommt nicht in der Zahl vor (MOSI Bit auf 0
[DTR(0)])
        DTR(0);         // MOSI Bit löschen
        RTS(1);         // Takt auf 1 setzen
        delay(1);
      End;
    RTS(0);
    If CTS = 1 Then erg := erg + bitwert;

    //delay(1);
    bitwert := bitwert div 2;
  end;

Oder fällt dir da was auf was auf falsches Schieben hindeutet? Mir
nicht.

Hat denn niemand hier ein bisserl Code für mich. Die Sprache wäre mir
soagr relativ egal.

Greetz Dominik