MCS Wiki AVR - User contributions [en]

CONFIG TIMER1/de

2013-04-01T22:11:25Z

Stefanhamburg: /* Example */

= Funktion =

Konfigurieren des TIMER1.

 

 

= Syntax =

CONFIG TIMER1 = COUNTER | TIMER | PWM ,

EDGE=RISING | FALLING , PRESCALE= 1|8|64|256|1024 ,

NOISE_CANCEL=0 |1, CAPTURE_EDGE = RISING | FALLING ,

CLEAR_TIMER = 1|0,

COMPARE_A = CLEAR | SET | TOGGLE | DISCONNECT ,

COMPARE_B = CLEAR | SET | TOGGLE | DISCONNECT ,

PWM = 8 | 9 10 ,

COMPARE_A_PWM = CLEAR_UP| CLEAR_DOWN | DISCONNECT

COMPARE_B_PWM = CLEAR_UP| CLEAR_DOWN | DISCONNECT

[,CONFIGURATION=NAME]

 

 

= Anmerkungen =

Der TIMER1 ist ein 16 Bit-Zähler. Siehe die Hardware-Beschreibung des TIMER1.

Es hängt vom verwendeten Chip ab, ob COMPARE_B verfügbar ist oder nicht.

Einige Chips haben sogar einen COMPARE_C.

 

Die gezeigte Syntax muss in EINER Zeile stehen. Nicht alle Parameter müssen verwendet werden.

 

 

So ist der Effekt der verschiedenen Parameter:
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
EDGE

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
Man kann selektieren, ob der Timer für fallende oder steigende Flanke (fallig oder rising edge) benutzt werden soll. Nur für COUNTER-Modus.

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
CAPTURE_ EDGE

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
You can choose to capture the TIMER registers to the INPUT CAPTURE registers

 

With the CAPTURE_EDGE = FALLING/RISING, you can specify to capture on the falling or rising edge of pin ICP

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
NOISE_ CANCELING

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
Um Störunterdrückung zu ermöglichen kann man den Wert 1 einstellen.

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
PRESCALE

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
Der TIMER ist in diesem Fall mit dem Systemtakt verbunden. Man kann den Teiler für den Systemtakt mit diesem Parameter wählen.

 

Gültige Werte sind 1 , 8, 64, 256 oder 1024

PRESCALE kann NICHT im COUNTER Modus verwendet werden.

|}
</div>
 

 

 

Der TIMER1 hat auch zwei Compare Register A und B

 

Wenn der Timer-Wert mit dem Wert in einem Compare-Register übereinstimmt dann kann eine Aktion ausgeführt werden.
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 93px; border: 1px solid rgb(0, 0, 0);" |
COMPARE_A

| valign="top" width="100%" style="width: 502px; border: 1px solid rgb(0, 0, 0);" |
Die Aktion kann sein:

 

SET setzt den OC1X Pin

CLEAR löscht OC1X Pin

TOGGLE toggelt den OC1X Pin

DISCONNECT entkoppelt den TIMER com Ausgabe-Pin OC1X

|}
</div>
 

Und der TIMER kann im PWM Modus benutzt werden.

Man hat die Wahl zwischen 8, 9 oder 10 Bit PWM Modus

 

Man kann außerdem spezifizieren, ob der Timer nach einer Übereinstimmung mit dem Compare Register hoch (UP) oder runter (DOWN) gezählt werden soll.

Beachten Sie, dass es zwei Compare Register A und B gibt.

 
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="26%" style="width: 153px; border: 1px solid rgb(0, 0, 0);" |
PWM

| valign="top" width="100%" style="width: 442px; border: 1px solid rgb(0, 0, 0);" |
Kann 8, 9 oder 10 sein.

|- style="vertical-align: top;"
| valign="top" width="26%" style="width: 153px; border: 1px solid rgb(0, 0, 0);" |
COMPARE_A_PWM

| valign="top" width="100%" style="width: 442px; border: 1px solid rgb(0, 0, 0);" |
PWM compare Modus. Kann CLEAR_UP oder CLEAR_DOWN sein

|}
</div>
 

 

Bei Benutzung von COMPARE_A, COMPARE_B, COMPARE_A_PWM oder COMPARE_B_PWM werden die entsprechenden Ausgabe-Pins gesetzt. Wenn dies nicht gewünscht ist kann man NO_OUTPUT benutzen damit der Output-Pin nicht verändert wird.

 

Beispiel : COMPARE_A_NO_OUTPUT , COMPARE_A_PWM NO_OUTPUT

 

CONFIGURATION ist optional. Wenn man configuration=mysetting hinzufügt dann kann man beim Start des Timers benutzen: START TIMER0 , mysetting

Wenn man mehrere Settings hat dann kann man den Timer mit diesen Settings starten.

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : timer1.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : show using Timer1
'micro : 90S8515
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "8515def.dat" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim W As Word

'Der TIMER1 ist ein 16-Bit TIMER.
'Dieses Beispiel zeigt die Konfiguration des TIMERs

'Zunächst kann der Timer wie der TIMER0 als TIMER oderr COUNTER konfiguriert werden.
'Konfiguration als TIMER was bedeutet, dass interne Taktimpulse gezählt werden.
'Der interne Takt kann durch by 1,8,64,256 oder 1024 geteilt werden
Config Timer1 = Timer , Prescale = 1024

'Man kann den Timer-Wert lesen oder schreiben mit der COUNTER1 oder TIMER1 Variablen
W = Timer1
Timer1 = W

'Wei Benutzung als COUNTER kann man zwischen Triggerung bei fallender oder steigender Flanke wählen
Config Timer1 = Counter , Edge = Falling
'Config Timer1 = Counter , Edge = Rising

'Also you can choose to capture the TIMER registers to the INPUT CAPTURE registers
'With the CAPTURE EDGE = , you can specify to capture on the falling or rising edge of
'pin ICP
Config Timer1 = Counter , Edge = Falling , Capture_Edge = Falling
'Config Timer1 = Counter , Edge = Falling , Capture Edge = Rising

'Für Störunterdrückung kann man schreiben:
Config Timer1 = Counter , Edge = Falling , Capture_Edge = Falling , Noise_Cancel = 1

'Lesen des Input Capture Registers:
W = Capture1
'Beschreiben des Capture Registers:
Capture1 = W

'Der TIMER hat auch zwei Compare Registers A und B
'Wenn der Timer-Wert dem Compare-Register-Wert entspricht dann kann eine Aktion ausgeführt werden
Config Timer1 = Counter , Edge = Falling , Compare_A = Set , Compare_B = Toggle , Clear_Timer = 1
'SET setzt den OC1X Pin
'CLEAR löscht den OC1X Pin
'TOGGLE toggelt den OC1X Pin
'DISCONNECT entkoppelt den TIMER vom Ausgabe-Pin OC1X
'CLEAR TIMER löscht den Timer bei Übereinstimmung des Timer-Wertes mit Compare A.

'Zum Lesen/Schreiben des Compare-Registers kann man die COMPARE1A and COMPARE1B Variablen benutzen.
Compare1a = W
W = Compare1a

'Außerdem kann der TIMER im PWM Modus benutzt werden
'Man hat die Wahl zwischen 8,9 oder 10 Bit PWM Modus
'Außerdem kann man angeben, ob der Counter nach einem Compare-Match hoch oder runter zählen soll.
Config Timer1 = Pwm , Pwm = 8 , Compare_A_Pwm = Clear_Up , Compare_B_Pwm = Clear_Down , Prescale = 1

'Um die PWM Register zu setzen werden einfach Werte an die Compare A bzw. B Registers zugewiesen
Compare1a = 100
Compare1b = 200

'Oder für bessere Lesbarkeit:
Pwm1a = 100
Pwm1b = 200
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

CONFIG TIMER1/de

2013-04-01T21:42:22Z

Stefanhamburg: /* Remarks */

= Funktion =

Konfigurieren des TIMER1.

 

 

= Syntax =

CONFIG TIMER1 = COUNTER | TIMER | PWM ,

EDGE=RISING | FALLING , PRESCALE= 1|8|64|256|1024 ,

NOISE_CANCEL=0 |1, CAPTURE_EDGE = RISING | FALLING ,

CLEAR_TIMER = 1|0,

COMPARE_A = CLEAR | SET | TOGGLE | DISCONNECT ,

COMPARE_B = CLEAR | SET | TOGGLE | DISCONNECT ,

PWM = 8 | 9 10 ,

COMPARE_A_PWM = CLEAR_UP| CLEAR_DOWN | DISCONNECT

COMPARE_B_PWM = CLEAR_UP| CLEAR_DOWN | DISCONNECT

[,CONFIGURATION=NAME]

 

 

= Anmerkungen =

Der TIMER1 ist ein 16 Bit-Zähler. Siehe die Hardware-Beschreibung des TIMER1.

Es hängt vom verwendeten Chip ab, ob COMPARE_B verfügbar ist oder nicht.

Einige Chips haben sogar einen COMPARE_C.

 

Die gezeigte Syntax muss in EINER Zeile stehen. Nicht alle Parameter müssen verwendet werden.

 

 

So ist der Effekt der verschiedenen Parameter:
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
EDGE

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
Man kann selektieren, ob der Timer für fallende oder steigende Flanke (fallig oder rising edge) benutzt werden soll. Nur für COUNTER-Modus.

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
CAPTURE_ EDGE

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
You can choose to capture the TIMER registers to the INPUT CAPTURE registers

 

With the CAPTURE_EDGE = FALLING/RISING, you can specify to capture on the falling or rising edge of pin ICP

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
NOISE_ CANCELING

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
Um Störunterdrückung zu ermöglichen kann man den Wert 1 einstellen.

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
PRESCALE

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
Der TIMER ist in diesem Fall mit dem Systemtakt verbunden. Man kann den Teiler für den Systemtakt mit diesem Parameter wählen.

 

Gültige Werte sind 1 , 8, 64, 256 oder 1024

PRESCALE kann NICHT im COUNTER Modus verwendet werden.

|}
</div>
 

 

 

Der TIMER1 hat auch zwei Compare Register A und B

 

Wenn der Timer-Wert mit dem Wert in einem Compare-Register übereinstimmt dann kann eine Aktion ausgeführt werden.
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 93px; border: 1px solid rgb(0, 0, 0);" |
COMPARE_A

| valign="top" width="100%" style="width: 502px; border: 1px solid rgb(0, 0, 0);" |
Die Aktion kann sein:

 

SET setzt den OC1X Pin

CLEAR löscht OC1X Pin

TOGGLE toggelt den OC1X Pin

DISCONNECT entkoppelt den TIMER com Ausgabe-Pin OC1X

|}
</div>
 

Und der TIMER kann im PWM Modus benutzt werden.

Man hat die Wahl zwischen 8, 9 oder 10 Bit PWM Modus

 

Man kann außerdem spezifizieren, ob der Timer nach einer Übereinstimmung mit dem Compare Register hoch (UP) oder runter (DOWN) gezählt werden soll.

Beachten Sie, dass es zwei Compare Register A und B gibt.

 
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="26%" style="width: 153px; border: 1px solid rgb(0, 0, 0);" |
PWM

| valign="top" width="100%" style="width: 442px; border: 1px solid rgb(0, 0, 0);" |
Kann 8, 9 oder 10 sein.

|- style="vertical-align: top;"
| valign="top" width="26%" style="width: 153px; border: 1px solid rgb(0, 0, 0);" |
COMPARE_A_PWM

| valign="top" width="100%" style="width: 442px; border: 1px solid rgb(0, 0, 0);" |
PWM compare Modus. Kann CLEAR_UP oder CLEAR_DOWN sein

|}
</div>
 

 

Bei Benutzung von COMPARE_A, COMPARE_B, COMPARE_A_PWM oder COMPARE_B_PWM werden die entsprechenden Ausgabe-Pins gesetzt. Wenn dies nicht gewünscht ist kann man NO_OUTPUT benutzen damit der Output-Pin nicht verändert wird.

 

Beispiel : COMPARE_A_NO_OUTPUT , COMPARE_A_PWM NO_OUTPUT

 

CONFIGURATION ist optional. Wenn man configuration=mysetting hinzufügt dann kann man beim Start des Timers benutzen: START TIMER0 , mysetting

Wenn man mehrere Settings hat dann kann man den Timer mit diesen Settings starten.

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : timer1.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : show using Timer1
'micro : 90S8515
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "8515def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim W As Word

'The TIMER1 is a versatile 16 bit TIMER.
'This example shows how to configure the TIMER

'First like TIMER0 , it can be set to act as a TIMER or COUNTER
'Lets configure it as a TIMER that means that it will count and that
'the input is provided by the internal clock.
'The internal clock can be divided by 1,8,64,256 or 1024
Config Timer1 = Timer , Prescale = 1024

'You can read or write to the timer with the COUNTER1 or TIMER1 variable
W = Timer1
Timer1 = W

'To use it as a COUNTER, you can choose on which edge it is trigereed
Config Timer1 = Counter , Edge = Falling
'Config Timer1 = Counter , Edge = Rising

'Also you can choose to capture the TIMER registers to the INPUT CAPTURE registers
'With the CAPTURE EDGE = , you can specify to capture on the falling or rising edge of
'pin ICP
Config Timer1 = Counter , Edge = Falling , Capture_Edge = Falling
'Config Timer1 = Counter , Edge = Falling , Capture Edge = Rising

'To allow noise canceling you can also provide :
Config Timer1 = Counter , Edge = Falling , Capture_Edge = Falling , Noise_Cancel = 1

'to read the input capture register :
W = Capture1
'to write to the capture register :
Capture1 = W

'The TIMER also has two compare registers A and B
'When the timer value matches a compare register, an action can be performed
Config Timer1 = Counter , Edge = Falling , Compare_A = Set , Compare_B = Toggle , Clear_Timer = 1
'SET , will set the OC1X pin
'CLEAR, will clear the OC1X pin
'TOGGLE, will toggle the OC1X pin
'DISCONNECT, will disconnect the TIMER from output pin OC1X
'CLEAR TIMER will clear the timer on a compare A match

'To read write the compare registers, you can use the COMPARE1A and COMPARE1B variables
Compare1a = W
W = Compare1a

'And the TIMER can be used in PWM mode
'You have the choice between 8,9 or 10 bit PWM mode
'Also you can specify if the counter must count UP or down after a match
'to the compare registers
'Note that there are two compare registers A and B
Config Timer1 = Pwm , Pwm = 8 , Compare_A_Pwm = Clear_Up , Compare_B_Pwm = Clear_Down , Prescale = 1

'to set the PWM registers, just assign a value to the compare A and B registers
Compare1a = 100
Compare1b = 200

'Or for better reading :
Pwm1a = 100
Pwm1b = 200
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

CONFIG TIMER1/de

2013-04-01T21:08:12Z

Stefanhamburg: /* (**COPIED FROM ENGLISH PAGE**) = */

= Funktion =

Konfigurieren des TIMER1.

 

 

= Syntax =

CONFIG TIMER1 = COUNTER | TIMER | PWM ,

EDGE=RISING | FALLING , PRESCALE= 1|8|64|256|1024 ,

NOISE_CANCEL=0 |1, CAPTURE_EDGE = RISING | FALLING ,

CLEAR_TIMER = 1|0,

COMPARE_A = CLEAR | SET | TOGGLE | DISCONNECT ,

COMPARE_B = CLEAR | SET | TOGGLE | DISCONNECT ,

PWM = 8 | 9 10 ,

COMPARE_A_PWM = CLEAR_UP| CLEAR_DOWN | DISCONNECT

COMPARE_B_PWM = CLEAR_UP| CLEAR_DOWN | DISCONNECT

[,CONFIGURATION=NAME]

 

 

= Remarks =

The TIMER1 is a 16 bit counter. See the hardware description of TIMER1.

It depends on the chip if COMPARE_B is available or not.

Some chips even have a COMARE_C.

 

The syntax shown above must be on one line. Not all the options need to be selected.

 

 

Here is the effect of the various options.
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
EDGE

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
You can select whether the TIMER will count on the falling or rising edge. Only for COUNTER mode.

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
CAPTURE_ EDGE

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
You can choose to capture the TIMER registers to the INPUT CAPTURE registers

 

With the CAPTURE_EDGE = FALLING/RISING, you can specify to capture on the falling or rising edge of pin ICP

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
NOISE_ CANCELING

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
To allow noise canceling you can provide a value of 1.

|- style="vertical-align: top;"
| valign="top" width="19%" style="width: 111px; border: 1px solid rgb(0, 0, 0);" |
PRESCALE

| valign="top" width="100%" style="width: 484px; border: 1px solid rgb(0, 0, 0);" |
The TIMER is connected to the system clock in this case. You can select the division of the system clock with this parameter.

 

Valid values are 1 , 8, 64, 256 or 1024

PRESCALE can't be used in COUNTER mode.

|}
</div>
 

 

 

The TIMER1 also has two compare registers A and B

 

When the timer value matches a compare register, an action can be performed
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 93px; border: 1px solid rgb(0, 0, 0);" |
COMPARE_A

| valign="top" width="100%" style="width: 502px; border: 1px solid rgb(0, 0, 0);" |
The action can be:

 

SET will set the OC1X pin

CLEAR will clear the OC1X pin

TOGGLE will toggle the OC1X pin

DISCONNECT will disconnect the TIMER from output pin OC1X

|}
</div>
 

And the TIMER can be used in PWM mode.

You have the choice between 8, 9 or 10 bit PWM mode

 

Also you can specify if the counter must count UP or down after a match to the compare registers

Note that there are two compare registers A and B

 
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="26%" style="width: 153px; border: 1px solid rgb(0, 0, 0);" |
PWM

| valign="top" width="100%" style="width: 442px; border: 1px solid rgb(0, 0, 0);" |
Can be 8, 9 or 10.

|- style="vertical-align: top;"
| valign="top" width="26%" style="width: 153px; border: 1px solid rgb(0, 0, 0);" |
COMPARE_A_PWM

| valign="top" width="100%" style="width: 442px; border: 1px solid rgb(0, 0, 0);" |
PWM compare mode. Can be CLEAR_UP or CLEAR_DOWN

|}
</div>
 

 

Using COMPARE_A, COMPARE_B, COMPARE_A_PWM or COMPARE_B_PWM will set the corresponding pin for output. When this is not desired you can use the alternative NO_OUTPUT version that will not alter the output pin.

 

For example : COMPARE_A_NO_OUTPUT , COMPARE_A_PWM NO_OUTPUT

 

CONFIGURATION is optional. When you add configuration=mysetting, you can use this setting when you start the timer : START TIMER0 , mysetting

If you have multiple settings, you can start the timer with these different settings.

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : timer1.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : show using Timer1
'micro : 90S8515
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "8515def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim W As Word

'The TIMER1 is a versatile 16 bit TIMER.
'This example shows how to configure the TIMER

'First like TIMER0 , it can be set to act as a TIMER or COUNTER
'Lets configure it as a TIMER that means that it will count and that
'the input is provided by the internal clock.
'The internal clock can be divided by 1,8,64,256 or 1024
Config Timer1 = Timer , Prescale = 1024

'You can read or write to the timer with the COUNTER1 or TIMER1 variable
W = Timer1
Timer1 = W

'To use it as a COUNTER, you can choose on which edge it is trigereed
Config Timer1 = Counter , Edge = Falling
'Config Timer1 = Counter , Edge = Rising

'Also you can choose to capture the TIMER registers to the INPUT CAPTURE registers
'With the CAPTURE EDGE = , you can specify to capture on the falling or rising edge of
'pin ICP
Config Timer1 = Counter , Edge = Falling , Capture_Edge = Falling
'Config Timer1 = Counter , Edge = Falling , Capture Edge = Rising

'To allow noise canceling you can also provide :
Config Timer1 = Counter , Edge = Falling , Capture_Edge = Falling , Noise_Cancel = 1

'to read the input capture register :
W = Capture1
'to write to the capture register :
Capture1 = W

'The TIMER also has two compare registers A and B
'When the timer value matches a compare register, an action can be performed
Config Timer1 = Counter , Edge = Falling , Compare_A = Set , Compare_B = Toggle , Clear_Timer = 1
'SET , will set the OC1X pin
'CLEAR, will clear the OC1X pin
'TOGGLE, will toggle the OC1X pin
'DISCONNECT, will disconnect the TIMER from output pin OC1X
'CLEAR TIMER will clear the timer on a compare A match

'To read write the compare registers, you can use the COMPARE1A and COMPARE1B variables
Compare1a = W
W = Compare1a

'And the TIMER can be used in PWM mode
'You have the choice between 8,9 or 10 bit PWM mode
'Also you can specify if the counter must count UP or down after a match
'to the compare registers
'Note that there are two compare registers A and B
Config Timer1 = Pwm , Pwm = 8 , Compare_A_Pwm = Clear_Up , Compare_B_Pwm = Clear_Down , Prescale = 1

'to set the PWM registers, just assign a value to the compare A and B registers
Compare1a = 100
Compare1b = 200

'Or for better reading :
Pwm1a = 100
Pwm1b = 200
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

CONFIG TIMER0/de

2013-04-01T21:06:18Z

Stefanhamburg: /* Example */

= Funktion =

Konfigurieren des TIMER0.

 

 

= Syntax =

CONFIG TIMER0 = COUNTER , EDGE=RISING/FALLING , CLEAR_TIMER = 1|0 [,CONFIGURATION=NAME]

CONFIG TIMER0 = TIMER , PRESCALE= 1|8|64|256|1024 [,CONFIGURATION=NAME]

CONFIG TIMER2 = TIMER | PWM , ASYNC=ON |OFF,PRESCALE = 1 | 8 | 32 | 64 | 128 | 256 | 1024 ,COMPARE = CLEAR | SET | TOGGLE | DISCONNECT ,PWM = ON | OFF ,COMPARE_PWM = CLEAR_UP| CLEAR_DOWN | DISCONNECT ,CLEAR_TIMER = 1|0 [,CONFIGURATION=NAME]

 

 

= Anmerkungen =

TIMER0 ist ein 8-Bit Zähler. Siehe Hardwarebeschreibung des TIMER0.

 

Wenn als COUNTER konfiguriert:
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 123px; border: 1px solid rgb(0, 0, 0);" |
EDGE

| valign="top" width="100%" style="width: 472px; border: 1px solid rgb(0, 0, 0);" |
Man kann konfigurieren, ob auf fallende oder steigende Flanke gezählt werden soll.

|}
</div>
 

 

Wenn als TIMER konfiguriert:
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 99px; border: 1px solid rgb(0, 0, 0);" |
PRESCALE

| valign="top" width="100%" style="width: 496px; border: 1px solid rgb(0, 0, 0);" |
In diesem Fall ist der Timer mit dem Systemtakt verbunden. Man kann die Vorteilung des Systemtaktes mit diesem Parameter auswählen.

 

Mögliche Werte sind 1 , 8, 64, 256 oder 1024

|}
</div>
 

Beachen Sie, dass einige AVR Chips andere Prescale-Werte haben. Sie können diese benutzen.

 

CONFIGURATION ist optional. Wenn Sie configuration=mysetting benutzen dann kann man diese Settings beim Start des Timers benutzen: START TIMER0 , mysetting

Wenn man mehrere Settings hat dann kann man den Timer mit dieses unterschiedlichen Settings starten.

 

 

[[File:Notice.jpg|left|Notice.jpg]] Beachten Sie, dass die Hilfe im Hinblick auf die AT90S2313 und AT90S8515 geschrieben wurde.

 

 

Wenn Sie den CONFIG TIMER0 Befehl benutzen dann wird der Modus gespeichert und das TCCRO Register wird gesetzt.

Wenn der STOP TIMER0 Befehl benutzt wird dann wird der Timer gestoppt.

Wenn der START TIMER0 Befehl benutzt wird dann wird das TIMER TCCR0 Register mit dem letzten Wert, der durch den CONFIG TIMER0 Befehl konfiguriert wurde geladen

 

 

Vor Benutzung des [[START]] oder [[STOP]] TIMER0 Befehls sollte daher erst der CONFIG Befehl benutzt werden.

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : timer0.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows how to use TIMER0 related statements
'micro : 90S2313
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "2313def.dat" ' Verwendeter Mikrocontroller
$crystal = 8000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'Zunächst muss der Timer als Counter oder als Zähler konfiguriert werden.
'Hier soll der Timer als Zähler=COUNTER konfiguriert werden.
'Man muss außerdem konfigurieren, ob man auf steigende (rising) oder fallende (falling) Flanke (edge) zählen möchte.

Config Timer0 = Counter , Edge = Rising 'Zähler mit steigender Flanke
'Config Timer0 = Counter , Edge = falling 'Zähler auf fallende Flanke
'entkommentieren Sie die obige Zeile um den Timer0 mit fallender Flanke zu benutzen.

'Um den Wert des Timers zu lesen/schreiben greifen Sie auf das Timer/Counter Register zu.
'Timer/Counter auf 0 setzen:
Tcnt0 = 0

Do
Print Tcnt0
Loop Until Tcnt0 >= 10
'Wenn 10 Pulse gezählt wurden dann wird die Schleife verlassen
'Oder benutzen Sie die Spezial-Variabke TIMER0
Timer0 = 0

'Konfiguration als TIMER:
'Der TIMER kann den Systemtakt oder den geteilten Systemtakt als Input haben.
'Teilerfaktoren können sein: 1, 8,64,256 oder 1024
Config Timer0 = Timer , Prescale = 1

'Der TIMER wird nun automatisch gestartet
'Man kann den Timer stoppen mit dem folgenden Befehl:
Stop Timer0
'Nun ist der Timer gestoppt.

'Um den Timer mit dem zuletzt konfigurierten Modus zu starten benutzen Sie:
Start Timer0

'Auch hier kann man den Wert über das tcnt Register zugreifen:
Print Tcnt0
'oder
Print Timer0
'Wenn der Timer überläuft dann wird ein Flag namens TOV0 im Register TIFR gesetzt
'Die kann benutzt werden um eine Interrupt Service Routine (ISR) auszuführen.
'Um das Flag manuell im Non-ISR Modus zu löschen muss man eine 1 in Bit 1 des TIFR-Registers schreiben:
Set Tifr.1

'Der folgende Programm-Code zeigt die Verwendung von Timer0 im Interrupt-Modus
'Der Code ist auskommentiert durch Block-Kommentierung mit '( und ')

'(

'Konfiguration des Timers für die Verwendung des durch 1024 geteilten Systemtaktes:
Config Timer0 = Timer , Prescale = 1024

'Definition der ISR-Routine:
On Ovf0 Tim0_isr
'Man kann auch TIMER0 für OVF0 benutzen. Die Wirkung ist dieselbe.

Enable Timer0 ' Einschalten des Timer-Interrupts
Enable Interrupts 'Einschalten ALLER Interrupts
Do
'hier beliebiger Code
Loop

'Der folgende Code wird ausgeführt wenn der Timer überläuft:
Tim0_isr:
Print "*";
Return

')
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

CONFIG TIMER0/de

2013-04-01T20:34:36Z

Stefanhamburg: /* Remarks */

= Funktion =

Konfigurieren des TIMER0.

 

 

= Syntax =

CONFIG TIMER0 = COUNTER , EDGE=RISING/FALLING , CLEAR_TIMER = 1|0 [,CONFIGURATION=NAME]

CONFIG TIMER0 = TIMER , PRESCALE= 1|8|64|256|1024 [,CONFIGURATION=NAME]

CONFIG TIMER2 = TIMER | PWM , ASYNC=ON |OFF,PRESCALE = 1 | 8 | 32 | 64 | 128 | 256 | 1024 ,COMPARE = CLEAR | SET | TOGGLE | DISCONNECT ,PWM = ON | OFF ,COMPARE_PWM = CLEAR_UP| CLEAR_DOWN | DISCONNECT ,CLEAR_TIMER = 1|0 [,CONFIGURATION=NAME]

 

 

= Anmerkungen =

TIMER0 ist ein 8-Bit Zähler. Siehe Hardwarebeschreibung des TIMER0.

 

Wenn als COUNTER konfiguriert:
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 123px; border: 1px solid rgb(0, 0, 0);" |
EDGE

| valign="top" width="100%" style="width: 472px; border: 1px solid rgb(0, 0, 0);" |
Man kann konfigurieren, ob auf fallende oder steigende Flanke gezählt werden soll.

|}
</div>
 

 

Wenn als TIMER konfiguriert:
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 99px; border: 1px solid rgb(0, 0, 0);" |
PRESCALE

| valign="top" width="100%" style="width: 496px; border: 1px solid rgb(0, 0, 0);" |
In diesem Fall ist der Timer mit dem Systemtakt verbunden. Man kann die Vorteilung des Systemtaktes mit diesem Parameter auswählen.

 

Mögliche Werte sind 1 , 8, 64, 256 oder 1024

|}
</div>
 

Beachen Sie, dass einige AVR Chips andere Prescale-Werte haben. Sie können diese benutzen.

 

CONFIGURATION ist optional. Wenn Sie configuration=mysetting benutzen dann kann man diese Settings beim Start des Timers benutzen: START TIMER0 , mysetting

Wenn man mehrere Settings hat dann kann man den Timer mit dieses unterschiedlichen Settings starten.

 

 

[[File:Notice.jpg|left|Notice.jpg]] Beachten Sie, dass die Hilfe im Hinblick auf die AT90S2313 und AT90S8515 geschrieben wurde.

 

 

Wenn Sie den CONFIG TIMER0 Befehl benutzen dann wird der Modus gespeichert und das TCCRO Register wird gesetzt.

Wenn der STOP TIMER0 Befehl benutzt wird dann wird der Timer gestoppt.

Wenn der START TIMER0 Befehl benutzt wird dann wird das TIMER TCCR0 Register mit dem letzten Wert, der durch den CONFIG TIMER0 Befehl konfiguriert wurde geladen

 

 

Vor Benutzung des [[START]] oder [[STOP]] TIMER0 Befehls sollte daher erst der CONFIG Befehl benutzt werden.

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : timer0.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows how to use TIMER0 related statements
'micro : 90S2313
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "2313def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'First you must configure the timer to operate as a counter or as a timer
'Lets configure it as a COUNTER now
'You must also specify if it will count on a rising or falling edge

Config Timer0 = Counter , Edge = Rising
'Config Timer0 = Counter , Edge = falling
'unremark the line aboven to use timer0 to count on falling edge

'To get/set the value from the timer access the timer/counter register
'lets reset it to 0
Tcnt0 = 0

Do
Print Tcnt0
Loop Until Tcnt0 >= 10
'when 10 pulses are count the loop is exited
'or use the special variable TIMER0
Timer0 = 0

'Now configire it as a TIMER
'The TIMER can have the systemclock as an input or the systemclock divided
'by 8,64,256 or 1024
'The prescale parameter excepts 1,8,64,256 or 1024
Config Timer0 = Timer , Prescale = 1

'The TIMER is started now automaticly
'You can STOP the timer with the following statement :
Stop Timer0

'Now the timer is stopped
'To START it again in the last configured mode, use :
Start Timer0

'Again you can access the value with the tcnt0 register
Print Tcnt0
'or
Print Timer0
'when the timer overflows, a flag named TOV0 in register TIFR is set
'You can use this to execute an ISR
'To reset the flag manual in non ISR mode you must write a 1 to the bit position
'in TIFR:
Set Tifr.1

'The following code shows how to use the TIMER0 in interrupt mode
'The code is block remarked with '( en ')

'(

'Configute the timer to use the clock divided by 1024
Config Timer0 = Timer , Prescale = 1024

'Define the ISR handler
On Ovf0 Tim0_isr
'you may also use TIMER0 for OVF0, it is the same

Enable Timer0 ' enable the timer interrupt
Enable Interrupts 'allow interrupts to occur
Do
'your program goes here
Loop

'the following code is executed when the timer rolls over
Tim0_isr:
Print "*";
Return

')
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

CONFIG TIMER0/de

2013-04-01T20:12:09Z

Stefanhamburg: /* (**COPIED FROM ENGLISH PAGE**) = */

= Funktion =

Konfigurieren des TIMER0.

 

 

= Syntax =

CONFIG TIMER0 = COUNTER , EDGE=RISING/FALLING , CLEAR_TIMER = 1|0 [,CONFIGURATION=NAME]

CONFIG TIMER0 = TIMER , PRESCALE= 1|8|64|256|1024 [,CONFIGURATION=NAME]

CONFIG TIMER2 = TIMER | PWM , ASYNC=ON |OFF,PRESCALE = 1 | 8 | 32 | 64 | 128 | 256 | 1024 ,COMPARE = CLEAR | SET | TOGGLE | DISCONNECT ,PWM = ON | OFF ,COMPARE_PWM = CLEAR_UP| CLEAR_DOWN | DISCONNECT ,CLEAR_TIMER = 1|0 [,CONFIGURATION=NAME]

 

 

= Remarks =

TIMER0 is an 8 bit counter. See the hardware description of TIMER0.

 

When configured as a COUNTER:
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 123px; border: 1px solid rgb(0, 0, 0);" |
EDGE

| valign="top" width="100%" style="width: 472px; border: 1px solid rgb(0, 0, 0);" |
You can select whether the TIMER will count on the falling or rising edge.

|}
</div>
 

 

When configured as a TIMER:
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="604" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 99px; border: 1px solid rgb(0, 0, 0);" |
PRESCALE

| valign="top" width="100%" style="width: 496px; border: 1px solid rgb(0, 0, 0);" |
The TIMER is connected to the system clock in this case. You can select the division of the system clock with this parameter.

 

Valid values are 1 , 8, 64, 256 or 1024

|}
</div>
 

Note that some new AVR chips have different pre scale values. You can use these.

 

CONFIGURATION is optional. When you add configuration=mysetting, you can use this setting when you start the timer : START TIMER0 , mysetting

