ISP Software schreiben

Gast #198588 
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
Angehängte Dateien:
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke
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
Antwort Zitieren Bearbeiten Löschen Melden Danke
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
Antwort Zitieren Bearbeiten Löschen Melden Danke
Thread beobachten

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 22 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.