RN-Wissen.de - Benutzerbeiträge [de]

Versenden von Emails's direkt vom RN-Control aus

2007-09-22T14:58:30Z

2Of4:

'''Versenden von Emails's direkt vom RN-Control aus'''

Der WebServer "MicroWebServ" (Download von [[www.csmicrosystems.com]]) ermöglicht das Versenden von Emails direkt vom RN-Control aus. Durch bestimmte Parameter im RN-Control-Source-Code wird die Email über die COM-Schnittstelle an den WEB-Server übergeben. Der WEB-Server leitet darauf hin sofort die Email an den im Board eingestellten Email-Server weiter. Hier die Parameter für den Board-Source-Code (siehe Help-Datei des WebServers):

E0 = MailServer

E1 = Send To

E1Cc = Carbon Copy to

E1BCc = Blind Carbon Copy

E2 = Mail From

E3 = Mail Subject

E4 = File Attachment

E5 = Message Text

Zu verstehen ist das am besten an einem Beispiel.

Hier nun ein Beispiel für das generelle versenden einer Email:

$regfile = "m32def.dat" ' Bestimmung des Prozessors
$crystal = 16000000 ' Quarzfrequenz
$baud = 9600 ' RS232-Uebertragungsrate
$hwstack = 32
$framesize = 32
$swstack = 32
Dim Status As Word
Const Mailserver = "E0=eigener.emailserver.de"
Const Mailto = "empfaenger@emailadresse.de"
Const Mailfrom = "eigene@emailadresse.de"
Print Mailserver;
Print "&E1=" ; : Print Mailto;
Print "&E2= " ; : Print Mailfrom;
Print "&E3=RN-Control-Mitteilung";
Print "&E5=Das ist eine Mitteilung des RN-Control-";
End

Hier nun ein Beispiel, bei der eine Email versendet wird, nachdem die Taste 1 gedrückt wurde:

Declare Sub Senden()
Declare Function Tastenabfrage() As Byte
Declare Sub Nichts()
$regfile = "m32def.dat" ' Bestimmung des Prozessors
$crystal = 16000000 ' Quarzfrequenz
$baud = 9600 ' RS232-Uebertragungsrate
$hwstack = 32
$framesize = 32
$swstack = 32
Dim Taste As Byte
Dim Ton As Integer
config ADC = Single , Prescaler = Auto
Config Pina.7 = Input ' Für die Tastenabfrage konfigurieren
Porta.7 = 1 ' Port für Tastenabfrage in einen definierten Zustand stellen
Print "Programm ist gestartet"
Do
Taste = Tastenabfrage() ' Ist eine Taste gedrückt gedrückt worden?
If Taste <> 0 Then
Select Case Taste
Case 1
Print "Taste 1 wurde gedrückt"
Gosub Senden ' Wird Taste 1 gedrückz, dann versende eine Email
Case 2
Print "Taste 2 wurde gedrückt"
Gosub Nichts ' es soll keine Email versendet werden
Case 3
Print "Taste 3 wurde gedrückt"
Gosub Nichts ' es soll keine Email versendet werden
Case 4
Print "Taste 4 wurde gedrückt"
Gosub Nichts ' es soll keine Email versendet werden
Case 5
Print "Taste 5 wurde gedrückt"
Gosub Nichts ' es soll keine Email versendet werden
End Select
End If
Loop
End
Function Tastenabfrage() As Byte
Local Ws As Word
Tastenabfrage = 0
Ton = 600
Start Adc
Ws = Getadc(7)
If Ws < 500 Then
Select Case Ws
Case 400 To 450
Tastenabfrage = 1
Ton = 550
Case 330 To 380
Tastenabfrage = 2
Ton = 450
Case 260 To 305
Tastenabfrage = 3
Ton = 450
Case 180 To 220
Tastenabfrage = 4
Ton = 400
Case 90 To 130
Tastenabfrage = 5
Ton = 350
Case Else
Print "Tastenabfrage anpassen ADC-Wert=" ; Ws
End Select
End If
End Function
Sub Senden()
Dim Status As Word
Const Mailserver = "E0=eigener.emailserver.de" ' Emailseerver, über die die Email versendet werden soll
Const Mailto = "empfaenger@emailadresse.de" ' Adresse des Empfängers
Const Mailfrom = "eigene@emailadresse.de" ' Adresse des Absenders
Print Mailserver;
Print "&E1=" ; : Print Mailto;
Print "&E2= " ; : Print Mailfrom;
Print "&E3=RN-Control-Mitteilung"; ' Subject der zu versendenen Email
Print "&E5=Das ist beine Mitteilung des RN-Control"; ' Textinhalt der zu versendenen Email
End Sub
Sub Nichts()
Print " Bla Bla Bla Nichts!"
End Sub