If you have multiple settings, you can start the timer with these different settings.

 

 

[[File:Notice.jpg|left|Notice.jpg]] Notice that the Help was written with the AT90S2313 and AT90S8515 timers in mind.

 

 

When you use the CONFIG TIMER0 statement, the mode is stored by the compiler and the TCCRO register is set.

When you use the STOP TIMER0 statement, the TIMER is stopped.

When you use the START TIMER0 statement, the TIMER TCCR0 register is loaded with the last value that was configured with the CONFIG TIMER0 statement.

 

 

So before using the [[START]] and [[STOP]] TIMER0 statements, use the CONFIG statement first.

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : timer0.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows how to use TIMER0 related statements
'micro : 90S2313
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "2313def.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'First you must configure the timer to operate as a counter or as a timer
'Lets configure it as a COUNTER now
'You must also specify if it will count on a rising or falling edge

Config Timer0 = Counter , Edge = Rising
'Config Timer0 = Counter , Edge = falling
'unremark the line aboven to use timer0 to count on falling edge

'To get/set the value from the timer access the timer/counter register
'lets reset it to 0
Tcnt0 = 0

Do
Print Tcnt0
Loop Until Tcnt0 >= 10
'when 10 pulses are count the loop is exited
'or use the special variable TIMER0
Timer0 = 0

'Now configire it as a TIMER
'The TIMER can have the systemclock as an input or the systemclock divided
'by 8,64,256 or 1024
'The prescale parameter excepts 1,8,64,256 or 1024
Config Timer0 = Timer , Prescale = 1

'The TIMER is started now automaticly
'You can STOP the timer with the following statement :
Stop Timer0

'Now the timer is stopped
'To START it again in the last configured mode, use :
Start Timer0

'Again you can access the value with the tcnt0 register
Print Tcnt0
'or
Print Timer0
'when the timer overflows, a flag named TOV0 in register TIFR is set
'You can use this to execute an ISR
'To reset the flag manual in non ISR mode you must write a 1 to the bit position
'in TIFR:
Set Tifr.1

'The following code shows how to use the TIMER0 in interrupt mode
'The code is block remarked with '( en ')

'(

'Configute the timer to use the clock divided by 1024
Config Timer0 = Timer , Prescale = 1024

'Define the ISR handler
On Ovf0 Tim0_isr
'you may also use TIMER0 for OVF0, it is the same

Enable Timer0 ' enable the timer interrupt
Enable Interrupts 'allow interrupts to occur
Do
'your program goes here
Loop

'the following code is executed when the timer rolls over
Tim0_isr:
Print "*";
Return

')
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

STAND ?BERSETZUNG (tempor?r)

2013-03-26T23:43:51Z

Stefanhamburg:

MAIN MENUE

*Installation/de
Übersetzt Installation of BASCOM/de
Übersetzt Installation on multiple computers/de
Übersetzt Move to new PC/de
Übersetzt Updates/de

*BASCOM Language Fundamentals/de
Übersetzt ASCII chart/de
Übersetzt Assembler mnemonics/de
Übersetzt Changes compared to BASCOM-8051/de
Übersetzt Error Codes/de
Übersetzt Keyword reference/de
Übersetzt Language Fundamentals/de
Übersetzt Mixing ASM and BASIC/de
Übersetzt Newbie problems/de
No content?? Reserved Words/de
Übersetzt Tips and tricks/de

*ASM Libraries and Add-Ons/de
*AVR-DOS/de
*BCCARD/de
*CF Card/de
*DATE TIME/de
*Floating Point/de
*I2C SLAVE/de
*LCD/de
*PS2-AT Mouse and Keyboard Emulation/de
*SPI/de
*USB/de
EXTENDED I2C/de
FM24C16/de
FM24C64-256/de
FM25C256/de
HEXVAL lib/de
I2C-TWI/de
MCSBYTE/de
MCSBYTEINT/de
MODBUS Slave-Server/de
TCPIP/de

*BASCOM HARDWARE/de
*Chips/de
*Reference Designs/de
Übersetzt Adding XRAM to XMEGA using EBI/de
Adding XRAM with External Memory Interface/de
Additional Hardware/de
Attaching an LCD Display/de
AVR Internal Hardware Port B/de
AVR Internal Hardware Port D/de
AVR Internal Hardware TIMER0/de
AVR Internal Hardware TIMER1/de
AVR Internal Hardware Watchdog timer/de
AVR Internal Hardware/de
AVR Internal Registers/de
Memory usage/de
Power Up/de
Using RS485/de
Using the 1 WIRE protocol/de
Using the I2C protocol/de
Using the SPI protocol/de
Übersetzt Using the UART/de
Using USI (Universal Serial Interface)/de

*Tools/de
LCD RGB-8 Converter/de

*BASCOM IDE/de
*Options Compiler/de
*Options Programmer/de
*Plugins/de
Übersetzt BASCOM Editor Keys/de
Edit Copy/de
Edit Cut/de
Edit Encrypt Selected Code/de
Edit Find Next/de
Edit Find/de
Edit Goto Bookmark/de
Edit Goto/de
Edit Indent Block/de
Edit Paste/de
Edit Redo/de
Edit Remark Block/de
Edit Replace/de
Edit Toggle Bookmark/de
Edit Undo/de
Edit Unindent Block/de
File Close/de
File Exit/de
File New/de
File Open/de
File Print Preview/de
File Print/de
File Project/de
File Save As/de
File Save/de
Help About/de
Help Credits/de
Help Index/de
Help Knowledge Base/de
Help MCS Forum/de
Help MCS Shop/de
Help Support/de
Help Update/de
Options Communication/de
Options Environment/de
Options Monitor/de
Options Printer/de
Options Simulator/de
Program Compile/de
Program Development Order/de
Program Send to Chip/de
Program Show Result/de
Program Simulate/de
Program Syntax Check/de
Running BASCOM-AVR/de
Tools Batch Compile/de
Tools Graphic Converter/de
Tools LCD Designer/de
Tools LIB Manager/de
Tools PDF Update/de
Tools Plugin Manager/de
Tools Resource Editor/de
Tools Stack Analyzer/de
Tools Terminal Emulator/de
View Code Explorer/de
View Error Panel/de
View PDF viewer/de
View PinOut/de
View Project Files/de
View Tip/de
Window Arrange Icons/de
Window Cascade/de
Window Minimize All/de
Window Tile/de
Windows Maximize All/de

BASCOM-AVR Stichworte - DE Übersetzung

$AESKEY/de
$ASM/de
$BAUD/de
$BAUD1/de
$BGF/de
$BIGSTRINGS/de
$BOOT/de
$CRYPT/de
Übersetzt $CRYSTAL/de
$DATA/de
$DBG/de
$DEFAULT/de
Übersetzt $EEPLEAVE/de
Übersetzt $EEPROM/de
Übersetzt $EEPROMHEX/de
$EEPROMSIZE/de
$EXTERNAL/de
$FILE/de
$FRAMECHECK/de
$FRAMEPROTECT/de
$FRAMESIZE/de
$HWCHECK/de
$HWSTACK/de
$INC/de
$INCLUDE/de
$INITMICRO/de
Übersetzt $LCD/de
$LCDPUTCTRL/de
$LCDPUTDATA/de
Übersetzt $LCDRS/de
$LCDVFO/de
$LIB/de
$LOADER/de
$LOADERSIZE/de
$MAP/de
$NOCOMPILE/de
$NOFRAMEPROTECT/de
$NOINIT/de
$NORAMCLEAR/de
$NORAMPZ/de
$NOTRANSFORM/de
$PROG/de
$PROGRAMMER/de
$PROJECTTIME/de
$REGFILE/de
$RESOURCE/de
$ROMSTART/de
$SERIALINPUT/de
$SERIALINPUT1/de
$SERIALINPUT2LCD/de
$SERIALOUTPUT/de
$SERIALOUTPUT1/de
Übersetzt $SIM/de
$SOFTCHECK/de
$STACKDUMP/de
$SWSTACK/de
$TIMEOUT/de
$TINY/de
$VERSION/de
$WAITSTATE/de
$XA/de
$XRAMSIZE/de
$XRAMSTART/de
$XTEAKEY/de

*AUTOCODE/de
*IF ELSE ELSEIF ENDIF/de

1WIRECOUNT/de
In Arbeit 1WREAD/de
1WRESET/de
1WSEARCHFIRST/de
1WSEARCHNEXT/de
1WVERIFY/de
Übersetzt 1WWRITE/de

Übersetzt ABS/de
ACOS/de
Übersetzt ADR/de
Übersetzt ADR2/de
AESDECRYPT/de
AESENCRYPT/de
Übersetzt ALIAS/de
Übersetzt ASC/de
ASIN/de
ATN/de
ATN2/de

BASE64DEC/de
BASE64ENC/de
BAUD/de
BAUD1/de
Übersetzt BCD/de
Übersetzt BIN/de
BIN2GRAY/de
Übersetzt BINVAL/de
Übersetzt BITS/de
Übersetzt BITWAIT/de
BLOAD/de
BOX/de
BOXFILL/de
BSAVE/de
BUFSPACE/de
BYVAL/de

Übersetzt CALL/de
CANBAUD/de
CANCLEARALLMOBS/de
CANCLEARMOB/de
CANGETINTS/de
CANID/de
CANRECEIVE/de
CANRESET/de
CANSELPAGE/de
CANSEND/de
Übersetzt CHARPOS/de
CHDIR/de
CHECKFLOAT/de
CHECKSUM/de
CHECKSUMXOR/de
Übersetzt CHR/de
CIRCLE/de
CLEAR/de
CLOCKDIVISION/de
CLOSE/de
CLOSESOCKET/de
Übersetzt CLS/de
CONFIG/de
CONFIG 1WIRE/de
CONFIG ACI/de
CONFIG ACXX/de
CONFIG ADC/de
CONFIG ADCX/de
CONFIG ATEMU/de
CONFIG BASE/de
CONFIG BCCARD/de
CONFIG CANBUS/de
CONFIG CANMOB/de
CONFIG CLOCK/de
CONFIG CLOCKDIV/de
CONFIG COM1/de
CONFIG COM2/de
CONFIG COMX/de
CONFIG DACX/de
Übersetzt CONFIG DATE/de
CONFIG DCF77/de
Übersetzt CONFIG DEBOUNCE/de
CONFIG DMA/de
CONFIG DMACHX/de
CONFIG DMXSLAVE/de
CONFIG DP/de
CONFIG EEPROM/de
CONFIG ERROR/de
CONFIG EVENT SYSTEM/de
CONFIG EXTENDED PORT/de
CONFIG GRAPHLCD/de
CONFIG HITAG/de
CONFIG I2CDELAY/de
CONFIG I2CSLAVE/de
CONFIG INPUT/de
CONFIG INTX/de
CONFIG KBD/de
CONFIG KEYBOARD/de
Übersetzt CONFIG LCD/de
CONFIG LCDBUS/de
Übersetzt CONFIG LCDMODE/de
Übersetzt CONFIG LCDPIN/de
CONFIG OSC/de
Übersetzt CONFIG PORT/de
Übersetzt CONFIG POWERMODE/de
CONFIG POWER REDUCTION/de
CONFIG PRINT/de
CONFIG PRINTBIN/de
CONFIG PRIORITY/de
CONFIG PS2EMU/de
CONFIG RC5/de
CONFIG SCL/de
CONFIG SDA/de
CONFIG SERIALIN/de
CONFIG SERIALOUT/de
CONFIG SERVOS/de
CONFIG SHIFTIN/de
CONFIG SINGLE/de
CONFIG SPI/de
CONFIG SPIX/de
Übersetzt CONFIG SUBMODE/de
CONFIG SYSCLOCK/de
CONFIG TCPIP/de
CONFIG TCXX/de
CONFIG TIMER0/de
CONFIG TIMER1/de
CONFIG TIMER2/de
CONFIG TWI/de
CONFIG TWISLAVE/de
CONFIG USB/de
CONFIG VPORT/de
CONFIG WAITSUART/de
CONFIG WATCHDOG/de
CONFIG X10/de
CONFIG XPIN/de
CONFIG XRAM/de
Übersetzt CONST/de
Übersetzt COS/de
COSH/de
COUNTER0/de
COUNTER1/de
CPEEK/de
CPEEKH/de
CRC16/de
CRC16UNI/de
CRC32/de
CRC8/de
CRYSTAL/de
Übersetzt CURSOR/de

DATA/de
Übersetzt DATE$/de
DATE/de
Übersetzt DAYOFWEEK/de
DAYOFYEAR/de
DBG/de
DCF77TIMEZONE/de
Übersetzt DEBOUNCE/de
DEBUG/de
DECLARE FUNCTION/de
Übersetzt DECLARE SUB/de
Übersetzt DECR/de
Übersetzt DEFLCDCHAR/de
DEFXXX/de
DEG2RAD/de
Übersetzt DELAY/de
Übersetzt DELCHAR/de
Übersetzt DELCHARS/de
DIM/de
DIR/de
Übersetzt DISABLE/de
DISKFREE/de
DISKSIZE/de
DISPLAY/de
Übersetzt DO-LOOP/de
DTMFOUT/de
DriveCheck/de
DriveGetIdentity/de
DriveInit/de
DriveReadSector/de
DriveReset/de
DriveWriteSector/de

ECHO/de
ELSE/de
Übersetzt ENABLE/de
ENCODER/de
Übersetzt END/de
EOF/de
EXIT/de
EXP/de

FILEATTR/de
FILEDATE/de
FILEDATETIME/de
FILELEN/de
FILETIME/de
Übersetzt FIX/de
FLUSH/de
Übersetzt FOR-NEXT/de
FORMAT/de
Übersetzt FOURTHLINE/de
Übersetzt FRAC/de
FREEFILE/de
FUSING/de

GET/de
GETADC/de
GETATKBD/de
GETATKBDRAW/de
GETDSTIP/de
GETDSTPORT/de
GETKBD/de
GETRC/de
GETRC5/de
GETREG/de
GETSOCKET/de
GETTCPREGS/de
GLCDCMD/de
GLCDDATA/de
Übersetzt GOSUB/de
Übersetzt GOTO/de
GRAY2BIN/de

Übersetzt HEX/de
Übersetzt HEXVAL/de
Übersetzt HIGH/de
Übersetzt HIGHW/de
Übersetzt HOME/de

I2CINIT/de
I2CRBYTE/de
I2CRECEIVE/de
I2CREPSTART/de
I2CSEND/de
I2CSTART/de
I2CSTOP/de
I2CWBYTE/de
Übersetzt IDLE/de
Übersetzt IF-THEN-ELSE-END IF/de
Übersetzt INCR/de
INITFILESYSTEM/de
Übersetzt INITLCD/de
Übersetzt INKEY/de
INP/de
Übersetzt INPUT/de
INPUTBIN/de
INPUTHEX/de
INSERTCHAR/de
INSTR/de
Übersetzt INT/de
IP2STR/de
Übersetzt ISCHARWAITING/de

KILL/de

Übersetzt LCASE/de
Übersetzt LCD/de
Übersetzt LCDAT/de
Übersetzt LCDAUTODIM/de
Übersetzt LCDCMD/de
Übersetzt LCDCONTRAST/de
Übersetzt LCDDATA/de
Übersetzt LEFT/de
Übersetzt LEN/de
Übersetzt LINE/de
Übersetzt LINEINPUT/de
?? LINE INPUT/de
Übersetzt LOAD/de
Übersetzt LOADADR/de
Übersetzt LOADLABEL/de
Übersetzt LOADWORDADR/de
Übersetzt LOC/de
Übersetzt LOCAL/de
Übersetzt LOCATE/de
Übersetzt LOF/de
Übersetzt LOG/de
Übersetzt LOG10/de
Übersetzt LOOKDOWN/de
Übersetzt LOOKUP/de
Übersetzt LOOKUPSTR/de
Übersetzt LOW/de
Übersetzt LOWERLINE/de
Übersetzt LTRIM/de

Übersetzt MACRO/de
Übersetzt MAKEBCD/de
Übersetzt MAKEDEC/de
Übersetzt MAKEINT/de
MAKEMODBUS/de
MAKETCP/de
Übersetzt MAX/de
MEMCOPY/de
Übersetzt MID/de
Übersetzt MIN/de
MKDIR/de
Übersetzt MOD/de

Übersetzt NBITS/de

Übersetzt ON INTERRUPT/de
Übersetzt ON VALUE/de
OPEN/de
OUT/de

PEEK/de
POKE/de
POPALL/de
POWER/de
Übersetzt POWERDOWN/de
Übersetzt POWERSAVE/de
Übersetzt POWER MODE/de
PRINT/de
PRINTBIN/de
PS2MOUSEXY/de
PSET/de
PULSEIN/de
PULSEOUT/de
PUSHALL/de
PUT/de

QUOTE/de

RAD2DEG/de
RC5SEND/de
RC5SENDEXT/de
RC6SEND/de
READ/de
Übersetzt READEEPROM/de
READHITAG/de
READMAGCARD/de
READSIG/de
Übersetzt REM/de
REPLACECHARS/de
Übersetzt RESET/de
Übersetzt RESTORE/de
Übersetzt RETURN/de
Übersetzt RIGHT/de
RMDIR/de
RND/de
ROTATE/de
Übersetzt ROUND/de
RTRIM/de

SECELAPSED/de
SECOFDAY/de
SEEK/de
SELECT-CASE-END SELECT/de
SENDSCAN/de
SENDSCANKBD/de
SERIN/de
SEROUT/de
Übersetzt SET/de
SETFONT/de
SETIPPROTOCOL/de
SETREG/de
SETTCP/de
SETTCPREGS/de
Übersetzt SGN/de
SHIFT/de
SHIFTCURSOR/de
SHIFTIN/de
SHIFTLCD/de
SHIFTOUT/de
SHOWPIC/de
SHOWPICE/de
Übersetzt SIN/de
SINH/de
SNTP/de
SOCKETCLOSE/de
SOCKETCONNECT/de
SOCKETDISCONNECT/de
SOCKETLISTEN/de
SOCKETSTAT/de
SONYSEND/de
Übersetzt SORT/de
Übersetzt SOUND/de
Übersetzt SPACE/de
Übersetzt SPC/de
SPIIN/de
SPIINIT/de
SPIMOVE/de
SPIOUT/de
Übersetzt SPLIT/de
Übersetzt SQR/de
Übersetzt START/de
STCHECK/de
Übersetzt STOP/de
Übersetzt STR/de
STR2DIGITS/de
Übersetzt STRING/de
Übersetzt SUB/de
SWAP/de
SYSDAY/de
SYSSEC/de
SYSSECELAPSED/de

Übersetzt TAN/de
TANH/de
TCPCHECKSUM/de
TCPREAD/de
TCPREADHEADER/de
TCPWRITE/de
TCPWRITESTR/de
Übersetzt THIRDLINE/de
Übersetzt TIME$/de
TIME/de
Übersetzt TOGGLE/de
TRIM/de

UCASE/de
UDPREAD/de
UDPREADHEADER/de
UDPWRITE/de
UDPWRITESTR/de
Übersetzt UPPERLINE/de
Übersetzt VAL/de
VARPTR/de
VER/de
VERSION/de

Übersetzt WAIT/de
Übersetzt WAITKEY/de
Übersetzt WAITMS/de
Übersetzt WAITUS/de
Übersetzt WHILE-WEND/de
WRITE/de
Übersetzt WRITEEEPROM/de

X10DETECT/de
X10SEND/de
XTEADECODE/de
XTEAENCODE/de

INPUTHEX/de

2013-03-26T23:42:21Z

Stefanhamburg: /* See also */

== (**COPIED FROM ENGLISH PAGE**) === Action =

Allows hexadecimal input from the keyboard during program execution.

 

 

= Syntax =

INPUTHEX [" prompt" ] , var[ , varn ]

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="14%" style="width: 76px; border: 1px solid rgb(0, 0, 0);" |
prompt

| valign="top" width="100%" style="width: 482px; border: 1px solid rgb(0, 0, 0);" |
An optional string constant printed before the prompt character.

|- style="vertical-align: top;"
| valign="top" width="14%" style="width: 76px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="100%" style="width: 482px; border: 1px solid rgb(0, 0, 0);" |
A numeric variable to accept the input value.

|}
</div>
 

The INPUTHEX routine can be used when you have a RS-232 interface on your uP.

The RS-232 interface can be connected to a serial communication port of your computer.

 

This way you can use a terminal emulator and the keyboard as input device.

You can also use the build in terminal emulator.

The input entered may be in lower or upper case (0-9 and A-F)

 

If var is a byte then the input can be maximum 2 characters long.

If var is an integer/word then the input can be maximum 4 characters long.

If var is a long then the input can be maximum 8 characters long.

 

In VB you can specify &H with INPUT so VB will recognize that a hexadecimal string is being used.

BASCOM implements a new statement: INPUTHEX. This is only to save code as otherwise also code would be needed for decimal conversion.

 

 

= Siehe auch =

[[INPUT]] , [[ECHO]] , [[INPUTBIN]]

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Hier kann eine Frage stehen " , V
Input B1 'Weglassen wenn keine Frage

Input "Eingabe von Integer " , C
Print C

Inputhex "Eingabe einer Hex-Zahl (4 bytes) " , C
Print C
Inputhex "Eingabe Hex Byte (2 bytes) " , D
Print D

Input "Weitere Variablen " , C , D
Print C ; " " ; D

Input C Noecho 'Echo unterdrücken

Input "Bitte Namen eingeben " , S
Print "Hallo " ; S

Input S Noecho 'Ohne Echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUTHEX/de

2013-03-26T23:41:56Z

Stefanhamburg: /* Example */

== (**COPIED FROM ENGLISH PAGE**) === Action =

Allows hexadecimal input from the keyboard during program execution.

 

 

= Syntax =

INPUTHEX [" prompt" ] , var[ , varn ]

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="14%" style="width: 76px; border: 1px solid rgb(0, 0, 0);" |
prompt

| valign="top" width="100%" style="width: 482px; border: 1px solid rgb(0, 0, 0);" |
An optional string constant printed before the prompt character.

|- style="vertical-align: top;"
| valign="top" width="14%" style="width: 76px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="100%" style="width: 482px; border: 1px solid rgb(0, 0, 0);" |
A numeric variable to accept the input value.

|}
</div>
 

The INPUTHEX routine can be used when you have a RS-232 interface on your uP.

The RS-232 interface can be connected to a serial communication port of your computer.

 

This way you can use a terminal emulator and the keyboard as input device.

You can also use the build in terminal emulator.

The input entered may be in lower or upper case (0-9 and A-F)

 

If var is a byte then the input can be maximum 2 characters long.

If var is an integer/word then the input can be maximum 4 characters long.

If var is a long then the input can be maximum 8 characters long.

 

In VB you can specify &H with INPUT so VB will recognize that a hexadecimal string is being used.

BASCOM implements a new statement: INPUTHEX. This is only to save code as otherwise also code would be needed for decimal conversion.

 

 

= See also =

[[INPUT]] , [[ECHO]] , [[INPUTBIN]]

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Hier kann eine Frage stehen " , V
Input B1 'Weglassen wenn keine Frage

Input "Eingabe von Integer " , C
Print C

Inputhex "Eingabe einer Hex-Zahl (4 bytes) " , C
Print C
Inputhex "Eingabe Hex Byte (2 bytes) " , D
Print D

Input "Weitere Variablen " , C , D
Print C ; " " ; D

Input C Noecho 'Echo unterdrücken

Input "Bitte Namen eingeben " , S
Print "Hallo " ; S

Input S Noecho 'Ohne Echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-26T23:40:44Z

Stefanhamburg: /* Beispiel */

= Funktion =

Ermöglicht Eingaben von der Tastatur, einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Optionale String-Konstante, die vor dem Prompt-Zeichen geschrieben wird.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Variable zur Aufnahme des Input-Wertes oder Strings.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Kanalnummer, die eine geöffnete Datei identifiziert. Kann eine Konstante oder eine Variable sein.

|}
</div>
 

Die INPUT-Routine kann benutzt werden wenn man einen Mikrocontroller mit serieller Schnittstelle hat.

Die serielle Schnittstelle kann (über einen RS-232 - TTL Konverter) mit der seriellen Schnittstelle eines PCs verbunden werden.

Auf dieses Weise kann man die Tastatur des PCs mit einem Terminalemulator-Programm für Eingaben benutzen.

Man kann auch den in BASCOM integrierten Terminal-Emulator verwenden.

 

Bei Benutzung des AVR-DOS Datei-Systems kann man Variableninhalte aus einer geöffneten Datei lesen. Da die Variablenwerte im ASCII-Format gespeichert sind werden die Daten automatisch in das richtige Format umgewandelt.

Wenn INPUT in Zusammenhang mit Dateien benutzt wird dann ist PROMPT nicht unterstützt.

 

= Unterschied zu VB =

In VB kann man &H  mit INPUT spezifizieren und VB erkennt daraus, dass ein hexadezimaler Wert benutzt wird.

BASCOM hat den neuen Befehl INPUTHEX.

 

 

= Xmega-SPI =

Beim Empfang über das SPI-Interface muss der SS-Pin aktiviert werden. Manche Chips benötigen active low, manche Chips benötigen active high. Dies ist anhängig vom Slave-Chip.

Wenn man die SS=Auto Option benutzt dann wird der Level von SS automatisch geändert. SS wird auf Low geschaltet, Datenbytes werden empfangen und schließlich wird SS wieder high geschaltet.

Datenempfang funktioniert durch Senden eines Datenbytes und Empfang der Daten, die herausgeschrieben werden (shifted out). Die Daten, die gesendet werden sind 0. Man kann das in der Library _inputspivar Routine ändern.

Man kann nicht Konstanten senden wenn man INPUT mit SPI benutzt. Also wird INPUT #10, "SPI", var  nicht unterstützt.

INPUT in Zusammenhang mit SPI wartet auch nicht auf Empfang. Es wartet auf die Anzahl Bytes die in die Variable passen. Siehe Beispiel unter [http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx].

 

= Anzahl Bytes =

Der Compiler empfängt 1 Byte für eine Variable die als BYTE dimensioniert ist.

Er empfängt 2 Bytes für WORD/INTEGER Variablen, 4 Bytes für eine LONG/SINGLE und 8 Bytes für eine DOUBLE-Variable.

Wie bei allen BASCOM-Routinen wird das least significant Byte zuerst empfangen.

 

Wenn ein Array angegeben wird dann wird ein Element empfangen.

Mit einem optionalen Parameter kann man angeben wieviele Bytes empfangen werden sollen. Man muss ein Semikolon (;) verwenden um diesen Parameter anzugeben weil das Komma (,) benutzt wird um mehrere Variablen zu empfangen.

= Beispiel =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= Siehe auch =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Hier kann eine Frage stehen " , V
Input B1 'Weglassen wenn keine Frage

Input "Eingabe von Integer " , C
Print C

Inputhex "Eingabe einer Hex-Zahl (4 bytes) " , C
Print C
Inputhex "Eingabe Hex Byte (2 bytes) " , D
Print D

Input "Weitere Variablen " , C , D
Print C ; " " ; D

Input C Noecho 'Echo unterdrücken

Input "Bitte Namen eingeben " , S
Print "Hallo " ; S

Input S Noecho 'Ohne Echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-26T23:37:00Z

Stefanhamburg: /* Number of Bytes */

= Funktion =

Ermöglicht Eingaben von der Tastatur, einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Optionale String-Konstante, die vor dem Prompt-Zeichen geschrieben wird.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Variable zur Aufnahme des Input-Wertes oder Strings.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Kanalnummer, die eine geöffnete Datei identifiziert. Kann eine Konstante oder eine Variable sein.

|}
</div>
 

Die INPUT-Routine kann benutzt werden wenn man einen Mikrocontroller mit serieller Schnittstelle hat.

Die serielle Schnittstelle kann (über einen RS-232 - TTL Konverter) mit der seriellen Schnittstelle eines PCs verbunden werden.

Auf dieses Weise kann man die Tastatur des PCs mit einem Terminalemulator-Programm für Eingaben benutzen.

Man kann auch den in BASCOM integrierten Terminal-Emulator verwenden.

 

Bei Benutzung des AVR-DOS Datei-Systems kann man Variableninhalte aus einer geöffneten Datei lesen. Da die Variablenwerte im ASCII-Format gespeichert sind werden die Daten automatisch in das richtige Format umgewandelt.

Wenn INPUT in Zusammenhang mit Dateien benutzt wird dann ist PROMPT nicht unterstützt.

 

= Unterschied zu VB =

In VB kann man &H  mit INPUT spezifizieren und VB erkennt daraus, dass ein hexadezimaler Wert benutzt wird.

BASCOM hat den neuen Befehl INPUTHEX.

 

 

= Xmega-SPI =

Beim Empfang über das SPI-Interface muss der SS-Pin aktiviert werden. Manche Chips benötigen active low, manche Chips benötigen active high. Dies ist anhängig vom Slave-Chip.

Wenn man die SS=Auto Option benutzt dann wird der Level von SS automatisch geändert. SS wird auf Low geschaltet, Datenbytes werden empfangen und schließlich wird SS wieder high geschaltet.

Datenempfang funktioniert durch Senden eines Datenbytes und Empfang der Daten, die herausgeschrieben werden (shifted out). Die Daten, die gesendet werden sind 0. Man kann das in der Library _inputspivar Routine ändern.

Man kann nicht Konstanten senden wenn man INPUT mit SPI benutzt. Also wird INPUT #10, "SPI", var  nicht unterstützt.

INPUT in Zusammenhang mit SPI wartet auch nicht auf Empfang. Es wartet auf die Anzahl Bytes die in die Variable passen. Siehe Beispiel unter [http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx].

 

= Anzahl Bytes =

Der Compiler empfängt 1 Byte für eine Variable die als BYTE dimensioniert ist.

Er empfängt 2 Bytes für WORD/INTEGER Variablen, 4 Bytes für eine LONG/SINGLE und 8 Bytes für eine DOUBLE-Variable.

Wie bei allen BASCOM-Routinen wird das least significant Byte zuerst empfangen.

 

Wenn ein Array angegeben wird dann wird ein Element empfangen.

Mit einem optionalen Parameter kann man angeben wieviele Bytes empfangen werden sollen. Man muss ein Semikolon (;) verwenden um diesen Parameter anzugeben weil das Komma (,) benutzt wird um mehrere Variablen zu empfangen.

= Beispiel =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= Siehe auch =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Use this to ask a question " , V
Input B1 'leave out for no question

Input "Enter integer " , C
Print C

Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho 'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho 'without echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-26T23:28:36Z

Stefanhamburg: /* Sample */

= Funktion =

Ermöglicht Eingaben von der Tastatur, einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Optionale String-Konstante, die vor dem Prompt-Zeichen geschrieben wird.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Variable zur Aufnahme des Input-Wertes oder Strings.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Kanalnummer, die eine geöffnete Datei identifiziert. Kann eine Konstante oder eine Variable sein.

|}
</div>
 

Die INPUT-Routine kann benutzt werden wenn man einen Mikrocontroller mit serieller Schnittstelle hat.

Die serielle Schnittstelle kann (über einen RS-232 - TTL Konverter) mit der seriellen Schnittstelle eines PCs verbunden werden.

Auf dieses Weise kann man die Tastatur des PCs mit einem Terminalemulator-Programm für Eingaben benutzen.

Man kann auch den in BASCOM integrierten Terminal-Emulator verwenden.

 

Bei Benutzung des AVR-DOS Datei-Systems kann man Variableninhalte aus einer geöffneten Datei lesen. Da die Variablenwerte im ASCII-Format gespeichert sind werden die Daten automatisch in das richtige Format umgewandelt.

Wenn INPUT in Zusammenhang mit Dateien benutzt wird dann ist PROMPT nicht unterstützt.

 

= Unterschied zu VB =

In VB kann man &H  mit INPUT spezifizieren und VB erkennt daraus, dass ein hexadezimaler Wert benutzt wird.

BASCOM hat den neuen Befehl INPUTHEX.

 

 

= Xmega-SPI =

Beim Empfang über das SPI-Interface muss der SS-Pin aktiviert werden. Manche Chips benötigen active low, manche Chips benötigen active high. Dies ist anhängig vom Slave-Chip.

Wenn man die SS=Auto Option benutzt dann wird der Level von SS automatisch geändert. SS wird auf Low geschaltet, Datenbytes werden empfangen und schließlich wird SS wieder high geschaltet.

Datenempfang funktioniert durch Senden eines Datenbytes und Empfang der Daten, die herausgeschrieben werden (shifted out). Die Daten, die gesendet werden sind 0. Man kann das in der Library _inputspivar Routine ändern.

Man kann nicht Konstanten senden wenn man INPUT mit SPI benutzt. Also wird INPUT #10, "SPI", var  nicht unterstützt.

INPUT in Zusammenhang mit SPI wartet auch nicht auf Empfang. Es wartet auf die Anzahl Bytes die in die Variable passen. Siehe Beispiel unter [http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx].

 

= Number of Bytes =

The compiler will receive 1 byte for a variable which was dimensioned as a BYTE.

It will receive 2 bytes for a WORD/INTEGER, 4 bytes for a LONG/SINGLE and 8 bytes for a DOUBLE.

As with all routines in BASCOM, the least significant Byte will be received first.

 

If you specify an array, it will receive one element.

With an optional parameter you can provide how many bytes must be received. You must use a semicolon (;) to specify this parameter. This because the comma (,) is used to receive multiple variables.

 

= Beispiel =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= Siehe auch =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Use this to ask a question " , V
Input B1 'leave out for no question

Input "Enter integer " , C
Print C

Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho 'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho 'without echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-26T23:27:34Z

Stefanhamburg: /* Example */

= Funktion =

