Verfügbare Informationen zu "Checksumme unter Bascom"
Qualität des Beitrags: Beteiligte Poster: Wigbert Forum: www.comwebnet.de Forenbeschreibung: AVR Mikrocontroller und Elektronik - Forum - www.comwebnet.de aus dem Unterforum: Fragen zur Softwareprogrammierung Antworten: 2 Forum gestartet am: Mittwoch 25.10.2006 Sprache: deutsch Link zum Originaltopic: Checksumme unter Bascom Letzte Antwort: vor 16 Jahren, 8 Monaten, 7 Tagen, 20 Stunden, 23 Minuten
Alle Beiträge und Antworten zu "Checksumme unter Bascom"
Re: Checksumme unter Bascom
Wigbert - 18.08.2007, 12:53Checksumme unter Bascom
Hallo ,
in Vorbereitung einiger Projekte in Richtung Hausautomation,
Datenlogger usw. hab ich mal ein kleines Protokoll mit
dem Bascom-Befehl "Checksum" erdacht:
Sender:
-Aus String Checksumme bilden und an String anhängen
-gesamten String senden
Empfänger:
-Empfangenen String Checksumme abspalten
-aus den gewonnenen String Checksumme bilden
-Checksummen vegleichen
-String ausgeben
Ich will damit ein Slave dazu bewegen seine Daten (Temperatur o.ä.)
bei fehlerhaften Empfang nochmals zu senden.
Ist das so üblich.(konnte kein Bz.eines einfachen Protokolls finden)
Ist das so einigermassen sicher(Checksumme einmalig)
Code: '############################################################################
'
'############################################################################
'
' Include Checksum eines Strings
'
' von Wigbert Picht
'
'############################################################################
Declare Sub Empfang
Declare Sub Senden
Dim Empfangstext As String * 10
Dim Sendetext As String * 10
Dim Text As String * 10
Dim E As String * 10
Dim F As Byte
Dim C As Byte
Dim Cc As Byte
Dim Z As String * 10
Dim Laenge As Byte
Do
Text = "Hallo User" 'Testtext
Call Senden 'sub Senden
Print Sendetext
Waitms 100 'waitms für Sim.
Call Empfang 'Sub Empfangen
Print Empfangstext
Loop
'###############################################################################
' String mit Checksumme bilden
'###############################################################################
Sub Senden
C = Checksum(text) 'Cecksumme bilden
Sendetext = Text + Chr(c) 'Checksumme anhängen
End Sub
'##############################################################################
' Empfangenen String Checksumme abspalten und Kontrollrechnung
'##############################################################################
Sub Empfang
E = Sendetext 'für Sim so übernommen
Laenge = Len(e) 'Stringlänge ermitteln
Laenge = Laenge - 1
Empfangstext = Left(e , Laenge) 'Stringausgabe ohne Checksumme
Z = Right(e , 1) 'empfangen Checksumme
F = Checksum(z) 'Checksumme von empfangenen String berechnen
Cc = Checksum(empfangstext)
If F = Cc Then 'Überprüfung der Checksumme
Print "OK" 'wenn empfangene Checksumme mit errechnete gleich, dann OK
End If
End Sub
'##############################################################################
Re: Checksumme unter Bascom
Wigbert - 20.08.2007, 22:46
Hallo,
habe unter
http://www.mikrocontroller.net/topic/76322#632946
eine Diskussion zu dem Thema geführt.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum www.comwebnet.de
Wenn der Linkk zu Hoperf nicht geht versuche den .... - gepostet von avrnix am Mittwoch 26.09.2007
GFA-Basic - gepostet von avrnix am Samstag 27.10.2007
Modifizierter Laminator! - gepostet von blitzer7630 am Freitag 13.04.2007
S 65 Anssteuerung - gepostet von Wigbert am Donnerstag 22.03.2007
Brainstörming - oder was kann man alles machen - gepostet von avrnix am Sonntag 27.05.2007
Ähnliche Beiträge wie "Checksumme unter Bascom"
Die Person unter mir - Sarah Snape (Dienstag 26.06.2007)
Person-unter-Dir - elmaex (Montag 18.09.2006)
für die private line fans unter euch ;) - poison heart (Donnerstag 01.06.2006)
Wat ne Schande - Republikflüchtling (Freitag 21.01.2011)
Unter Nina Nord erschienen - Das Moderatorenteam (Donnerstag 15.02.2007)
Mission unter 100 k - Sir Gaheris (Sonntag 27.08.2006)
Basic unter Win XP? - Pelikan (Donnerstag 22.07.2004)
BASCOM Picture Converter - avrnix (Sonntag 29.10.2006)
Was verstehen wir unter Forumspflicht?? - lingus (Montag 19.02.2007)
Die Person unter mir [DPUM] - pilly (Montag 28.08.2006)