Benutzer Diskussion:2Of4

2007-09-22T10:59:34Z

2Of4: Versenden von Emails's direkt vom RN-Control-Board aus

'''Versenden von Emails's direkt vom RN-Control aus'''

----

Der WebServer "MicroWebServ" (Download von www.csmicrosystems.com [http://www.csmicrosystems.com]) ermöglicht das Versenden von Emails direkt vom RN-Control aus. Durch bestimmte Parameter im RN-Control-Source-Code wird die Email über die COM-Schnittstelle an den WEB-Server übergeben. Der WEB-Server leitet darauf hin sofort die Email an den im Board eingestellten Email-Server weiter.
Hier die Parameter für den Board-Source-Code (siehe Help-Datei des WebServers):

E0 = MailServer
E1 = Send To
E1Cc = Carbon Copy to
E1BCc = Blind Carbon Copy
E2 = Mail From
E3 = Mail Subject
E4 = File Attachment
E5 = Message Text

Zu verstehen ist das am besten an einem Beispiel.
'''Hier nun ein Beispiel für das generelle versenden einer Email:'''

$regfile = "m32def.dat" ' Bestimmung des Prozessors
$crystal = 16000000 ' Quarzfrequenz
$baud = 9600 ' RS232-Uebertragungsrate
$hwstack = 32
$framesize = 32
$swstack = 32
Dim Status As Word
Const Mailserver = "E0=eigener.emailserver.de"
Const Mailto = "empfaenger@emailadresse.de"
Const Mailfrom = "eigene@emailadresse.de"
Print Mailserver;
Print "&E1=" ; : Print Mailto;
Print "&E2= " ; : Print Mailfrom;
Print "&E3=RN-Control-Mitteilung";
Print "&E5=Das ist eine Mitteilung des RN-Control-";
End

'''Hier nun ein Beispiel, bei der eine Email versendet wird, nachdem die Taste 1 gedrückt wurde:'''

Declare Sub Senden()
Declare Function Tastenabfrage() As Byte
Declare Sub Nichts()
$regfile = "m32def.dat" ' Bestimmung des Prozessors
$crystal = 16000000 ' Quarzfrequenz
$baud = 9600 ' RS232-Uebertragungsrate
$hwstack = 32
$framesize = 32
$swstack = 32
Dim Taste As Byte
Dim Ton As Integer
config ADC = Single , Prescaler = Auto
Config Pina.7 = Input ' Für die Tastenabfrage konfigurieren
Porta.7 = 1 ' Port für Tastenabfrage in einen definierten Zustand stellen
Print "Programm ist gestartet"
Do
Taste = Tastenabfrage() ' Ist eine Taste gedrückt gedrückt worden?
If Taste <> 0 Then
Select Case Taste
Case 1
Print "Taste 1 wurde gedrückt"
Gosub Senden ' Wird Taste 1 gedrückz, dann versende eine Email
Case 2
Print "Taste 2 wurde gedrückt"
Gosub Nichts ' es soll keine Email versendet werden
Case 3
Print "Taste 3 wurde gedrückt"
Gosub Nichts ' es soll keine Email versendet werden
Case 4
Print "Taste 4 wurde gedrückt"
Gosub Nichts ' es soll keine Email versendet werden
Case 5
Print "Taste 5 wurde gedrückt"
Gosub Nichts ' es soll keine Email versendet werden
End Select
End If
Loop
End
Function Tastenabfrage() As Byte
Local Ws As Word
Tastenabfrage = 0
Ton = 600
Start Adc
Ws = Getadc(7)
If Ws < 500 Then
Select Case Ws
Case 400 To 450
Tastenabfrage = 1
Ton = 550
Case 330 To 380
Tastenabfrage = 2
Ton = 450
Case 260 To 305
Tastenabfrage = 3
Ton = 450
Case 180 To 220
Tastenabfrage = 4
Ton = 400
Case 90 To 130
Tastenabfrage = 5
Ton = 350
Case Else
Print "Tastenabfrage anpassen ADC-Wert=" ; Ws
End Select
End If
End Function
Sub Senden()
Dim Status As Word
Const Mailserver = "E0=eigener.emailserver.de" ' Emailseerver, über die die Email versendet werden soll
Const Mailto = "empfaenger@emailadresse.de" ' Adresse des Empfängers
Const Mailfrom = "eigene@emailadresse.de" ' Adresse des Absenders
Print Mailserver;
Print "&E1=" ; : Print Mailto;
Print "&E2= " ; : Print Mailfrom;
Print "&E3=RN-Control-Mitteilung"; ' Subject der zu versendenen Email
Print "&E5=Das ist beine Mitteilung des RN-Control"; ' Textinhalt der zu versendenen Email
End Sub
Sub Nichts()
Print " Bla Bla Bla Nichts!"
End Sub

Ultraschall SRF05 an RN-MiniControl

2007-07-20T16:48:00Z

2Of4:

Das nachfolgende Beispiel demonstriert wie der neue Ultraschallsensor SRF05 an ein Controllerboard angeschlossen und per Software die Entfernung ermittelt wird. Hier wird absichtlich der neue zweite Mode demonstriert, da es hierzu im Netz kaum Beispiele gibt. Dieser Mode erlaubt es die komplette Steuerung über nur einen Port durchzuführen. Also die Verbindung erfolgt nur über ein dreipoliges Kabel (+5V, GND, Digitalport).
Das Beispiel ist zwar für [[RN-MiniControl]], kann aber auch auf andere Boards (z.B. [[RN-Control]]) übertragen werden, es muss lediglich ein freier Port genutzt werden.

[[Bild:srf05mode2.gif|center]]

[[Bild:srf05minicontrol.gif|center]]

<pre>
'###################################################
'srf05beispiel.bas
'Dieses Programm demonstriert die Verwendung
'des Ultraschall Entfernungssensors SRF05
'mit dem Controllerboard RN-MINICONTROL
'
'Verwendeter Compiler Bascom V 1.11.8.2
'
'Aufgabe:
'Entfernung wird gemessen und in Zentimetern über
'RS232 ausgegeben
'
'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter http://www.Roboternetz.de bzw. robotikhardware.de
'###################################################

'Die üblichen Definitionen bei Standardprogrammen auf Miniboard
$regfile = "m168def.dat"
$crystal = 16000000 'Quarzfrequenz
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32

Dim Zeitmessung As Word
Dim Entfernung As Word

Print "**** SRF05 mit RN-MINICONTROL *****"
Print "Entfernung in cm anzeigen"

Config Pind.2 = Output

Do
Portd.2 = 0 'Port Low
Pulseout Portd, 2, 40 'Min. 10uS Impuls senden
Pulsein Zeitmessung, Pind, 2, 1
Zeitmessung = Zeitmessung * 10 'mal 10 da Pulsein in 10uS Einheiten Ergebnis ermittelt
Entfernung = Zeitmessung / 58 'Umrechnen in Zentimeter
Print "Entfernung: "; Entfernung; " cm"
Wait 1
Loop

</pre>

Das nachfolgende Beispiel demonstriert wie der Ultraschallsensor SRF05 mit dem RN-Contol programmiert und angeschlossen wird.

<pre>
'###################################################
'# ultraschall.bas #
'###################################################
'#Dieses Programm demonstriert die Verwendung #
'#des Ultraschall Entfernungssensors SRF05 #
'#mit dem Controllerboard RN-Control #
'# #
'#Aufgabe: #
'#Entfernung wird gemessen und in Zentimetern über #
'#RS232 ausgegeben #
'###################################################

$regfile = "m32def.dat" ' Bestimmung des Prozessors
$crystal = 16000000 ' Quarzfrequenz
$baud = 9600 ' RS232-Uebertragungsrate
$hwstack = 32
$framesize = 32
$swstack = 32

Dim Zeitmessung As Word
Dim Entfernung As Word

Print "**** SRF05 mit RN-MINICONTROL *****"
Print "Entfernung in cm anzeigen"

' Der Ultraschallsensor wird am Port A Pin 7 angeschlossen
Config Pina.7 = Output ' Bestimme den Anschluss des Sensors und setze ihn auf Output

Do
Porta.7 = 0 'Port Low
Pulseout Porta , 7 , 40 '10uS Impuls bei 4 MHz senden (10*4=40)
Pulsein Zeitmessung , Pina , 7 , 1 ' Den Puls wieder empfangen
Zeitmessung = Zeitmessung * 10 'mal 10 da Pulsein in 10uS Einheiten Ergebnis ermittelt
'Echo-Impuls ist 100uS bis 25 mS lang. Über 30 mS bedeutet, dass kein Objekt im Bereich ist.
' Um eine Messung zu starten, wird ein Impuls von 10 us an den Triggereingang gelegt.
' Der Wandler wird darufhin für 200 us (8 Zyklen mit je 40 KHz) getaktet. Der Echo-Ausgang geht auf High.
' Das erste hereinkommende Echo schaltet den Echo-Ausgang wieder auf Low.
' Die Entfernung ergibt sich rechnerisch als Produkt aus der Schallgeschwindigkeit (344 m/s in Luft bei 21 Grad Celsius)
' und der Länge des Echoimpulses. Da die Streckes des Schalls doppelt zurück gelegt wird, ist das Ergebnis
' durch 2 zu dividieren.
' s[m] = 344 m/s * t[s] / 2
' ==> s[m] = 172 m/s * t[s]
' Je nach Genauigkeit sind Vereinfachungen möglich und Sinnvoll
' s[cm] = 172 * t[us] / 10000
' ==> s[cm] = t / (10000 / 172)
' ==> s[cm] = t / 58,14
Entfernung = Zeitmessung / 58 'Umrechnen in Zentimeter
' Beträgt die Entfernung einen Abstand von mehr als 10 cm, dann gib zwei Töne aus.
If Entfernung = 0 Then
Print "Sensor not activ!"
End If
If Entfernung > 10 Then
Sound Portd.7 , 400 , 450
Waitms 5
Sound Portd.7 , 400 , 600
Waitms 5
End if
If Entfernung = 0 Then
Print "Sensor not activ!"
End If
Print "Entfernung: " ; Entfernung ; " cm"
Wait 1
Loop
</pre>

==Siehe auch==
* [[RN-MiniControl]]
* [[RN-Control]]
* [[Sensorarten]]
* [[Bascom]]
* [[Avr]]

==Weblinks==
* [http://www.roboternetz.de/phpBB2/dload.php?action=file&file_id=329 SRF10 Deutsches und englisches Datenblatt]

[[Kategorie:Quellcode Bascom]]
[[Kategorie:Robotikeinstieg]]
[[Kategorie:Praxis]]
[[Kategorie:Sensoren]]

Watchdog

2007-06-05T14:09:54Z

2Of4: /* Siehe auch */

Als Watchdog (Wachhund) bezeichnet man die sogenannte "Watchdogtimer-Schaltung" (WDT) innerhalb eines Microcontrollers, die dafür sorgt, daß der Controller bei einem undefinierten Zustand ein RESET ausführt.

Mit dem Starten des Watchdog-Timers läuft ein von der Systemclock getakteter Hardware-Zähler ab einem programmierbaren Zählerstand los. Kommt es nach der gewählten Zeit zu einem Überlauf, so wird automatisch ein RESET-Signal für den Controller ausgelöst und somit die Hardware initialisiert und das im Controller abgelegte Programm neu gestartet.

Um zu verhindern, daß der COntroller sich ständig neu startet, muß das Programm immer rechtzeitig den Watchdogtimers zurücksetzen. Dies kann an mehreren Stellen im üblichen Programmablauf geschehen. Falls also das Programm aus irgendwelchen Gründen nicht mehr planmäßig abläuft oder auch stehenbleibt (z.B. wegen Endlosschleife), wird in den meisten Fällen der Watchdogtimer nicht mehr zurückgesetzt. Dadurch wird durch den Reset zumindest der Controller wieder in einen definierten Zustand gebracht.

Ein Watchdogtimer findet man in den meisten [[Atmel]] [[AVR]]-Controllern. Dort kann dieser auch per Software deaktiviert und aktiviert werden.

Hier ein Beispiel zur Programmierung des Watchdogs:

'****************************************************
'* Watchdog - Test *
'* *
'* Es soll hier das Prinzip des Watchdogs gezeigt *
'* werden. *
'****************************************************

Config Watchdog = 2048 'Führe nach 2048 mSec. eine Reset durch
Dim I As Word

I = 1
While I > 0 ' Endlos-Schleife
Start Watchdog ' Starte den Watchdog
' Es folgt der eigentliche Programmcode
Print I
Incr I
'Waitms 3000
' Wird die Zeile "Waitms 3000" auskommentiert, soll 3000mSec gewartet werden. Der Watchdog führt aber
' vorher und zwar nach 2048 mSec..ein Reset durch.
Stop Watchdog ' Stoppe den Watchdog
' Sollte es zu einem Absturz kommen, kann der Watchdog nicht gestoppt werden und es kommt nach
' 2024 mSec. zum Reset
Wend
End

==Siehe auch==
* [[avr-gcc#Reset auslösen|Beispiel für avr-gcc]]
* [[Microcontroller]]

[[Kategorie:Microcontroller]]
[[Kategorie:Grundlagen]]

Wunschthemen

2006-08-16T08:05:01Z

2Of4:

Auf dieser Seite kann '''jeder''' Themen nennen, die er sich in diesem Wiki wünschen würde. Die Seite dient Usern, die gerne was schreiben möchten, als Anregung. Hat jemand ein entsprechendes Thema erstellt, kann er es auch aus dieser Liste wieder streichen.

==Meine Wunschthemen==

'''Allgemeines'''
* Spracherkennung
* [[Schaltung AVR-Digitizer]] um Videobild mit AVR zu digitalisieren und auszuwerten oder per Funk zu übertragen

'''Programmierung'''
* [[LCD-Modul am AVR|LCD Programmierung in C]]
* [[Network_Controller/PC_RS232_mit_Windows|Ansprechen der RS232 Schnittstelle mit gängigen Programmiersprachen]]
* Pda und PPC steuerung über CF und MMC slot
* [[GCC]] Einführung mit Beispielen (welche Beispiele? Benutzung von GCC? (Optionen, ...)?, Programmbeispiele (also [[C-Tutorial]])?), für spezielle Maschinen oder Derivate? ANSI-C? Was fehlt in den [[:Kategorie:Quellcode C|C-Beispielen]]?)
* Mehr C Tutorials wie bei Bascom für LCDs,....
* C-Control 2 Tutorial
* PIC16F... Programmierung mit dem Go Embedded Pascal-Compiler
* PIC18F... Einführung

'''Hardware'''
* Serielles AVR-ISP Programmierkabel
* USB-ISP Programmieradaper
* Schnittstellen Übersicht (Es sollten alle gängigen Schnittstellen mit Vorteilen, Nachteilen etc. aufgelistet werden, damit man für jede zu bewältigende Aufgabe die am besten geeignete Schnittstelle wählen kann)
* Sensor für die Geschwindigkeitsmessung

'''Platinenherstellung'''
* Anleitung für ds Tonertransververfahren (LaserToner auf Platine Büglen) -> [[Platinenherstellung]]

==Ich würde mir den weiteren Ausbau folgender Artikel wünschen==
* [[C-Tutorial]]
* [[Navigation]]
* [[Transistor]] (noch ein paar Bilder und vielleicht Grundschaltungen mit Beschreibung wären toll
* [[Avr-gcc|Dokumentation zu avr-gcc]]
* [[Arm]] Microcontroller
* [[GPS]] - Aufbau und Anwendung
* [[SPI]] - Vielleicht noch Beispiele
* [[Portexpander am AVR]] könnte nen BASCOM-Teil vertragen
* [[Manchester- Codierung]] - noch ein Programmbeispiel wäre toll
* [[JTAG]]
* [[Megaload]]

==Folgende erscheinen noch recht unvollständig und sollten von einem User der in dem Bereich kundig ist, ergänzt werden==
* [[Codevergleich AVR-Compiler|Vergleich der erzeugten Codes von AVR-Compilern]] (avr-gcc, Bascom, evtl. FastAVR, IAR-Compiler, Keil, etc.)
:: Bislang fehlt ein Bascom-Teil

* [[CAN]]
:: Ich würde mir CAN-Beispiel mit 2 AVRs wünschen

* [[Solarzellen]]
:: Ein Schaltplan eines Ladereglers fehlt im Artikel noch

* [[GNU Assembler|AVR Assembler (GNU) Einführung]]:

* [[Zahnrad]]

*[[Platinenherstellung]]
::Hier sind die Bilder vom Autor abhanden gekommen. Kann vielleicht jemand, der sich damit auch auskennt, Ersatzbilder einbauen?

== Bereits erfüllte Wünsche ==
* stellenanzeigen-forum ->Gibt es bereits hier http://www.roboternetz.de/phpBB2/viewforum.php?f=29
* Filter (Hardware/Software) -> Wurde hier angelegt [[Filter (Elektronik)]]
* [[Roboterwettbewerbe]]
* Motortreiber (Einsteigerguide) -> [[Getriebemotoren Ansteuerung]]

[[Kategorie:RN-Wissen]]