Ermöglicht Eingaben von der Tastatur, einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Optionale String-Konstante, die vor dem Prompt-Zeichen geschrieben wird.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Variable zur Aufnahme des Input-Wertes oder Strings.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Kanalnummer, die eine geöffnete Datei identifiziert. Kann eine Konstante oder eine Variable sein.

|}
</div>
 

Die INPUT-Routine kann benutzt werden wenn man einen Mikrocontroller mit serieller Schnittstelle hat.

Die serielle Schnittstelle kann (über einen RS-232 - TTL Konverter) mit der seriellen Schnittstelle eines PCs verbunden werden.

Auf dieses Weise kann man die Tastatur des PCs mit einem Terminalemulator-Programm für Eingaben benutzen.

Man kann auch den in BASCOM integrierten Terminal-Emulator verwenden.

 

Bei Benutzung des AVR-DOS Datei-Systems kann man Variableninhalte aus einer geöffneten Datei lesen. Da die Variablenwerte im ASCII-Format gespeichert sind werden die Daten automatisch in das richtige Format umgewandelt.

Wenn INPUT in Zusammenhang mit Dateien benutzt wird dann ist PROMPT nicht unterstützt.

 

= Unterschied zu VB =

In VB kann man &H  mit INPUT spezifizieren und VB erkennt daraus, dass ein hexadezimaler Wert benutzt wird.

BASCOM hat den neuen Befehl INPUTHEX.

 

 

= Xmega-SPI =

Beim Empfang über das SPI-Interface muss der SS-Pin aktiviert werden. Manche Chips benötigen active low, manche Chips benötigen active high. Dies ist anhängig vom Slave-Chip.

Wenn man die SS=Auto Option benutzt dann wird der Level von SS automatisch geändert. SS wird auf Low geschaltet, Datenbytes werden empfangen und schließlich wird SS wieder high geschaltet.

Datenempfang funktioniert durch Senden eines Datenbytes und Empfang der Daten, die herausgeschrieben werden (shifted out). Die Daten, die gesendet werden sind 0. Man kann das in der Library _inputspivar Routine ändern.

Man kann nicht Konstanten senden wenn man INPUT mit SPI benutzt. Also wird INPUT #10, "SPI", var  nicht unterstützt.

INPUT in Zusammenhang mit SPI wartet auch nicht auf Empfang. Es wartet auf die Anzahl Bytes die in die Variable passen. Siehe Beispiel unter [http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx].

 

= Number of Bytes =

The compiler will receive 1 byte for a variable which was dimensioned as a BYTE.

It will receive 2 bytes for a WORD/INTEGER, 4 bytes for a LONG/SINGLE and 8 bytes for a DOUBLE.

As with all routines in BASCOM, the least significant Byte will be received first.

 

If you specify an array, it will receive one element.

With an optional parameter you can provide how many bytes must be received. You must use a semicolon (;) to specify this parameter. This because the comma (,) is used to receive multiple variables.

 

= Sample =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= Siehe auch =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Use this to ask a question " , V
Input B1 'leave out for no question

Input "Enter integer " , C
Print C

Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho 'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho 'without echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-26T23:26:40Z

Stefanhamburg: /* See also */

= Funktion =

Ermöglicht Eingaben von der Tastatur, einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Optionale String-Konstante, die vor dem Prompt-Zeichen geschrieben wird.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Variable zur Aufnahme des Input-Wertes oder Strings.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Kanalnummer, die eine geöffnete Datei identifiziert. Kann eine Konstante oder eine Variable sein.

|}
</div>
 

Die INPUT-Routine kann benutzt werden wenn man einen Mikrocontroller mit serieller Schnittstelle hat.

Die serielle Schnittstelle kann (über einen RS-232 - TTL Konverter) mit der seriellen Schnittstelle eines PCs verbunden werden.

Auf dieses Weise kann man die Tastatur des PCs mit einem Terminalemulator-Programm für Eingaben benutzen.

Man kann auch den in BASCOM integrierten Terminal-Emulator verwenden.

 

Bei Benutzung des AVR-DOS Datei-Systems kann man Variableninhalte aus einer geöffneten Datei lesen. Da die Variablenwerte im ASCII-Format gespeichert sind werden die Daten automatisch in das richtige Format umgewandelt.

Wenn INPUT in Zusammenhang mit Dateien benutzt wird dann ist PROMPT nicht unterstützt.

 

= Unterschied zu VB =

In VB kann man &H  mit INPUT spezifizieren und VB erkennt daraus, dass ein hexadezimaler Wert benutzt wird.

BASCOM hat den neuen Befehl INPUTHEX.

 

 

= Xmega-SPI =

Beim Empfang über das SPI-Interface muss der SS-Pin aktiviert werden. Manche Chips benötigen active low, manche Chips benötigen active high. Dies ist anhängig vom Slave-Chip.

Wenn man die SS=Auto Option benutzt dann wird der Level von SS automatisch geändert. SS wird auf Low geschaltet, Datenbytes werden empfangen und schließlich wird SS wieder high geschaltet.

Datenempfang funktioniert durch Senden eines Datenbytes und Empfang der Daten, die herausgeschrieben werden (shifted out). Die Daten, die gesendet werden sind 0. Man kann das in der Library _inputspivar Routine ändern.

Man kann nicht Konstanten senden wenn man INPUT mit SPI benutzt. Also wird INPUT #10, "SPI", var  nicht unterstützt.

INPUT in Zusammenhang mit SPI wartet auch nicht auf Empfang. Es wartet auf die Anzahl Bytes die in die Variable passen. Siehe Beispiel unter [http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx].

 

= Number of Bytes =

The compiler will receive 1 byte for a variable which was dimensioned as a BYTE.

It will receive 2 bytes for a WORD/INTEGER, 4 bytes for a LONG/SINGLE and 8 bytes for a DOUBLE.

As with all routines in BASCOM, the least significant Byte will be received first.

 

If you specify an array, it will receive one element.

With an optional parameter you can provide how many bytes must be received. You must use a semicolon (;) to specify this parameter. This because the comma (,) is used to receive multiple variables.

 

= Sample =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= Siehe auch =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Use this to ask a question " , V
Input B1 'leave out for no question

Input "Enter integer " , C
Print C

Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho 'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho 'without echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-26T23:25:49Z

Stefanhamburg: /* Xmega-SPI */

= Funktion =

Ermöglicht Eingaben von der Tastatur, einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Optionale String-Konstante, die vor dem Prompt-Zeichen geschrieben wird.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Variable zur Aufnahme des Input-Wertes oder Strings.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Kanalnummer, die eine geöffnete Datei identifiziert. Kann eine Konstante oder eine Variable sein.

|}
</div>
 

Die INPUT-Routine kann benutzt werden wenn man einen Mikrocontroller mit serieller Schnittstelle hat.

Die serielle Schnittstelle kann (über einen RS-232 - TTL Konverter) mit der seriellen Schnittstelle eines PCs verbunden werden.

Auf dieses Weise kann man die Tastatur des PCs mit einem Terminalemulator-Programm für Eingaben benutzen.

Man kann auch den in BASCOM integrierten Terminal-Emulator verwenden.

 

Bei Benutzung des AVR-DOS Datei-Systems kann man Variableninhalte aus einer geöffneten Datei lesen. Da die Variablenwerte im ASCII-Format gespeichert sind werden die Daten automatisch in das richtige Format umgewandelt.

Wenn INPUT in Zusammenhang mit Dateien benutzt wird dann ist PROMPT nicht unterstützt.

 

= Unterschied zu VB =

In VB kann man &H  mit INPUT spezifizieren und VB erkennt daraus, dass ein hexadezimaler Wert benutzt wird.

BASCOM hat den neuen Befehl INPUTHEX.

 

 

= Xmega-SPI =

Beim Empfang über das SPI-Interface muss der SS-Pin aktiviert werden. Manche Chips benötigen active low, manche Chips benötigen active high. Dies ist anhängig vom Slave-Chip.

Wenn man die SS=Auto Option benutzt dann wird der Level von SS automatisch geändert. SS wird auf Low geschaltet, Datenbytes werden empfangen und schließlich wird SS wieder high geschaltet.

Datenempfang funktioniert durch Senden eines Datenbytes und Empfang der Daten, die herausgeschrieben werden (shifted out). Die Daten, die gesendet werden sind 0. Man kann das in der Library _inputspivar Routine ändern.

Man kann nicht Konstanten senden wenn man INPUT mit SPI benutzt. Also wird INPUT #10, "SPI", var  nicht unterstützt.

INPUT in Zusammenhang mit SPI wartet auch nicht auf Empfang. Es wartet auf die Anzahl Bytes die in die Variable passen. Siehe Beispiel unter [http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx].

 

= Number of Bytes =

The compiler will receive 1 byte for a variable which was dimensioned as a BYTE.

It will receive 2 bytes for a WORD/INTEGER, 4 bytes for a LONG/SINGLE and 8 bytes for a DOUBLE.

As with all routines in BASCOM, the least significant Byte will be received first.

 

If you specify an array, it will receive one element.

With an optional parameter you can provide how many bytes must be received. You must use a semicolon (;) to specify this parameter. This because the comma (,) is used to receive multiple variables.

 

= Sample =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= See also =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Use this to ask a question " , V
Input B1 'leave out for no question

Input "Enter integer " , C
Print C

Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho 'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho 'without echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-25T23:24:25Z

Stefanhamburg: /* Difference with VB */

= Funktion =

Ermöglicht Eingaben von der Tastatur, einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Optionale String-Konstante, die vor dem Prompt-Zeichen geschrieben wird.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Variable zur Aufnahme des Input-Wertes oder Strings.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Kanalnummer, die eine geöffnete Datei identifiziert. Kann eine Konstante oder eine Variable sein.

|}
</div>
 

Die INPUT-Routine kann benutzt werden wenn man einen Mikrocontroller mit serieller Schnittstelle hat.

Die serielle Schnittstelle kann (über einen RS-232 - TTL Konverter) mit der seriellen Schnittstelle eines PCs verbunden werden.

Auf dieses Weise kann man die Tastatur des PCs mit einem Terminalemulator-Programm für Eingaben benutzen.

Man kann auch den in BASCOM integrierten Terminal-Emulator verwenden.

 

Bei Benutzung des AVR-DOS Datei-Systems kann man Variableninhalte aus einer geöffneten Datei lesen. Da die Variablenwerte im ASCII-Format gespeichert sind werden die Daten automatisch in das richtige Format umgewandelt.

Wenn INPUT in Zusammenhang mit Dateien benutzt wird dann ist PROMPT nicht unterstützt.

 

= Unterschied zu VB =

In VB kann man &H  mit INPUT spezifizieren und VB erkennt daraus, dass ein hexadezimaler Wert benutzt wird.

BASCOM hat den neuen Befehl INPUTHEX.

 

 

= Xmega-SPI =

When receiving data from the SPI interface, you need to activate the SS pin. Some chips might need an active low, others might need an active high. This will depends on the slave chip.

When you use the SS=AUTO option, the level of SS will be changed automatic. Thus SS is made low, then the data bytes are received, and finally , SS is made high again.

 

Receiving data works by sending a data byte and returning the data that is shifted out. The data that will be sent is a 0. You can alter this in the library, _inputspivar routine.

You can not sent constants using the INPUT with SPI. So INPUT #10, "SPI", var  is not supported.

INPUT used with SPI will not wait for a return either. It will wait for the number of bytes that fits into the variable. See[http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx] for an example.

 

= Number of Bytes =

The compiler will receive 1 byte for a variable which was dimensioned as a BYTE.

It will receive 2 bytes for a WORD/INTEGER, 4 bytes for a LONG/SINGLE and 8 bytes for a DOUBLE.

As with all routines in BASCOM, the least significant Byte will be received first.

 

If you specify an array, it will receive one element.

With an optional parameter you can provide how many bytes must be received. You must use a semicolon (;) to specify this parameter. This because the comma (,) is used to receive multiple variables.

 

= Sample =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= See also =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Use this to ask a question " , V
Input B1 'leave out for no question

Input "Enter integer " , C
Print C

Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho 'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho 'without echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-25T23:21:57Z

Stefanhamburg: /* Remarks */

= Funktion =

Ermöglicht Eingaben von der Tastatur, einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Optionale String-Konstante, die vor dem Prompt-Zeichen geschrieben wird.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Variable zur Aufnahme des Input-Wertes oder Strings.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
Kanalnummer, die eine geöffnete Datei identifiziert. Kann eine Konstante oder eine Variable sein.

|}
</div>
 

Die INPUT-Routine kann benutzt werden wenn man einen Mikrocontroller mit serieller Schnittstelle hat.

Die serielle Schnittstelle kann (über einen RS-232 - TTL Konverter) mit der seriellen Schnittstelle eines PCs verbunden werden.

Auf dieses Weise kann man die Tastatur des PCs mit einem Terminalemulator-Programm für Eingaben benutzen.

Man kann auch den in BASCOM integrierten Terminal-Emulator verwenden.

 

Bei Benutzung des AVR-DOS Datei-Systems kann man Variableninhalte aus einer geöffneten Datei lesen. Da die Variablenwerte im ASCII-Format gespeichert sind werden die Daten automatisch in das richtige Format umgewandelt.

Wenn INPUT in Zusammenhang mit Dateien benutzt wird dann ist PROMPT nicht unterstützt.

 

= Difference with VB =

In VB you can specify &H with INPUT so VB will recognize that a hexadecimal string is being used.

BASCOM implements a new statement : INPUTHEX.

 

 

= Xmega-SPI =

When receiving data from the SPI interface, you need to activate the SS pin. Some chips might need an active low, others might need an active high. This will depends on the slave chip.

When you use the SS=AUTO option, the level of SS will be changed automatic. Thus SS is made low, then the data bytes are received, and finally , SS is made high again.

 

Receiving data works by sending a data byte and returning the data that is shifted out. The data that will be sent is a 0. You can alter this in the library, _inputspivar routine.

You can not sent constants using the INPUT with SPI. So INPUT #10, "SPI", var  is not supported.

INPUT used with SPI will not wait for a return either. It will wait for the number of bytes that fits into the variable. See[http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx] for an example.

 

= Number of Bytes =

The compiler will receive 1 byte for a variable which was dimensioned as a BYTE.

It will receive 2 bytes for a WORD/INTEGER, 4 bytes for a LONG/SINGLE and 8 bytes for a DOUBLE.

As with all routines in BASCOM, the least significant Byte will be received first.

 

If you specify an array, it will receive one element.

With an optional parameter you can provide how many bytes must be received. You must use a semicolon (;) to specify this parameter. This because the comma (,) is used to receive multiple variables.

 

= Sample =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= See also =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Use this to ask a question " , V
Input B1 'leave out for no question

Input "Enter integer " , C
Print C

Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho 'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho 'without echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-25T21:29:16Z

Stefanhamburg: /* Funktion */

= Funktion =

Ermöglicht Eingaben von der Tastatur, einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
An optional string constant printed before the prompt character.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
A variable to accept the input value or a string.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
A channel number, which identifies an opened file. This can be a hard coded constant or a variable.

|}
</div>
 

The INPUT routine can be used when you have an RS-232 interface on your uP.

The RS-232 interface can be connected to a serial communication port of your computer.

This way you can use a terminal emulator and the keyboard as an input device.

You can also use the built-in terminal emulator.

 

For usage with the AVR-DOS file system, you can read variables from an opened file. Since these variables are stored in ASCII format, the data is converted to the proper format automatically.

When you use INPUT with a file, the prompt is not supported.

 

= Difference with VB =

In VB you can specify &H with INPUT so VB will recognize that a hexadecimal string is being used.

BASCOM implements a new statement : INPUTHEX.

 

 

= Xmega-SPI =

When receiving data from the SPI interface, you need to activate the SS pin. Some chips might need an active low, others might need an active high. This will depends on the slave chip.

When you use the SS=AUTO option, the level of SS will be changed automatic. Thus SS is made low, then the data bytes are received, and finally , SS is made high again.

 

Receiving data works by sending a data byte and returning the data that is shifted out. The data that will be sent is a 0. You can alter this in the library, _inputspivar routine.

You can not sent constants using the INPUT with SPI. So INPUT #10, "SPI", var  is not supported.

INPUT used with SPI will not wait for a return either. It will wait for the number of bytes that fits into the variable. See[http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx] for an example.

 

= Number of Bytes =

The compiler will receive 1 byte for a variable which was dimensioned as a BYTE.

It will receive 2 bytes for a WORD/INTEGER, 4 bytes for a LONG/SINGLE and 8 bytes for a DOUBLE.

As with all routines in BASCOM, the least significant Byte will be received first.

 

If you specify an array, it will receive one element.

With an optional parameter you can provide how many bytes must be received. You must use a semicolon (;) to specify this parameter. This because the comma (,) is used to receive multiple variables.

 

= Sample =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= See also =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Use this to ask a question " , V
Input B1 'leave out for no question

Input "Enter integer " , C
Print C

Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho 'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho 'without echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

INPUT/de

2013-03-25T21:28:51Z

Stefanhamburg: /* (**COPIED FROM ENGLISH PAGE**) = */

= Funktion =

Ermöglicht Eingaben von der Tastatur einer Datei oder über SPI.

 

 

= Syntax =

INPUT [" prompt" ] , var[ , varn ]

INPUT #ch, var[ , varn ]

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="567" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Prompt

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
An optional string constant printed before the prompt character.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Var,varn

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
A variable to accept the input value or a string.

|- style="vertical-align: top;"
| valign="top" width="16%" style="width: 88px; border: 1px solid rgb(0, 0, 0);" |
Ch

| valign="top" width="86%" style="width: 470px; border: 1px solid rgb(0, 0, 0);" |
A channel number, which identifies an opened file. This can be a hard coded constant or a variable.

|}
</div>
 

The INPUT routine can be used when you have an RS-232 interface on your uP.

The RS-232 interface can be connected to a serial communication port of your computer.

This way you can use a terminal emulator and the keyboard as an input device.

You can also use the built-in terminal emulator.

 

For usage with the AVR-DOS file system, you can read variables from an opened file. Since these variables are stored in ASCII format, the data is converted to the proper format automatically.

When you use INPUT with a file, the prompt is not supported.

 

= Difference with VB =

In VB you can specify &H with INPUT so VB will recognize that a hexadecimal string is being used.

BASCOM implements a new statement : INPUTHEX.

 

 

= Xmega-SPI =

When receiving data from the SPI interface, you need to activate the SS pin. Some chips might need an active low, others might need an active high. This will depends on the slave chip.

When you use the SS=AUTO option, the level of SS will be changed automatic. Thus SS is made low, then the data bytes are received, and finally , SS is made high again.

 

Receiving data works by sending a data byte and returning the data that is shifted out. The data that will be sent is a 0. You can alter this in the library, _inputspivar routine.

You can not sent constants using the INPUT with SPI. So INPUT #10, "SPI", var  is not supported.

