ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 12.06.2025

Просмотров: 8333

Скачиваний: 1

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

© MCS Electronics, 1995-2007

for the hardware stack

' default use 10

$swstack = 10

for the SW stack

' default use 40

$framesize = 40

for the frame space

Dim A As Byte , B1 As Byte , C As Byte

Dim Aa As Bit , I As Integer

A = 5 : B1 = 3

' assign values

C = A And B1

' and a with b

Print "a AND c = " ; C

' print result

C = A Or B1

'also for or

Print "a OR b1 = " ; C

C = A Xor B1

' and for xor

Print "a XOR b1 = " ; C

A = 1

'not

C = Not A

Print "c = NOT a " ; C

C = C Mod 10

Print "c MOD 10 = " ; C

If Portb.1 = 1 Then

Print "Bit set"

Else

Print "Bit not set"

End If

Aa = 1

'use this or ..

Set Aa

'use the set

statement

If Aa = 1 Then

Print "Bit set (aa=1)"

Else

Print "Bit not set(aa=0)"

End If

Aa = 0

'now try 0

Reset Aa

'or use reset

If Aa = 1 Then

Print "Bit set (aa=1)"

Else

Print "Bit not set(aa=0)"

End If

B1 = 255

'assign variable

Reset B1.0

'reset bit 0 of a

byte variable

'print it

Print B1

Set B1.0

'set it

Print B1

'print it

End

page -628-


© MCS Electronics, 1995-2007

SETFONT

Action

Sets the current font which can be used on some graphical displays.

Syntax

SETFONT font

Remarks

font The name of the font that need to be used with LCDAT statements.

Since SED-based displays do not have their own font generator, you need to define your own fonts. You can create and modify your own fonts with the FontEditor Plugin.

SETFONT will set an internal used data pointer to the location in memory where you font is stored. The name you specify is the same name you use to define the font.

You need to include the used fonts with the $include directive:

$INCLUDE "font8x8.font"

The order of the font files is not important. The location in your source is however important.

The $INCLUDE statement will include binary data and this may not be accessed by the flow of your program.

When your program flow enters into font code, unpredictable results will occur.

So it is best to place the $INCLUDE files at the end of your program behind the END statement.

You need to include the glibSED library with : $LIB "glibsed.lbx"

While original written for the SED1521, fonts are supported on a number of displays now including color displays.

See also

CONFIG GRAPHLCD , LCDAT, GLCDCMD, GLCDDATA

Example

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

------------

: sed1520.bas

'name

'copyright

: (c) 1995-2005, MCS Electronics

'purpose

: demonstrates the SED1520 based graphical display

support

: Mega48

'micro

'suited for demo

: yes

'commercial addon needed

: no

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

------------

page -629-


© MCS Electronics, 1995-2007

$regfile = "m48def.dat"

' specify the used

micro

' used crystal

$crystal = 7372800

frequency

' use baud rate

$baud = 115200

$hwstack = 32

' default use 32

for the hardware stack

' default use 10

$swstack = 10

for the SW stack

' default use 40

$framesize = 40

for the frame space

'I used a Staver to test

'some routines to control the display are in the glcdSED.lib file 'IMPORTANT : since the SED1520 uses 2 chips, the columns are split into 2 of 60.

'This means that data after column 60 will not print correct. You need to locate the data on the second halve

'For example when you want to display a line of text that is more then 8 chars long, (8x8=64) , byte 8 will not draw correctly

'Frankly i find the KS0108 displays a much better choice.

$lib "glcdSED1520.lbx"

'First we define that we use a graphic LCD

Config Graphlcd = 120 * 64sed , Dataport = Porta , Controlport = Portd , Ce = 5 , Ce2 = 7 , Cd = 3 , Rd = 4

'The dataport is the portname that is connected to the data lines of the LCD 'The controlport is the portname which pins are used to control the lcd

'CE =CS Chip Enable/ Chip select

'CE2= Chip select / chip enable of chip 2 'CD=A0 Data direction

'RD=Read

'Dim variables (y not used)

Dim X As Byte , Y As Byte

'clear the screen

Cls Wait 2

'specify the font we want to use

Setfont Font8x8

'You can use locate but the columns have a range from 1-132

'When you want to show somthing on the LCD, use the LDAT command 'LCDAT Y , COL, value

Lcdat 1 , 1 , "1231231" Lcdat 3 , 80 , "11"

'lcdat accepts an additional param for inversing the text 'lcdat 1,1,"123" , 1 ' will inverse the text

Wait 2

Line(0 , 0) -(30 , 30) , 1

Wait 2

Showpic 0 , 0 , Plaatje

'show a

comnpressed picture

'end program

End

page -630-


© MCS Electronics, 1995-2007

'we need to include the font files $include "font8x8.font"

'$include "font16x16.font"

Plaatje:

'include the picture data $bgf "smile.bgf"

SETTCP

Action

(Re) Configures the TCP/IP W3100A chip.

Syntax

SETTCP MAC , IP , SUBMASK , GATEWAY

Remarks

MAC

IP

The MAC address you want to assign to the W3100A.

The MAC address is a unique number that identifies your chip. You must use a different address for every W3100A chip in your network. Example : 123.00.12.34.56.78

You need to specify 6 bytes that must be separated by dots. The bytes must be specified in decimal notation.

The IP address you want to assign to the W3100A.

The IP address must be unique for every W3100A in your network. When you have a LAN, 192.168.0.10 can be used. 192.168.0.x is used for LAN’s since the address is not an assigned internet address.

SUBMASK

The submask you want to assign to the W3100A.

The submask is in most cases 255.255.255.0

GATEWAY

This is the gateway address of the W3100A.

The gateway address you can determine with the IPCONFIG command at

the command prompt :

C:\>ipconfig

Windows 2000 IP Configuration

Ethernet adapter Local Area Connection 2:

Connection-specific DNS Suffix . :

IP Address. . . . . . . . . . . .

: 192.168.0.3

Subnet Mask . . . . . . . . . .

. : 255.255.255.0

Default Gateway . . . . . . .

. . : 192.168.0.1

Use 192.168.0.1 in this case.

The CONFIG TCPIP statement may be used only once.

page -631-