Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
BASCOM AVR, help reference (2007).PDF
Скачиваний:
305
Добавлен:
12.08.2013
Размер:
17.02 Mб
Скачать

© MCS Electronics, 1995-2007

Tempw = Tcpwrite(i , "Subject: BASCOM SMTP

test{013}{010}")

Tempw = Tcpwrite(i , "X-Mailer: BASCOM

SMTP{013}{010}")

Tempw = Tcpwrite(i , "{013}{010}")

Tempw = Tcpwrite(i , "This is a test email from

BASCOM SMTP{013}{010}")

 

 

Tempw = Tcpwrite(i , "Add more lines as

 

needed{013}{010}")

 

' end

Tempw = Tcpwrite(i , ".{013}{010}")

with a single dot

 

 

Tempw = Tcpread(i , S)

' get response

#if Debug

 

 

Print S

 

 

#endif

' ok

 

If Left(s , 3) = "250" Then

 

Tempw = Tcpwrite(i , "QUIT{013}{010}")

 

' quit connection

 

 

Tempw = Tcpread(i , S)

 

 

#if Debug

 

 

Print S

 

 

#endif

 

 

End If

 

 

End If

 

 

End If

 

 

End If

 

 

End If

 

 

End If

 

 

Case Sock_close_wait

 

 

Print "CLOSE_WAIT"

' close the

 

Closesocket I

 

connection

 

 

Case Sock_closed

' socket is closed

Print "Socket CLOSED"

End

 

 

End Select

 

 

Loop

 

 

End If

 

 

End If

'end program

End

TANH

Action

Returns the hyperbole of a single

Syntax

var = TANH( source )

Remarks

Var

A numeric variable that is assigned with hyperbole of variable

 

source.

Source

The single or double variable to get the hyperbole of.

 

 

All trig functions work with radians. Use deg2rad and rad2deg to convert between radians

page -695-

© MCS Electronics, 1995-2007

and angles.

See Also

RAD2DEG , DEG2RAD , ATN , COS , SIN , SINH , COSH

Example

Show sample

THIRDLINE

Action

Reset LCD cursor to the third line.

Syntax

THIRDLINE

Remarks

NONE

See also

UPPERLINE , LOWERLINE , FOURTHLINE

Example

Dim A As Byte

A = 255

Cls

Lcd A

Thirdline

Lcd A

Upperline

End

TIME$

Action

Internal variable that holds the time.

Syntax

TIME$ = "hh:mm:ss" var = TIME$

Remarks

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

page -696-

© MCS Electronics, 1995-2007

directive.

The CONFIG CLOCK statement will use the TIMER0 or TIMER2 in async mode to create a 1 second interrupt. 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.

The async timer is only available in the M103, 90S8535, M163 and M32(3), Mega128, Mega64, Mega8. For other chips it will not work.

As new chips are launched by Atmel, and support is added by MCS, the list above might not be complete. It is intended to serve as an example for chips with a timer that can be used in asynchrone mode. So when your micro has a timer that can be used in asynchrone mode, it should work.

Do not confuse DATE$ with the DATE function.

ASM

The following asm routines are called from mcs.lib.

When assiging TIME$ : _set_time (calls _str2byte)

When reading TIME$ : _make_dt (calls _byte2str)

See also

DATE$ , CONFIG CLOCK , CONFIG DATE

Example

See the sample of DATE$

TIME

Action

Returns a time-value (String or 3 Byte for Second, Minute and Hour) depending of the Type of the Target

Syntax

bSecMinHour = Time(lSecOfDay)

bSecMinHour = Time(lSysSec)

bSecMinHour = Time(strTime)

strTime = Time(lSecOfDay) strTime = Time(lSysSec)

page -697-

© MCS Electronics, 1995-2007

strTime = Time(bSecMinHour)

Remarks

bSecMinHour

A BYTE – variable, which holds the Second-value followed by Minute

 

(Byte) and Hour (Byte)

strTime

A Time – String in Format „hh:mm:ss"

lSecOfDay

A LONG – variable which holds Second Of Day (SecOfDay)

lSysSec

A LONG – variable which holds System Second (SysSec)

 

 

Converting to a time-string:

The target string strTime must have a length of at least 8 Bytes, otherwise SRAM after the target-string will be overwritten.

Converting to Softclock format (3 Bytes for Second, Minuteand Hour):

Three Bytes for Seconds, Minutes and Hour must follow each other in SRAM. The variable-name of the first Byte, that one for Second must be passed to the function.

See also

Date and Time Routines , SECOFDAY, SYSSEC

Partial Example

Enable Interrupts

Config Clock = Soft

Dim Strtime As String * 8

Dim Bsec As Byte , Bmin As Byte , Bhour As Byte

Dim Lsecofday As Long

Dim Lsyssec As Long

'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

'Time values: Sec=20 Min=1 Hour=7 converted to string 07:01:20

'Example 2: Converting System Second to Time - String

Lsyssec = 123456789

Strtime = Time(lsyssec)

Print "Time of Systemsecond " ; Lsyssec ; " is " ; Strtime

'Time of Systemsecond 123456789 is 21:33:09

'Example 3: Converting Second of Day to Time - String Lsecofday = 12345

Strtime = Time(lsecofday)

Print "Time of Second of Day " ; Lsecofday ; " is " ; Strtime

'Time of Second of Day 12345 is 03:25:45

'Example 4: Converting System Second to defined Clock - Bytes (Second /

page -698-