INPUT used with SPI will not wait for a return either. It will wait for the number of bytes that fits into the variable. See[http://avrhelp.mcselec.com/config_spix.htm CONFIG SPIx] for an example.

 

= Number of Bytes =

The compiler will receive 1 byte for a variable which was dimensioned as a BYTE.

It will receive 2 bytes for a WORD/INTEGER, 4 bytes for a LONG/SINGLE and 8 bytes for a DOUBLE.

As with all routines in BASCOM, the least significant Byte will be received first.

 

If you specify an array, it will receive one element.

With an optional parameter you can provide how many bytes must be received. You must use a semicolon (;) to specify this parameter. This because the comma (,) is used to receive multiple variables.

 

= Sample =

Dim Tmparray(5) As Byte  , Spi_send_byte As Byte , W as Word

Input #12 , Spi_receive_byte ; 1                         ' READ 1 byte

Input #12 , Tmparray(1) ; 1 , Tmparray(2) ; B       ' read 1 byte and 'b' bytes starting at element 2

 

 

 

 

 

= See also =

[[INPUTHEX]] , [[PRINT]] , [[ECHO]] , [[WRITE]] , [[INPUTBIN]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : input.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INPUT, INPUTHEX
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim V As Byte , B1 As Byte
Dim C As Integer , D As Byte
Dim S As String * 15

Input "Use this to ask a question " , V
Input B1 'leave out for no question

Input "Enter integer " , C
Print C

Inputhex "Enter hex number (4 bytes) " , C
Print C
Inputhex "Enter hex byte (2 bytes) " , D
Print D

Input "More variables " , C , D
Print C ; " " ; D

Input C Noecho 'supress echo

Input "Enter your name " , S
Print "Hello " ; S

Input S Noecho 'without echo
Print S
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

STAND ?BERSETZUNG (tempor?r)

2013-03-19T23:18:04Z

Stefanhamburg:

MAIN MENUE

*Installation/de
Übersetzt Installation of BASCOM/de
Übersetzt Installation on multiple computers/de
Übersetzt Move to new PC/de
Übersetzt Updates/de

*BASCOM Language Fundamentals/de
Übersetzt ASCII chart/de
Übersetzt Assembler mnemonics/de
Übersetzt Changes compared to BASCOM-8051/de
Übersetzt Error Codes/de
Übersetzt Keyword reference/de
Übersetzt Language Fundamentals/de
Übersetzt Mixing ASM and BASIC/de
Übersetzt Newbie problems/de
No content?? Reserved Words/de
Übersetzt Tips and tricks/de

*ASM Libraries and Add-Ons/de
*AVR-DOS/de
*BCCARD/de
*CF Card/de
*DATE TIME/de
*Floating Point/de
*I2C SLAVE/de
*LCD/de
*PS2-AT Mouse and Keyboard Emulation/de
*SPI/de
*USB/de
EXTENDED I2C/de
FM24C16/de
FM24C64-256/de
FM25C256/de
HEXVAL lib/de
I2C-TWI/de
MCSBYTE/de
MCSBYTEINT/de
MODBUS Slave-Server/de
TCPIP/de

*BASCOM HARDWARE/de
*Chips/de
*Reference Designs/de
Übersetzt Adding XRAM to XMEGA using EBI/de
Adding XRAM with External Memory Interface/de
Additional Hardware/de
Attaching an LCD Display/de
AVR Internal Hardware Port B/de
AVR Internal Hardware Port D/de
AVR Internal Hardware TIMER0/de
AVR Internal Hardware TIMER1/de
AVR Internal Hardware Watchdog timer/de
AVR Internal Hardware/de
AVR Internal Registers/de
Memory usage/de
Power Up/de
Using RS485/de
Using the 1 WIRE protocol/de
Using the I2C protocol/de
Using the SPI protocol/de
Übersetzt Using the UART/de
Using USI (Universal Serial Interface)/de

*Tools/de
LCD RGB-8 Converter/de

*BASCOM IDE/de
*Options Compiler/de
*Options Programmer/de
*Plugins/de
Übersetzt BASCOM Editor Keys/de
Edit Copy/de
Edit Cut/de
Edit Encrypt Selected Code/de
Edit Find Next/de
Edit Find/de
Edit Goto Bookmark/de
Edit Goto/de
Edit Indent Block/de
Edit Paste/de
Edit Redo/de
Edit Remark Block/de
Edit Replace/de
Edit Toggle Bookmark/de
Edit Undo/de
Edit Unindent Block/de
File Close/de
File Exit/de
File New/de
File Open/de
File Print Preview/de
File Print/de
File Project/de
File Save As/de
File Save/de
Help About/de
Help Credits/de
Help Index/de
Help Knowledge Base/de
Help MCS Forum/de
Help MCS Shop/de
Help Support/de
Help Update/de
Options Communication/de
Options Environment/de
Options Monitor/de
Options Printer/de
Options Simulator/de
Program Compile/de
Program Development Order/de
Program Send to Chip/de
Program Show Result/de
Program Simulate/de
Program Syntax Check/de
Running BASCOM-AVR/de
Tools Batch Compile/de
Tools Graphic Converter/de
Tools LCD Designer/de
Tools LIB Manager/de
Tools PDF Update/de
Tools Plugin Manager/de
Tools Resource Editor/de
Tools Stack Analyzer/de
Tools Terminal Emulator/de
View Code Explorer/de
View Error Panel/de
View PDF viewer/de
View PinOut/de
View Project Files/de
View Tip/de
Window Arrange Icons/de
Window Cascade/de
Window Minimize All/de
Window Tile/de
Windows Maximize All/de

BASCOM-AVR Stichworte - DE Übersetzung

$AESKEY/de
$ASM/de
$BAUD/de
$BAUD1/de
$BGF/de
$BIGSTRINGS/de
$BOOT/de
$CRYPT/de
Übersetzt $CRYSTAL/de
$DATA/de
$DBG/de
$DEFAULT/de
Übersetzt $EEPLEAVE/de
Übersetzt $EEPROM/de
Übersetzt $EEPROMHEX/de
$EEPROMSIZE/de
$EXTERNAL/de
$FILE/de
$FRAMECHECK/de
$FRAMEPROTECT/de
$FRAMESIZE/de
$HWCHECK/de
$HWSTACK/de
$INC/de
$INCLUDE/de
$INITMICRO/de
Übersetzt $LCD/de
$LCDPUTCTRL/de
$LCDPUTDATA/de
Übersetzt $LCDRS/de
$LCDVFO/de
$LIB/de
$LOADER/de
$LOADERSIZE/de
$MAP/de
$NOCOMPILE/de
$NOFRAMEPROTECT/de
$NOINIT/de
$NORAMCLEAR/de
$NORAMPZ/de
$NOTRANSFORM/de
$PROG/de
$PROGRAMMER/de
$PROJECTTIME/de
$REGFILE/de
$RESOURCE/de
$ROMSTART/de
$SERIALINPUT/de
$SERIALINPUT1/de
$SERIALINPUT2LCD/de
$SERIALOUTPUT/de
$SERIALOUTPUT1/de
Übersetzt $SIM/de
$SOFTCHECK/de
$STACKDUMP/de
$SWSTACK/de
$TIMEOUT/de
$TINY/de
$VERSION/de
$WAITSTATE/de
$XA/de
$XRAMSIZE/de
$XRAMSTART/de
$XTEAKEY/de

*AUTOCODE/de
*IF ELSE ELSEIF ENDIF/de

1WIRECOUNT/de
In Arbeit 1WREAD/de
1WRESET/de
1WSEARCHFIRST/de
1WSEARCHNEXT/de
1WVERIFY/de
Übersetzt 1WWRITE/de

Übersetzt ABS/de
ACOS/de
Übersetzt ADR/de
Übersetzt ADR2/de
AESDECRYPT/de
AESENCRYPT/de
Übersetzt ALIAS/de
Übersetzt ASC/de
ASIN/de
ATN/de
ATN2/de

BASE64DEC/de
BASE64ENC/de
BAUD/de
BAUD1/de
Übersetzt BCD/de
Übersetzt BIN/de
BIN2GRAY/de
Übersetzt BINVAL/de
Übersetzt BITS/de
Übersetzt BITWAIT/de
BLOAD/de
BOX/de
BOXFILL/de
BSAVE/de
BUFSPACE/de
BYVAL/de

Übersetzt CALL/de
CANBAUD/de
CANCLEARALLMOBS/de
CANCLEARMOB/de
CANGETINTS/de
CANID/de
CANRECEIVE/de
CANRESET/de
CANSELPAGE/de
CANSEND/de
Übersetzt CHARPOS/de
CHDIR/de
CHECKFLOAT/de
CHECKSUM/de
CHECKSUMXOR/de
Übersetzt CHR/de
CIRCLE/de
CLEAR/de
CLOCKDIVISION/de
CLOSE/de
CLOSESOCKET/de
Übersetzt CLS/de
CONFIG/de
CONFIG 1WIRE/de
CONFIG ACI/de
CONFIG ACXX/de
CONFIG ADC/de
CONFIG ADCX/de
CONFIG ATEMU/de
CONFIG BASE/de
CONFIG BCCARD/de
CONFIG CANBUS/de
CONFIG CANMOB/de
CONFIG CLOCK/de
CONFIG CLOCKDIV/de
CONFIG COM1/de
CONFIG COM2/de
CONFIG COMX/de
CONFIG DACX/de
Übersetzt CONFIG DATE/de
CONFIG DCF77/de
Übersetzt CONFIG DEBOUNCE/de
CONFIG DMA/de
CONFIG DMACHX/de
CONFIG DMXSLAVE/de
CONFIG DP/de
CONFIG EEPROM/de
CONFIG ERROR/de
CONFIG EVENT SYSTEM/de
CONFIG EXTENDED PORT/de
CONFIG GRAPHLCD/de
CONFIG HITAG/de
CONFIG I2CDELAY/de
CONFIG I2CSLAVE/de
CONFIG INPUT/de
CONFIG INTX/de
CONFIG KBD/de
CONFIG KEYBOARD/de
Übersetzt CONFIG LCD/de
CONFIG LCDBUS/de
Übersetzt CONFIG LCDMODE/de
Übersetzt CONFIG LCDPIN/de
CONFIG OSC/de
Übersetzt CONFIG PORT/de
Übersetzt CONFIG POWERMODE/de
CONFIG POWER REDUCTION/de
CONFIG PRINT/de
CONFIG PRINTBIN/de
CONFIG PRIORITY/de
CONFIG PS2EMU/de
CONFIG RC5/de
CONFIG SCL/de
CONFIG SDA/de
CONFIG SERIALIN/de
CONFIG SERIALOUT/de
CONFIG SERVOS/de
CONFIG SHIFTIN/de
CONFIG SINGLE/de
CONFIG SPI/de
CONFIG SPIX/de
Übersetzt CONFIG SUBMODE/de
CONFIG SYSCLOCK/de
CONFIG TCPIP/de
CONFIG TCXX/de
CONFIG TIMER0/de
CONFIG TIMER1/de
CONFIG TIMER2/de
CONFIG TWI/de
CONFIG TWISLAVE/de
CONFIG USB/de
CONFIG VPORT/de
CONFIG WAITSUART/de
CONFIG WATCHDOG/de
CONFIG X10/de
CONFIG XPIN/de
CONFIG XRAM/de
Übersetzt CONST/de
Übersetzt COS/de
COSH/de
COUNTER0/de
COUNTER1/de
CPEEK/de
CPEEKH/de
CRC16/de
CRC16UNI/de
CRC32/de
CRC8/de
CRYSTAL/de
Übersetzt CURSOR/de

DATA/de
Übersetzt DATE$/de
DATE/de
Übersetzt DAYOFWEEK/de
DAYOFYEAR/de
DBG/de
DCF77TIMEZONE/de
Übersetzt DEBOUNCE/de
DEBUG/de
DECLARE FUNCTION/de
Übersetzt DECLARE SUB/de
Übersetzt DECR/de
Übersetzt DEFLCDCHAR/de
DEFXXX/de
DEG2RAD/de
Übersetzt DELAY/de
Übersetzt DELCHAR/de
Übersetzt DELCHARS/de
DIM/de
DIR/de
Übersetzt DISABLE/de
DISKFREE/de
DISKSIZE/de
DISPLAY/de
Übersetzt DO-LOOP/de
DTMFOUT/de
DriveCheck/de
DriveGetIdentity/de
DriveInit/de
DriveReadSector/de
DriveReset/de
DriveWriteSector/de

ECHO/de
ELSE/de
Übersetzt ENABLE/de
ENCODER/de
Übersetzt END/de
EOF/de
EXIT/de
EXP/de

FILEATTR/de
FILEDATE/de
FILEDATETIME/de
FILELEN/de
FILETIME/de
Übersetzt FIX/de
FLUSH/de
Übersetzt FOR-NEXT/de
FORMAT/de
Übersetzt FOURTHLINE/de
Übersetzt FRAC/de
FREEFILE/de
FUSING/de

GET/de
GETADC/de
GETATKBD/de
GETATKBDRAW/de
GETDSTIP/de
GETDSTPORT/de
GETKBD/de
GETRC/de
GETRC5/de
GETREG/de
GETSOCKET/de
GETTCPREGS/de
GLCDCMD/de
GLCDDATA/de
Übersetzt GOSUB/de
Übersetzt GOTO/de
GRAY2BIN/de

Übersetzt HEX/de
Übersetzt HEXVAL/de
Übersetzt HIGH/de
Übersetzt HIGHW/de
Übersetzt HOME/de

I2CINIT/de
I2CRBYTE/de
I2CRECEIVE/de
I2CREPSTART/de
I2CSEND/de
I2CSTART/de
I2CSTOP/de
I2CWBYTE/de
Übersetzt IDLE/de
Übersetzt IF-THEN-ELSE-END IF/de
Übersetzt INCR/de
INITFILESYSTEM/de
Übersetzt INITLCD/de
Übersetzt INKEY/de
INP/de
INPUT/de
INPUTBIN/de
INPUTHEX/de
INSERTCHAR/de
INSTR/de
Übersetzt INT/de
IP2STR/de
Übersetzt ISCHARWAITING/de

KILL/de

Übersetzt LCASE/de
Übersetzt LCD/de
Übersetzt LCDAT/de
Übersetzt LCDAUTODIM/de
Übersetzt LCDCMD/de
Übersetzt LCDCONTRAST/de
Übersetzt LCDDATA/de
Übersetzt LEFT/de
Übersetzt LEN/de
Übersetzt LINE/de
Übersetzt LINEINPUT/de
?? LINE INPUT/de
Übersetzt LOAD/de
Übersetzt LOADADR/de
Übersetzt LOADLABEL/de
Übersetzt LOADWORDADR/de
Übersetzt LOC/de
Übersetzt LOCAL/de
Übersetzt LOCATE/de
Übersetzt LOF/de
Übersetzt LOG/de
Übersetzt LOG10/de
Übersetzt LOOKDOWN/de
Übersetzt LOOKUP/de
Übersetzt LOOKUPSTR/de
Übersetzt LOW/de
Übersetzt LOWERLINE/de
Übersetzt LTRIM/de

Übersetzt MACRO/de
Übersetzt MAKEBCD/de
Übersetzt MAKEDEC/de
Übersetzt MAKEINT/de
MAKEMODBUS/de
MAKETCP/de
Übersetzt MAX/de
MEMCOPY/de
Übersetzt MID/de
Übersetzt MIN/de
MKDIR/de
Übersetzt MOD/de

Übersetzt NBITS/de

Übersetzt ON INTERRUPT/de
Übersetzt ON VALUE/de
OPEN/de
OUT/de

PEEK/de
POKE/de
POPALL/de
POWER/de
Übersetzt POWERDOWN/de
Übersetzt POWERSAVE/de
Übersetzt POWER MODE/de
PRINT/de
PRINTBIN/de
PS2MOUSEXY/de
PSET/de
PULSEIN/de
PULSEOUT/de
PUSHALL/de
PUT/de

QUOTE/de

RAD2DEG/de
RC5SEND/de
RC5SENDEXT/de
RC6SEND/de
READ/de
Übersetzt READEEPROM/de
READHITAG/de
READMAGCARD/de
READSIG/de
Übersetzt REM/de
REPLACECHARS/de
Übersetzt RESET/de
Übersetzt RESTORE/de
Übersetzt RETURN/de
Übersetzt RIGHT/de
RMDIR/de
RND/de
ROTATE/de
Übersetzt ROUND/de
RTRIM/de

SECELAPSED/de
SECOFDAY/de
SEEK/de
SELECT-CASE-END SELECT/de
SENDSCAN/de
SENDSCANKBD/de
SERIN/de
SEROUT/de
Übersetzt SET/de
SETFONT/de
SETIPPROTOCOL/de
SETREG/de
SETTCP/de
SETTCPREGS/de
Übersetzt SGN/de
SHIFT/de
SHIFTCURSOR/de
SHIFTIN/de
SHIFTLCD/de
SHIFTOUT/de
SHOWPIC/de
SHOWPICE/de
Übersetzt SIN/de
SINH/de
SNTP/de
SOCKETCLOSE/de
SOCKETCONNECT/de
SOCKETDISCONNECT/de
SOCKETLISTEN/de
SOCKETSTAT/de
SONYSEND/de
Übersetzt SORT/de
Übersetzt SOUND/de
Übersetzt SPACE/de
Übersetzt SPC/de
SPIIN/de
SPIINIT/de
SPIMOVE/de
SPIOUT/de
Übersetzt SPLIT/de
Übersetzt SQR/de
Übersetzt START/de
STCHECK/de
Übersetzt STOP/de
Übersetzt STR/de
STR2DIGITS/de
Übersetzt STRING/de
Übersetzt SUB/de
SWAP/de
SYSDAY/de
SYSSEC/de
SYSSECELAPSED/de

Übersetzt TAN/de
TANH/de
TCPCHECKSUM/de
TCPREAD/de
TCPREADHEADER/de
TCPWRITE/de
TCPWRITESTR/de
Übersetzt THIRDLINE/de
Übersetzt TIME$/de
TIME/de
Übersetzt TOGGLE/de
TRIM/de

UCASE/de
UDPREAD/de
UDPREADHEADER/de
UDPWRITE/de
UDPWRITESTR/de
Übersetzt UPPERLINE/de
Übersetzt VAL/de
VARPTR/de
VER/de
VERSION/de

Übersetzt WAIT/de
Übersetzt WAITKEY/de
Übersetzt WAITMS/de
Übersetzt WAITUS/de
Übersetzt WHILE-WEND/de
WRITE/de
Übersetzt WRITEEEPROM/de

X10DETECT/de
X10SEND/de
XTEADECODE/de
XTEAENCODE/de

TIME$/de

2013-03-19T23:14:48Z

Stefanhamburg: /* Assembler */

= Funktion =

Interne Variable für die Uhrzeit.

 

 

= Syntax =

TIME$ = "hh:mm:ss"

var = TIME$

 

 

= Anmerkungen =

Die TIME$ Variable wird in Kombination mit CONFIG CLOCK und CONFIG DATE benutzt.

 

Siehe [[CONFIG CLOCK|CONFIG CLOCK]] Befehl für weitere Informationen. In der Interrupt Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Das Zeit-Format ist das 24-Stunden-Format.

 

Wenn der TIME$ Variablen eine Konstante oder Variable zugewiesen wird dann werden die _sec, _Hour und _Min Variablen auf die neue Zeit gesetzt.

 

Der einzige Unterschied zu VB ist dass alle Ziffern bei der Zeitzuweisung gegeben werden müssen. Dadurch entsteht schlanker Code. Natürlich könnte man dieses Verhalten ändern.

 

 

[[File:Important.jpg|left|Important.jpg]]Bitte nicht TIME$ mit der TIME Funktion verwechseln!

 

 

= Assembler =

Die folgenden Assembler-Routinen aus der mcs.lib werden aufgerufen:

Bei Zuweisung zu TIME$ : _set_time (calls _str2byte)

Beim Lesen von TIME$ : _make_dt (calls _byte2str)

 

 

= Siehe auch =

[[DATE$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[CONFIG DATE|CONFIG DATE]]

 

 

= Beispiel =

Siehe Beispiel bei [http://avrhelp.mcselec.com/date_.htm DATE$]

 {{Languages}}

[[Category:BASCOM Language Reference/de]]

TIME$/de

2013-03-19T23:14:27Z

Stefanhamburg: /* Example */

= Funktion =

Interne Variable für die Uhrzeit.

 

 

= Syntax =

TIME$ = "hh:mm:ss"

var = TIME$

 

 

= Anmerkungen =

Die TIME$ Variable wird in Kombination mit CONFIG CLOCK und CONFIG DATE benutzt.

 

Siehe [[CONFIG CLOCK|CONFIG CLOCK]] Befehl für weitere Informationen. In der Interrupt Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Das Zeit-Format ist das 24-Stunden-Format.

 

Wenn der TIME$ Variablen eine Konstante oder Variable zugewiesen wird dann werden die _sec, _Hour und _Min Variablen auf die neue Zeit gesetzt.

 

Der einzige Unterschied zu VB ist dass alle Ziffern bei der Zeitzuweisung gegeben werden müssen. Dadurch entsteht schlanker Code. Natürlich könnte man dieses Verhalten ändern.

 

 

[[File:Important.jpg|left|Important.jpg]]Bitte nicht TIME$ mit der TIME Funktion verwechseln!

 

 

= Assembler =

Die folgenden Assembler-Routinen aus dermcs.lib werden aufgerufen:

Bei Zuweisung zu TIME$ : _set_time (calls _str2byte)

Beim Lesen von TIME$ : _make_dt (calls _byte2str)

 

 

= Siehe auch =

[[DATE$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[CONFIG DATE|CONFIG DATE]]

 

 

= Beispiel =

Siehe Beispiel bei [http://avrhelp.mcselec.com/date_.htm DATE$]

 {{Languages}}

[[Category:BASCOM Language Reference/de]]

TIME$/de

2013-03-19T23:13:45Z

Stefanhamburg: /* See also */

= Funktion =

Interne Variable für die Uhrzeit.

 

 

= Syntax =

TIME$ = "hh:mm:ss"

var = TIME$

 

 

= Anmerkungen =

Die TIME$ Variable wird in Kombination mit CONFIG CLOCK und CONFIG DATE benutzt.

 

Siehe [[CONFIG CLOCK|CONFIG CLOCK]] Befehl für weitere Informationen. In der Interrupt Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Das Zeit-Format ist das 24-Stunden-Format.

 

Wenn der TIME$ Variablen eine Konstante oder Variable zugewiesen wird dann werden die _sec, _Hour und _Min Variablen auf die neue Zeit gesetzt.

 

Der einzige Unterschied zu VB ist dass alle Ziffern bei der Zeitzuweisung gegeben werden müssen. Dadurch entsteht schlanker Code. Natürlich könnte man dieses Verhalten ändern.

 

 

[[File:Important.jpg|left|Important.jpg]]Bitte nicht TIME$ mit der TIME Funktion verwechseln!

 

 

= Assembler =

Die folgenden Assembler-Routinen aus dermcs.lib werden aufgerufen:

Bei Zuweisung zu TIME$ : _set_time (calls _str2byte)

Beim Lesen von TIME$ : _make_dt (calls _byte2str)

 

 

= Siehe auch =

[[DATE$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[CONFIG DATE|CONFIG DATE]]

 

 

= Example =

See the sample of [http://avrhelp.mcselec.com/date_.htm DATE$]

 {{Languages}}

[[Category:BASCOM Language Reference/de]]

TIME$/de

2013-03-19T23:13:25Z

Stefanhamburg: /* ASM */

= Funktion =

Interne Variable für die Uhrzeit.

 

 

= Syntax =

TIME$ = "hh:mm:ss"

var = TIME$

 

 

= Anmerkungen =

Die TIME$ Variable wird in Kombination mit CONFIG CLOCK und CONFIG DATE benutzt.

 

Siehe [[CONFIG CLOCK|CONFIG CLOCK]] Befehl für weitere Informationen. In der Interrupt Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Das Zeit-Format ist das 24-Stunden-Format.

 

Wenn der TIME$ Variablen eine Konstante oder Variable zugewiesen wird dann werden die _sec, _Hour und _Min Variablen auf die neue Zeit gesetzt.

 

Der einzige Unterschied zu VB ist dass alle Ziffern bei der Zeitzuweisung gegeben werden müssen. Dadurch entsteht schlanker Code. Natürlich könnte man dieses Verhalten ändern.

 

 

[[File:Important.jpg|left|Important.jpg]]Bitte nicht TIME$ mit der TIME Funktion verwechseln!

 

 

= Assembler =

Die folgenden Assembler-Routinen aus dermcs.lib werden aufgerufen:

Bei Zuweisung zu TIME$ : _set_time (calls _str2byte)

Beim Lesen von TIME$ : _make_dt (calls _byte2str)

 

 

= See also =

[[DATE$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[CONFIG DATE|CONFIG DATE]]

 

 

= Example =

See the sample of [http://avrhelp.mcselec.com/date_.htm DATE$]

 {{Languages}}

[[Category:BASCOM Language Reference/de]]

TIME$/de

2013-03-19T23:12:01Z

Stefanhamburg: /* Anmerkungen */

= Funktion =

Interne Variable für die Uhrzeit.

 

 

= Syntax =

TIME$ = "hh:mm:ss"

var = TIME$

 

 

= Anmerkungen =

Die TIME$ Variable wird in Kombination mit CONFIG CLOCK und CONFIG DATE benutzt.

 

Siehe [[CONFIG CLOCK|CONFIG CLOCK]] Befehl für weitere Informationen. In der Interrupt Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Das Zeit-Format ist das 24-Stunden-Format.

 

Wenn der TIME$ Variablen eine Konstante oder Variable zugewiesen wird dann werden die _sec, _Hour und _Min Variablen auf die neue Zeit gesetzt.

 

Der einzige Unterschied zu VB ist dass alle Ziffern bei der Zeitzuweisung gegeben werden müssen. Dadurch entsteht schlanker Code. Natürlich könnte man dieses Verhalten ändern.

 

 

[[File:Important.jpg|left|Important.jpg]]Bitte nicht TIME$ mit der TIME Funktion verwechseln!

 

 

= ASM =

The following asm routines are called from mcs.lib.

When assigning TIME$ : _set_time (calls _str2byte)

When reading TIME$ : _make_dt (calls _byte2str)

 

 

= See also =

[[DATE$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[CONFIG DATE|CONFIG DATE]]

 

 

= Example =

See the sample of [http://avrhelp.mcselec.com/date_.htm DATE$]

 {{Languages}}

[[Category:BASCOM Language Reference/de]]

TIME$/de

2013-03-19T23:11:14Z

Stefanhamburg: /* Remarks */

= Funktion =

Interne Variable für die Uhrzeit.

 

 

= Syntax =

TIME$ = "hh:mm:ss"

var = TIME$

 

 

= Anmerkungen =

Die TIME$ Variable wird in Kombination mit CONFIG CLOCK und CONFIG DATE benutzt.

 

Siehe [[CONFIG CLOCK|CONFIG CLOCK]] Befehl für weitere Informationen. In der Interrupt Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Das Zeit-Format ist das 24-Stunden-Format.

 

Wenn der TIME$ Variablen eine Konstante oder Variable zugewiesen wird dann werden die _sec, _Hour und _Min Variablen auf die neue Zeit gesetzt.

 

Der einzige Unterschied zu VB ist dass alle Zuffern bei der Zeitzuweisung gegeben werden müssen. Dadurch entsteht schlanker Code. Natürlich könnte man dieses Verhalten ändern.

 

 

[[File:Important.jpg|left|Important.jpg]]Bitte nicht TIME$ mit der TIME Funktion verwechseln!

 

 

= ASM =

The following asm routines are called from mcs.lib.

When assigning TIME$ : _set_time (calls _str2byte)

When reading TIME$ : _make_dt (calls _byte2str)

 

 

= See also =

[[DATE$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[CONFIG DATE|CONFIG DATE]]

 

 

= Example =

See the sample of [http://avrhelp.mcselec.com/date_.htm DATE$]

 {{Languages}}

[[Category:BASCOM Language Reference/de]]

TIME$/de

2013-03-19T23:04:36Z

Stefanhamburg: /* (**COPIED FROM ENGLISH PAGE**) = */

= Funktion =

Interne Variable für die Uhrzeit.

 

 

= Syntax =

TIME$ = "hh:mm:ss"

var = TIME$

 

 

= Remarks =

The TIME$ variable is used in combination with the CONFIG CLOCK and CONFIG DATE directive.

 

See [[CONFIG CLOCK|CONFIG CLOCK]] statement for further information. In this interrupt routine the _Sec, _Min and _Hour variables are updated. The time format is 24 hours format.

 

When you assign TIME$ to a string variable these variables are assigned to the TIME$ variable.

When you assign the TIME$ variable with a constant or other variable, the _sec, _Hour and _Min variables will be changed to the new time.

 

The only difference with VB is that all digits must be provided when assigning the time. This is done for minimal code. You can change this behavior of course.

 

 

[[File:Important.jpg|left|Important.jpg]]Do not confuse TIME$ with the TIME function !

 

 

= ASM =

The following asm routines are called from mcs.lib.

When assigning TIME$ : _set_time (calls _str2byte)

When reading TIME$ : _make_dt (calls _byte2str)

 

 

= See also =

[[DATE$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[CONFIG DATE|CONFIG DATE]]

 

 

= Example =

See the sample of [http://avrhelp.mcselec.com/date_.htm DATE$]

 {{Languages}}

[[Category:BASCOM Language Reference/de]]

DATE$/de

2013-03-19T23:03:29Z

Stefanhamburg: /* Example */

= Funktion =

Interne Datums-Variable.

 

 

= Syntax =

DATE$ = "mm/dd/yy"

var = DATE$

 

 

= Anmerkungen =

Die DATE$ Variable wird in Kombination mit  [[CONFIG CLOCK|CONFIG CLOCK]] benutzt.

 

Der [[CONFIG CLOCK|CONFIG CLOCK]] Befehl erzeugt einen Interrupt der jede Sekunde auftritt. In dieser Interrupt-Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Die _dat, _month und _year Variablen werden ebenfalls aktualisiert. Das Datumsformat ist dasselbe wie in VB.

 

Wenn man der DATE$ Variablen eine Konstante oder eine andere Variable zuweist dann werden die _day, _month und _year Variablen auf das neue Datum gesetzt.

Der einzige Unterschied zu VB ist, dass alle Daten bei der Zuweisung des Datums gegeben werden müssen. Dafür benötigt man wenig Code. Natürlich kann man dieses Verhalten ändern.

 

[[File:Important.jpg|left|Important.jpg]] DATE$ sollte nicht mit der DATE-Funktion verwechselt werden!

 

= Assembler =

Die folgenden Assembler-Routinen werden aufgerufen.

Bei Zuweisung zu DATE$ : _set_date (calls _str2byte)

Beim Lesen von DATE$ : _make_dt (calls _byte2str)

 

 

= Siehe auch =

[[TIME$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[DATE]]

 

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : megaclock.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows the new TIME$ and DATE$ reserved variables
'micro : Mega103
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'With the 8535 and timer2 or the Mega103 and TIMER0 you can
'easily implement a clock by attaching a 32768 Hz xtal to the timer
'And of course some BASCOM code

'This example is written for the STK300 with M103
Enable Interrupts

'[configure LCD]
$lcd = &HC000 'address for E and RS
$lcdrs = &H8000 'address for only E
Config Lcd = 20 * 4 'nice display from bg micro
Config Lcdbus = 4 'we run it in bus mode and I hooked up only db4-db7
Config Lcdmode = Bus 'tell about the bus mode

'[now init the clock]
Config Date = Mdy , Separator = / ' ANSI-Format

Config Clock = Soft 'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!
'For the M103 in this case it means that TIMER0 can not be used by the user anymore

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/00"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "02:20:00"

'---------------------------------------------------

'clear the LCD display
Cls

Do
Home 'cursor home
Lcd Date$ ; " " ; Time$ 'show the date and time
Loop

'The clock routine does use the following internal variables:
'_day , _month, _year , _sec, _hour, _min
'These are all bytes. You can assign or use them directly
_day = 1
'For the _year variable only the year is stored, not the century
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

DATE$/de

2013-03-19T23:03:04Z

Stefanhamburg: /* See also */

= Funktion =

Interne Datums-Variable.

 

 

= Syntax =

DATE$ = "mm/dd/yy"

var = DATE$

 

 

= Anmerkungen =

Die DATE$ Variable wird in Kombination mit  [[CONFIG CLOCK|CONFIG CLOCK]] benutzt.

 

Der [[CONFIG CLOCK|CONFIG CLOCK]] Befehl erzeugt einen Interrupt der jede Sekunde auftritt. In dieser Interrupt-Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Die _dat, _month und _year Variablen werden ebenfalls aktualisiert. Das Datumsformat ist dasselbe wie in VB.

 

Wenn man der DATE$ Variablen eine Konstante oder eine andere Variable zuweist dann werden die _day, _month und _year Variablen auf das neue Datum gesetzt.

Der einzige Unterschied zu VB ist, dass alle Daten bei der Zuweisung des Datums gegeben werden müssen. Dafür benötigt man wenig Code. Natürlich kann man dieses Verhalten ändern.

 

[[File:Important.jpg|left|Important.jpg]] DATE$ sollte nicht mit der DATE-Funktion verwechselt werden!

 

= Assembler =

Die folgenden Assembler-Routinen werden aufgerufen.

Bei Zuweisung zu DATE$ : _set_date (calls _str2byte)

Beim Lesen von DATE$ : _make_dt (calls _byte2str)

 

 

= Siehe auch =

[[TIME$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[DATE]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : megaclock.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows the new TIME$ and DATE$ reserved variables
'micro : Mega103
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'With the 8535 and timer2 or the Mega103 and TIMER0 you can
'easily implement a clock by attaching a 32768 Hz xtal to the timer
'And of course some BASCOM code

'This example is written for the STK300 with M103
Enable Interrupts

'[configure LCD]
$lcd = &HC000 'address for E and RS
$lcdrs = &H8000 'address for only E
Config Lcd = 20 * 4 'nice display from bg micro
Config Lcdbus = 4 'we run it in bus mode and I hooked up only db4-db7
Config Lcdmode = Bus 'tell about the bus mode

'[now init the clock]
Config Date = Mdy , Separator = / ' ANSI-Format

Config Clock = Soft 'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!
'For the M103 in this case it means that TIMER0 can not be used by the user anymore

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/00"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "02:20:00"

'---------------------------------------------------

'clear the LCD display
Cls

Do
Home 'cursor home
Lcd Date$ ; " " ; Time$ 'show the date and time
Loop

'The clock routine does use the following internal variables:
'_day , _month, _year , _sec, _hour, _min
'These are all bytes. You can assign or use them directly
_day = 1
'For the _year variable only the year is stored, not the century
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

DATE$/de

2013-03-19T23:02:24Z

Stefanhamburg: /* ASM */

= Funktion =

Interne Datums-Variable.

 

 

= Syntax =

DATE$ = "mm/dd/yy"

var = DATE$

 

 

= Anmerkungen =

Die DATE$ Variable wird in Kombination mit  [[CONFIG CLOCK|CONFIG CLOCK]] benutzt.

 

Der [[CONFIG CLOCK|CONFIG CLOCK]] Befehl erzeugt einen Interrupt der jede Sekunde auftritt. In dieser Interrupt-Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Die _dat, _month und _year Variablen werden ebenfalls aktualisiert. Das Datumsformat ist dasselbe wie in VB.

 

Wenn man der DATE$ Variablen eine Konstante oder eine andere Variable zuweist dann werden die _day, _month und _year Variablen auf das neue Datum gesetzt.

Der einzige Unterschied zu VB ist, dass alle Daten bei der Zuweisung des Datums gegeben werden müssen. Dafür benötigt man wenig Code. Natürlich kann man dieses Verhalten ändern.

 

[[File:Important.jpg|left|Important.jpg]] DATE$ sollte nicht mit der DATE-Funktion verwechselt werden!

 

= Assembler =

Die folgenden Assembler-Routinen werden aufgerufen.

Bei Zuweisung zu DATE$ : _set_date (calls _str2byte)

Beim Lesen von DATE$ : _make_dt (calls _byte2str)

 

 

= See also =

[[TIME$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[DATE]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : megaclock.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows the new TIME$ and DATE$ reserved variables
'micro : Mega103
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'With the 8535 and timer2 or the Mega103 and TIMER0 you can
'easily implement a clock by attaching a 32768 Hz xtal to the timer
'And of course some BASCOM code

'This example is written for the STK300 with M103
Enable Interrupts

'[configure LCD]
$lcd = &HC000 'address for E and RS
$lcdrs = &H8000 'address for only E
Config Lcd = 20 * 4 'nice display from bg micro
Config Lcdbus = 4 'we run it in bus mode and I hooked up only db4-db7
Config Lcdmode = Bus 'tell about the bus mode

'[now init the clock]
Config Date = Mdy , Separator = / ' ANSI-Format

Config Clock = Soft 'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!
'For the M103 in this case it means that TIMER0 can not be used by the user anymore

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/00"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "02:20:00"

'---------------------------------------------------

'clear the LCD display
Cls

Do
Home 'cursor home
Lcd Date$ ; " " ; Time$ 'show the date and time
Loop

'The clock routine does use the following internal variables:
'_day , _month, _year , _sec, _hour, _min
'These are all bytes. You can assign or use them directly
_day = 1
'For the _year variable only the year is stored, not the century
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

DATE$/de

2013-03-19T23:00:53Z

Stefanhamburg: /* Remarks */

= Funktion =

Interne Datums-Variable.

 

 

= Syntax =

DATE$ = "mm/dd/yy"

var = DATE$

 

 

= Anmerkungen =

Die DATE$ Variable wird in Kombination mit  [[CONFIG CLOCK|CONFIG CLOCK]] benutzt.

 

Der [[CONFIG CLOCK|CONFIG CLOCK]] Befehl erzeugt einen Interrupt der jede Sekunde auftritt. In dieser Interrupt-Routine werden die _Sec, _Min und _Hour Variablen aktualisiert. Die _dat, _month und _year Variablen werden ebenfalls aktualisiert. Das Datumsformat ist dasselbe wie in VB.

 

Wenn man der DATE$ Variablen eine Konstante oder eine andere Variable zuweist dann werden die _day, _month und _year Variablen auf das neue Datum gesetzt.

Der einzige Unterschied zu VB ist, dass alle Daten bei der Zuweisung des Datums gegeben werden müssen. Dafür benötigt man wenig Code. Natürlich kann man dieses Verhalten ändern.

 

[[File:Important.jpg|left|Important.jpg]] DATE$ sollte nicht mit der DATE-Funktion verwechselt werden!

 

= ASM =

The following ASM routines are called.

When assigning DATE$ : _set_date (calls _str2byte)

When reading DATE$ : _make_dt (calls _byte2str)

 

 

= See also =

[[TIME$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[DATE]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : megaclock.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows the new TIME$ and DATE$ reserved variables
'micro : Mega103
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'With the 8535 and timer2 or the Mega103 and TIMER0 you can
'easily implement a clock by attaching a 32768 Hz xtal to the timer
'And of course some BASCOM code

'This example is written for the STK300 with M103
Enable Interrupts

'[configure LCD]
$lcd = &HC000 'address for E and RS
$lcdrs = &H8000 'address for only E
Config Lcd = 20 * 4 'nice display from bg micro
Config Lcdbus = 4 'we run it in bus mode and I hooked up only db4-db7
Config Lcdmode = Bus 'tell about the bus mode

'[now init the clock]
Config Date = Mdy , Separator = / ' ANSI-Format

Config Clock = Soft 'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!
'For the M103 in this case it means that TIMER0 can not be used by the user anymore

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/00"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "02:20:00"

'---------------------------------------------------

'clear the LCD display
Cls

Do
Home 'cursor home
Lcd Date$ ; " " ; Time$ 'show the date and time
Loop

'The clock routine does use the following internal variables:
'_day , _month, _year , _sec, _hour, _min
'These are all bytes. You can assign or use them directly
_day = 1
'For the _year variable only the year is stored, not the century
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

DATE$/de

2013-03-19T22:48:29Z

Stefanhamburg: /* (**COPIED FROM ENGLISH PAGE**) = */

= Funktion =

Interne Datums-Variable.

 

 

= Syntax =

DATE$ = "mm/dd/yy"

var = DATE$

 

 

= Remarks =

The DATE$ variable is used in combination with the [[CONFIG CLOCK|CONFIG CLOCK]] directive.

 

The [[CONFIG CLOCK|CONFIG CLOCK]] statement will create an interrupt that occurs every second. In this interrupt routine the _Sec, _Minand _Hour variables are updated. The _dat, _month and _year variables are also updated. The date format is in the same format as in VB.

 

When you assign DATE$ to a string variable these variables are assigned to the DATE$ variable.

When you assign the DATE$ variable with a constant or other variable, the _day, _month and _year variables will be changed to the new date.

The only difference with VB is that all data must be provided when assigning the date. This is done for minimal code. You can change this behavior of course.

 

[[File:Important.jpg|left|Important.jpg]] Do not confuse DATE$ with the DATE function !

 

= ASM =

The following ASM routines are called.

When assigning DATE$ : _set_date (calls _str2byte)

When reading DATE$ : _make_dt (calls _byte2str)

 

 

= See also =

[[TIME$]] , [[CONFIG CLOCK|CONFIG CLOCK]] , [[DATE]]

 

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : megaclock.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows the new TIME$ and DATE$ reserved variables
'micro : Mega103
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'With the 8535 and timer2 or the Mega103 and TIMER0 you can
'easily implement a clock by attaching a 32768 Hz xtal to the timer
'And of course some BASCOM code

'This example is written for the STK300 with M103
Enable Interrupts

'[configure LCD]
$lcd = &HC000 'address for E and RS
$lcdrs = &H8000 'address for only E
Config Lcd = 20 * 4 'nice display from bg micro
Config Lcdbus = 4 'we run it in bus mode and I hooked up only db4-db7
Config Lcdmode = Bus 'tell about the bus mode

'[now init the clock]
Config Date = Mdy , Separator = / ' ANSI-Format

Config Clock = Soft 'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!
'For the M103 in this case it means that TIMER0 can not be used by the user anymore

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/00"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "02:20:00"

'---------------------------------------------------

'clear the LCD display
Cls

Do
Home 'cursor home
Lcd Date$ ; " " ; Time$ 'show the date and time
Loop

'The clock routine does use the following internal variables:
'_day , _month, _year , _sec, _hour, _min
'These are all bytes. You can assign or use them directly
_day = 1
'For the _year variable only the year is stored, not the century
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

CONFIG DATE/de

2013-03-19T22:46:38Z

Stefanhamburg: /* Example */

= Funktion =

Konfiguriert das Format des Datums-Strings für Eingabe und Ausgabe bei BASCOM Datumsfunktionen

 

 

= Syntax =

CONFIG DATE = DMY , Separator = char

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="488" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 79px; border: 1px solid rgb(0, 0, 0);" |
DMY

| valign="top" width="100%" style="width: 400px; border: 1px solid rgb(0, 0, 0);" |
Die Tag-Monat-Jahr-Reihenfolge. Benutzen Sie DMY, MDY oder YMD.

|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 79px; border: 1px solid rgb(0, 0, 0);" |
Char

| valign="top" width="100%" style="width: 400px; border: 1px solid rgb(0, 0, 0);" |
Das Zeichen, das als Trennzeichen zwischen Tag, Monat und Jahr benutzt werden soll.

 

Alte Syntax :  / , - oder . (Punkt).

 

Bevorzugte neue Syntax : MINUS, SLASH oder DOT.

 

Beispiel:

Config Date = DMY, SEPARATOR=MINUS

|}
</div>
 

Die folgende Tabelle zeigt die gebräuchlichsten Datumsformate und die entsprechenden Befehle.

 
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="27%" bgcolor="#ffff99" style="width: 161px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Country

| valign="top" width="26%" bgcolor="#ffff99" style="width: 155px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Format

| valign="top" width="67%" bgcolor="#ffff99" style="width: 281px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Statement

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
American

| valign="top" width="26%" style="width: 155px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
mm/dd/yy

| valign="top" width="67%" style="width: 281px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
Config Date = MDY, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
ANSI

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
yy.mm.dd

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = YMD, Separator = DOT

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Britisch/French

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd/mm/yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
German

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd.mm.yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = DOT

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Italian

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd-mm-yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = MINUS

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Japan/Taiwan

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
yy/mm/dd

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = YMD, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
USA

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
mm-dd-yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = MDY, Separator = MINUS

|}
</div>
 

 

In Holland würde man folgendes nutzen :

CONFIG DATE = DMY, separator = MINUS

Das würde 24-04-02 für den 24. November 2002 ausgeben.

 

In den USA würde man folgenden benutzen :

CONFIG DATE = MDY , separator = SLASH

Das würde 04/24/02 für den 24.November 2002 ausgeben.

 

 

= Siehe auch =

[[CONFIG_CLOCK|CONFIG CLOCK]] , [[DATETIME|DATE TIME functions]] , [[DayOfWeek]] , [[DayOfYear]] , [[SecOfDay]] , [[SecElapsed]] , [[SysDay]] , [[SysSec]] , [[SysSecElapsed]] , [[Time]] , [[Date]]

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : megaclock.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows the new TIME$ and DATE$ reserved variables
'micro : Mega103
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'With the 8535 and timer2 or the Mega103 and TIMER0 you can
'easily implement a clock by attaching a 32768 Hz xtal to the timer
'And of course some BASCOM code

'This example is written for the STK300 with M103
Enable Interrupts

'[configure LCD]
$lcd = &HC000 'address for E and RS
$lcdrs = &H8000 'address for only E
Config Lcd = 20 * 4 'nice display from bg micro
Config Lcdbus = 4 'we run it in bus mode and I hooked up only db4-db7
Config Lcdmode = Bus 'tell about the bus mode

'[now init the clock]
Config Date = Mdy , Separator = SLASH ' ANSI-Format

Config Clock = Soft 'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!
'For the M103 in this case it means that TIMER0 can not be used by the user anymore

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/00"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "02:20:00"

'---------------------------------------------------

'clear the LCD display
Cls

Do
Home 'cursor home
Lcd Date$ ; " " ; Time$ 'show the date and time
Loop

'The clock routine does use the following internal variables:
'_day , _month, _year , _sec, _hour, _min
'These are all bytes. You can assign or use them directly
_day = 1
'For the _year variable only the year is stored, not the century
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

CONFIG DATE/de

2013-03-19T22:45:01Z

Stefanhamburg: /* See also */

= Funktion =

Konfiguriert das Format des Datums-Strings für Eingabe und Ausgabe bei BASCOM Datumsfunktionen

 

 

= Syntax =

CONFIG DATE = DMY , Separator = char

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="488" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 79px; border: 1px solid rgb(0, 0, 0);" |
DMY

| valign="top" width="100%" style="width: 400px; border: 1px solid rgb(0, 0, 0);" |
Die Tag-Monat-Jahr-Reihenfolge. Benutzen Sie DMY, MDY oder YMD.

|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 79px; border: 1px solid rgb(0, 0, 0);" |
Char

| valign="top" width="100%" style="width: 400px; border: 1px solid rgb(0, 0, 0);" |
Das Zeichen, das als Trennzeichen zwischen Tag, Monat und Jahr benutzt werden soll.

 

Alte Syntax :  / , - oder . (Punkt).

 

Bevorzugte neue Syntax : MINUS, SLASH oder DOT.

 

Beispiel:

Config Date = DMY, SEPARATOR=MINUS

|}
</div>
 

Die folgende Tabelle zeigt die gebräuchlichsten Datumsformate und die entsprechenden Befehle.

 
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="27%" bgcolor="#ffff99" style="width: 161px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Country

| valign="top" width="26%" bgcolor="#ffff99" style="width: 155px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Format

| valign="top" width="67%" bgcolor="#ffff99" style="width: 281px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Statement

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
American

| valign="top" width="26%" style="width: 155px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
mm/dd/yy

| valign="top" width="67%" style="width: 281px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
Config Date = MDY, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
ANSI

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
yy.mm.dd

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = YMD, Separator = DOT

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Britisch/French

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd/mm/yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
German

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd.mm.yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = DOT

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Italian

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd-mm-yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = MINUS

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Japan/Taiwan

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
yy/mm/dd

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = YMD, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
USA

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
mm-dd-yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = MDY, Separator = MINUS

|}
</div>
 

 

In Holland würde man folgendes nutzen :

CONFIG DATE = DMY, separator = MINUS

Das würde 24-04-02 für den 24. November 2002 ausgeben.

 

In den USA würde man folgenden benutzen :

CONFIG DATE = MDY , separator = SLASH

Das würde 04/24/02 für den 24.November 2002 ausgeben.

 

 

= Siehe auch =

[[CONFIG_CLOCK|CONFIG CLOCK]] , [[DATETIME|DATE TIME functions]] , [[DayOfWeek]] , [[DayOfYear]] , [[SecOfDay]] , [[SecElapsed]] , [[SysDay]] , [[SysSec]] , [[SysSecElapsed]] , [[Time]] , [[Date]]

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : megaclock.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows the new TIME$ and DATE$ reserved variables
'micro : Mega103
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'With the 8535 and timer2 or the Mega103 and TIMER0 you can
'easily implement a clock by attaching a 32768 Hz xtal to the timer
'And of course some BASCOM code

'This example is written for the STK300 with M103
Enable Interrupts

'[configure LCD]
$lcd = &HC000 'address for E and RS
$lcdrs = &H8000 'address for only E
Config Lcd = 20 * 4 'nice display from bg micro
Config Lcdbus = 4 'we run it in bus mode and I hooked up only db4-db7
Config Lcdmode = Bus 'tell about the bus mode

'[now init the clock]
Config Date = Mdy , Separator = SLASH ' ANSI-Format

Config Clock = Soft 'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!
'For the M103 in this case it means that TIMER0 can not be used by the user anymore

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/00"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "02:20:00"

'---------------------------------------------------

'clear the LCD display
Cls

Do
Home 'cursor home
Lcd Date$ ; " " ; Time$ 'show the date and time
Loop

'The clock routine does use the following internal variables:
'_day , _month, _year , _sec, _hour, _min
'These are all bytes. You can assign or use them directly
_day = 1
'For the _year variable only the year is stored, not the century
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

CONFIG DATE/de

2013-03-19T22:44:34Z

Stefanhamburg: /* Remarks */

= Funktion =

Konfiguriert das Format des Datums-Strings für Eingabe und Ausgabe bei BASCOM Datumsfunktionen

 

 

= Syntax =

CONFIG DATE = DMY , Separator = char

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="488" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 79px; border: 1px solid rgb(0, 0, 0);" |
DMY

| valign="top" width="100%" style="width: 400px; border: 1px solid rgb(0, 0, 0);" |
Die Tag-Monat-Jahr-Reihenfolge. Benutzen Sie DMY, MDY oder YMD.

|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 79px; border: 1px solid rgb(0, 0, 0);" |
Char

| valign="top" width="100%" style="width: 400px; border: 1px solid rgb(0, 0, 0);" |
Das Zeichen, das als Trennzeichen zwischen Tag, Monat und Jahr benutzt werden soll.

 

Alte Syntax :  / , - oder . (Punkt).

 

Bevorzugte neue Syntax : MINUS, SLASH oder DOT.

 

Beispiel:

Config Date = DMY, SEPARATOR=MINUS

|}
</div>
 

Die folgende Tabelle zeigt die gebräuchlichsten Datumsformate und die entsprechenden Befehle.

 
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="27%" bgcolor="#ffff99" style="width: 161px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Country

| valign="top" width="26%" bgcolor="#ffff99" style="width: 155px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Format

| valign="top" width="67%" bgcolor="#ffff99" style="width: 281px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Statement

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
American

| valign="top" width="26%" style="width: 155px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
mm/dd/yy

| valign="top" width="67%" style="width: 281px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
Config Date = MDY, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
ANSI

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
yy.mm.dd

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = YMD, Separator = DOT

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Britisch/French

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd/mm/yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
German

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd.mm.yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = DOT

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Italian

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd-mm-yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = MINUS

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Japan/Taiwan

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
yy/mm/dd

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = YMD, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
USA

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
mm-dd-yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = MDY, Separator = MINUS

|}
</div>
 

 

In Holland würde man folgendes nutzen :

CONFIG DATE = DMY, separator = MINUS

Das würde 24-04-02 für den 24. November 2002 ausgeben.

 

In den USA würde man folgenden benutzen :

CONFIG DATE = MDY , separator = SLASH

Das würde 04/24/02 für den 24.November 2002 ausgeben.

 

 

= See also =

[[CONFIG_CLOCK|CONFIG CLOCK]] , [[DATETIME|DATE TIME functions]] , [[DayOfWeek]] , [[DayOfYear]] , [[SecOfDay]] , [[SecElapsed]] , [[SysDay]] , [[SysSec]] , [[SysSecElapsed]] , [[Time]] , [[Date]]

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : megaclock.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows the new TIME$ and DATE$ reserved variables
'micro : Mega103
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'With the 8535 and timer2 or the Mega103 and TIMER0 you can
'easily implement a clock by attaching a 32768 Hz xtal to the timer
'And of course some BASCOM code

'This example is written for the STK300 with M103
Enable Interrupts

'[configure LCD]
$lcd = &HC000 'address for E and RS
$lcdrs = &H8000 'address for only E
Config Lcd = 20 * 4 'nice display from bg micro
Config Lcdbus = 4 'we run it in bus mode and I hooked up only db4-db7
Config Lcdmode = Bus 'tell about the bus mode

'[now init the clock]
Config Date = Mdy , Separator = SLASH ' ANSI-Format

Config Clock = Soft 'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!
'For the M103 in this case it means that TIMER0 can not be used by the user anymore

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/00"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "02:20:00"

'---------------------------------------------------

'clear the LCD display
Cls

Do
Home 'cursor home
Lcd Date$ ; " " ; Time$ 'show the date and time
Loop

'The clock routine does use the following internal variables:
'_day , _month, _year , _sec, _hour, _min
'These are all bytes. You can assign or use them directly
_day = 1
'For the _year variable only the year is stored, not the century
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

CONFIG DATE/de

2013-03-19T22:35:51Z

Stefanhamburg: /* (**COPIED FROM ENGLISH PAGE**) = */

= Funktion =

Konfiguriert das Format des Datums-Strings für Eingabe und Ausgabe bei BASCOM Datumsfunktionen

 

 

= Syntax =

CONFIG DATE = DMY , Separator = char

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="488" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 79px; border: 1px solid rgb(0, 0, 0);" |
DMY

| valign="top" width="100%" style="width: 400px; border: 1px solid rgb(0, 0, 0);" |
The Day, month and year order. Use DMY, MDY or YMD.

|- style="vertical-align: top;"
| valign="top" width="17%" style="width: 79px; border: 1px solid rgb(0, 0, 0);" |
Char

| valign="top" width="100%" style="width: 400px; border: 1px solid rgb(0, 0, 0);" |
The character used to separate the day, month and year.

 

Old syntax :  / , - or . (dot).

 

Preferred new syntax : MINUS, SLASH or DOT.

 

Example:

Config Date = DMY, SEPARATOR=MINUS

|}
</div>
 

The following table shows the common formats of date and the associated statements.

 
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="27%" bgcolor="#ffff99" style="width: 161px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Country

| valign="top" width="26%" bgcolor="#ffff99" style="width: 155px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Format

| valign="top" width="67%" bgcolor="#ffff99" style="width: 281px; background-color: rgb(255, 255, 153); border: 1px solid rgb(0, 0, 0);" |
Statement

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
American

| valign="top" width="26%" style="width: 155px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
mm/dd/yy

| valign="top" width="67%" style="width: 281px; height: 32px; border: 1px solid rgb(0, 0, 0);" |
Config Date = MDY, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
ANSI

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
yy.mm.dd

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = YMD, Separator = DOT

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Britisch/French

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd/mm/yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
German

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd.mm.yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = DOT

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Italian

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
dd-mm-yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = DMY, Separator = MINUS

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
Japan/Taiwan

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
yy/mm/dd

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = YMD, Separator = SLASH

|- style="vertical-align: top;"
| valign="top" width="27%" style="width: 161px; border: 1px solid rgb(0, 0, 0);" |
USA

| valign="top" width="26%" style="width: 155px; border: 1px solid rgb(0, 0, 0);" |
mm-dd-yy

| valign="top" width="67%" style="width: 281px; border: 1px solid rgb(0, 0, 0);" |
Config Date = MDY, Separator = MINUS

|}
</div>
 

 

When you live in Holland you would use :

CONFIG DATE = DMY, separator = MINUS

This would print 24-04-02 for 24 November 2002.

 

When you line in the US, you would use :

CONFIG DATE = MDY , separator = SLASH

This would print 04/24/02 for 24 November 2002.

 

 

= See also =

[[CONFIG_CLOCK|CONFIG CLOCK]] , [[DATETIME|DATE TIME functions]] , [[DayOfWeek]] , [[DayOfYear]] , [[SecOfDay]] , [[SecElapsed]] , [[SysDay]] , [[SysSec]] , [[SysSecElapsed]] , [[Time]] , [[Date]]

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : megaclock.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : shows the new TIME$ and DATE$ reserved variables
'micro : Mega103
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

'With the 8535 and timer2 or the Mega103 and TIMER0 you can
'easily implement a clock by attaching a 32768 Hz xtal to the timer
'And of course some BASCOM code

'This example is written for the STK300 with M103
Enable Interrupts

'[configure LCD]
$lcd = &HC000 'address for E and RS
$lcdrs = &H8000 'address for only E
Config Lcd = 20 * 4 'nice display from bg micro
Config Lcdbus = 4 'we run it in bus mode and I hooked up only db4-db7
Config Lcdmode = Bus 'tell about the bus mode

'[now init the clock]
Config Date = Mdy , Separator = SLASH ' ANSI-Format

Config Clock = Soft 'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!
'For the M103 in this case it means that TIMER0 can not be used by the user anymore

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/00"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "02:20:00"

'---------------------------------------------------

'clear the LCD display
Cls

Do
Home 'cursor home
Lcd Date$ ; " " ; Time$ 'show the date and time
Loop

'The clock routine does use the following internal variables:
'_day , _month, _year , _sec, _hour, _min
'These are all bytes. You can assign or use them directly
_day = 1
'For the _year variable only the year is stored, not the century
End
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

DATETIME/de

2013-03-18T23:21:26Z

Stefanhamburg:

Die DateTime Library wurde erstellt von Josef Franz Vögel. Sie erweitert die Clock-Routinen um Datums- und Zeitberechnungen.

 

 

Die folgenden Funktonen sind verfügbar:

 
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="125" style="width: 125px; border: 1px solid rgb(0, 0, 0);" |
[[DAYOFWEEK|DayOfWeek]]

| valign="top" width="835" style="width: 835px; border: 1px solid rgb(0, 0, 0);" |
Gibt den Wochentag zurück

|- style="vertical-align: top;"
| valign="top" width="125" style="width: 125px; border: 1px solid rgb(0, 0, 0);" |
[[DAYOFYEAR|DayOfYear]]

| valign="top" width="835" style="width: 835px; border: 1px solid rgb(0, 0, 0);" |
Gibt den Tag im Jahr zurück

|- style="vertical-align: top;"
| valign="top" width="125" style="width: 125px; border: 1px solid rgb(0, 0, 0);" |
[[SECOFDAY|SecOfDay]]

| valign="top" width="835" style="width: 835px; border: 1px solid rgb(0, 0, 0);" |
Gibt die Tagessekunde zurück

|- style="vertical-align: top;"
| valign="top" width="125" style="width: 125px; border: 1px solid rgb(0, 0, 0);" |
[[SECELAPSED|SecElapsed]]

| valign="top" width="835" style="width: 835px; border: 1px solid rgb(0, 0, 0);" |
Gibt die verstrichenen Sekunden seit einem vorher zugewiesenen Zeitstempel zurück

|- style="vertical-align: top;"
| valign="top" width="125" style="width: 125px; border: 1px solid rgb(0, 0, 0);" |
[[SYSDAY|SysDay]]

| valign="top" width="835" style="width: 835px; border: 1px solid rgb(0, 0, 0);" |
Gibt den Systemtag zurück

|- style="vertical-align: top;"
| valign="top" width="125" style="width: 125px; border: 1px solid rgb(0, 0, 0);" |
[[SYSSEC|SysSec]]

| valign="top" width="835" style="width: 835px; border: 1px solid rgb(0, 0, 0);" |
Gibt die Systemsekunde zurück

|- style="vertical-align: top;"
| valign="top" width="125" style="width: 125px; height: 16px; border: 1px solid rgb(0, 0, 0);" |
[[SYSSECELAPSED|SysSecElapsed]]

| valign="top" width="835" style="width: 835px; height: 16px; border: 1px solid rgb(0, 0, 0);" |
Gibt die verstrichenen Sekunden seit einem Zeitstempel zurück

|- style="vertical-align: top;"
| valign="top" width="125" style="width: 125px; border: 1px solid rgb(0, 0, 0);" |
[[TIME|Time]]

| valign="top" width="835" style="width: 835px; border: 1px solid rgb(0, 0, 0);" |
Gibt einen Zeit-Wert zurück (String oder 3 Byte für Sekunde, Minute und Stunde) in Abhängigkeit des Zieldatentyps

|- style="vertical-align: top;"
| valign="top" width="125" style="width: 125px; border: 1px solid rgb(0, 0, 0);" |
[[DATE|Date]]

| valign="top" width="835" style="width: 835px; border: 1px solid rgb(0, 0, 0);" |
Gibt einen Datums-Wert zurück (String oder 3 Bytes für Tag, Monat und Jahr) abhängig vom Zieldatentyp.

|}
</div>
 

 

[[File:Notice.jpg|notice]] Date und time sollten nicht verwechselt werden mit Date$ und Time$ !

 

 

= Siehe auch =

[[CONFIG CLOCK|config clock]], [[CONFIG DATE|config date]]

 {{Languages}}

[[Category:DATE_TIME/de]]

DAYOFWEEK/de

2013-03-18T23:05:10Z

Stefanhamburg: /* Example */

= Funktion =

Gibt den Wochentag für ein Datum zurück.

 

 

= Syntax =

Target = DayOfWeek()

Target = DayOfWeek(bDayMonthYear)

Target = DayOfWeek(strDate)

Target = DayOfWeek(wSysDay)

Target = DayOfWeek(lSysSec)

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
Target

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Bytevariable der die Nummer des Wochentags zugewiesen wird.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
BDayMonthYear

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Bytevariable, die den Tag enthält - gefolgt vom Monat (Byte) und Jahr (Byte)

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
StrDate

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
String der das Datum als Zeichenkette enthält im Format wie im CONFIG DATE Befehl beschreiben.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
WSysDay

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Wordvariable die den Systemtag (SysDay) enthält.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
LSysSec

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Longvariable die die Systemsekunde (SysSec) enthält.

|}
</div>
 

 

Die Funktion kann mit fünf verschiedenen Arten von Input benutzt werden:

 
<div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 1.
| Ohne Parameter. Die internen Werte der SOFTCLOCK (_day, _month, _year) werden benutzt.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 2.
| Mit einem benutzerdefinierten Array. Dieses muss in derselben Art angeordnet sein (Day, Month, Year) wie das interne SOFTCLOCK-Datum. Das erste Byte (Day) ist der Eingabewert bei dieser Art der Benutzung. Auf diese Weise kann der Wochentag für jedes Daum berechnet werden.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 3.
| Mit einem Datums-String. Der Datums-String muss im selben Format wie im CONFIG DATE Befehl angegeben werden.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 4.
| Mit einer Systemtag-Zahl.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 5.
| Mit einer Systemsekunden-Zahl.
|}
</div>
 

 

Der Rückgabewert ist im Bereich 0 bis 6 wobei dem Montag eine 0 entspricht.

 

Die Funktion funktioniert im 21. Jahrhundert(von 1.1.2000 bis 31.12.2099).

 

 

= Siehe auch =

[[DATETIME|Date and Time routines]] , [[CONFIG DATE|CONFIG DATE]] , [[CONFIG CLOCK|CONFIG CLOCK]], [[SYSDAY]], [[SYSSEC]]

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : datetime_test1.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : show how to use the Date-Time routines from the DateTime.Lib
'micro : Mega103
'suited for demo : no
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Const Clockmode = 1
'use i2c for the clock

#if Clockmode = 1
Config Clock = Soft ' Interne Softclock benutzen
Disable Interrupts
#else
Config Clock = User ' I2C Clock benutzen
'scl und sda Pins definieren
Config Sda = Portd.6
Config Scl = Portd.5

'Addresse des ds1307
Const Ds1307w = &HD0 ' Addressen der Ds1307 Clock
Const Ds1307r = &HD1
#endif

'DAtumsformat konfigurieren
Config Date = Ymd , Separator = - ' ANSI-Format
'Dieses Beispiel startet die Clock nicht. Die Interrupts werden nicht enabled
' Enable Interrupts

'VAriablen dimensionieren
Dim Lvar1 As Long
Dim Mday As Byte
Dim Bweekday As Byte , Strweekday As String * 10
Dim Strdate As String * 8
Dim Strtime As String * 8
Dim Bsec As Byte , Bmin As Byte , Bhour As Byte
Dim Bday As Byte , Bmonth As Byte , Byear As Byte
Dim Lsecofday As Long
Dim Wsysday As Word
Dim Lsyssec As Long
Dim Wdayofyear As Word

' =================== DayOfWeek =============================================
' Beispiel 1 mit interner RTC-Clock

_day = 4 : _month = 11 : _year = 2 ' Beispielwerte zuweisen
Bweekday = Dayofweek()
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Wochentag von " ; Date$ ; " ist " ; Bweekday ; " = " ; Strweekday

' Beispiel 2 mit benutzerdefinierten Clock-Bytes (Day / Month / Year)
Bday = 26 : Bmonth = 11 : Byear = 2
Bweekday = Dayofweek(bday)
Strweekday = Lookupstr(bweekday , Weekdays)
Strdate = Date(bday)
Print "Wochentag von Tag=" ; Bday ; " Monat=" ; Bmonth ; " Jahr=" ; Byear ; " ist " ; Bweekday ; " (" ; Date(bday) ; ") = " ; Strweekday

' Beispiel 3 mit Systemtag
Wsysday = 2000 ' das ist der 23.6.2005
Bweekday = Dayofweek(wsysday)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Wochentag von Systemtag " ; Wsysday ; " (" ; Date(wsysday) ; ") ist " ; Bweekday ; " = " ; Strweekday

' Beispiel 4 mit Systemsekunde
Lsyssec = 123456789 ' das ist 29.11.2003 um 21:33:09
Bweekday = Dayofweek(lsyssec)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Wochentag von Systemsekunde " ; Lsyssec ; " (" ; Date(lsyssec) ; ") ist " ; Bweekday ; " = " ; Strweekday

' Beispiel 5 mit Datums-String
Strdate = "04-11-02" ' wir haben das Datum im ANSI-Format definiert
Bweekday = Dayofweek(strdate)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Wochentag von" ; Strdate ; " ist " ; Bweekday ; " = " ; Strweekday

' ================= Second of Day =============================================
' Beispiel 1 mit interner RTC-Clock
_sec = 12 : _min = 30 : _hour = 18 ' Interne Clockwerte zuweisen

Lsecofday = Secofday()
Print "Sekunde des Tages von " ; Time$ ; " ist " ; Lsecofday

' Beispiel 2 mit benutzerdefinierter Clock - Bytes (Second / Minute / Hour)
Bsec = 20 : Bmin = 1 : Bhour = 7
Lsecofday = Secofday(bsec)
Print "Second of Day von Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(bsec) ; ") ist " ; Lsecofday

' Beispiel 3 mit Systemsekunde
Lsyssec = 1234456789
Lsecofday = Secofday(lsyssec)
Print "Second of Day von Systemsekunde " ; Lsyssec ; "(" ; Time(lsyssec) ; ") ist " ; Lsecofday

' Beispiel 4 mit Zeit-String
Strtime = "04:58:37"
Lsecofday = Secofday(strtime)
Print "Second of Day von " ; Strtime ; " ist " ; Lsecofday

' ================== System Second ============================================

' Beispiel 1 mit interner RTC-Clock
' Testwerte zuweisen
_sec = 17 : _min = 35 : _hour = 8 : _day = 16 : _month = 4 : _year = 3

Lsyssec = Syssec()
Print "Systemsekunde von " ; Time$ ; " at " ; Date$ ; " ist " ; Lsyssec

' Beispiel 2 wmit benutzerdefinierten Clock-Bytes (Second, Minute, Hour, Day / Month / Year)
Bsec = 20 : Bmin = 1 : Bhour = 7 : Bday = 22 : Bmonth = 12 : Byear = 1
Lsyssec = Syssec(bsec)
Strtime = Time(bsec)
Strdate = Date(bday)
Print "Systemsekunde von" ; Strtime ; " at " ; Strdate ; " ist " ; Lsyssec

' Beispiel 3 mit Systemtag

Wsysday = 2000
Lsyssec = Syssec(wsysday)
Print "Systemsekunde von System Day " ; Wsysday ; " (" ; Date(wsysday) ; " 00:00:00) ist " ; Lsyssec

' Beispiel 4 mit Time- und Date-String
Strtime = "10:23:50"
Strdate = "02-11-29" ' ANSI-Datum
Lsyssec = Syssec(strtime , Strdate)
Print "System Second von " ; Strtime ; " am " ; Strdate ; " ist " ; Lsyssec ' 91880630

' ==================== Day Of Year =========================================
' Beispiel 1 mit interner RTC-Clock
_day = 20 : _month = 11 : _year = 2 ' Testwerte zuweisen
Wdayofyear = Dayofyear()
Print "Day Of Year of " ; Date$ ; " is " ; Wdayofyear

' Beispiel 2 mit benutzerdefinierten Clock-Bytes (Day / Month / Year)
Bday = 24 : Bmonth = 5 : Byear = 8
Wdayofyear = Dayofyear(bday)
Print "Day Of Year von Tag=" ; Bday ; " Monat=" ; Bmonth ; " Jahr=" ; Byear ; " (" ; Date(bday) ; ") ist " ; Wdayofyear

' Beispiel 3 mit Datums-String
Strdate = "04-10-29" ' ANSI-Format
Wdayofyear = Dayofyear(strdate)
Print "Day Of Year von " ; Strdate ; " ist " ; Wdayofyear

' Beispiel 4 mit Systemsekunde

Lsyssec = 123456789
Wdayofyear = Dayofyear(lsyssec)
Print "Day Of Year von Systemsekunde " ; Lsyssec ; " (" ; Date(lsyssec) ; ") ist " ; Wdayofyear

' Beispiel 5 mit System Day (Systemtag)
Wsysday = 3000
Wdayofyear = Dayofyear(wsysday)
Print "Day Of Year von Systemtag " ; Wsysday ; " (" ; Date(wsysday) ; ") ist " ; Wdayofyear

' =================== System Day ======================================
' Beispiel 1 mit internaer RTC-Clock
_day = 20 : _month = 11 : _year = 2 ' Testwerte zuweisen
Wsysday = Sysday()
Print "System Day of " ; Date$ ; " is " ; Wsysday

' Beispiel 2 mit benutzerdefinierten Clock-Bytes (Day / Month / Year)
Bday = 24 : Bmonth = 5 : Byear = 8
Wsysday = Sysday(bday)
Print "System Day von Tag=" ; Bday ; " Monat=" ; Bmonth ; " Jahr=" ; Byear ; " (" ; Date(bday) ; ") ist " ; Wsysday

' Beispiel 3 mit Date-String
Strdate = "04-10-29"
Wsysday = Sysday(strdate)
Print "System Day von " ; Strdate ; " ist " ; Wsysday

' Beispiel 4 mit Systemsekunde
Lsyssec = 123456789
Wsysday = Sysday(lsyssec)
Print "System Day von Systemsekunde " ; Lsyssec ; " (" ; Date(lsyssec) ; ") ist " ; Wsysday

' =================== Time ================================================
' Beispiel 1: Umwandlung benutzerdefinierter Clock-Bytes (Second / Minute / Hour) zu Time-String
Bsec = 20 : Bmin = 1 : Bhour = 7
Strtime = Time(bsec)
Print "Time values: Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " umgewandelt zu String " ; Strtime

' Beispiel 2: Umwandlung Systemsekunde zu Time-String
Lsyssec = 123456789
Strtime = Time(lsyssec)
Print "Time of Systemsecond " ; Lsyssec ; " is " ; Strtime

' Beispiel 3: Umwandlung Second of Day zu Time-String
Lsecofday = 12345
Strtime = Time(lsecofday)
Print "Time von Second of Day " ; Lsecofday ; " ist " ; Strtime

' Beispiel 4: Umwandlung System Second zu benutzerdefinierten Clock-Bytes (Second / Minute / Hour)

Lsyssec = 123456789
Bsec = Time(lsyssec)
Print "System Second " ; Lsyssec ; " umgewandelt zu Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(lsyssec) ; ")"

' Beispiel 5: Umwandlung Second of Day zu benutzerdefinierten Clock-Bytes (Second / Minute / Hour)
Lsecofday = 12345
Bsec = Time(lsecofday)
Print "Second of Day " ; Lsecofday ; " umgewandelt zu Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(lsecofday) ; ")"

' Beispiel 6: Umwandlung Time-string zu benutzerdefinierten Clock-Bytes (Second / Minute / Hour)
Strtime = "07:33:12"
Bsec = Time(strtime)
Print "Time " ; Strtime ; " umgewandelt zu Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour

' ============================= Date ==========================================

' Beispiel 1: Umwandlung benutzerdefinierter Clock-Bytes (Day / Month / Year) zu Date-String
Bday = 29 : Bmonth = 4 : Byear = 12
Strdate = Date(bday)
Print "Datumswerte: Tag=" ; Bday ; " Monat=" ; Bmonth ; " Jahr=" ; Byear ; " umgewandelt zu String " ; Strdate

' Beispiel 2: Umwandlung von Systemtag zu Dat- String
Wsysday = 1234
Strdate = Date(wsysday)
Print "System Day " ; Wsysday ; " ist " ; Strdate

' Beispiel 3: Umwandlung von Systemsekunde zu Date-String
Lsyssec = 123456789
Strdate = Date(lsyssec)
Print "Systemsekunde " ; Lsyssec ; " ist " ; Strdate

' Beispiel 4: Umwandlung SystemDay zu benutzerdefinierten Clock-Bytes (Day / Month / Year)

Wsysday = 2000
Bday = Date(wsysday)
Print "Systemtag " ; Wsysday ; " umgewandelt zu Tag=" ; Bday ; " Monat=" ; Bmonth ; " Jahr=" ; Byear ; " (" ; Date(wsysday) ; ")"

' Beispiel 5: Umwandlung Date-String zu benutzerdefinierten Clock-Bytes (Day / Month / Year)
Strdate = "04-08-31"
Bday = Date(strdate)
Print "Datum " ; Strdate ; " umgewandelt zu Tag=" ; Bday ; " Monat=" ; Bmonth ; " Jahr=" ; Byear

' Beispiel 6: Umwandlung Systemsekunde zu benutzerdefinierten Clock-Bytes (Day / Month / Year)
Lsyssec = 123456789
Bday = Date(lsyssec)
Print "Systemsekunde " ; Lsyssec ; " umgewandelt zu Tag=" ; Bday ; " Monat=" ; Bmonth ; " Jahr=" ; Byear ; " (" ; Date(lsyssec) ; ")"

' ================ Second of Day elapsed

Lsecofday = Secofday()
_hour = _hour + 1
Lvar1 = Secelapsed(lsecofday)
Print Lvar1

Lsyssec = Syssec()
_day = _day + 1
Lvar1 = Syssecelapsed(lsyssec)
Print Lvar1

Looptest:

' Testwerte
_day = 1
_month = 1
_year = 1
_sec = 12
_min = 13
_hour = 14

Do
If _year > 50 Then
Exit Do
End If

_sec = _sec + 7
If _sec > 59 Then
Incr _min
_sec = _sec - 60
End If

_min = _min + 2
If _min > 59 Then
Incr _hour
_min = _min - 60
End If

_hour = _hour + 1
If _hour > 23 Then
Incr _day
_hour = _hour - 24
End If

_day = _day + 1

If _day > 28 Then
Select Case _month
Case 1
Mday = 31
Case 2
Mday = _year And &H03
If Mday = 0 Then
Mday = 29
Else
Mday = 28
End If
Case 3
Mday = 31
Case 4
Mday = 30
Case 5
Mday = 31
Case 6
Mday = 30
Case 7
Mday = 31
Case 8
Mday = 31
Case 9
Mday = 30
Case 10
Mday = 31
Case 11
Mday = 30
Case 12
Mday = 31
End Select
If _day > Mday Then
_day = _day - Mday
Incr _month
If _month > 12 Then
_month = 1
Incr _year
End If
End If
End If
If _year > 99 Then
Exit Do
End If

Lsecofday = Secofday()
Lsyssec = Syssec()
Bweekday = Dayofweek()
Wdayofyear = Dayofyear()
Wsysday = Sysday()

Print Time$ ; " " ; Date$ ; " " ; Lsecofday ; " " ; Lsyssec ; " " ; Bweekday ; " " ; Wdayofyear ; " " ; Wsysday

Loop
End

'only when we use I2C for the clock we need to set the clock date time
#if Clockmode = 0
'called from datetime.lib
Dim Weekday As Byte
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307

I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte _day , Ack ' Day of Month
I2crbyte _month , Ack ' Month of Year
I2crbyte _year , Nack ' Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

#endif

Weekdays:
Data "Montag" , "Dienstag" , "Mittwoch" , "Donnerstag" , "Freitag" , "Sonnabend" , "Sonntag"
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

DAYOFWEEK/de

2013-03-18T22:16:22Z

Stefanhamburg: /* See Also */

= Funktion =

Gibt den Wochentag für ein Datum zurück.

 

 

= Syntax =

Target = DayOfWeek()

Target = DayOfWeek(bDayMonthYear)

Target = DayOfWeek(strDate)

Target = DayOfWeek(wSysDay)

Target = DayOfWeek(lSysSec)

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
Target

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Bytevariable der die Nummer des Wochentags zugewiesen wird.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
BDayMonthYear

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Bytevariable, die den Tag enthält - gefolgt vom Monat (Byte) und Jahr (Byte)

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
StrDate

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
String der das Datum als Zeichenkette enthält im Format wie im CONFIG DATE Befehl beschreiben.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
WSysDay

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Wordvariable die den Systemtag (SysDay) enthält.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
LSysSec

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Longvariable die die Systemsekunde (SysSec) enthält.

|}
</div>
 

 

Die Funktion kann mit fünf verschiedenen Arten von Input benutzt werden:

 
<div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 1.
| Ohne Parameter. Die internen Werte der SOFTCLOCK (_day, _month, _year) werden benutzt.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 2.
| Mit einem benutzerdefinierten Array. Dieses muss in derselben Art angeordnet sein (Day, Month, Year) wie das interne SOFTCLOCK-Datum. Das erste Byte (Day) ist der Eingabewert bei dieser Art der Benutzung. Auf diese Weise kann der Wochentag für jedes Daum berechnet werden.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 3.
| Mit einem Datums-String. Der Datums-String muss im selben Format wie im CONFIG DATE Befehl angegeben werden.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 4.
| Mit einer Systemtag-Zahl.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 5.
| Mit einer Systemsekunden-Zahl.
|}
</div>
 

 

Der Rückgabewert ist im Bereich 0 bis 6 wobei dem Montag eine 0 entspricht.

 

Die Funktion funktioniert im 21. Jahrhundert(von 1.1.2000 bis 31.12.2099).

 

 

= Siehe auch =

[[DATETIME|Date and Time routines]] , [[CONFIG DATE|CONFIG DATE]] , [[CONFIG CLOCK|CONFIG CLOCK]], [[SYSDAY]], [[SYSSEC]]

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : datetime_test1,bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : show how to use the Date-Time routines from the DateTime.Lib
'micro : Mega103
'suited for demo : no
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Const Clockmode = 1
'use i2c for the clock

#if Clockmode = 1
Config Clock = Soft ' we use build in clock
Disable Interrupts
#else
Config Clock = User ' we use I2C for the clock
'configure the scl and sda pins
Config Sda = Portd.6
Config Scl = Portd.5

'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
#endif

'configure the date format
Config Date = Ymd , Separator = - ' ANSI-Format
'This sample does not have the clock started so interrupts are not enabled
' Enable Interrupts

'dim the used variables
Dim Lvar1 As Long
Dim Mday As Byte
Dim Bweekday As Byte , Strweekday As String * 10
Dim Strdate As String * 8
Dim Strtime As String * 8
Dim Bsec As Byte , Bmin As Byte , Bhour As Byte
Dim Bday As Byte , Bmonth As Byte , Byear As Byte
Dim Lsecofday As Long
Dim Wsysday As Word
Dim Lsyssec As Long
Dim Wdayofyear As Word

' =================== DayOfWeek =============================================
' Example 1 with internal RTC-Clock

_day = 4 : _month = 11 : _year = 2 ' Load RTC-Clock for example - testing
Bweekday = Dayofweek()
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of " ; Date$ ; " is " ; Bweekday ; " = " ; Strweekday

' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 26 : Bmonth = 11 : Byear = 2
Bweekday = Dayofweek(bday)
Strweekday = Lookupstr(bweekday , Weekdays)
Strdate = Date(bday)
Print "Weekday-Number of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " is " ; Bweekday ; " (" ; Date(bday) ; ") = " ; Strweekday

' Example 3 with System Day
Wsysday = 2000 ' that is 2005-06-23
Bweekday = Dayofweek(wsysday)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of System Day " ; Wsysday ; " (" ; Date(wsysday) ; ") is " ; Bweekday ; " = " ; Strweekday

' Example 4 with System Second
Lsyssec = 123456789 ' that is 2003-11-29 at 21:33:09
Bweekday = Dayofweek(lsyssec)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of System Second " ; Lsyssec ; " (" ; Date(lsyssec) ; ") is " ; Bweekday ; " = " ; Strweekday

' Example 5 with Date-String
Strdate = "04-11-02" ' we have configured Date in ANSI
Bweekday = Dayofweek(strdate)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of " ; Strdate ; " is " ; Bweekday ; " = " ; Strweekday

' ================= Second of Day =============================================
' Example 1 with internal RTC-Clock
_sec = 12 : _min = 30 : _hour = 18 ' Load RTC-Clock for example - testing

Lsecofday = Secofday()
Print "Second of Day of " ; Time$ ; " is " ; Lsecofday

' Example 2 with defined Clock - Bytes (Second / Minute / Hour)
Bsec = 20 : Bmin = 1 : Bhour = 7
Lsecofday = Secofday(bsec)
Print "Second of Day of Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(bsec) ; ") is " ; Lsecofday

' Example 3 with System Second
Lsyssec = 1234456789
Lsecofday = Secofday(lsyssec)
Print "Second of Day of System Second " ; Lsyssec ; "(" ; Time(lsyssec) ; ") is " ; Lsecofday

' Example 4 with Time - String
Strtime = "04:58:37"
Lsecofday = Secofday(strtime)
Print "Second of Day of " ; Strtime ; " is " ; Lsecofday

' ================== System Second ============================================

' Example 1 with internal RTC-Clock
' Load RTC-Clock for example - testing
_sec = 17 : _min = 35 : _hour = 8 : _day = 16 : _month = 4 : _year = 3

Lsyssec = Syssec()
Print "System Second of " ; Time$ ; " at " ; Date$ ; " is " ; Lsyssec

' Example 2 with with defined Clock - Bytes (Second, Minute, Hour, Day / Month / Year)
Bsec = 20 : Bmin = 1 : Bhour = 7 : Bday = 22 : Bmonth = 12 : Byear = 1
Lsyssec = Syssec(bsec)
Strtime = Time(bsec)
Strdate = Date(bday)
Print "System Second of " ; Strtime ; " at " ; Strdate ; " is " ; Lsyssec

' Example 3 with System Day

Wsysday = 2000
Lsyssec = Syssec(wsysday)
Print "System Second of System Day " ; Wsysday ; " (" ; Date(wsysday) ; " 00:00:00) is " ; Lsyssec

' Example 4 with Time and Date String
Strtime = "10:23:50"
Strdate = "02-11-29" ' ANSI-Date
Lsyssec = Syssec(strtime , Strdate)
Print "System Second of " ; Strtime ; " at " ; Strdate ; " is " ; Lsyssec ' 91880630

' ==================== Day Of Year =========================================
' Example 1 with internal RTC-Clock
_day = 20 : _month = 11 : _year = 2 ' Load RTC-Clock for example - testing
Wdayofyear = Dayofyear()
Print "Day Of Year of " ; Date$ ; " is " ; Wdayofyear

' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 24 : Bmonth = 5 : Byear = 8
Wdayofyear = Dayofyear(bday)
Print "Day Of Year of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(bday) ; ") is " ; Wdayofyear

' Example 3 with Date - String
Strdate = "04-10-29" ' we have configured ANSI Format
Wdayofyear = Dayofyear(strdate)
Print "Day Of Year of " ; Strdate ; " is " ; Wdayofyear

' Example 4 with System Second

Lsyssec = 123456789
Wdayofyear = Dayofyear(lsyssec)
Print "Day Of Year of System Second " ; Lsyssec ; " (" ; Date(lsyssec) ; ") is " ; Wdayofyear

' Example 5 with System Day
Wsysday = 3000
Wdayofyear = Dayofyear(wsysday)
Print "Day Of Year of System Day " ; Wsysday ; " (" ; Date(wsysday) ; ") is " ; Wdayofyear

' =================== System Day ======================================
' Example 1 with internal RTC-Clock
_day = 20 : _month = 11 : _year = 2 ' Load RTC-Clock for example - testing
Wsysday = Sysday()
Print "System Day of " ; Date$ ; " is " ; Wsysday

' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 24 : Bmonth = 5 : Byear = 8
Wsysday = Sysday(bday)
Print "System Day of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(bday) ; ") is " ; Wsysday

' Example 3 with Date - String
Strdate = "04-10-29"
Wsysday = Sysday(strdate)
Print "System Day of " ; Strdate ; " is " ; Wsysday

' Example 4 with System Second
Lsyssec = 123456789
Wsysday = Sysday(lsyssec)
Print "System Day of System Second " ; Lsyssec ; " (" ; Date(lsyssec) ; ") is " ; Wsysday

' =================== Time ================================================
' Example 1: Converting defined Clock - Bytes (Second / Minute / Hour) to Time - String
Bsec = 20 : Bmin = 1 : Bhour = 7
Strtime = Time(bsec)
Print "Time values: Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " converted to string " ; Strtime

' Example 2: Converting System Second to Time - String
Lsyssec = 123456789
Strtime = Time(lsyssec)
Print "Time of Systemsecond " ; Lsyssec ; " is " ; Strtime

' Example 3: Converting Second of Day to Time - String
Lsecofday = 12345
Strtime = Time(lsecofday)
Print "Time of Second of Day " ; Lsecofday ; " is " ; Strtime

' Example 4: Converting System Second to defined Clock - Bytes (Second / Minute / Hour)

Lsyssec = 123456789
Bsec = Time(lsyssec)
Print "System Second " ; Lsyssec ; " converted to Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(lsyssec) ; ")"

' Example 5: Converting Second of Day to defined Clock - Bytes (Second / Minute / Hour)
Lsecofday = 12345
Bsec = Time(lsecofday)
Print "Second of Day " ; Lsecofday ; " converted to Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(lsecofday) ; ")"

' Example 6: Converting Time-string to defined Clock - Bytes (Second / Minute / Hour)
Strtime = "07:33:12"
Bsec = Time(strtime)
Print "Time " ; Strtime ; " converted to Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour

' ============================= Date ==========================================

' Example 1: Converting defined Clock - Bytes (Day / Month / Year) to Date - String
Bday = 29 : Bmonth = 4 : Byear = 12
Strdate = Date(bday)
Print "Dat values: Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " converted to string " ; Strdate

' Example 2: Converting from System Day to Date - String
Wsysday = 1234
Strdate = Date(wsysday)
Print "System Day " ; Wsysday ; " is " ; Strdate

' Example 3: Converting from System Second to Date String
Lsyssec = 123456789
Strdate = Date(lsyssec)
Print "System Second " ; Lsyssec ; " is " ; Strdate

' Example 4: Converting SystemDay to defined Clock - Bytes (Day / Month / Year)

Wsysday = 2000
Bday = Date(wsysday)
Print "System Day " ; Wsysday ; " converted to Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(wsysday) ; ")"

' Example 5: Converting Date - String to defined Clock - Bytes (Day / Month / Year)
Strdate = "04-08-31"
Bday = Date(strdate)
Print "Date " ; Strdate ; " converted to Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear

' Example 6: Converting System Second to defined Clock - Bytes (Day / Month / Year)
Lsyssec = 123456789
Bday = Date(lsyssec)
Print "System Second " ; Lsyssec ; " converted to Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(lsyssec) ; ")"

' ================ Second of Day elapsed

Lsecofday = Secofday()
_hour = _hour + 1
Lvar1 = Secelapsed(lsecofday)
Print Lvar1

Lsyssec = Syssec()
_day = _day + 1
Lvar1 = Syssecelapsed(lsyssec)
Print Lvar1

Looptest:

' Initialising for testing
_day = 1
_month = 1
_year = 1
_sec = 12
_min = 13
_hour = 14

Do
If _year > 50 Then
Exit Do
End If

_sec = _sec + 7
If _sec > 59 Then
Incr _min
_sec = _sec - 60
End If

_min = _min + 2
If _min > 59 Then
Incr _hour
_min = _min - 60
End If

_hour = _hour + 1
If _hour > 23 Then
Incr _day
_hour = _hour - 24
End If

_day = _day + 1

If _day > 28 Then
Select Case _month
Case 1
Mday = 31
Case 2
Mday = _year And &H03
If Mday = 0 Then
Mday = 29
Else
Mday = 28
End If
Case 3
Mday = 31
Case 4
Mday = 30
Case 5
Mday = 31
Case 6
Mday = 30
Case 7
Mday = 31
Case 8
Mday = 31
Case 9
Mday = 30
Case 10
Mday = 31
Case 11
Mday = 30
Case 12
Mday = 31
End Select
If _day > Mday Then
_day = _day - Mday
Incr _month
If _month > 12 Then
_month = 1
Incr _year
End If
End If
End If
If _year > 99 Then
Exit Do
End If

Lsecofday = Secofday()
Lsyssec = Syssec()
Bweekday = Dayofweek()
Wdayofyear = Dayofyear()
Wsysday = Sysday()

Print Time$ ; " " ; Date$ ; " " ; Lsecofday ; " " ; Lsyssec ; " " ; Bweekday ; " " ; Wdayofyear ; " " ; Wsysday

Loop
End

'only when we use I2C for the clock we need to set the clock date time
#if Clockmode = 0
'called from datetime.lib
Dim Weekday As Byte
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307

I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte _day , Ack ' Day of Month
I2crbyte _month , Ack ' Month of Year
I2crbyte _year , Nack ' Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

#endif

Weekdays:
Data "Monday" , "Tuesday" , "Wednesday" , "Thursday" , "Friday" , "Saturday" , "Sunday"
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

DAYOFWEEK/de

2013-03-18T22:15:54Z

Stefanhamburg: /* Remarks */

= Funktion =

Gibt den Wochentag für ein Datum zurück.

 

 

= Syntax =

Target = DayOfWeek()

Target = DayOfWeek(bDayMonthYear)

Target = DayOfWeek(strDate)

Target = DayOfWeek(wSysDay)

Target = DayOfWeek(lSysSec)

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
Target

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Bytevariable der die Nummer des Wochentags zugewiesen wird.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
BDayMonthYear

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Bytevariable, die den Tag enthält - gefolgt vom Monat (Byte) und Jahr (Byte)

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
StrDate

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
String der das Datum als Zeichenkette enthält im Format wie im CONFIG DATE Befehl beschreiben.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
WSysDay

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Wordvariable die den Systemtag (SysDay) enthält.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
LSysSec

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
Longvariable die die Systemsekunde (SysSec) enthält.

|}
</div>
 

 

Die Funktion kann mit fünf verschiedenen Arten von Input benutzt werden:

 
<div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 1.
| Ohne Parameter. Die internen Werte der SOFTCLOCK (_day, _month, _year) werden benutzt.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 2.
| Mit einem benutzerdefinierten Array. Dieses muss in derselben Art angeordnet sein (Day, Month, Year) wie das interne SOFTCLOCK-Datum. Das erste Byte (Day) ist der Eingabewert bei dieser Art der Benutzung. Auf diese Weise kann der Wochentag für jedes Daum berechnet werden.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 3.
| Mit einem Datums-String. Der Datums-String muss im selben Format wie im CONFIG DATE Befehl angegeben werden.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 4.
| Mit einer Systemtag-Zahl.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 5.
| Mit einer Systemsekunden-Zahl.
|}
</div>
 

 

Der Rückgabewert ist im Bereich 0 bis 6 wobei dem Montag eine 0 entspricht.

 

Die Funktion funktioniert im 21. Jahrhundert(von 1.1.2000 bis 31.12.2099).

 

 

= See Also =

[[DATETIME|Date and Time routines]] , [[CONFIG DATE|CONFIG DATE]] , [[CONFIG CLOCK|CONFIG CLOCK]], [[SYSDAY]], [[SYSSEC]]

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : datetime_test1,bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : show how to use the Date-Time routines from the DateTime.Lib
'micro : Mega103
'suited for demo : no
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Const Clockmode = 1
'use i2c for the clock

#if Clockmode = 1
Config Clock = Soft ' we use build in clock
Disable Interrupts
#else
Config Clock = User ' we use I2C for the clock
'configure the scl and sda pins
Config Sda = Portd.6
Config Scl = Portd.5

'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
#endif

'configure the date format
Config Date = Ymd , Separator = - ' ANSI-Format
'This sample does not have the clock started so interrupts are not enabled
' Enable Interrupts

'dim the used variables
Dim Lvar1 As Long
Dim Mday As Byte
Dim Bweekday As Byte , Strweekday As String * 10
Dim Strdate As String * 8
Dim Strtime As String * 8
Dim Bsec As Byte , Bmin As Byte , Bhour As Byte
Dim Bday As Byte , Bmonth As Byte , Byear As Byte
Dim Lsecofday As Long
Dim Wsysday As Word
Dim Lsyssec As Long
Dim Wdayofyear As Word

' =================== DayOfWeek =============================================
' Example 1 with internal RTC-Clock

_day = 4 : _month = 11 : _year = 2 ' Load RTC-Clock for example - testing
Bweekday = Dayofweek()
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of " ; Date$ ; " is " ; Bweekday ; " = " ; Strweekday

' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 26 : Bmonth = 11 : Byear = 2
Bweekday = Dayofweek(bday)
Strweekday = Lookupstr(bweekday , Weekdays)
Strdate = Date(bday)
Print "Weekday-Number of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " is " ; Bweekday ; " (" ; Date(bday) ; ") = " ; Strweekday

' Example 3 with System Day
Wsysday = 2000 ' that is 2005-06-23
Bweekday = Dayofweek(wsysday)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of System Day " ; Wsysday ; " (" ; Date(wsysday) ; ") is " ; Bweekday ; " = " ; Strweekday

' Example 4 with System Second
Lsyssec = 123456789 ' that is 2003-11-29 at 21:33:09
Bweekday = Dayofweek(lsyssec)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of System Second " ; Lsyssec ; " (" ; Date(lsyssec) ; ") is " ; Bweekday ; " = " ; Strweekday

' Example 5 with Date-String
Strdate = "04-11-02" ' we have configured Date in ANSI
Bweekday = Dayofweek(strdate)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of " ; Strdate ; " is " ; Bweekday ; " = " ; Strweekday

' ================= Second of Day =============================================
' Example 1 with internal RTC-Clock
_sec = 12 : _min = 30 : _hour = 18 ' Load RTC-Clock for example - testing

Lsecofday = Secofday()
Print "Second of Day of " ; Time$ ; " is " ; Lsecofday

' Example 2 with defined Clock - Bytes (Second / Minute / Hour)
Bsec = 20 : Bmin = 1 : Bhour = 7
Lsecofday = Secofday(bsec)
Print "Second of Day of Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(bsec) ; ") is " ; Lsecofday

' Example 3 with System Second
Lsyssec = 1234456789
Lsecofday = Secofday(lsyssec)
Print "Second of Day of System Second " ; Lsyssec ; "(" ; Time(lsyssec) ; ") is " ; Lsecofday

' Example 4 with Time - String
Strtime = "04:58:37"
Lsecofday = Secofday(strtime)
Print "Second of Day of " ; Strtime ; " is " ; Lsecofday

' ================== System Second ============================================

' Example 1 with internal RTC-Clock
' Load RTC-Clock for example - testing
_sec = 17 : _min = 35 : _hour = 8 : _day = 16 : _month = 4 : _year = 3

Lsyssec = Syssec()
Print "System Second of " ; Time$ ; " at " ; Date$ ; " is " ; Lsyssec

' Example 2 with with defined Clock - Bytes (Second, Minute, Hour, Day / Month / Year)
Bsec = 20 : Bmin = 1 : Bhour = 7 : Bday = 22 : Bmonth = 12 : Byear = 1
Lsyssec = Syssec(bsec)
Strtime = Time(bsec)
Strdate = Date(bday)
Print "System Second of " ; Strtime ; " at " ; Strdate ; " is " ; Lsyssec

' Example 3 with System Day

Wsysday = 2000
Lsyssec = Syssec(wsysday)
Print "System Second of System Day " ; Wsysday ; " (" ; Date(wsysday) ; " 00:00:00) is " ; Lsyssec

' Example 4 with Time and Date String
Strtime = "10:23:50"
Strdate = "02-11-29" ' ANSI-Date
Lsyssec = Syssec(strtime , Strdate)
Print "System Second of " ; Strtime ; " at " ; Strdate ; " is " ; Lsyssec ' 91880630

' ==================== Day Of Year =========================================
' Example 1 with internal RTC-Clock
_day = 20 : _month = 11 : _year = 2 ' Load RTC-Clock for example - testing
Wdayofyear = Dayofyear()
Print "Day Of Year of " ; Date$ ; " is " ; Wdayofyear

' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 24 : Bmonth = 5 : Byear = 8
Wdayofyear = Dayofyear(bday)
Print "Day Of Year of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(bday) ; ") is " ; Wdayofyear

' Example 3 with Date - String
Strdate = "04-10-29" ' we have configured ANSI Format
Wdayofyear = Dayofyear(strdate)
Print "Day Of Year of " ; Strdate ; " is " ; Wdayofyear

' Example 4 with System Second

Lsyssec = 123456789
Wdayofyear = Dayofyear(lsyssec)
Print "Day Of Year of System Second " ; Lsyssec ; " (" ; Date(lsyssec) ; ") is " ; Wdayofyear

' Example 5 with System Day
Wsysday = 3000
Wdayofyear = Dayofyear(wsysday)
Print "Day Of Year of System Day " ; Wsysday ; " (" ; Date(wsysday) ; ") is " ; Wdayofyear

' =================== System Day ======================================
' Example 1 with internal RTC-Clock
_day = 20 : _month = 11 : _year = 2 ' Load RTC-Clock for example - testing
Wsysday = Sysday()
Print "System Day of " ; Date$ ; " is " ; Wsysday

' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 24 : Bmonth = 5 : Byear = 8
Wsysday = Sysday(bday)
Print "System Day of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(bday) ; ") is " ; Wsysday

' Example 3 with Date - String
Strdate = "04-10-29"
Wsysday = Sysday(strdate)
Print "System Day of " ; Strdate ; " is " ; Wsysday

' Example 4 with System Second
Lsyssec = 123456789
Wsysday = Sysday(lsyssec)
Print "System Day of System Second " ; Lsyssec ; " (" ; Date(lsyssec) ; ") is " ; Wsysday

' =================== Time ================================================
' Example 1: Converting defined Clock - Bytes (Second / Minute / Hour) to Time - String
Bsec = 20 : Bmin = 1 : Bhour = 7
Strtime = Time(bsec)
Print "Time values: Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " converted to string " ; Strtime

' Example 2: Converting System Second to Time - String
Lsyssec = 123456789
Strtime = Time(lsyssec)
Print "Time of Systemsecond " ; Lsyssec ; " is " ; Strtime

' Example 3: Converting Second of Day to Time - String
Lsecofday = 12345
Strtime = Time(lsecofday)
Print "Time of Second of Day " ; Lsecofday ; " is " ; Strtime

' Example 4: Converting System Second to defined Clock - Bytes (Second / Minute / Hour)

Lsyssec = 123456789
Bsec = Time(lsyssec)
Print "System Second " ; Lsyssec ; " converted to Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(lsyssec) ; ")"

' Example 5: Converting Second of Day to defined Clock - Bytes (Second / Minute / Hour)
Lsecofday = 12345
Bsec = Time(lsecofday)
Print "Second of Day " ; Lsecofday ; " converted to Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(lsecofday) ; ")"

' Example 6: Converting Time-string to defined Clock - Bytes (Second / Minute / Hour)
Strtime = "07:33:12"
Bsec = Time(strtime)
Print "Time " ; Strtime ; " converted to Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour

' ============================= Date ==========================================

' Example 1: Converting defined Clock - Bytes (Day / Month / Year) to Date - String
Bday = 29 : Bmonth = 4 : Byear = 12
Strdate = Date(bday)
Print "Dat values: Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " converted to string " ; Strdate

' Example 2: Converting from System Day to Date - String
Wsysday = 1234
Strdate = Date(wsysday)
Print "System Day " ; Wsysday ; " is " ; Strdate

' Example 3: Converting from System Second to Date String
Lsyssec = 123456789
Strdate = Date(lsyssec)
Print "System Second " ; Lsyssec ; " is " ; Strdate

' Example 4: Converting SystemDay to defined Clock - Bytes (Day / Month / Year)

Wsysday = 2000
Bday = Date(wsysday)
Print "System Day " ; Wsysday ; " converted to Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(wsysday) ; ")"

' Example 5: Converting Date - String to defined Clock - Bytes (Day / Month / Year)
Strdate = "04-08-31"
Bday = Date(strdate)
Print "Date " ; Strdate ; " converted to Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear

' Example 6: Converting System Second to defined Clock - Bytes (Day / Month / Year)
Lsyssec = 123456789
Bday = Date(lsyssec)
Print "System Second " ; Lsyssec ; " converted to Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(lsyssec) ; ")"

' ================ Second of Day elapsed

Lsecofday = Secofday()
_hour = _hour + 1
Lvar1 = Secelapsed(lsecofday)
Print Lvar1

Lsyssec = Syssec()
_day = _day + 1
Lvar1 = Syssecelapsed(lsyssec)
Print Lvar1

Looptest:

' Initialising for testing
_day = 1
_month = 1
_year = 1
_sec = 12
_min = 13
_hour = 14

Do
If _year > 50 Then
Exit Do
End If

_sec = _sec + 7
If _sec > 59 Then
Incr _min
_sec = _sec - 60
End If

_min = _min + 2
If _min > 59 Then
Incr _hour
_min = _min - 60
End If

_hour = _hour + 1
If _hour > 23 Then
Incr _day
_hour = _hour - 24
End If

_day = _day + 1

If _day > 28 Then
Select Case _month
Case 1
Mday = 31
Case 2
Mday = _year And &H03
If Mday = 0 Then
Mday = 29
Else
Mday = 28
End If
Case 3
Mday = 31
Case 4
Mday = 30
Case 5
Mday = 31
Case 6
Mday = 30
Case 7
Mday = 31
Case 8
Mday = 31
Case 9
Mday = 30
Case 10
Mday = 31
Case 11
Mday = 30
Case 12
Mday = 31
End Select
If _day > Mday Then
_day = _day - Mday
Incr _month
If _month > 12 Then
_month = 1
Incr _year
End If
End If
End If
If _year > 99 Then
Exit Do
End If

Lsecofday = Secofday()
Lsyssec = Syssec()
Bweekday = Dayofweek()
Wdayofyear = Dayofyear()
Wsysday = Sysday()

Print Time$ ; " " ; Date$ ; " " ; Lsecofday ; " " ; Lsyssec ; " " ; Bweekday ; " " ; Wdayofyear ; " " ; Wsysday

Loop
End

'only when we use I2C for the clock we need to set the clock date time
#if Clockmode = 0
'called from datetime.lib
Dim Weekday As Byte
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307

I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte _day , Ack ' Day of Month
I2crbyte _month , Ack ' Month of Year
I2crbyte _year , Nack ' Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

#endif

Weekdays:
Data "Monday" , "Tuesday" , "Wednesday" , "Thursday" , "Friday" , "Saturday" , "Sunday"
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

DAYOFWEEK/de

2013-03-18T21:52:49Z

Stefanhamburg: /* (**COPIED FROM ENGLISH PAGE**) = */

= Funktion =

Gibt den Wochentag für ein Datum zurück.

 

 

= Syntax =

Target = DayOfWeek()

Target = DayOfWeek(bDayMonthYear)

Target = DayOfWeek(strDate)

Target = DayOfWeek(wSysDay)

Target = DayOfWeek(lSysSec)

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="609" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
Target

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
A Byte – variable, that is assigned with the day of the week

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
BDayMonthYear

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
A Byte – variable, which holds the Day-value followed by Month(Byte) and Year (Byte)

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
StrDate

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
A String, which holds a Date-String in the format specified in the

CONFIG DATE statement

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
WSysDay

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
A Word – variable, which holds the System Day (SysDay)

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 136px; border: 1px solid rgb(0, 0, 0);" |
LSysSec

| valign="top" width="100%" style="width: 464px; border: 1px solid rgb(0, 0, 0);" |
A Long – variable, which holds the System Second (SysSec)

|}
</div>
 

 

The Function can be used with five different kind of Input:

 
<div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 1.
| Without any parameter. The internal Date-values of SOFTCLOCK (_day, _month, _year) are used.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 2.
| With a user defined date array. It must be arranged in same way (Day, Month, Year) as the internal SOFTCLOCK date. The first Byte (Day) is the input by this kind of usage. So the Day of the Week can be calculated of every date.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 3.
| With a Date-String. The date-string must be in the Format specified in the Config Date Statement
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 4.
| With a System Day – Number.
|}
</div><div style="padding: 0px; margin: 0px 0px 0px 35px;">
{| border="0" cellpadding="0" cellspacing="0"
|- valign="baseline" style="vertical-align: baseline;"
| width="15" | 5.
| With a System Second - Number
|}
</div>
 

 

The Return-Value is in the range of 0 to 6, Monday starts with 0.

 

The Function is valid in the 21th century (from 2000-01-01 to 2099-12-31).

 

 

= See Also =

[[DATETIME|Date and Time routines]] , [[CONFIG DATE|CONFIG DATE]] , [[CONFIG CLOCK|CONFIG CLOCK]], [[SYSDAY]], [[SYSSEC]]

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : datetime_test1,bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : show how to use the Date-Time routines from the DateTime.Lib
'micro : Mega103
'suited for demo : no
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m103def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Const Clockmode = 1
'use i2c for the clock

#if Clockmode = 1
Config Clock = Soft ' we use build in clock
Disable Interrupts
#else
Config Clock = User ' we use I2C for the clock
'configure the scl and sda pins
Config Sda = Portd.6
Config Scl = Portd.5

'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
#endif

'configure the date format
Config Date = Ymd , Separator = - ' ANSI-Format
'This sample does not have the clock started so interrupts are not enabled
' Enable Interrupts

'dim the used variables
Dim Lvar1 As Long
Dim Mday As Byte
Dim Bweekday As Byte , Strweekday As String * 10
Dim Strdate As String * 8
Dim Strtime As String * 8
Dim Bsec As Byte , Bmin As Byte , Bhour As Byte
Dim Bday As Byte , Bmonth As Byte , Byear As Byte
Dim Lsecofday As Long
Dim Wsysday As Word
Dim Lsyssec As Long
Dim Wdayofyear As Word

' =================== DayOfWeek =============================================
' Example 1 with internal RTC-Clock

_day = 4 : _month = 11 : _year = 2 ' Load RTC-Clock for example - testing
Bweekday = Dayofweek()
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of " ; Date$ ; " is " ; Bweekday ; " = " ; Strweekday

' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 26 : Bmonth = 11 : Byear = 2
Bweekday = Dayofweek(bday)
Strweekday = Lookupstr(bweekday , Weekdays)
Strdate = Date(bday)
Print "Weekday-Number of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " is " ; Bweekday ; " (" ; Date(bday) ; ") = " ; Strweekday

' Example 3 with System Day
Wsysday = 2000 ' that is 2005-06-23
Bweekday = Dayofweek(wsysday)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of System Day " ; Wsysday ; " (" ; Date(wsysday) ; ") is " ; Bweekday ; " = " ; Strweekday

' Example 4 with System Second
Lsyssec = 123456789 ' that is 2003-11-29 at 21:33:09
Bweekday = Dayofweek(lsyssec)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of System Second " ; Lsyssec ; " (" ; Date(lsyssec) ; ") is " ; Bweekday ; " = " ; Strweekday

' Example 5 with Date-String
Strdate = "04-11-02" ' we have configured Date in ANSI
Bweekday = Dayofweek(strdate)
Strweekday = Lookupstr(bweekday , Weekdays)
Print "Weekday-Number of " ; Strdate ; " is " ; Bweekday ; " = " ; Strweekday

' ================= Second of Day =============================================
' Example 1 with internal RTC-Clock
_sec = 12 : _min = 30 : _hour = 18 ' Load RTC-Clock for example - testing

Lsecofday = Secofday()
Print "Second of Day of " ; Time$ ; " is " ; Lsecofday

' Example 2 with defined Clock - Bytes (Second / Minute / Hour)
Bsec = 20 : Bmin = 1 : Bhour = 7
Lsecofday = Secofday(bsec)
Print "Second of Day of Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(bsec) ; ") is " ; Lsecofday

' Example 3 with System Second
Lsyssec = 1234456789
Lsecofday = Secofday(lsyssec)
Print "Second of Day of System Second " ; Lsyssec ; "(" ; Time(lsyssec) ; ") is " ; Lsecofday

' Example 4 with Time - String
Strtime = "04:58:37"
Lsecofday = Secofday(strtime)
Print "Second of Day of " ; Strtime ; " is " ; Lsecofday

' ================== System Second ============================================

' Example 1 with internal RTC-Clock
' Load RTC-Clock for example - testing
_sec = 17 : _min = 35 : _hour = 8 : _day = 16 : _month = 4 : _year = 3

Lsyssec = Syssec()
Print "System Second of " ; Time$ ; " at " ; Date$ ; " is " ; Lsyssec

' Example 2 with with defined Clock - Bytes (Second, Minute, Hour, Day / Month / Year)
Bsec = 20 : Bmin = 1 : Bhour = 7 : Bday = 22 : Bmonth = 12 : Byear = 1
Lsyssec = Syssec(bsec)
Strtime = Time(bsec)
Strdate = Date(bday)
Print "System Second of " ; Strtime ; " at " ; Strdate ; " is " ; Lsyssec

' Example 3 with System Day

Wsysday = 2000
Lsyssec = Syssec(wsysday)
Print "System Second of System Day " ; Wsysday ; " (" ; Date(wsysday) ; " 00:00:00) is " ; Lsyssec

' Example 4 with Time and Date String
Strtime = "10:23:50"
Strdate = "02-11-29" ' ANSI-Date
Lsyssec = Syssec(strtime , Strdate)
Print "System Second of " ; Strtime ; " at " ; Strdate ; " is " ; Lsyssec ' 91880630

' ==================== Day Of Year =========================================
' Example 1 with internal RTC-Clock
_day = 20 : _month = 11 : _year = 2 ' Load RTC-Clock for example - testing
Wdayofyear = Dayofyear()
Print "Day Of Year of " ; Date$ ; " is " ; Wdayofyear

' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 24 : Bmonth = 5 : Byear = 8
Wdayofyear = Dayofyear(bday)
Print "Day Of Year of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(bday) ; ") is " ; Wdayofyear

' Example 3 with Date - String
Strdate = "04-10-29" ' we have configured ANSI Format
Wdayofyear = Dayofyear(strdate)
Print "Day Of Year of " ; Strdate ; " is " ; Wdayofyear

' Example 4 with System Second

Lsyssec = 123456789
Wdayofyear = Dayofyear(lsyssec)
Print "Day Of Year of System Second " ; Lsyssec ; " (" ; Date(lsyssec) ; ") is " ; Wdayofyear

' Example 5 with System Day
Wsysday = 3000
Wdayofyear = Dayofyear(wsysday)
Print "Day Of Year of System Day " ; Wsysday ; " (" ; Date(wsysday) ; ") is " ; Wdayofyear

' =================== System Day ======================================
' Example 1 with internal RTC-Clock
_day = 20 : _month = 11 : _year = 2 ' Load RTC-Clock for example - testing
Wsysday = Sysday()
Print "System Day of " ; Date$ ; " is " ; Wsysday

' Example 2 with defined Clock - Bytes (Day / Month / Year)
Bday = 24 : Bmonth = 5 : Byear = 8
Wsysday = Sysday(bday)
Print "System Day of Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(bday) ; ") is " ; Wsysday

' Example 3 with Date - String
Strdate = "04-10-29"
Wsysday = Sysday(strdate)
Print "System Day of " ; Strdate ; " is " ; Wsysday

' Example 4 with System Second
Lsyssec = 123456789
Wsysday = Sysday(lsyssec)
Print "System Day of System Second " ; Lsyssec ; " (" ; Date(lsyssec) ; ") is " ; Wsysday

' =================== Time ================================================
' Example 1: Converting defined Clock - Bytes (Second / Minute / Hour) to Time - String
Bsec = 20 : Bmin = 1 : Bhour = 7
Strtime = Time(bsec)
Print "Time values: Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " converted to string " ; Strtime

' Example 2: Converting System Second to Time - String
Lsyssec = 123456789
Strtime = Time(lsyssec)
Print "Time of Systemsecond " ; Lsyssec ; " is " ; Strtime

' Example 3: Converting Second of Day to Time - String
Lsecofday = 12345
Strtime = Time(lsecofday)
Print "Time of Second of Day " ; Lsecofday ; " is " ; Strtime

' Example 4: Converting System Second to defined Clock - Bytes (Second / Minute / Hour)

Lsyssec = 123456789
Bsec = Time(lsyssec)
Print "System Second " ; Lsyssec ; " converted to Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(lsyssec) ; ")"

' Example 5: Converting Second of Day to defined Clock - Bytes (Second / Minute / Hour)
Lsecofday = 12345
Bsec = Time(lsecofday)
Print "Second of Day " ; Lsecofday ; " converted to Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour ; " (" ; Time(lsecofday) ; ")"

' Example 6: Converting Time-string to defined Clock - Bytes (Second / Minute / Hour)
Strtime = "07:33:12"
Bsec = Time(strtime)
Print "Time " ; Strtime ; " converted to Sec=" ; Bsec ; " Min=" ; Bmin ; " Hour=" ; Bhour

' ============================= Date ==========================================

' Example 1: Converting defined Clock - Bytes (Day / Month / Year) to Date - String
Bday = 29 : Bmonth = 4 : Byear = 12
Strdate = Date(bday)
Print "Dat values: Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " converted to string " ; Strdate

' Example 2: Converting from System Day to Date - String
Wsysday = 1234
Strdate = Date(wsysday)
Print "System Day " ; Wsysday ; " is " ; Strdate

' Example 3: Converting from System Second to Date String
Lsyssec = 123456789
Strdate = Date(lsyssec)
Print "System Second " ; Lsyssec ; " is " ; Strdate

' Example 4: Converting SystemDay to defined Clock - Bytes (Day / Month / Year)

Wsysday = 2000
Bday = Date(wsysday)
Print "System Day " ; Wsysday ; " converted to Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(wsysday) ; ")"

' Example 5: Converting Date - String to defined Clock - Bytes (Day / Month / Year)
Strdate = "04-08-31"
Bday = Date(strdate)
Print "Date " ; Strdate ; " converted to Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear

' Example 6: Converting System Second to defined Clock - Bytes (Day / Month / Year)
Lsyssec = 123456789
Bday = Date(lsyssec)
Print "System Second " ; Lsyssec ; " converted to Day=" ; Bday ; " Month=" ; Bmonth ; " Year=" ; Byear ; " (" ; Date(lsyssec) ; ")"

' ================ Second of Day elapsed

Lsecofday = Secofday()
_hour = _hour + 1
Lvar1 = Secelapsed(lsecofday)
Print Lvar1

Lsyssec = Syssec()
_day = _day + 1
Lvar1 = Syssecelapsed(lsyssec)
Print Lvar1

Looptest:

' Initialising for testing
_day = 1
_month = 1
_year = 1
_sec = 12
_min = 13
_hour = 14

Do
If _year > 50 Then
Exit Do
End If

_sec = _sec + 7
If _sec > 59 Then
Incr _min
_sec = _sec - 60
End If

_min = _min + 2
If _min > 59 Then
Incr _hour
_min = _min - 60
End If

_hour = _hour + 1
If _hour > 23 Then
Incr _day
_hour = _hour - 24
End If

_day = _day + 1

If _day > 28 Then
Select Case _month
Case 1
Mday = 31
Case 2
Mday = _year And &H03
If Mday = 0 Then
Mday = 29
Else
Mday = 28
End If
Case 3
Mday = 31
Case 4
Mday = 30
Case 5
Mday = 31
Case 6
Mday = 30
Case 7
Mday = 31
Case 8
Mday = 31
Case 9
Mday = 30
Case 10
Mday = 31
Case 11
Mday = 30
Case 12
Mday = 31
End Select
If _day > Mday Then
_day = _day - Mday
Incr _month
If _month > 12 Then
_month = 1
Incr _year
End If
End If
End If
If _year > 99 Then
Exit Do
End If

Lsecofday = Secofday()
Lsyssec = Syssec()
Bweekday = Dayofweek()
Wdayofyear = Dayofyear()
Wsysday = Sysday()

Print Time$ ; " " ; Date$ ; " " ; Lsecofday ; " " ; Lsyssec ; " " ; Bweekday ; " " ; Wdayofyear ; " " ; Wsysday

Loop
End

'only when we use I2C for the clock we need to set the clock date time
#if Clockmode = 0
'called from datetime.lib
Dim Weekday As Byte
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307

I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte _day , Ack ' Day of Month
I2crbyte _month , Ack ' Month of Year
I2crbyte _year , Nack ' Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

#endif

Weekdays:
Data "Monday" , "Tuesday" , "Wednesday" , "Thursday" , "Friday" , "Saturday" , "Sunday"
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

STAND ?BERSETZUNG (tempor?r)

2013-03-17T23:11:33Z

Stefanhamburg:

MAIN MENUE

*Installation/de
Übersetzt Installation of BASCOM/de
Übersetzt Installation on multiple computers/de
Übersetzt Move to new PC/de
Übersetzt Updates/de

*BASCOM Language Fundamentals/de
Übersetzt ASCII chart/de
Übersetzt Assembler mnemonics/de
Übersetzt Changes compared to BASCOM-8051/de
Übersetzt Error Codes/de
Übersetzt Keyword reference/de
Übersetzt Language Fundamentals/de
Übersetzt Mixing ASM and BASIC/de
Übersetzt Newbie problems/de
No content?? Reserved Words/de
Übersetzt Tips and tricks/de

*ASM Libraries and Add-Ons/de
*AVR-DOS/de
*BCCARD/de
*CF Card/de
*DATE TIME/de
*Floating Point/de
*I2C SLAVE/de
*LCD/de
*PS2-AT Mouse and Keyboard Emulation/de
*SPI/de
*USB/de
EXTENDED I2C/de
FM24C16/de
FM24C64-256/de
FM25C256/de
HEXVAL lib/de
I2C-TWI/de
MCSBYTE/de
MCSBYTEINT/de
MODBUS Slave-Server/de
TCPIP/de

*BASCOM HARDWARE/de
*Chips/de
*Reference Designs/de
Übersetzt Adding XRAM to XMEGA using EBI/de
Adding XRAM with External Memory Interface/de
Additional Hardware/de
Attaching an LCD Display/de
AVR Internal Hardware Port B/de
AVR Internal Hardware Port D/de
AVR Internal Hardware TIMER0/de
AVR Internal Hardware TIMER1/de
AVR Internal Hardware Watchdog timer/de
AVR Internal Hardware/de
AVR Internal Registers/de
Memory usage/de
Power Up/de
Using RS485/de
Using the 1 WIRE protocol/de
Using the I2C protocol/de
Using the SPI protocol/de
Übersetzt Using the UART/de
Using USI (Universal Serial Interface)/de

*Tools/de
LCD RGB-8 Converter/de

*BASCOM IDE/de
*Options Compiler/de
*Options Programmer/de
*Plugins/de
Übersetzt BASCOM Editor Keys/de
Edit Copy/de
Edit Cut/de
Edit Encrypt Selected Code/de
Edit Find Next/de
Edit Find/de
Edit Goto Bookmark/de
Edit Goto/de
Edit Indent Block/de
Edit Paste/de
Edit Redo/de
Edit Remark Block/de
Edit Replace/de
Edit Toggle Bookmark/de
Edit Undo/de
Edit Unindent Block/de
File Close/de
File Exit/de
File New/de
File Open/de
File Print Preview/de
File Print/de
File Project/de
File Save As/de
File Save/de
Help About/de
Help Credits/de
Help Index/de
Help Knowledge Base/de
Help MCS Forum/de
Help MCS Shop/de
Help Support/de
Help Update/de
Options Communication/de
Options Environment/de
Options Monitor/de
Options Printer/de
Options Simulator/de
Program Compile/de
Program Development Order/de
Program Send to Chip/de
Program Show Result/de
Program Simulate/de
Program Syntax Check/de
Running BASCOM-AVR/de
Tools Batch Compile/de
Tools Graphic Converter/de
Tools LCD Designer/de
Tools LIB Manager/de
Tools PDF Update/de
Tools Plugin Manager/de
Tools Resource Editor/de
Tools Stack Analyzer/de
Tools Terminal Emulator/de
View Code Explorer/de
View Error Panel/de
View PDF viewer/de
View PinOut/de
View Project Files/de
View Tip/de
Window Arrange Icons/de
Window Cascade/de
Window Minimize All/de
Window Tile/de
Windows Maximize All/de

BASCOM-AVR Stichworte - DE Übersetzung

$AESKEY/de
$ASM/de
$BAUD/de
$BAUD1/de
$BGF/de
$BIGSTRINGS/de
$BOOT/de
$CRYPT/de
Übersetzt $CRYSTAL/de
$DATA/de
$DBG/de
$DEFAULT/de
Übersetzt $EEPLEAVE/de
Übersetzt $EEPROM/de
Übersetzt $EEPROMHEX/de
$EEPROMSIZE/de
$EXTERNAL/de
$FILE/de
$FRAMECHECK/de
$FRAMEPROTECT/de
$FRAMESIZE/de
$HWCHECK/de
$HWSTACK/de
$INC/de
$INCLUDE/de
$INITMICRO/de
Übersetzt $LCD/de
$LCDPUTCTRL/de
$LCDPUTDATA/de
Übersetzt $LCDRS/de
$LCDVFO/de
$LIB/de
$LOADER/de
$LOADERSIZE/de
$MAP/de
$NOCOMPILE/de
$NOFRAMEPROTECT/de
$NOINIT/de
$NORAMCLEAR/de
$NORAMPZ/de
$NOTRANSFORM/de
$PROG/de
$PROGRAMMER/de
$PROJECTTIME/de
$REGFILE/de
$RESOURCE/de
$ROMSTART/de
$SERIALINPUT/de
$SERIALINPUT1/de
$SERIALINPUT2LCD/de
$SERIALOUTPUT/de
$SERIALOUTPUT1/de
Übersetzt $SIM/de
$SOFTCHECK/de
$STACKDUMP/de
$SWSTACK/de
$TIMEOUT/de
$TINY/de
$VERSION/de
$WAITSTATE/de
$XA/de
$XRAMSIZE/de
$XRAMSTART/de
$XTEAKEY/de

*AUTOCODE/de
*IF ELSE ELSEIF ENDIF/de

1WIRECOUNT/de
In Arbeit 1WREAD/de
1WRESET/de
1WSEARCHFIRST/de
1WSEARCHNEXT/de
1WVERIFY/de
Übersetzt 1WWRITE/de

Übersetzt ABS/de
ACOS/de
Übersetzt ADR/de
Übersetzt ADR2/de
AESDECRYPT/de
AESENCRYPT/de
Übersetzt ALIAS/de
Übersetzt ASC/de
ASIN/de
ATN/de
ATN2/de

BASE64DEC/de
BASE64ENC/de
BAUD/de
BAUD1/de
Übersetzt BCD/de
Übersetzt BIN/de
BIN2GRAY/de
Übersetzt BINVAL/de
Übersetzt BITS/de
Übersetzt BITWAIT/de
BLOAD/de
BOX/de
BOXFILL/de
BSAVE/de
BUFSPACE/de
BYVAL/de

Übersetzt CALL/de
CANBAUD/de
CANCLEARALLMOBS/de
CANCLEARMOB/de
CANGETINTS/de
CANID/de
CANRECEIVE/de
CANRESET/de
CANSELPAGE/de
CANSEND/de
Übersetzt CHARPOS/de
CHDIR/de
CHECKFLOAT/de
CHECKSUM/de
CHECKSUMXOR/de
Übersetzt CHR/de
CIRCLE/de
CLEAR/de
CLOCKDIVISION/de
CLOSE/de
CLOSESOCKET/de
Übersetzt CLS/de
CONFIG/de
CONFIG 1WIRE/de
CONFIG ACI/de
CONFIG ACXX/de
CONFIG ADC/de
CONFIG ADCX/de
CONFIG ATEMU/de
CONFIG BASE/de
CONFIG BCCARD/de
CONFIG CANBUS/de
CONFIG CANMOB/de
CONFIG CLOCK/de
CONFIG CLOCKDIV/de
CONFIG COM1/de
CONFIG COM2/de
CONFIG COMX/de
CONFIG DACX/de
CONFIG DATE/de
CONFIG DCF77/de
Übersetzt CONFIG DEBOUNCE/de
CONFIG DMA/de
CONFIG DMACHX/de
CONFIG DMXSLAVE/de
CONFIG DP/de
CONFIG EEPROM/de
CONFIG ERROR/de
CONFIG EVENT SYSTEM/de
CONFIG EXTENDED PORT/de
CONFIG GRAPHLCD/de
CONFIG HITAG/de
CONFIG I2CDELAY/de
CONFIG I2CSLAVE/de
CONFIG INPUT/de
CONFIG INTX/de
CONFIG KBD/de
CONFIG KEYBOARD/de
Übersetzt CONFIG LCD/de
CONFIG LCDBUS/de
Übersetzt CONFIG LCDMODE/de
Übersetzt CONFIG LCDPIN/de
CONFIG OSC/de
Übersetzt CONFIG PORT/de
Übersetzt CONFIG POWERMODE/de
CONFIG POWER REDUCTION/de
CONFIG PRINT/de
CONFIG PRINTBIN/de
CONFIG PRIORITY/de
CONFIG PS2EMU/de
CONFIG RC5/de
CONFIG SCL/de
CONFIG SDA/de
CONFIG SERIALIN/de
CONFIG SERIALOUT/de
CONFIG SERVOS/de
CONFIG SHIFTIN/de
CONFIG SINGLE/de
CONFIG SPI/de
CONFIG SPIX/de
Übersetzt CONFIG SUBMODE/de
CONFIG SYSCLOCK/de
CONFIG TCPIP/de
CONFIG TCXX/de
CONFIG TIMER0/de
CONFIG TIMER1/de
CONFIG TIMER2/de
CONFIG TWI/de
CONFIG TWISLAVE/de
CONFIG USB/de
CONFIG VPORT/de
CONFIG WAITSUART/de
CONFIG WATCHDOG/de
CONFIG X10/de
CONFIG XPIN/de
CONFIG XRAM/de
Übersetzt CONST/de
Übersetzt COS/de
COSH/de
COUNTER0/de
COUNTER1/de
CPEEK/de
CPEEKH/de
CRC16/de
CRC16UNI/de
CRC32/de
CRC8/de
CRYSTAL/de
Übersetzt CURSOR/de

DATA/de
DATE$/de
DATE/de
DAYOFWEEK/de
DAYOFYEAR/de
DBG/de
DCF77TIMEZONE/de
Übersetzt DEBOUNCE/de
DEBUG/de
DECLARE FUNCTION/de
Übersetzt DECLARE SUB/de
Übersetzt DECR/de
Übersetzt DEFLCDCHAR/de
DEFXXX/de
DEG2RAD/de
Übersetzt DELAY/de
Übersetzt DELCHAR/de
Übersetzt DELCHARS/de
DIM/de
DIR/de
Übersetzt DISABLE/de
DISKFREE/de
DISKSIZE/de
DISPLAY/de
Übersetzt DO-LOOP/de
DTMFOUT/de
DriveCheck/de
DriveGetIdentity/de
DriveInit/de
DriveReadSector/de
DriveReset/de
DriveWriteSector/de

ECHO/de
ELSE/de
Übersetzt ENABLE/de
ENCODER/de
Übersetzt END/de
EOF/de
EXIT/de
EXP/de

FILEATTR/de
FILEDATE/de
FILEDATETIME/de
FILELEN/de
FILETIME/de
Übersetzt FIX/de
FLUSH/de
Übersetzt FOR-NEXT/de
FORMAT/de
Übersetzt FOURTHLINE/de
Übersetzt FRAC/de
FREEFILE/de
FUSING/de

GET/de
GETADC/de
GETATKBD/de
GETATKBDRAW/de
GETDSTIP/de
GETDSTPORT/de
GETKBD/de
GETRC/de
GETRC5/de
GETREG/de
GETSOCKET/de
GETTCPREGS/de
GLCDCMD/de
GLCDDATA/de
Übersetzt GOSUB/de
Übersetzt GOTO/de
GRAY2BIN/de

Übersetzt HEX/de
Übersetzt HEXVAL/de
Übersetzt HIGH/de
Übersetzt HIGHW/de
Übersetzt HOME/de

I2CINIT/de
I2CRBYTE/de
I2CRECEIVE/de
I2CREPSTART/de
I2CSEND/de
I2CSTART/de
I2CSTOP/de
I2CWBYTE/de
Übersetzt IDLE/de
Übersetzt IF-THEN-ELSE-END IF/de
Übersetzt INCR/de
INITFILESYSTEM/de
Übersetzt INITLCD/de
Übersetzt INKEY/de
INP/de
INPUT/de
INPUTBIN/de
INPUTHEX/de
INSERTCHAR/de
INSTR/de
Übersetzt INT/de
IP2STR/de
Übersetzt ISCHARWAITING/de

KILL/de

Übersetzt LCASE/de
Übersetzt LCD/de
Übersetzt LCDAT/de
Übersetzt LCDAUTODIM/de
Übersetzt LCDCMD/de
Übersetzt LCDCONTRAST/de
Übersetzt LCDDATA/de
Übersetzt LEFT/de
Übersetzt LEN/de
Übersetzt LINE/de
Übersetzt LINEINPUT/de
?? LINE INPUT/de
Übersetzt LOAD/de
Übersetzt LOADADR/de
Übersetzt LOADLABEL/de
Übersetzt LOADWORDADR/de
Übersetzt LOC/de
Übersetzt LOCAL/de
Übersetzt LOCATE/de
Übersetzt LOF/de
Übersetzt LOG/de
Übersetzt LOG10/de
Übersetzt LOOKDOWN/de
Übersetzt LOOKUP/de
Übersetzt LOOKUPSTR/de
Übersetzt LOW/de
Übersetzt LOWERLINE/de
Übersetzt LTRIM/de

Übersetzt MACRO/de
Übersetzt MAKEBCD/de
Übersetzt MAKEDEC/de
Übersetzt MAKEINT/de
MAKEMODBUS/de
MAKETCP/de
Übersetzt MAX/de
MEMCOPY/de
Übersetzt MID/de
Übersetzt MIN/de
MKDIR/de
Übersetzt MOD/de

Übersetzt NBITS/de

Übersetzt ON INTERRUPT/de
Übersetzt ON VALUE/de
OPEN/de
OUT/de

PEEK/de
POKE/de
POPALL/de
POWER/de
Übersetzt POWERDOWN/de
Übersetzt POWERSAVE/de
Übersetzt POWER MODE/de
PRINT/de
PRINTBIN/de
PS2MOUSEXY/de
PSET/de
PULSEIN/de
PULSEOUT/de
PUSHALL/de
PUT/de

QUOTE/de

RAD2DEG/de
RC5SEND/de
RC5SENDEXT/de
RC6SEND/de
READ/de
Übersetzt READEEPROM/de
READHITAG/de
READMAGCARD/de
READSIG/de
Übersetzt REM/de
REPLACECHARS/de
Übersetzt RESET/de
Übersetzt RESTORE/de
Übersetzt RETURN/de
Übersetzt RIGHT/de
RMDIR/de
RND/de
ROTATE/de
Übersetzt ROUND/de
RTRIM/de

SECELAPSED/de
SECOFDAY/de
SEEK/de
SELECT-CASE-END SELECT/de
SENDSCAN/de
SENDSCANKBD/de
SERIN/de
SEROUT/de
Übersetzt SET/de
SETFONT/de
SETIPPROTOCOL/de
SETREG/de
SETTCP/de
SETTCPREGS/de
Übersetzt SGN/de
SHIFT/de
SHIFTCURSOR/de
SHIFTIN/de
SHIFTLCD/de
SHIFTOUT/de
SHOWPIC/de
SHOWPICE/de
Übersetzt SIN/de
SINH/de
SNTP/de
SOCKETCLOSE/de
SOCKETCONNECT/de
SOCKETDISCONNECT/de
SOCKETLISTEN/de
SOCKETSTAT/de
SONYSEND/de
Übersetzt SORT/de
Übersetzt SOUND/de
Übersetzt SPACE/de
Übersetzt SPC/de
SPIIN/de
SPIINIT/de
SPIMOVE/de
SPIOUT/de
Übersetzt SPLIT/de
Übersetzt SQR/de
Übersetzt START/de
STCHECK/de
Übersetzt STOP/de
Übersetzt STR/de
STR2DIGITS/de
Übersetzt STRING/de
Übersetzt SUB/de
SWAP/de
SYSDAY/de
SYSSEC/de
SYSSECELAPSED/de

Übersetzt TAN/de
TANH/de
TCPCHECKSUM/de
TCPREAD/de
TCPREADHEADER/de
TCPWRITE/de
TCPWRITESTR/de
Übersetzt THIRDLINE/de
TIME$/de
TIME/de
Übersetzt TOGGLE/de
TRIM/de

UCASE/de
UDPREAD/de
UDPREADHEADER/de
UDPWRITE/de
UDPWRITESTR/de
Übersetzt UPPERLINE/de
Übersetzt VAL/de
VARPTR/de
VER/de
VERSION/de

Übersetzt WAIT/de
Übersetzt WAITKEY/de
Übersetzt WAITMS/de
Übersetzt WAITUS/de
Übersetzt WHILE-WEND/de
WRITE/de
Übersetzt WRITEEEPROM/de

X10DETECT/de
X10SEND/de
XTEADECODE/de
XTEAENCODE/de

ON INTERRUPT/de

2013-03-17T22:57:27Z

Stefanhamburg: /* Partial Example */

= Funktion =

Führt die Subroutine aus wenn der angegebene Interrupt auftritt.

 

 

= Syntax =

ON interrupt label [NOSAVE|SAVE|SAVEALL]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="577" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
interrupt

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
INT0, INT1, INT2, INT3, INT4,INT5, TIMER0 ,TIMER1, TIMER2, ADC , EEPROM , CAPTURE1, COMPARE1A, COMPARE1B,COMPARE1. Man kann auch die AVR Namenskonventionen benutzen:

 

OC2 , OVF2, ICP1, OC1A, OC1B, OVF1, OVF0, SPI, URXC,

UDRE, UTXC, ADCC, ERDY and ACI.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
label

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Label, zu dem gesprungen werden soll wenn der Interrupt auftritt.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
NOSAVE

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Wenn man NOSAVE angibt dann werden keine Register bei Aufruf/Verlassen der Interruptroutine gesichert/wiederhergestellt. Wenn Sie diese Option benutzen dann müssen Sie selbst die benutzten Register sichern und wiederherstellen.

 

Wenn Sie NOSAVE nicht schreiben dann werden alle benutzten Register gesichert. Das sind:
SREG , R31 bis R16 und R11 bis R0 mit Ausnahme von R6,R8 und R9.

 

R12 – R15 werden nicht gesichert. Wenn in der Interruptroutine Fließkommaarithmetik benutzt wird (was nicht empfohlen wird) dann müssen Sie R12 bis R15 selbst sichern und wiederherstellen.

My_Isr:

Push R12 ' Register sichern

Push R13

Push R14

Push R15

 

Single = single + 1 ' Fließkommaarithmetik wird benutzt

 

Pop R15  ' Register wiederherstellen

Pop R14

Pop R13

Pop R12

RETURN

 

 

[[File:Notice.jpg|left|Notice.jpg]]Wenn der Mikrocontroller Extendet IO-Space hat (wie zum Beispiel ATmega48, 88, 168, siehe Datenblatt am Ende: Registersummary) dann benutzt der Compiler R23 für einige Operationen. R23 muss dann auch gesichert/wiederhergestellt werden.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
SAVE

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Dies ist der Standardwert wenn kein Parameter angegeben wird. Die gebräuchlichsten benutzten Register,
SREG und RAMPZ werden gesichert und wiederhergestellt.

Gesichert: SREG , R31 bis R16 und R11 bis R0 mit Ausnahme von R6,R8 und R9.

Wenn RAMPZ vorhanden ist dann wird es auch gesichert und wiederhergestellt.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
SAVEALL

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Dies sichert alle Register, die auch SAVE sichert und zusätzlich noch R12-R15. Man sollte diese Option benutzen wenn man Gleitkommaarithmetik in der Interruptroutine benutzt.

|}
</div>
 

Aus der Interrupt-Routine muss man mit dem RETURN-Befehl zurückkehren

 

Der erste RETURN-Befehl der außerhalb einer Abfrage angetroffen wird generiert eine RETI Instruktion. Man kann nur einen solchen RETURN-Befehl in der ISR haben weil der Compiler die Register wiederherstellt und eine RETI-Instruktion erzeugt wenn es auf das RETURN in der ISR stößt. Alle anderen RETURN-Befehle werden in eine RET-Instruktion umgewandelt

 

Die möglichen Interrupt-Namen können in der Register-Datei des benutzten Mikrocontrollers nachgelesen werden. Die Datei 2313def.dat zeigt zum Beispiel, dass der Name für den Compare-Interrupt den Namen COMPARE1 hat. Siehe am unteren Enede der Datei.

 

 

Wofür gibt es Interrupt Service Routinen?

 

Ein Interrupt unterbricht das Programm und springt zu der angegebenen Routine.
MAn kann eine DO..LOOP Schleife schreiben und zum Beispiel den Stus eines Eingabepins abfragen um eine Routine anzuspringen wenn der Zustand des Pins sich ändert.

 

Bei Verwendung eines Interrupts kann man andere Ausgaben ausführen und wenn der Zustand des Pins sich ändert dann wird ein bestimmter Programmteil angesprungen.
Wenn man zum Beispiel INPUT "Name ", v benutzt um einen Usernamen über die serielle Schnittstelle einzulesen dann wird gewartet bis ein RETURN empfangen wird.
Wenn man eine Interruptroutine hat und der Interrupt tritt ein dann wird der Interrupt-Code ausgeführt und wenn er beendet ist dann wird zu dem Input-Befehl zurückgekehrt und gewartet bis ein RETURN empfangen wird.

 

Vielleicht ist ein Uhrenprogramm ein besseres Beispiel. Man könnte einen Sekundenzähler im Programm hochzählen aber es ist besser, einen Timer zu benutzen und einen Sekundenzähler in der Interruptroutine des Timers hochzuzählen.

 

Es gibt verschiedene Interrupt-Quellen und es hängt vom verwendeten Mikrocontroller ab welche jeweils vorhanden sind.

 

Um Interrupts benutzen zu können muss der globale Interrupt-Schalter mit ENABLE INTERRUPTS eingeschaltet werden. Nur dann können Interrupts benutzt werden. Außerdem müssen die jeweiligen individuellen Interrupt-Schalter eingeschaltet werden.

 

ENABLE TIMER0 zum Beispiel erlaubt es, dass TIMER0 Interrupts auftreten können.

 

Mit dem DISABLE-Befehl können die Schalter ausgeschaltet werden.

 

Wenn der Prozessor einen Interrupt verarbeiten muss dann springt er an eine Adresse am Anfang des Flash-Speichers. Die Adressen stehen in der DAT-Datei.

 

Der Compiler erzeugt normalerweise eine RETI-Instruktion zu diesen Adressen so dass im Falle eines Interrupt-Ereignisses sofort zurückgekehrt wird.

 

Wenn man ON..LABEL benutzt dann erzeugt der Compiler Code, der zu dem angegebenen Label springt. DAS SREG und andere Register werden gesichert und wenn RETURN erreicht wird werde die Register wieder hergestellt und ein RETI erzeugt so dass das Programm dort fortgesetzt wird wo es war als der Interrupt aufgetreten war.

 

Wenn eine Interruptroutine ausgeführt wird dan können keine anderen Interrupts auftreten weil der Prozessor (nicht der Compiler) alles Interrupts DISABLEd indem das MASTER Interrupt Bit gelöscht wird.
Nach Abarbeitung der Serviceroutine werden die Interrupts wieder eingeschaltet.

 

Es ist nicht möglich, Interrupts eine Priorität zu vergeben. Der Interrupt mit der niedrigsten Adresse hat die höchste Priorität.

 

 

Zum Schluss ein paar Tipps :

 

*Wenn Sie einen Timer-Interrupt haben der alle 10 uS auftritt dann stellen Sie sicher, dass der Interrupt-Code in 10 uS ausgeführt werden kann.

 

*Es ist am besten, in der Interruptroutine nur ein Flag zu setzen und dessen Status im Hauptprogramm abzufragen. Dies ermöglicht die Benutzung der NOSAVE Option die Stack- und Programmplatz spart. Man muss dann nur R24 und SREG sichern und wiederherstellen.

 

*Weil man ein Hardware-Register nicht PUSHen kann muss man es erst laden:

 

PUSH R24 ; Weil wir R24 benutzen werden sichern wir es lieber

 

IN r24, SREG ; Inhalt von SREG in R24

PUSH R24 ; Man kann ein Register sichern

 

;hier steht Ihr Assembler-Code

POP R24 ;Inhalt von SREG zurück

 

OUT SREG, R24 ; In SREG sichern

POP R24 ; r24 zurück

 

= Siehe auch =

[[ON VALUE|On VALUE]]

 

 

= Teilbeispiel =

 <source lang="bascomavr">
Enable Interrupts
Enable Int0 'Int0 Interrupt einschalten
On Int0 Label2 Nosave 'Sprung zu label2 wenn INT0 auftritt
Do'Endlosschleife
nop
Loop
End

Label2:
Dim A As Byte
If A > 1 Then
Return 'generiert ein RET weil es in der Abfrage ist
End If
Return 'generiert ein RETI weil es das erste RETURN ist
Return 'generiert ein RET weil es das zweite RETURN ist
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

ON INTERRUPT/de

2013-03-17T22:53:48Z

Stefanhamburg: /* See Also */

= Funktion =

Führt die Subroutine aus wenn der angegebene Interrupt auftritt.

 

 

= Syntax =

ON interrupt label [NOSAVE|SAVE|SAVEALL]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="577" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
interrupt

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
INT0, INT1, INT2, INT3, INT4,INT5, TIMER0 ,TIMER1, TIMER2, ADC , EEPROM , CAPTURE1, COMPARE1A, COMPARE1B,COMPARE1. Man kann auch die AVR Namenskonventionen benutzen:

 

OC2 , OVF2, ICP1, OC1A, OC1B, OVF1, OVF0, SPI, URXC,

UDRE, UTXC, ADCC, ERDY and ACI.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
label

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Label, zu dem gesprungen werden soll wenn der Interrupt auftritt.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
NOSAVE

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Wenn man NOSAVE angibt dann werden keine Register bei Aufruf/Verlassen der Interruptroutine gesichert/wiederhergestellt. Wenn Sie diese Option benutzen dann müssen Sie selbst die benutzten Register sichern und wiederherstellen.

 

Wenn Sie NOSAVE nicht schreiben dann werden alle benutzten Register gesichert. Das sind:
SREG , R31 bis R16 und R11 bis R0 mit Ausnahme von R6,R8 und R9.

 

R12 – R15 werden nicht gesichert. Wenn in der Interruptroutine Fließkommaarithmetik benutzt wird (was nicht empfohlen wird) dann müssen Sie R12 bis R15 selbst sichern und wiederherstellen.

My_Isr:

Push R12 ' Register sichern

Push R13

Push R14

Push R15

 

Single = single + 1 ' Fließkommaarithmetik wird benutzt

 

Pop R15  ' Register wiederherstellen

Pop R14

Pop R13

Pop R12

RETURN

 

 

[[File:Notice.jpg|left|Notice.jpg]]Wenn der Mikrocontroller Extendet IO-Space hat (wie zum Beispiel ATmega48, 88, 168, siehe Datenblatt am Ende: Registersummary) dann benutzt der Compiler R23 für einige Operationen. R23 muss dann auch gesichert/wiederhergestellt werden.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
SAVE

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Dies ist der Standardwert wenn kein Parameter angegeben wird. Die gebräuchlichsten benutzten Register,
SREG und RAMPZ werden gesichert und wiederhergestellt.

Gesichert: SREG , R31 bis R16 und R11 bis R0 mit Ausnahme von R6,R8 und R9.

Wenn RAMPZ vorhanden ist dann wird es auch gesichert und wiederhergestellt.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
SAVEALL

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Dies sichert alle Register, die auch SAVE sichert und zusätzlich noch R12-R15. Man sollte diese Option benutzen wenn man Gleitkommaarithmetik in der Interruptroutine benutzt.

|}
</div>
 

Aus der Interrupt-Routine muss man mit dem RETURN-Befehl zurückkehren

 

Der erste RETURN-Befehl der außerhalb einer Abfrage angetroffen wird generiert eine RETI Instruktion. Man kann nur einen solchen RETURN-Befehl in der ISR haben weil der Compiler die Register wiederherstellt und eine RETI-Instruktion erzeugt wenn es auf das RETURN in der ISR stößt. Alle anderen RETURN-Befehle werden in eine RET-Instruktion umgewandelt

 

Die möglichen Interrupt-Namen können in der Register-Datei des benutzten Mikrocontrollers nachgelesen werden. Die Datei 2313def.dat zeigt zum Beispiel, dass der Name für den Compare-Interrupt den Namen COMPARE1 hat. Siehe am unteren Enede der Datei.

 

 

Wofür gibt es Interrupt Service Routinen?

 

Ein Interrupt unterbricht das Programm und springt zu der angegebenen Routine.
MAn kann eine DO..LOOP Schleife schreiben und zum Beispiel den Stus eines Eingabepins abfragen um eine Routine anzuspringen wenn der Zustand des Pins sich ändert.

 

Bei Verwendung eines Interrupts kann man andere Ausgaben ausführen und wenn der Zustand des Pins sich ändert dann wird ein bestimmter Programmteil angesprungen.
Wenn man zum Beispiel INPUT "Name ", v benutzt um einen Usernamen über die serielle Schnittstelle einzulesen dann wird gewartet bis ein RETURN empfangen wird.
Wenn man eine Interruptroutine hat und der Interrupt tritt ein dann wird der Interrupt-Code ausgeführt und wenn er beendet ist dann wird zu dem Input-Befehl zurückgekehrt und gewartet bis ein RETURN empfangen wird.

 

Vielleicht ist ein Uhrenprogramm ein besseres Beispiel. Man könnte einen Sekundenzähler im Programm hochzählen aber es ist besser, einen Timer zu benutzen und einen Sekundenzähler in der Interruptroutine des Timers hochzuzählen.

 

Es gibt verschiedene Interrupt-Quellen und es hängt vom verwendeten Mikrocontroller ab welche jeweils vorhanden sind.

 

Um Interrupts benutzen zu können muss der globale Interrupt-Schalter mit ENABLE INTERRUPTS eingeschaltet werden. Nur dann können Interrupts benutzt werden. Außerdem müssen die jeweiligen individuellen Interrupt-Schalter eingeschaltet werden.

 

ENABLE TIMER0 zum Beispiel erlaubt es, dass TIMER0 Interrupts auftreten können.

 

Mit dem DISABLE-Befehl können die Schalter ausgeschaltet werden.

 

Wenn der Prozessor einen Interrupt verarbeiten muss dann springt er an eine Adresse am Anfang des Flash-Speichers. Die Adressen stehen in der DAT-Datei.

 

Der Compiler erzeugt normalerweise eine RETI-Instruktion zu diesen Adressen so dass im Falle eines Interrupt-Ereignisses sofort zurückgekehrt wird.

 

Wenn man ON..LABEL benutzt dann erzeugt der Compiler Code, der zu dem angegebenen Label springt. DAS SREG und andere Register werden gesichert und wenn RETURN erreicht wird werde die Register wieder hergestellt und ein RETI erzeugt so dass das Programm dort fortgesetzt wird wo es war als der Interrupt aufgetreten war.

 

Wenn eine Interruptroutine ausgeführt wird dan können keine anderen Interrupts auftreten weil der Prozessor (nicht der Compiler) alles Interrupts DISABLEd indem das MASTER Interrupt Bit gelöscht wird.
Nach Abarbeitung der Serviceroutine werden die Interrupts wieder eingeschaltet.

 

Es ist nicht möglich, Interrupts eine Priorität zu vergeben. Der Interrupt mit der niedrigsten Adresse hat die höchste Priorität.

 

 

Zum Schluss ein paar Tipps :

 

*Wenn Sie einen Timer-Interrupt haben der alle 10 uS auftritt dann stellen Sie sicher, dass der Interrupt-Code in 10 uS ausgeführt werden kann.

 

*Es ist am besten, in der Interruptroutine nur ein Flag zu setzen und dessen Status im Hauptprogramm abzufragen. Dies ermöglicht die Benutzung der NOSAVE Option die Stack- und Programmplatz spart. Man muss dann nur R24 und SREG sichern und wiederherstellen.

 

*Weil man ein Hardware-Register nicht PUSHen kann muss man es erst laden:

 

PUSH R24 ; Weil wir R24 benutzen werden sichern wir es lieber

 

IN r24, SREG ; Inhalt von SREG in R24

PUSH R24 ; Man kann ein Register sichern

 

;hier steht Ihr Assembler-Code

POP R24 ;Inhalt von SREG zurück

 

OUT SREG, R24 ; In SREG sichern

POP R24 ; r24 zurück

 

= Siehe auch =

[[ON VALUE|On VALUE]]

 

 

= Partial Example =

 <source lang="bascomavr">
Enable Interrupts
Enable Int0 'enable the interrupt
On Int0 Label2 Nosave 'jump to label2 on INT0
Do'endless loop
nop
Loop
End

Label2:
Dim A As Byte
If A > 1 Then
Return 'generates a RET because it is inside a condition
End If
Return 'generates a RETI because it is the first RETURN
Return 'generates a RET because it is the second RETURN
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

ON INTERRUPT/de

2013-03-17T22:53:03Z

Stefanhamburg: /* Remarks */

= Funktion =

Führt die Subroutine aus wenn der angegebene Interrupt auftritt.

 

 

= Syntax =

ON interrupt label [NOSAVE|SAVE|SAVEALL]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="577" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
interrupt

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
INT0, INT1, INT2, INT3, INT4,INT5, TIMER0 ,TIMER1, TIMER2, ADC , EEPROM , CAPTURE1, COMPARE1A, COMPARE1B,COMPARE1. Man kann auch die AVR Namenskonventionen benutzen:

 

OC2 , OVF2, ICP1, OC1A, OC1B, OVF1, OVF0, SPI, URXC,

UDRE, UTXC, ADCC, ERDY and ACI.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
label

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Label, zu dem gesprungen werden soll wenn der Interrupt auftritt.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
NOSAVE

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Wenn man NOSAVE angibt dann werden keine Register bei Aufruf/Verlassen der Interruptroutine gesichert/wiederhergestellt. Wenn Sie diese Option benutzen dann müssen Sie selbst die benutzten Register sichern und wiederherstellen.

 

Wenn Sie NOSAVE nicht schreiben dann werden alle benutzten Register gesichert. Das sind:
SREG , R31 bis R16 und R11 bis R0 mit Ausnahme von R6,R8 und R9.

 

R12 – R15 werden nicht gesichert. Wenn in der Interruptroutine Fließkommaarithmetik benutzt wird (was nicht empfohlen wird) dann müssen Sie R12 bis R15 selbst sichern und wiederherstellen.

My_Isr:

Push R12 ' Register sichern

Push R13

Push R14

Push R15

 

Single = single + 1 ' Fließkommaarithmetik wird benutzt

 

Pop R15  ' Register wiederherstellen

Pop R14

Pop R13

Pop R12

RETURN

 

 

[[File:Notice.jpg|left|Notice.jpg]]Wenn der Mikrocontroller Extendet IO-Space hat (wie zum Beispiel ATmega48, 88, 168, siehe Datenblatt am Ende: Registersummary) dann benutzt der Compiler R23 für einige Operationen. R23 muss dann auch gesichert/wiederhergestellt werden.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
SAVE

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Dies ist der Standardwert wenn kein Parameter angegeben wird. Die gebräuchlichsten benutzten Register,
SREG und RAMPZ werden gesichert und wiederhergestellt.

Gesichert: SREG , R31 bis R16 und R11 bis R0 mit Ausnahme von R6,R8 und R9.

Wenn RAMPZ vorhanden ist dann wird es auch gesichert und wiederhergestellt.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
SAVEALL

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
Dies sichert alle Register, die auch SAVE sichert und zusätzlich noch R12-R15. Man sollte diese Option benutzen wenn man Gleitkommaarithmetik in der Interruptroutine benutzt.

|}
</div>
 

Aus der Interrupt-Routine muss man mit dem RETURN-Befehl zurückkehren

 

Der erste RETURN-Befehl der außerhalb einer Abfrage angetroffen wird generiert eine RETI Instruktion. Man kann nur einen solchen RETURN-Befehl in der ISR haben weil der Compiler die Register wiederherstellt und eine RETI-Instruktion erzeugt wenn es auf das RETURN in der ISR stößt. Alle anderen RETURN-Befehle werden in eine RET-Instruktion umgewandelt

 

Die möglichen Interrupt-Namen können in der Register-Datei des benutzten Mikrocontrollers nachgelesen werden. Die Datei 2313def.dat zeigt zum Beispiel, dass der Name für den Compare-Interrupt den Namen COMPARE1 hat. Siehe am unteren Enede der Datei.

 

 

Wofür gibt es Interrupt Service Routinen?

 

Ein Interrupt unterbricht das Programm und springt zu der angegebenen Routine.
MAn kann eine DO..LOOP Schleife schreiben und zum Beispiel den Stus eines Eingabepins abfragen um eine Routine anzuspringen wenn der Zustand des Pins sich ändert.

 

Bei Verwendung eines Interrupts kann man andere Ausgaben ausführen und wenn der Zustand des Pins sich ändert dann wird ein bestimmter Programmteil angesprungen.
Wenn man zum Beispiel INPUT "Name ", v benutzt um einen Usernamen über die serielle Schnittstelle einzulesen dann wird gewartet bis ein RETURN empfangen wird.
Wenn man eine Interruptroutine hat und der Interrupt tritt ein dann wird der Interrupt-Code ausgeführt und wenn er beendet ist dann wird zu dem Input-Befehl zurückgekehrt und gewartet bis ein RETURN empfangen wird.

 

Vielleicht ist ein Uhrenprogramm ein besseres Beispiel. Man könnte einen Sekundenzähler im Programm hochzählen aber es ist besser, einen Timer zu benutzen und einen Sekundenzähler in der Interruptroutine des Timers hochzuzählen.

 

Es gibt verschiedene Interrupt-Quellen und es hängt vom verwendeten Mikrocontroller ab welche jeweils vorhanden sind.

 

Um Interrupts benutzen zu können muss der globale Interrupt-Schalter mit ENABLE INTERRUPTS eingeschaltet werden. Nur dann können Interrupts benutzt werden. Außerdem müssen die jeweiligen individuellen Interrupt-Schalter eingeschaltet werden.

 

ENABLE TIMER0 zum Beispiel erlaubt es, dass TIMER0 Interrupts auftreten können.

 

Mit dem DISABLE-Befehl können die Schalter ausgeschaltet werden.

 

Wenn der Prozessor einen Interrupt verarbeiten muss dann springt er an eine Adresse am Anfang des Flash-Speichers. Die Adressen stehen in der DAT-Datei.

 

Der Compiler erzeugt normalerweise eine RETI-Instruktion zu diesen Adressen so dass im Falle eines Interrupt-Ereignisses sofort zurückgekehrt wird.

 

Wenn man ON..LABEL benutzt dann erzeugt der Compiler Code, der zu dem angegebenen Label springt. DAS SREG und andere Register werden gesichert und wenn RETURN erreicht wird werde die Register wieder hergestellt und ein RETI erzeugt so dass das Programm dort fortgesetzt wird wo es war als der Interrupt aufgetreten war.

 

Wenn eine Interruptroutine ausgeführt wird dan können keine anderen Interrupts auftreten weil der Prozessor (nicht der Compiler) alles Interrupts DISABLEd indem das MASTER Interrupt Bit gelöscht wird.
Nach Abarbeitung der Serviceroutine werden die Interrupts wieder eingeschaltet.

 

Es ist nicht möglich, Interrupts eine Priorität zu vergeben. Der Interrupt mit der niedrigsten Adresse hat die höchste Priorität.

 

 

Zum Schluss ein paar Tipps :

 

*Wenn Sie einen Timer-Interrupt haben der alle 10 uS auftritt dann stellen Sie sicher, dass der Interrupt-Code in 10 uS ausgeführt werden kann.

 

*Es ist am besten, in der Interruptroutine nur ein Flag zu setzen und dessen Status im Hauptprogramm abzufragen. Dies ermöglicht die Benutzung der NOSAVE Option die Stack- und Programmplatz spart. Man muss dann nur R24 und SREG sichern und wiederherstellen.

 

*Weil man ein Hardware-Register nicht PUSHen kann muss man es erst laden:

 

PUSH R24 ; Weil wir R24 benutzen werden sichern wir es lieber

 

IN r24, SREG ; Inhalt von SREG in R24

PUSH R24 ; Man kann ein Register sichern

 

;hier steht Ihr Assembler-Code

POP R24 ;Inhalt von SREG zurück

 

OUT SREG, R24 ; In SREG sichern

POP R24 ; r24 zurück

 

= See Also =

[[ON VALUE|On VALUE]]

 

 

= Partial Example =

 <source lang="bascomavr">
Enable Interrupts
Enable Int0 'enable the interrupt
On Int0 Label2 Nosave 'jump to label2 on INT0
Do'endless loop
nop
Loop
End

Label2:
Dim A As Byte
If A > 1 Then
Return 'generates a RET because it is inside a condition
End If
Return 'generates a RETI because it is the first RETURN
Return 'generates a RET because it is the second RETURN
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

ON INTERRUPT/de

2013-03-17T21:07:05Z

Stefanhamburg: /* (**COPIED FROM ENGLISH PAGE**) = */

= Funktion =

Führt die Subroutine aus wenn der angegebene Interrupt auftritt.

 

 

= Syntax =

ON interrupt label [NOSAVE|SAVE|SAVEALL]

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="577" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
Interrupt

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
INT0, INT1, INT2, INT3, INT4,INT5, TIMER0 ,TIMER1, TIMER2, ADC , EEPROM , CAPTURE1, COMPARE1A, COMPARE1B,COMPARE1. Or you can use the AVR

name convention:

 

OC2 , OVF2, ICP1, OC1A, OC1B, OVF1, OVF0, SPI, URXC,

UDRE, UTXC, ADCC, ERDY and ACI.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
Label

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
The label to jump to if the interrupt occurs.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
NOSAVE

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
When you specify NOSAVE, no registers are saved and restored in the interrupt routine. So when you use this option make sure to save and restore all used registers.

 

When you omit NOSAVE all used registers will be saved. These are SREG , R31 to R16 and R11 to R0 with exception of R6,R8 and R9 .

 

R12 – R15 are not saved. When you use floating point math in the ISR(not recommended) you must save and restore R12-R15 yourself in the ISR.

My_Isr:

Push R12 ' save registers

Push R13

Push R14

Push R15

 

Single = single + 1 ' we use FP

 

Pop R15  ' restore registers

Pop R14

Pop R13

Pop R12

RETURN

 

 

[[File:Notice.jpg|left|Notice.jpg]]When the AVR has extended IO-space (for example ATMega48, 88 or 168, see datasheet at the end: Registersummary), the compiler uses R23for a number of operations.  So Push and Pop R23 as well when using the NOSAVE-option when using these AVR's with extended IO-space.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
SAVE

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
This is the default and is the same as when no parameter is provided. The most common used registers, SREG, and RAMPZ are saved and restored.

Saved : SREG , R31 to R16 and R11 to R0 with exception of R6,R8 and R9.

If RAMPZ exists, it will be saved as well.

|- style="vertical-align: top;"
| valign="top" width="13%" style="width: 71px; border: 1px solid rgb(0, 0, 0);" |
SAVEALL

| valign="top" style="border: 1px solid rgb(0, 0, 0);" |
This will save all registers that SAVE will save, but it will also save R12-R15. You should use this option when using floating point math in the ISR.

|}
</div>
 

You must return from the interrupt routine with the RETURN statement.

 

The first RETURN statement that is encountered that is outside a condition will generate a RETI instruction. You may have only one such RETURN statement in your interrupt routine because the compiler restores the registers and generates a RETI instruction when it encounters a RETURN statement in the ISR. All other RETURN statements are converted to a RET instruction.

 

The possible interrupt names can be looked up in the selected microprocessor register file. 2313def.dat for example shows that for the compare interrupt the name is COMPARE1. (look at the bottom of the file)

 

 

What are interrupts good for?

 

An interrupt will halt your program and will jump to a specific part of your program. You can make a DO .. LOOP and poll the status of a pin for example to execute some code when the input on a pin changes.

 

But with an interrupt you can perform other tasks and when then pin input changes a special part of your program will be executed. When you use INPUT "Name ", v for example to get a user name via the RS-232 interface it will wait until a RETURN is received. When you have an interrupt routine and the interrupt occurs it will branch to the interrupt code and will execute the interrupt code. When it is finished it will return to the Input statement, waiting until a RETURN is entered.

 

Maybe a better example is writing a clock program. You could update a variable in your program that updates a second counter. But a better way is to use a TIMER interrupt and update a seconds variable in the TIMER interrupt handler.

 

There are multiple interrupt sources and it depends on the used chip which are available.

 

To allow the use of interrupts you must set the global interrupt switch with a ENABLE INTERRUPTS statement. This only allows that interrupts can be used. You must also set the individual interrupt switches on!

 

ENABLE TIMER0 for example allows the TIMER0 interrupt to occur.

 

With the DISABLE statement you turn off the switches.

 

When the processor must handle an interrupt it will branch to an address at the start of flash memory. These addresses can be found in the DAT files.

 

The compiler normally generates a RETI instruction on these addresses so that in the event that an interrupt occurs, it will return immediately.

 

When you use the ON ... LABEL statement, the compiler will generate code that jumps to the specified label. The SREG and other registers are saved at the LABEL location and when the RETURN is found the compiler restores the registers and generates the RETI so that the program will continue where it was at the time the interrupt occurred.

 

When an interrupt is services no other interrupts can occur because the processor(not the compiler) will disable all interrupts by clearing the master interrupt enable bit. When the interrupt is services the interrupt is also cleared so that it can occur again when the conditions are met that sets the interrupt.

 

It is not possible to give interrupts a priority. The interrupt with the lowest address has the highest interrupt!

 

 

Finally some tips :

 

*when you use a timer interrupt that occurs each 10 uS for example, be sure that the interrupt code can execute in 10 uS. Otherwise you would loose time.

 

*it is best to set just a simple flag in the interrupt routine and to determine it's status in the main program. This allows you to use the NOSAVE option that saves stack space and program space. You only have to Save and Restore R24 and SREG in that case.

 

*Since you can not PUSH a hardware register, you need to load it first:

 

PUSH R24 ; since we are going to use R24 we better save it

 

IN r24, SREG ; get content of SREG into R24

PUSH R24 ; we can save a register

 

;here goes your asm code

POP R24 ;get content of SREG

 

OUT SREG, R24 ; save into SREG

POP R24 ; get r24 back

 

= See Also =

[[ON VALUE|On VALUE]]

 

 

= Partial Example =

 <source lang="bascomavr">
Enable Interrupts
Enable Int0 'enable the interrupt
On Int0 Label2 Nosave 'jump to label2 on INT0
Do'endless loop
nop
Loop
End

Label2:
Dim A As Byte
If A > 1 Then
Return 'generates a RET because it is inside a condition
End If
Return 'generates a RETI because it is the first RETURN
Return 'generates a RET because it is the second RETURN
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

ON VALUE/de

2013-03-17T20:58:09Z

Stefanhamburg: /* Beispiel */

= Funktion =

Verzweigung zu einem von mehreren angegebenen Labels in Abhängigkeit des Wertes einer Variablen.

 

 

= Syntax =

ON var [GOTO] [GOSUB] label1 [, label2 ] [,CHECK]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="515" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
var

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Die zu prüfende numerische Variable.

Kann auch ein SFR wie zum Beispiel PORTB sein.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
label1, label2

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Label (Sprungmarken) zu denen je nach Wert der Variablen gesprungen werden soll.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
CHECK

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Optionale Prüfung der Anzahl der Sprungmarken.

|}
</div>
 

Die Verzweigung erfolg nullbasiert. Wenn der Wert also Null ist dann wird zur ersten angegebenen Sprungmarke verzweigt.

Es ist wichtig, dass es zu jedem möglichen Wert eine zugehörige Sprungmarke gibt.

Wenn nicht genügend Sprungmarken vorhanden sind dann läuft der Stack über.
Beispiel:

ON value label1, label2

 

Wenn value = 2 dann gibt es keine zugehörige Sprungmarke.

 

Wenn man den optionalen CHECK Parameter benutzt dann wird geprüft ob genügend viele Sprungmarken vorhanden sind und wenn das nicht der Fall ist dann wird kein GOTO oder GOSUB ausgeführt sondern die nächste Zeile wird ausgeführt.

 

= Siehe auch =

[[ON INTERRUPT|ON INTERRUPT]]

 

 

= Assembler =

The following code will be generated for a non-MEGA micro with ON value GOTO.

Ldi R26,$60       ; load address of variable

Ldi R27,$00 ; load constant in register

Ld R24,X

Clr R25

 

Ldi R30, Low(ON_1_ * 1)     ; load Z with address of the label

Ldi R31, High(ON_1_ * 1)

 

Add zl,r24       ; add value to Z

Adc zh,r25

 

Ijmp        ; jump to address stored in Z

 

ON_1_:

 

Rjmp lbl1       ; jump table

Rjmp lbl2

Rjmp lbl3

 

 

The following code will be generated for a non-MEGA micro with ON value GOSUB.

 

<nowiki>;#####</nowiki> On X Gosub L1 , L2

Ldi R30,Low(ON_1_EXIT * 1)

Ldi R31,High(ON_1_EXIT * 1)

Push R30 ;push return address

Push R31

Ldi R30,Low(ON_1_ * 1)      ;load table address

Ldi R31,High(ON_1_ * 1)

Ldi R26,$60

Ld R24,X

Clr R25

 

Add zl,r24 ; add to address of jump table

Adc zh,r25

Ijmp        ; jump !!!

 

ON_1_:

Rjmp L1

Rjmp L2

ON_1_EXIT:

 

 

As you can see a jump is used to call the routine. Therefore the return address is first saved on the stack.

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : ongosub.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo : ON .. GOSUB/GOTO
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim A As Byte
Input "Enter value 0-2 " , A 'Nach Eingabe fragen
Rem Zu beachten: Der Startwert beginnt mit Null
On A Gosub L0 , L1 , L2
Print "Zurück aus GOSUB"

If Portb < 2 Then 'Man kann auch den Port-Wert benutzen
On Portb Goto G0 , G1
End If
End_prog:
End

L0:
Print "0 eingegeben"
Return

L1:
Print "1 eingegeben"
Return

L2:
Print "2 eingegeben"
Return

G0:
Print "P1 = 0"
Goto End_prog

G1:
Print "P1 = 1"
Goto End_prog
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

ON VALUE/de

2013-03-17T20:57:01Z

Stefanhamburg: /* Example */

= Funktion =

Verzweigung zu einem von mehreren angegebenen Labels in Abhängigkeit des Wertes einer Variablen.

 

 

= Syntax =

ON var [GOTO] [GOSUB] label1 [, label2 ] [,CHECK]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="515" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
var

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Die zu prüfende numerische Variable.

Kann auch ein SFR wie zum Beispiel PORTB sein.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
label1, label2

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Label (Sprungmarken) zu denen je nach Wert der Variablen gesprungen werden soll.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
CHECK

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Optionale Prüfung der Anzahl der Sprungmarken.

|}
</div>
 

Die Verzweigung erfolg nullbasiert. Wenn der Wert also Null ist dann wird zur ersten angegebenen Sprungmarke verzweigt.

Es ist wichtig, dass es zu jedem möglichen Wert eine zugehörige Sprungmarke gibt.

Wenn nicht genügend Sprungmarken vorhanden sind dann läuft der Stack über.
Beispiel:

ON value label1, label2

 

Wenn value = 2 dann gibt es keine zugehörige Sprungmarke.

 

Wenn man den optionalen CHECK Parameter benutzt dann wird geprüft ob genügend viele Sprungmarken vorhanden sind und wenn das nicht der Fall ist dann wird kein GOTO oder GOSUB ausgeführt sondern die nächste Zeile wird ausgeführt.

 

= Siehe auch =

[[ON INTERRUPT|ON INTERRUPT]]

 

 

= Assembler =

The following code will be generated for a non-MEGA micro with ON value GOTO.

Ldi R26,$60       ; load address of variable

Ldi R27,$00 ; load constant in register

Ld R24,X

Clr R25

 

Ldi R30, Low(ON_1_ * 1)     ; load Z with address of the label

Ldi R31, High(ON_1_ * 1)

 

Add zl,r24       ; add value to Z

Adc zh,r25

 

Ijmp        ; jump to address stored in Z

 

ON_1_:

 

Rjmp lbl1       ; jump table

Rjmp lbl2

Rjmp lbl3

 

 

The following code will be generated for a non-MEGA micro with ON value GOSUB.

 

<nowiki>;#####</nowiki> On X Gosub L1 , L2

Ldi R30,Low(ON_1_EXIT * 1)

Ldi R31,High(ON_1_EXIT * 1)

Push R30 ;push return address

Push R31

Ldi R30,Low(ON_1_ * 1)      ;load table address

Ldi R31,High(ON_1_ * 1)

Ldi R26,$60

Ld R24,X

Clr R25

 

Add zl,r24 ; add to address of jump table

Adc zh,r25

Ijmp        ; jump !!!

 

ON_1_:

Rjmp L1

Rjmp L2

ON_1_EXIT:

 

 

As you can see a jump is used to call the routine. Therefore the return address is first saved on the stack.

 

 

= Beispiel =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : ongosub.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo : ON .. GOSUB/GOTO
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim A As Byte
Input "Enter value 0-2 " , A 'NAch Eingabe fragen
Rem Zu beachten: Der Startwert beginnt mit Null
On A Gosub L0 , L1 , L2
Print "Zurück aus GOSUB"

If Portb < 2 Then 'Man kann auch den Port-Wert benutzen
On Portb Goto G0 , G1
End If
End_prog:
End

L0:
Print "0 entered"
Return

L1:
Print "1 entered"
Return

L2:
Print "2 entered"
Return

G0:
Print "P1 = 0"
Goto End_prog

G1:
Print "P1 = 1"
Goto End_prog
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

ON VALUE/de

2013-03-17T20:53:32Z

Stefanhamburg: /* ASM */

= Funktion =

Verzweigung zu einem von mehreren angegebenen Labels in Abhängigkeit des Wertes einer Variablen.

 

 

= Syntax =

ON var [GOTO] [GOSUB] label1 [, label2 ] [,CHECK]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="515" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
var

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Die zu prüfende numerische Variable.

Kann auch ein SFR wie zum Beispiel PORTB sein.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
label1, label2

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Label (Sprungmarken) zu denen je nach Wert der Variablen gesprungen werden soll.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
CHECK

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Optionale Prüfung der Anzahl der Sprungmarken.

|}
</div>
 

Die Verzweigung erfolg nullbasiert. Wenn der Wert also Null ist dann wird zur ersten angegebenen Sprungmarke verzweigt.

Es ist wichtig, dass es zu jedem möglichen Wert eine zugehörige Sprungmarke gibt.

Wenn nicht genügend Sprungmarken vorhanden sind dann läuft der Stack über.
Beispiel:

ON value label1, label2

 

Wenn value = 2 dann gibt es keine zugehörige Sprungmarke.

 

Wenn man den optionalen CHECK Parameter benutzt dann wird geprüft ob genügend viele Sprungmarken vorhanden sind und wenn das nicht der Fall ist dann wird kein GOTO oder GOSUB ausgeführt sondern die nächste Zeile wird ausgeführt.

 

= Siehe auch =

[[ON INTERRUPT|ON INTERRUPT]]

 

 

= Assembler =

The following code will be generated for a non-MEGA micro with ON value GOTO.

Ldi R26,$60       ; load address of variable

Ldi R27,$00 ; load constant in register

Ld R24,X

Clr R25

 

Ldi R30, Low(ON_1_ * 1)     ; load Z with address of the label

Ldi R31, High(ON_1_ * 1)

 

Add zl,r24       ; add value to Z

Adc zh,r25

 

Ijmp        ; jump to address stored in Z

 

ON_1_:

 

Rjmp lbl1       ; jump table

Rjmp lbl2

Rjmp lbl3

 

 

The following code will be generated for a non-MEGA micro with ON value GOSUB.

 

<nowiki>;#####</nowiki> On X Gosub L1 , L2

Ldi R30,Low(ON_1_EXIT * 1)

Ldi R31,High(ON_1_EXIT * 1)

Push R30 ;push return address

Push R31

Ldi R30,Low(ON_1_ * 1)      ;load table address

Ldi R31,High(ON_1_ * 1)

Ldi R26,$60

Ld R24,X

Clr R25

 

Add zl,r24 ; add to address of jump table

Adc zh,r25

Ijmp        ; jump !!!

 

ON_1_:

Rjmp L1

Rjmp L2

ON_1_EXIT:

 

 

As you can see a jump is used to call the routine. Therefore the return address is first saved on the stack.

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : ongosub.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo : ON .. GOSUB/GOTO
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim A As Byte
Input "Enter value 0-2 " , A 'ask for input
Rem Note That The Starting Value Begins With 0
On A Gosub L0 , L1 , L2
Print "Returned"

If Portb < 2 Then 'you can also use the portvalue
On Portb Goto G0 , G1
End If
End_prog:
End

L0:
Print "0 entered"
Return

L1:
Print "1 entered"
Return

L2:
Print "2 entered"
Return

G0:
Print "P1 = 0"
Goto End_prog

G1:
Print "P1 = 1"
Goto End_prog
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

ON VALUE/de

2013-03-17T20:52:58Z

Stefanhamburg: /* See Also */

= Funktion =

Verzweigung zu einem von mehreren angegebenen Labels in Abhängigkeit des Wertes einer Variablen.

 

 

= Syntax =

ON var [GOTO] [GOSUB] label1 [, label2 ] [,CHECK]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="515" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
var

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Die zu prüfende numerische Variable.

Kann auch ein SFR wie zum Beispiel PORTB sein.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
label1, label2

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Label (Sprungmarken) zu denen je nach Wert der Variablen gesprungen werden soll.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
CHECK

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Optionale Prüfung der Anzahl der Sprungmarken.

|}
</div>
 

Die Verzweigung erfolg nullbasiert. Wenn der Wert also Null ist dann wird zur ersten angegebenen Sprungmarke verzweigt.

Es ist wichtig, dass es zu jedem möglichen Wert eine zugehörige Sprungmarke gibt.

Wenn nicht genügend Sprungmarken vorhanden sind dann läuft der Stack über.
Beispiel:

ON value label1, label2

 

Wenn value = 2 dann gibt es keine zugehörige Sprungmarke.

 

Wenn man den optionalen CHECK Parameter benutzt dann wird geprüft ob genügend viele Sprungmarken vorhanden sind und wenn das nicht der Fall ist dann wird kein GOTO oder GOSUB ausgeführt sondern die nächste Zeile wird ausgeführt.

 

= Siehe auch =

[[ON INTERRUPT|ON INTERRUPT]]

 

 

= ASM =

The following code will be generated for a non-MEGA micro with ON value GOTO.

Ldi R26,$60       ; load address of variable

Ldi R27,$00 ; load constant in register

Ld R24,X

Clr R25

 

Ldi R30, Low(ON_1_ * 1)     ; load Z with address of the label

Ldi R31, High(ON_1_ * 1)

 

Add zl,r24       ; add value to Z

Adc zh,r25

 

Ijmp        ; jump to address stored in Z

 

ON_1_:

 

Rjmp lbl1       ; jump table

Rjmp lbl2

Rjmp lbl3

 

 

The following code will be generated for a non-MEGA micro with ON value GOSUB.

 

<nowiki>;#####</nowiki> On X Gosub L1 , L2

Ldi R30,Low(ON_1_EXIT * 1)

Ldi R31,High(ON_1_EXIT * 1)

Push R30 ;push return address

Push R31

Ldi R30,Low(ON_1_ * 1)      ;load table address

Ldi R31,High(ON_1_ * 1)

Ldi R26,$60

Ld R24,X

Clr R25

 

Add zl,r24 ; add to address of jump table

Adc zh,r25

Ijmp        ; jump !!!

 

ON_1_:

Rjmp L1

Rjmp L2

ON_1_EXIT:

 

 

As you can see a jump is used to call the routine. Therefore the return address is first saved on the stack.

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : ongosub.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo : ON .. GOSUB/GOTO
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim A As Byte
Input "Enter value 0-2 " , A 'ask for input
Rem Note That The Starting Value Begins With 0
On A Gosub L0 , L1 , L2
Print "Returned"

If Portb < 2 Then 'you can also use the portvalue
On Portb Goto G0 , G1
End If
End_prog:
End

L0:
Print "0 entered"
Return

L1:
Print "1 entered"
Return

L2:
Print "2 entered"
Return

G0:
Print "P1 = 0"
Goto End_prog

G1:
Print "P1 = 1"
Goto End_prog
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

ON VALUE/de

2013-03-17T20:52:39Z

Stefanhamburg: /* Anmerkungen */

= Funktion =

Verzweigung zu einem von mehreren angegebenen Labels in Abhängigkeit des Wertes einer Variablen.

 

 

= Syntax =

ON var [GOTO] [GOSUB] label1 [, label2 ] [,CHECK]

 

 

= Anmerkungen =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="515" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
var

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Die zu prüfende numerische Variable.

Kann auch ein SFR wie zum Beispiel PORTB sein.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
label1, label2

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Label (Sprungmarken) zu denen je nach Wert der Variablen gesprungen werden soll.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
CHECK

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
Optionale Prüfung der Anzahl der Sprungmarken.

|}
</div>
 

Die Verzweigung erfolg nullbasiert. Wenn der Wert also Null ist dann wird zur ersten angegebenen Sprungmarke verzweigt.

Es ist wichtig, dass es zu jedem möglichen Wert eine zugehörige Sprungmarke gibt.

Wenn nicht genügend Sprungmarken vorhanden sind dann läuft der Stack über.
Beispiel:

ON value label1, label2

 

Wenn value = 2 dann gibt es keine zugehörige Sprungmarke.

 

Wenn man den optionalen CHECK Parameter benutzt dann wird geprüft ob genügend viele Sprungmarken vorhanden sind und wenn das nicht der Fall ist dann wird kein GOTO oder GOSUB ausgeführt sondern die nächste Zeile wird ausgeführt.

 

= See Also =

[[ON INTERRUPT|ON INTERRUPT]]

 

 

= ASM =

The following code will be generated for a non-MEGA micro with ON value GOTO.

Ldi R26,$60       ; load address of variable

Ldi R27,$00 ; load constant in register

Ld R24,X

Clr R25

 

Ldi R30, Low(ON_1_ * 1)     ; load Z with address of the label

Ldi R31, High(ON_1_ * 1)

 

Add zl,r24       ; add value to Z

Adc zh,r25

 

Ijmp        ; jump to address stored in Z

 

ON_1_:

 

Rjmp lbl1       ; jump table

Rjmp lbl2

Rjmp lbl3

 

 

The following code will be generated for a non-MEGA micro with ON value GOSUB.

 

<nowiki>;#####</nowiki> On X Gosub L1 , L2

Ldi R30,Low(ON_1_EXIT * 1)

Ldi R31,High(ON_1_EXIT * 1)

Push R30 ;push return address

Push R31

Ldi R30,Low(ON_1_ * 1)      ;load table address

Ldi R31,High(ON_1_ * 1)

Ldi R26,$60

Ld R24,X

Clr R25

 

Add zl,r24 ; add to address of jump table

Adc zh,r25

Ijmp        ; jump !!!

 

ON_1_:

Rjmp L1

Rjmp L2

ON_1_EXIT:

 

 

As you can see a jump is used to call the routine. Therefore the return address is first saved on the stack.

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : ongosub.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo : ON .. GOSUB/GOTO
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space

Dim A As Byte
Input "Enter value 0-2 " , A 'ask for input
Rem Note That The Starting Value Begins With 0
On A Gosub L0 , L1 , L2
Print "Returned"

If Portb < 2 Then 'you can also use the portvalue
On Portb Goto G0 , G1
End If
End_prog:
End

L0:
Print "0 entered"
Return

L1:
Print "1 entered"
Return

L2:
Print "2 entered"
Return

G0:
Print "P1 = 0"
Goto End_prog

G1:
Print "P1 = 1"
Goto End_prog
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]