'''BASCOM-AVR© '''is the original '''Windows BASIC COMPILER''' for the '''AVR''' family'''. '''It is designed to run on '''XP'''/VISTA/WIN7 and WIN8''''''

This product description is updated in 2014. But we do not change it each time we update the software. In the [http://wiki.mcselec.com/bavr/ online help] you can find a list of all statements and functions.

=== Key Benefits ===

*Structured '''BASIC''' with labels.
*Structured programming with IF-THEN-ELSE-END IF, DO-LOOP, WHILE-WEND, SELECT- CASE.
*Fast machine code instead of interpreted code.
*Variables and labels can be as long as 32 characters.
*Bit, Byte, Integer, Word, Long, Single, Double and String variables.
*Large set of Trig Floating point functions.
*Date & Time calculation functions.
*Compiled programs work with all AVR microprocessors that have internal memory.
*Statements are highly compatible with Microsoft’s VB/QB.
*Special commands for '''LCD'''-displays , '''I2C''' chips and '''1WIRE''' chips, PC keyboad, matrix keyboad, '''RC5''' reception, software UART, SPI , graphical LCD, send IR RC5,'''RC6''' or Sony code.
*TCP/IP with W3100A/W5100/W5200/W5300 chips.
*Built in AVR-DOS functions like MKDIR, CHDIR, DIR, OPEN, CLOSE, etc. Just as they work in  QB/VB !
*Local variables, user functions, library support.
*Integrated <u>terminal emulator with download option.</u>.
*Integrated <u>simulator</u> for testing.
*Integrated ISP programmer (application note AVR910.ASM).
*Integrated STK200 programmer and STK300 programmer. Also supported is the low cost Sample Electronics programmer. Can be built in 10 minutes! Many other programmers supported via the Universal Interface.
*Many supported programmer like STK500, STK600, MKII, USBASP, JTAG , Arduino
*Editor with statement highlighting.
*Context sensitive help.
*DEMO version compiles '''4KB''' of binary code. Well suited for the ATmega48.
*[http://www.mcselec.com/commerce/books.htm English an German Books available]
*AT mouse simulator, AT keyboard simulator, I2C Slave available as add on.
*This product is developed in 1995 and is updated regularly.

 

===== '''The following statements are supported ('''actually there are many more look in the on line helpfile'''):''' =====

'''Decision and structures'''<br/>IF, THEN, ELSE, ELSEIF, END IF, DO, LOOP, WHILE, WEND, UNTIL, EXIT DO, EXIT WHILE, FOR, NEXT, TO, STEP, EXIT FOR, ON .. GOTO/GOSUB, SELECT, CASE.

'''Input and output'''<br/>PRINT, INPUT, INKEY, PRINT, INPUTHEX, LCD, UPPERLINE, LOWERLINE,DISPLAY ON/OFF, CURSOR ON/OFF/BLINK/NOBLINK, HOME, LOCATE, SHIFTLCD LEFT/RIGHT, SHIFTCURSOR LEFT/RIGHT, CLS, DEFLCDCHAR, WAITKEY, INPUTBIN, PRINTBIN, OPEN, CLOSE, DEBOUNCE, SHIFTIN, SHIFTOUT, GETATKBD, SPC, SERIN, SEROUT

'''Numeric functions'''<br/>AND, OR, XOR, INC, DEC, MOD, NOT, ABS, BCD, LOG, EXP, SQR, SIN,COS,TAN,ATN, ATN2, ASIN, ACOS, FIX, ROUND, MOD, SGN, POWER, RAD2DEG, DEG2RAD, LOG10, TANH, SINH, COSH.

'''I2C'''<br/>I2CSTART, I2CSTOP, I2CWBYTE, I2CRBYTE, I2CSEND and I2CRECEIVE.

'''1WIRE'''<br/>1WWRITE, 1WREAD, 1WRESET, 1WIRECOUNT, 1WSEARCHFIRST, 1WSEARCHNEXT.

'''SPI'''<br/>SPIINIT, SPIIN, SPIOUT, SPIMOVE.

'''CAN'''<br/>CONFIG CANBUSMODE, CONFIG CANMOB, CANBAUD, CANRESET, CANCLEARMOB, CANCLEARALLMOBS, CANSEND, CANRECEIVE , CANID,CANSELPAGE, CANGETINTS

'''TCP/IP'''<br/>TCP/IP routines can be used with the W3100/IIM7000/IIM7010/W5100/W5200/W5300 modules.

BASE64DEC , BASE64ENC , IP2STR , UDPREAD , UDPWRITE , UDPWRITESTR , TCPWRITE , TCPWRITESTR , TCPREAD ,GETDSTIP , GETDSTPORT , SOCKETSTAT , SOCKETCONNECT ,SOCKETLISTEN ,  GETSOCKET , SOCKETCLOSE , SETTCP , GETTCPREGS , SETTCPREGS , SETIPPROTOCOL , TCPCHECKSUM ,  SOCKETDISCONNECT , SNTP , TCPREADHEADER ,UDPREADHEADER

'''Interrupt programming'''<br/>ON INT0/INT1/TIMER0/TIMER1/SERIAL, RETURN, ENABLE, DISABLE, COUNTERx, CAPTUREx, INTERRUPTS, CONFIG, START, LOAD.

'''Bit manipulation'''<br/>SET, RESET, ROTATE, SHIFT, BITWAIT, TOGGLE.

'''Variables'''<br/>DIM, BIT , BYTE , INTEGER , WORD, LONG, SINGLE, DOUBLE, STRING , DEFBIT, DEFBYTE, DEFINT, DEFWORD.

'''Miscellaneous'''<br/>REM, ' , SWAP, END, STOP, CONST, DELAY, WAIT, WAITMS, GOTO, GOSUB, POWERDOWN, IDLE, DECLARE, CALL, SUB, END SUB, MAKEDEC, MAKEBCD, INP,OUT, ALIAS, DIM , ERASE, DATA, READ, RESTORE, INCR, DECR, PEEK, POKE, CPEEK, FUNCTION, READMAGCARD, BIN2GREY, GREY2BIN, CRC8, CRC16, CRC32, CHECKSUM.

'''Compiler directives'''<br/>$INCLUDE, $BAUD and $CRYSTAL, $SERIALINPUT, $SERIALOUTPUT, $RAMSIZE, $RAMSTART, $DEFAULT XRAM, $ASM-$END ASM, $LCD, $EXTERNAL, $LIB.

'''String manipulation'''<br/>STRING, SPACE, LEFT, RIGHT, MID, VAL, HEXVAL, LEN, STR, HEX, LTRIM, RTRIM, TRIM, LCASE, UCASE, FORMAT, FUSING, INSTR, CHARPOS.

'''And many other functions, statements and directives'''

<br/>'''To make a program takes just a few steps :'''

*'''Write the program in BASIC'''
*'''Compile it to fast machine binary code'''
*'''Test the result with the integrated simulator(with additional hardware you can simulate the hardware too).'''
*'''Program the chip with one of the integrated programmers.'''<br/>(hardware must be purchased separately)

[[File:Avr desc 1.jpg]] 

This is a screen shot of the editor. You can work in normal mode or project mode.

At the left you find the Code Explorer. The Code explorer can show unused data in a different colour.

 

When the Code Explorer is visible, the editor supports Proper Indent and Indent drawing.

Indent lines can be a great visual help.

 

A tool tip with info can be shown by pressing SHIFT :

[[File:Avr desc 2.jpg]]

Here it is clear that BDIL is a byte variable, dimensioned in the module CAN-Elektor.bas

It will show info for constants, aliases, variables and functions.

File:Avr desc 2.jpg

2014-02-04T15:21:44Z

Admin:

File:Avr desc 1.jpg

2014-02-04T15:21:30Z

Admin:

BASCOM-AVR Overview

2014-02-04T15:21:11Z

Admin: Created page with "'''BASCOM-AVR© '''is the original '''Windows BASIC COMPILER''' for the '''AVR''' family'''. '''It is designed to run on '''XP'''/VISTA/WIN7..."

'''BASCOM-AVR© '''is the original '''Windows BASIC COMPILER''' for the '''AVR''' family'''. '''It is designed to run on '''XP'''/VISTA/WIN7 and WIN8''''''

This product description is updated in 2014. But we do not change it each time we update the software. In the [http://avrhelp.mcselec.com/index.html on line ]help you can find a list of all statements and functions.

=== Key Benefits ===

*Structured '''BASIC''' with labels.
*Structured programming with IF-THEN-ELSE-END IF, DO-LOOP, WHILE-WEND, SELECT- CASE.
*Fast machine code instead of interpreted code.
*Variables and labels can be as long as 32 characters.
*Bit, Byte, Integer, Word, Long, Single, Double and String variables.
*Large set of Trig Floating point functions.
*Date & Time calculation functions.
*Compiled programs work with all AVR microprocessors that have internal memory.
*Statements are highly compatible with Microsoft’s VB/QB.
*Special commands for '''LCD'''-displays , '''I2C''' chips and '''1WIRE''' chips, PC keyboad, matrix keyboad, '''RC5''' reception, software UART, SPI , graphical LCD, send IR RC5,'''RC6''' or Sony code.
* [http://www.mcselec.com/commerce/easy_tcp_ip.htm TCP/IP] with W3100A/W5100/W5200/W5300 chips.
*Built in AVR-DOS functions like MKDIR, CHDIR, DIR, OPEN, CLOSE, etc. Just as they work in  QB/VB !
*Local variables, user functions, library support.
*Integrated <u>terminal emulator with download option.</u>.
*Integrated <u>simulator</u> for testing.
*Integrated ISP programmer (application note AVR910.ASM).
*Integrated STK200 programmer and STK300 programmer. Also supported is the low cost Sample Electronics programmer. Can be built in 10 minutes! Many other programmers supported via the Universal Interface.
*Many supported programmer like STK500, STK600, MKII, USBASP, JTAG , Arduino
*Editor with statement highlighting.
*Context sensitive help.
*DEMO version compiles '''4KB''' of binary code. Well suited for the ATmega48.
*[http://www.mcselec.com/commerce/books.htm English an German Books available]
* AT mouse simulator, AT keyboard simulator, I2C Slave available as add on.
*This product is developed in 1995 and is updated regularly.

 

===== '''The following statements are supported ('''actually there are many more look in the on line helpfile'''):''' =====

'''Decision and structures'''<br/>IF, THEN, ELSE, ELSEIF, END IF, DO, LOOP, WHILE, WEND, UNTIL, EXIT DO, EXIT WHILE, FOR, NEXT, TO, STEP, EXIT FOR, ON .. GOTO/GOSUB, SELECT, CASE.

'''Input and output'''<br/>PRINT, INPUT, INKEY, PRINT, INPUTHEX, LCD, UPPERLINE, LOWERLINE,DISPLAY ON/OFF, CURSOR ON/OFF/BLINK/NOBLINK, HOME, LOCATE, SHIFTLCD LEFT/RIGHT, SHIFTCURSOR LEFT/RIGHT, CLS, DEFLCDCHAR, WAITKEY, INPUTBIN, PRINTBIN, OPEN, CLOSE, DEBOUNCE, SHIFTIN, SHIFTOUT, GETATKBD, SPC, SERIN, SEROUT

'''Numeric functions'''<br/>AND, OR, XOR, INC, DEC, MOD, NOT, ABS, BCD, LOG, EXP, SQR, SIN,COS,TAN,ATN, ATN2, ASIN, ACOS, FIX, ROUND, MOD, SGN, POWER, RAD2DEG, DEG2RAD, LOG10, TANH, SINH, COSH.

'''I2C'''<br/>I2CSTART, I2CSTOP, I2CWBYTE, I2CRBYTE, I2CSEND and I2CRECEIVE.

'''1WIRE'''<br/>1WWRITE, 1WREAD, 1WRESET, 1WIRECOUNT, 1WSEARCHFIRST, 1WSEARCHNEXT.

'''SPI'''<br/>SPIINIT, SPIIN, SPIOUT, SPIMOVE.

'''CAN'''<br/>CONFIG CANBUSMODE, CONFIG CANMOB, CANBAUD, CANRESET, CANCLEARMOB, CANCLEARALLMOBS, CANSEND, CANRECEIVE , CANID,CANSELPAGE, CANGETINTS

'''TCP/IP'''<br/>TCP/IP routines can be used with the W3100/IIM7000/IIM7010/W5100/W5200/W5300 modules.

BASE64DEC , BASE64ENC , IP2STR , UDPREAD , UDPWRITE , UDPWRITESTR , TCPWRITE , TCPWRITESTR , TCPREAD ,GETDSTIP , GETDSTPORT , SOCKETSTAT , SOCKETCONNECT ,SOCKETLISTEN ,  GETSOCKET , SOCKETCLOSE , SETTCP , GETTCPREGS , SETTCPREGS , SETIPPROTOCOL , TCPCHECKSUM ,  SOCKETDISCONNECT , SNTP , TCPREADHEADER ,UDPREADHEADER

 '''Interrupt programming'''<br/>ON INT0/INT1/TIMER0/TIMER1/SERIAL, RETURN, ENABLE, DISABLE, COUNTERx, CAPTUREx, INTERRUPTS, CONFIG, START, LOAD.

'''Bit manipulation'''<br/>SET, RESET, ROTATE, SHIFT, BITWAIT, TOGGLE.

'''Variables'''<br/>DIM, BIT , BYTE , INTEGER , WORD, LONG, SINGLE, DOUBLE, STRING , DEFBIT, DEFBYTE, DEFINT, DEFWORD.

'''Miscellaneous'''<br/>REM, ' , SWAP, END, STOP, CONST, DELAY, WAIT, WAITMS, GOTO, GOSUB, POWERDOWN, IDLE, DECLARE, CALL, SUB, END SUB, MAKEDEC, MAKEBCD, INP,OUT, ALIAS, DIM , ERASE, DATA, READ, RESTORE, INCR, DECR, PEEK, POKE, CPEEK, FUNCTION, READMAGCARD, BIN2GREY, GREY2BIN, CRC8, CRC16, CRC32, CHECKSUM.

'''Compiler directives'''<br/>$INCLUDE, $BAUD and $CRYSTAL, $SERIALINPUT, $SERIALOUTPUT, $RAMSIZE, $RAMSTART, $DEFAULT XRAM, $ASM-$END ASM, $LCD, $EXTERNAL, $LIB.

'''String manipulation'''<br/>STRING, SPACE, LEFT, RIGHT, MID, VAL, HEXVAL, LEN, STR, HEX, LTRIM, RTRIM, TRIM, LCASE, UCASE, FORMAT, FUSING, INSTR, CHARPOS.

'''And many other functions, statements and directives'''

==== To make a program takes just a few steps : ====

*'''Write the program in BASIC'''
*'''Compile it to fast machine binary code'''
*'''Test the result with the integrated simulator(with additional hardware you can simulate the hardware too).'''
*'''Program the chip with one of the integrated programmers.'''<br/>(hardware must be purchased separately)

 

This is a screen shot of the editor. You can work in normal mode or project mode.

At the left you find the Code Explorer. The Code explorer can show unused data in a different colour.

 

When the Code Explorer is visible, the editor supports Proper Indent and Indent drawing.

Indent lines can be a great visual help.

 

A tool tip with info can be shown by pressing SHIFT :

<br/><br/>

Here it is clear that BDIL is a byte variable, dimensioned in the module CAN-Elektor.bas

It will show info for constants, aliases, variables and functions.

Light intensity and other environmental parameters With Xmega AVR

2014-01-28T10:44:27Z

Admin:

Here is little project, which in the next once proves the superiority an Xmega AVR microcontroller on monitoring and controlling process.

This project was designed to control and monitoring the environmental conditions that includes a set of sensors for measuring Light intensity temperature and humidity. XMEGA16A4 Microcontroller is used in this project.

 

== '''Microcontroller'''<br/> ==

The XMEGA A4 is a family of low power, high performance and peripheral rich CMOS 8/16-bit microcontrollers based on the AVR® enhanced RISC architecture. By executing powerful instructions in a single clock cycle, the XMEGA A4 achieves throughputs approaching 1 Million Instructions Per Second (MIPS) per MHz allowing the system designer to optimize power consumption versus processing speed.

The XMEGA A4 devices provides the following features: In-System Programmable Flash with Read-While-Write capabilities, Internal EEPROM and SRAM, four-channel DMA Controller, eight-channel Event System, Programmable Multi-level Interrupt Controller, 36 general purpose I/O lines, 16-bit Real Time Counter (RTC), five flexible 16-bit Timer/Counters with compare modes and PWM, five USARTs, two Two Wire Serial Interfaces (TWIs), two Serial Peripheral Interfaces (SPIs), AES and DES crypto engine, one Twelve-channel, 12-bit ADC with optional differential input with programmable gain, one Two-channel, 12-bit DAC, two analog comparators with window mode, programmable Watchdog Timer with separate Internal Oscillator, accurate internal oscillators with PLL and prescaler and programmable Brown-Out Detection. The Program and Debug Interface (PDI), a fast 2-pin interface for programming and debugging, is available.

 

 

== '''Sensors'''<br/> ==

'''Light:'''

The TSL230R, TSL230AR, and TSL230BR programmable light-to-frequency converters combine a configurable silicon photodiode and a current-to-frequency converter on single monolithic CMOS integrated circuits. The output can be either a pulse train or a square wave (50% duty cycle) with frequency directly proportional to light intensity. Device sensitivity is selectable in three ranges, providing two decades of adjustment. The full-scale output frequency can be scaled by one of four preset values. All inputs and the output are TTL compatible, allowing direct two-way communication with a microcontroller for programming and output interface. An output enable (OE) is provided that places the output in the high-impedance state for multiple-unit sharing of a microcontroller input line. The devices are available with absolute-output-frequency tolerances of 5% (TSL230BR), 10% (TSL230AR), or 20% (TSL230R). They have been temperature compensated for the ultraviolet-to-visible light range of 320 nm to 700 nm and respond over the light range of 320 nm to 1050 nm. The devices are characterized over the temperature range of –25°C to 70°C.

[[File:An env 02.jpg|center|An env 02.jpg]]

'''Humidity:'''

The HIH-4000 Series Humidity Sensors are designed specifically for high volume OEM (Original Equipment Manufacturer) users. Direct input to a controller or other device is made possible by this sensor’s linear voltage output. With a typical current draw of only 200 µA, the HIH-4000 Series is often ideally suited for low drain, battery operated systems. the RH sensor is a laser trimmed, thermoset polymer capacitive sensing element with on-chip integrated signal conditioning. The sensing element's multilayer construction provides excellent resistance to most application hazards such as wetting, dust, dirt, oils and common environmental chemicals.

 

Data PrintOut

[[File:An env 01.jpg|center|An env 01.jpg]]

'''Temperature:'''

The LM35 series are precision integrated-circuit temperature sensors, whose output voltage is linearly proportional to the Celsius (Centigrade) temperature. The LM35 thus has an advantage over linear temperature sensors calibrated in ° Kelvin, as the user is not required to subtract a large constant voltage from its output to obtain convenient Centigrade scaling. The LM35 does not require any external calibration or trimming to provide typical accuracies of ±1⁄4°C at room temperature and ±3⁄4°C over a full −55 to +150°C temperature range.

 

== '''Features'''<br/> ==

*Calibrated directly in ° Celsius (Centigrade)
*Linear + 10.0 mV/°C scale factor
*0.5°C accuracy guaranteeable (at +25°C)
*Rated for full −55° to +150°C range
*Suitable for remote applications
*Low cost due to wafer-level trimming
*Operates from 4 to 30 volts
*Less than 60 μA current drain
*Low self-heating, 0.08°C in still air
*Nonlinearity only ±1⁄4°C typical
*Low impedance output, 0.1 W for 1 mA load

== Schematic<br/> ==

[[File:An env 03.jpg|center|An env 03.jpg]]

== Source code<br/> ==

<source lang="bascomavr">
$regfile = "xm16a4def.dat"
$crystal = 32000000 '32MHz
$hwstack = 64
$swstack = 40
$framesize = 40

'include the following lib and code, the routines will be replaced since they are a workaround
$lib "xmega.lib" : $external _xmegafix_clear : $external _xmegafix_rol_r1014

'First enable the osc of your choice
Config Osc = Enabled , Pllosc = Disabled , Extosc = Disabled , 32khzosc = Disabled , 32mhzosc = Enabled '32MHz
Config Sysclock = 32mhz , Prescalea = 1 , Prescalebc = 1_1 '32MHz
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' ADC Configuration
Config Adca = Single , Convmode = Signed , Resolution = 12bit , Dma = Off , Reference = Intvcc , _
Event_mode = None , Prescaler = 256 , _
Ch1_gain = 1 , Ch1_inp = Diffwgain , Mux1 = &B00001001 , _
Ch2_gain = 1 , Ch2_inp = Single_ended , Mux2 = &B00010000

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Serial interface configuration
Config Com3 = 20000 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
'Config Serialin2 = Buffered , Size = 20 , Bytematch = 66
Open "COM3:" For Binary As #3
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Config Interrupts and timer
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled 'Enable Lo Level Interrupts

Config Porte.1 = Input
Config Xpin = Porte.1 , Outpull = Pullup , Sense = Falling 'enable Pullup and reaction on falling edge

Config Event_system = Dummy , Mux0 = Porte.1 , Digflt0 = 8 'Eventchannel 0 = PINE.1, enable digital filtering
Config Tce0 = Normal , Prescale = E0 , Event_source = E0 , Event_action = Freq ' Normal = no waveform generation, Event Source = Event Channel 0
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Enable Receive Interrupt For Com3
On Usartd0_rxc Sending
Enable Usartd0_rxc , Lo
Enable Interrupts

' Port Configuration
Ddre.0 = 1 : Porte.0 = 0
Ddrd.7 = 1 : Portd.7 = 1
Ddrd.6 = 1 : Portd.6 = 0
Ddrd.5 = 1 : Portd.5 = 0
Ddrd.4 = 1 : Portd.4 = 1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Variables defination
Dim A(2) As Word , Adc_step(2) As Single , Temp As Single , Hum As Single
Dim Freq As Word , C(3) As String * 5 , Datasend As String * 16 , Sum(2) As Long
Dim N As Byte , D(2) As Single , Sent As Bit

Adc_step(1) = 0.0315
Adc_step(2) = 0.0976

Do
Portd.4 = 0
Waitms 100
Freq = Tce0_cnt
Tce0_cnt = 0
Sum(1) = 0
Sum(2) = 0
For N = 1 To 2
A(1) = Getadc(adca , 1 , &B00001001) 'ADC A, Channel 0 , MUX = &B00000000 --> PINA.0
A(2) = Getadc(adca , 2 , &B00010000) 'ADC A, Channel 0 , MUX = &B00000000 --> PINA.0

Sum(1) = Sum(1) + A(1)
Sum(2) = Sum(2) + A(2)
Next N

D(1) = Sum(1) / 2.0
D(2) = Sum(2) / 2.0
Hum = D(1) * Adc_step(1)
Hum = Hum + 21
Temp = D(2) * Adc_step(2)
Temp = Temp + 3

Loop
Close #3
End

Sending:
Print #3 , Datasend
Return 'end program
</source>

== Author<br/> ==

'''''Written by''''': Mohammad Jafar Dalvand, University of Tehran, Iran<br/>'''''Email Address:''''' [mailto:Dalvand@ut.ac.ir Dalvand@ut.ac.ir]

[[Category:Projects]]

Light intensity and other environmental parameters With Xmega AVR

2014-01-28T10:31:22Z

Admin:

Light intensity and other environmental parameters With Xmega AVR

2014-01-28T10:29:45Z

2013-10-23T13:44:47Z

Admin:

[[File:8051 logo n.png|center|8051 logo n.png]]

'''BASCOM-8051'''© is the Windows BASIC COMPILER for the 8051 family.<br/>It is designed to run on '''XP/VISTA/WIN7/WIN8''' and has all the features of BASCOM LT.<br/>In addition it has full support for arrays and the single floating point data type.<br/><br/>'''Key Benefits'''
<ul style="margin-left: 40px;">
<li>Structured BASIC with labels.</li>
<li>Structured programming with IF-THEN-ELSE-END IF, DO-LOOP, WHILE-WEND, SELECT- CASE.</li>
<li>Fast machine code instead of interpreted code.</li>
<li>Variables and labels can be as long as 32 characters.</li>
<li>Bit, Byte, Integer, Word, Long, Single and String variables.</li>
<li>Compiled programs work with any 8051 uP such as AT89C1051, AT89C2051, 8031, 8032, 8051, 8052, 80552, 80535 and 80537  Processors.</li>
<li>Statements are highly compatible with Microsoft’s VB/QB.</li>
<li>Special commands for LCD-displays , I2C chips and 1WIRE chips.</li>
<li>Integrated terminal emulator with download option.</li>
<li>Integrated simulator for testing.</li>
<li>Integrated flash programmer and support for SPI, PG2051, PG302, SE512, SE514, TAFE. (hardware can be purchased separately)</li>
<li>Editor with statement highlighting.</li>
<li>Context sensitive help.</li>
<li>For compatibility with BASCOM LT, there is also a 32-bit version of the BASCOM LT compiler.</li>
</ul>

----

<br/>'''The following statements are supported''':<br/><br/>'''Decision and structures'''<br/>IF, THEN, ELSE, ELSEIF, END IF, DO, LOOP, WHILE, WEND, UNTIL, EXIT DO, EXIT WHILE, FOR, NEXT, TO, DOWNTO, STEP, EXIT FOR, ON .. GOTO/GOSUB, SELECT, CASE.<br/><br/>'''Input and output'''<br/>PRINT, INPUT, INKEY, PRINTHEX, INPUTHEX, LCD, UPPERLINE, LOWERLINE,DISPLAY ON/OFF, CURSOR ON/OFF/BLINK/NOBLINK, HOME, LOCATE, SHIFTLCD LEFT/RIGHT, SHIFTCURSOR LEFT/RIGHT, CLS, DEFLCDCHAR, WAITKEY, INPUTBIN, PRINTBIN, LCDHEX, OPEN, CLOSE, DEBOUNCE, SHIFTIN, SHIFTOUT.<br/><br/>'''Numeric functions'''<br/>AND, OR, XOR, INC, DEC, MOD, NOT, ABS, BCD.<br/><br/>'''I2C'''<br/>I2CSTART, I2CSTOP, I2CWBYTE, I2CRBYTE, I2CSEND and I2CRECEIVE.<br/><br/>'''1WIRE'''<br/>1WWRITE, 1WREAD, 1WRESET.<br/><br/>'''SPI'''<br/>SPIINIT, SPIIN, SPIOUT.<br/><br/>'''Interrupt programming'''<br/>ON INT0/INT1/TIMER0/TIMER1/SERIAL, RETURN, ENABLE, DISABLE, PRIORITY SET/RESET, COUNTERx, CAPTUREx, INTERRUPTS, CONFIG, START, LOAD.<br/><br/>'''Bit manipulation'''<br/>SET, RESET, ROTATE, BITWAIT.<br/><br/>'''Variables'''<br/>DIM, BIT , BYTE , INTEGER , WORD, LONG, SINGLE, STRING , DEFBIT, DEFBYTE, DEFINT, DEFWORD.<br/><br/>'''Miscellaneous'''<br/>REM, ' , SWAP, END, STOP, CONST, DELAY, WAIT, WAITMS, GOTO, GOSUB, POWERDOWN, IDLE, DECLARE, CALL, SUB, END SUB, MAKEDEC, MAKEBCD, INP,OUT, ALIAS, DIM , ERASE, DATA, READ, RESTORE, INCR, DECR, PEEK, POKE, CPEEK, GETRC5.<br/><br/>'''Compiler directives'''<br/>$INCLUDE, $NOINIT, $BAUD and $CRYSTAL, $OBJ, $SERIALINPUT, $SERIALOUTPUT, $ROMSTART, $RAMSIZE, $RAMSTART, $MONSTART, $IRAMSTART, $DEFAULT XRAM, $ASM-$END ASM, $LCD.<br/><br/>'''Conditional compilation'''<br/>#IF, #ELSE, #ENDIF<br/><br/>'''String manipulation'''<br/>STRING, SPACE, LEFT, RIGHT, MID, VAL, HEXVAL, LEN, STR, HEX, LCASE, UCASE

----

<br/>'''To make a program takes just a few steps :'''
<ul style="margin-left: 40px;">
<li>Write the program in BASIC</li>
<li>Compile it to fast machine binary code</li>
<li>Test the result with the integrated simulator (with additional hardware you can simulate the hardware too)</li>
<li>Program the chip with one of the integrated programmers (hardware must be purchased separately)</li>
</ul>

----

<br/>The 8051 processor is included in many special chips.  BASCOM creates standard 8051 object code. So the object code can run on any 8051 compatible processor.<br/><br/>While we offer so called DAT files for many processors, it is impossible to write a DAT file for all the 8051 variants. The DAT files are however easy to make. They contain the hardware register names with their address.<br/><br/>The only thing you need to take care about is that some processors have modified instruction cycles. This means that these processors execute code faster than a normal 8051. This can effect some statements like WAITMS, WAIT, DELAY and other software timed instructions.

----
<p style="text-align: center"><span style="font-size:larger">'''IDE Overview'''</span></p><p style="text-align: center"><br/>'''BASCOM-8051 IDE'''</p>
[[File:8051 desc ide.png|center|8051 desc ide.png]]
<p style="text-align: center"><br/>'''BASCOM-8051 Simulator'''</p>
[[File:8051 desc sim1.png|center|8051 desc sim1.png]]

[[File:8051 desc sim2.png|center|8051 desc sim2.png]]

<p style="text-align: center">'''BASCOM-8051 Programmer'''</p>
[[File:8051 desc prog.png|center|8051 desc prog.png]]

<p style="text-align: center">'''BASCOM-8051 Graphic converter'''</p>
[[File:8051 desc graph.png|center|8051 desc graph.png]]

----

BASCOM-8051 Overview

2013-10-23T13:37:06Z

2013-10-23T09:41:42Z

Admin:

[[File:8051 logo n.png|center]]

'''BASCOM-8051'''© is the Windows BASIC COMPILER for the 8051 family.<br/>It is designed to run on '''XP/VISTA/WIN7/WIN8''' and has all the features of BASCOM LT.<br/>In addition it has full support for arrays and the single floating point data type.<br/><br/>'''Key Benefits'''
<ul style="margin-left: 40px;">
<li>Structured BASIC with labels.</li>
<li>Structured programming with IF-THEN-ELSE-END IF, DO-LOOP, WHILE-WEND, SELECT- CASE.</li>
<li>Fast machine code instead of interpreted code.</li>
<li>Variables and labels can be as long as 32 characters.</li>
<li>Bit, Byte, Integer, Word, Long, Single and String variables.</li>
<li>Compiled programs work with any 8051 uP such as AT89C1051, AT89C2051, 8031, 8032, 8051, 8052, 80552, 80535 and 80537  Processors.</li>
<li>Statements are highly compatible with Microsoft’s VB/QB.</li>
<li>Special commands for LCD-displays , I2C chips and 1WIRE chips.</li>
<li>Integrated terminal emulator with download option.</li>
<li>Integrated simulator for testing.</li>
<li>Integrated flash programmer and support for SPI, PG2051, PG302, SE512, SE514, TAFE. (hardware can be purchased separately)</li>
<li>Editor with statement highlighting.</li>
<li>Context sensitive help.</li>
<li>For compatibility with BASCOM LT, there is also a 32-bit version of the BASCOM LT compiler.</li>
</ul>

----

<br/>'''The following statements are supported''':<br/><br/>'''Decision and structures'''<br/>IF, THEN, ELSE, ELSEIF, END IF, DO, LOOP, WHILE, WEND, UNTIL, EXIT DO, EXIT WHILE, FOR, NEXT, TO, DOWNTO, STEP, EXIT FOR, ON .. GOTO/GOSUB, SELECT, CASE.<br/><br/>'''Input and output'''<br/>PRINT, INPUT, INKEY, PRINTHEX, INPUTHEX, LCD, UPPERLINE, LOWERLINE,DISPLAY ON/OFF, CURSOR ON/OFF/BLINK/NOBLINK, HOME, LOCATE, SHIFTLCD LEFT/RIGHT, SHIFTCURSOR LEFT/RIGHT, CLS, DEFLCDCHAR, WAITKEY, INPUTBIN, PRINTBIN, LCDHEX, OPEN, CLOSE, DEBOUNCE, SHIFTIN, SHIFTOUT.<br/><br/>'''Numeric functions'''<br/>AND, OR, XOR, INC, DEC, MOD, NOT, ABS, BCD.<br/><br/>'''I2C'''<br/>I2CSTART, I2CSTOP, I2CWBYTE, I2CRBYTE, I2CSEND and I2CRECEIVE.<br/><br/>'''1WIRE'''<br/>1WWRITE, 1WREAD, 1WRESET.<br/><br/>'''SPI'''<br/>SPIINIT, SPIIN, SPIOUT.<br/><br/>'''Interrupt programming'''<br/>ON INT0/INT1/TIMER0/TIMER1/SERIAL, RETURN, ENABLE, DISABLE, PRIORITY SET/RESET, COUNTERx, CAPTUREx, INTERRUPTS, CONFIG, START, LOAD.<br/><br/>'''Bit manipulation'''<br/>SET, RESET, ROTATE, BITWAIT.<br/><br/>'''Variables'''<br/>DIM, BIT , BYTE , INTEGER , WORD, LONG, SINGLE, STRING , DEFBIT, DEFBYTE, DEFINT, DEFWORD.<br/><br/>'''Miscellaneous'''<br/>REM, ' , SWAP, END, STOP, CONST, DELAY, WAIT, WAITMS, GOTO, GOSUB, POWERDOWN, IDLE, DECLARE, CALL, SUB, END SUB, MAKEDEC, MAKEBCD, INP,OUT, ALIAS, DIM , ERASE, DATA, READ, RESTORE, INCR, DECR, PEEK, POKE, CPEEK, GETRC5.<br/><br/>'''Compiler directives'''<br/>$INCLUDE, $NOINIT, $BAUD and $CRYSTAL, $OBJ, $SERIALINPUT, $SERIALOUTPUT, $ROMSTART, $RAMSIZE, $RAMSTART, $MONSTART, $IRAMSTART, $DEFAULT XRAM, $ASM-$END ASM, $LCD.<br/><br/>'''Conditional compilation'''<br/>#IF, #ELSE, #ENDIF<br/><br/>'''String manipulation'''<br/>STRING, SPACE, LEFT, RIGHT, MID, VAL, HEXVAL, LEN, STR, HEX, LCASE, UCASE

----

<br/>'''To make a program takes just a few steps :'''
<ul style="margin-left: 40px;">
<li>Write the program in BASIC</li>
<li>Compile it to fast machine binary code</li>
<li>Test the result with the integrated simulator (with additional hardware you can simulate the hardware too)</li>
<li>Program the chip with one of the integrated programmers (hardware must be purchased separately)</li>
</ul>

----

<br/>The 8051 processor is included in many special chips.  BASCOM creates standard 8051 object code. So the object code can run on any 8051 compatible processor.<br/><br/>While we offer so called DAT files for many processors, it is impossible to write a DAT file for all the 8051 variants. The DAT files are however easy to make. They contain the hardware register names with their address.<br/><br/>The only thing you need to take care about is that some processors have modified instruction cycles. This means that these processors execute code faster than a normal 8051. This can effect some statements like WAITMS, WAIT, DELAY and other software timed instructions.

<p style="text-align: center"></p>
----
<p style="text-align: center">''<span style="font-size:larger">'''IDE Overview'''</span>''</p><p style="text-align: center"><br/>'''BASCOM-8051 IDE'''</p>
[[File:8051 ndesc 1.jpg|center|8051 ndesc 1.jpg]]
<p style="text-align: center"><br/><br/>'''BASCOM-8051 Simulator'''</p>
[[File:8051 ndesc 2.jpg|center|8051 ndesc 2.jpg]]

----

File:8051 logo n.png

2013-10-23T09:39:46Z

Admin:

BASCOM-8051 Overview

2013-10-23T08:38:49Z

Admin:

'''BASCOM-8051'''© is the Windows BASIC COMPILER for the 8051 family.<br/>It is designed to run on '''XP/VISTA/WIN7/WIN8''' and has all the features of BASCOM LT.<br/>In addition it has full support for arrays and the single floating point data type.<br/><br/>'''Key Benefits'''
<ul style="margin-left: 40px;">
<li>Structured BASIC with labels.</li>
<li>Structured programming with IF-THEN-ELSE-END IF, DO-LOOP, WHILE-WEND, SELECT- CASE.</li>
<li>Fast machine code instead of interpreted code.</li>
<li>Variables and labels can be as long as 32 characters.</li>
<li>Bit, Byte, Integer, Word, Long, Single and String variables.</li>
<li>Compiled programs work with any 8051 uP such as AT89C1051, AT89C2051, 8031, 8032, 8051, 8052, 80552, 80535 and 80537  Processors.</li>
<li>Statements are highly compatible with Microsoft’s VB/QB.</li>
<li>Special commands for LCD-displays , I2C chips and 1WIRE chips.</li>
<li>Integrated terminal emulator with download option.</li>
<li>Integrated simulator for testing.</li>
<li>Integrated flash programmer and support for SPI, PG2051, PG302, SE512, SE514, TAFE. (hardware can be purchased separately)</li>
<li>Editor with statement highlighting.</li>
<li>Context sensitive help.</li>
<li>For compatibility with BASCOM LT, there is also a 32-bit version of the BASCOM LT compiler.</li>
</ul>

----

<br/>'''The following statements are supported''':<br/><br/>'''Decision and structures'''<br/>IF, THEN, ELSE, ELSEIF, END IF, DO, LOOP, WHILE, WEND, UNTIL, EXIT DO, EXIT WHILE, FOR, NEXT, TO, DOWNTO, STEP, EXIT FOR, ON .. GOTO/GOSUB, SELECT, CASE.<br/><br/>'''Input and output'''<br/>PRINT, INPUT, INKEY, PRINTHEX, INPUTHEX, LCD, UPPERLINE, LOWERLINE,DISPLAY ON/OFF, CURSOR ON/OFF/BLINK/NOBLINK, HOME, LOCATE, SHIFTLCD LEFT/RIGHT, SHIFTCURSOR LEFT/RIGHT, CLS, DEFLCDCHAR, WAITKEY, INPUTBIN, PRINTBIN, LCDHEX, OPEN, CLOSE, DEBOUNCE, SHIFTIN, SHIFTOUT.<br/><br/>'''Numeric functions'''<br/>AND, OR, XOR, INC, DEC, MOD, NOT, ABS, BCD.<br/><br/>'''I2C'''<br/>I2CSTART, I2CSTOP, I2CWBYTE, I2CRBYTE, I2CSEND and I2CRECEIVE.<br/><br/>'''1WIRE'''<br/>1WWRITE, 1WREAD, 1WRESET.<br/><br/>'''SPI'''<br/>SPIINIT, SPIIN, SPIOUT.<br/><br/>'''Interrupt programming'''<br/>ON INT0/INT1/TIMER0/TIMER1/SERIAL, RETURN, ENABLE, DISABLE, PRIORITY SET/RESET, COUNTERx, CAPTUREx, INTERRUPTS, CONFIG, START, LOAD.<br/><br/>'''Bit manipulation'''<br/>SET, RESET, ROTATE, BITWAIT.<br/><br/>'''Variables'''<br/>DIM, BIT , BYTE , INTEGER , WORD, LONG, SINGLE, STRING , DEFBIT, DEFBYTE, DEFINT, DEFWORD.<br/><br/>'''Miscellaneous'''<br/>REM, ' , SWAP, END, STOP, CONST, DELAY, WAIT, WAITMS, GOTO, GOSUB, POWERDOWN, IDLE, DECLARE, CALL, SUB, END SUB, MAKEDEC, MAKEBCD, INP,OUT, ALIAS, DIM , ERASE, DATA, READ, RESTORE, INCR, DECR, PEEK, POKE, CPEEK, GETRC5.<br/><br/>'''Compiler directives'''<br/>$INCLUDE, $NOINIT, $BAUD and $CRYSTAL, $OBJ, $SERIALINPUT, $SERIALOUTPUT, $ROMSTART, $RAMSIZE, $RAMSTART, $MONSTART, $IRAMSTART, $DEFAULT XRAM, $ASM-$END ASM, $LCD.<br/><br/>'''Conditional compilation'''<br/>#IF, #ELSE, #ENDIF<br/><br/>'''String manipulation'''<br/>STRING, SPACE, LEFT, RIGHT, MID, VAL, HEXVAL, LEN, STR, HEX, LCASE, UCASE

----

<br/>'''To make a program takes just a few steps :'''
<ul style="margin-left: 40px;">
<li>Write the program in BASIC</li>
<li>Compile it to fast machine binary code</li>
<li>Test the result with the integrated simulator (with additional hardware you can simulate the hardware too)</li>
<li>Program the chip with one of the integrated programmers (hardware must be purchased separately)</li>
</ul>

----

<br/>The 8051 processor is included in many special chips.  BASCOM creates standard 8051 object code. So the object code can run on any 8051 compatible processor.<br/><br/>While we offer so called DAT files for many processors, it is impossible to write a DAT file for all the 8051 variants. The DAT files are however easy to make. They contain the hardware register names with their address.<br/><br/>The only thing you need to take care about is that some processors have modified instruction cycles. This means that these processors execute code faster than a normal 8051. This can effect some statements like WAITMS, WAIT, DELAY and other software timed instructions.

<p style="text-align: center"></p>
----
<p style="text-align: center">''<span style="font-size:larger">'''IDE Overview'''</span>''</p><p style="text-align: center"><br/>'''BASCOM-8051 IDE'''</p>
[[File:8051 ndesc 1.jpg|center|8051 ndesc 1.jpg]]
<p style="text-align: center"><br/><br/>'''BASCOM-8051 Simulator'''</p>
[[File:8051 ndesc 2.jpg|center|8051 ndesc 2.jpg]]

MCS Wiki Main entry

2013-10-23T08:35:48Z

Admin:

[[File:Mcswiki logo.png|center|Mcswiki logo.png]]

= BASCOM Family =

*[[BASCOM-8051 Overview]]

= BASCOM Manuals =

*[http://wiki.mcselec.com/bavr/ BASCOM-AVR manual]

= User projects =

{| style="width: 80%" align="center" border="0" cellpadding="1" cellspacing="1"
|-
| <categorytree mode="pages">Projects</categorytree>
| <br/>
| <categorytree mode="pages">Arduino Ethernet with Bascom-AVR</categorytree>
|}

{| style="width: 80%" align="center" border="0" cellpadding="1" cellspacing="1"
|-
| <categorytree mode="pages">Miscellaneous stuff</categorytree>
| <br/>
|}

{{Languages}}

BASCOM-8051 Overview

2013-10-23T08:31:36Z

Admin:

'''BASCOM-8051'''© is the Windows BASIC COMPILER for the 8051 family.<br/>It is designed to run on '''XP/VISTA/WIN7/WIN8''' and has all the features of BASCOM LT.<br/>In addition it has full support for arrays and the single floating point data type.<br/><br/>'''Key Benefits'''

*Structured BASIC with labels.
*Structured programming with IF-THEN-ELSE-END IF, DO-LOOP, WHILE-WEND, SELECT- CASE.
*Fast machine code instead of interpreted code.
*Variables and labels can be as long as 32 characters.
*Bit, Byte, Integer, Word, Long, Single and String variables.
*Compiled programs work with any 8051 uP such as AT89C1051, AT89C2051, 8031, 8032, 8051, 8052, 80552, 80535 and 80537  Processors.
*Statements are highly compatible with Microsoft’s VB/QB.
*Special commands for LCD-displays , I2C chips and 1WIRE chips.
*Integrated terminal emulator with download option.
*Integrated simulator for testing.
*Integrated flash programmer and support for SPI, PG2051, PG302, SE512, SE514, TAFE. (hardware can be purchased separately)
*Editor with statement highlighting.
*Context sensitive help.
*For compatibility with BASCOM LT, there is also a 32-bit version of the BASCOM LT compiler.

----

<br/>'''The following statements are supported''':<br/><br/>'''Decision and structures'''<br/>IF, THEN, ELSE, ELSEIF, END IF, DO, LOOP, WHILE, WEND, UNTIL, EXIT DO, EXIT WHILE, FOR, NEXT, TO, DOWNTO, STEP, EXIT FOR, ON .. GOTO/GOSUB, SELECT, CASE.<br/><br/>'''Input and output'''<br/>PRINT, INPUT, INKEY, PRINTHEX, INPUTHEX, LCD, UPPERLINE, LOWERLINE,DISPLAY ON/OFF, CURSOR ON/OFF/BLINK/NOBLINK, HOME, LOCATE, SHIFTLCD LEFT/RIGHT, SHIFTCURSOR LEFT/RIGHT, CLS, DEFLCDCHAR, WAITKEY, INPUTBIN, PRINTBIN, LCDHEX, OPEN, CLOSE, DEBOUNCE, SHIFTIN, SHIFTOUT.<br/><br/>'''Numeric functions'''<br/>AND, OR, XOR, INC, DEC, MOD, NOT, ABS, BCD.<br/><br/>'''I2C'''<br/>I2CSTART, I2CSTOP, I2CWBYTE, I2CRBYTE, I2CSEND and I2CRECEIVE.<br/><br/>'''1WIRE'''<br/>1WWRITE, 1WREAD, 1WRESET.<br/><br/>'''SPI'''<br/>SPIINIT, SPIIN, SPIOUT.<br/><br/>'''Interrupt programming'''<br/>ON INT0/INT1/TIMER0/TIMER1/SERIAL, RETURN, ENABLE, DISABLE, PRIORITY SET/RESET, COUNTERx, CAPTUREx, INTERRUPTS, CONFIG, START, LOAD.<br/><br/>'''Bit manipulation'''<br/>SET, RESET, ROTATE, BITWAIT.<br/><br/>'''Variables'''<br/>DIM, BIT , BYTE , INTEGER , WORD, LONG, SINGLE, STRING , DEFBIT, DEFBYTE, DEFINT, DEFWORD.<br/><br/>'''Miscellaneous'''<br/>REM, ' , SWAP, END, STOP, CONST, DELAY, WAIT, WAITMS, GOTO, GOSUB, POWERDOWN, IDLE, DECLARE, CALL, SUB, END SUB, MAKEDEC, MAKEBCD, INP,OUT, ALIAS, DIM , ERASE, DATA, READ, RESTORE, INCR, DECR, PEEK, POKE, CPEEK, GETRC5.<br/><br/>'''Compiler directives'''<br/>$INCLUDE, $NOINIT, $BAUD and $CRYSTAL, $OBJ, $SERIALINPUT, $SERIALOUTPUT, $ROMSTART, $RAMSIZE, $RAMSTART, $MONSTART, $IRAMSTART, $DEFAULT XRAM, $ASM-$END ASM, $LCD.<br/><br/>'''Conditional compilation'''<br/>#IF, #ELSE, #ENDIF<br/><br/>'''String manipulation'''<br/>STRING, SPACE, LEFT, RIGHT, MID, VAL, HEXVAL, LEN, STR, HEX, LCASE, UCASE

----

<br/>'''To make a program takes just a few steps :'''

*Write the program in BASIC
*Compile it to fast machine binary code
*Test the result with the integrated simulator (with additional hardware you can simulate the hardware too)
*Program the chip with one of the integrated programmers (hardware must be purchased separately)

----

<br/>The 8051 processor is included in many special chips.  BASCOM creates standard 8051 object code. So the object code can run on any 8051 compatible processor.<br/><br/>While we offer so called DAT files for many processors, it is impossible to write a DAT file for all the 8051 variants. The DAT files are however easy to make. They contain the hardware register names with their address.<br/><br/>The only thing you need to take care about is that some processors have modified instruction cycles. This means that these processors execute code faster than a normal 8051. This can effect some statements like WAITMS, WAIT, DELAY and other software timed instructions.
<p style="text-align: center"></p>
----
<p style="text-align: center">''<span style="font-size:larger">'''IDE Overview'''</span>''</p><p style="text-align: center"><br/>'''BASCOM-8051 IDE'''</p>
[[File:8051 ndesc 1.jpg|center|8051 ndesc 1.jpg]]
<p style="text-align: center"><br/><br/>'''BASCOM-8051 Simulator'''</p>
[[File:8051 ndesc 2.jpg|center|8051 ndesc 2.jpg]]

BASCOM-8051 Overview

2013-10-23T08:28:03Z

Admin: Created page with "'''BASCOM-8051'''© is the Windows BASIC COMPILER for the 8051 family.<br/>It is designed to run on '''XP/VISTA/WIN7/WIN8''' and has all the features of BASCOM LT.<br/>In addi..."

'''BASCOM-8051'''© is the Windows BASIC COMPILER for the 8051 family.<br/>It is designed to run on '''XP/VISTA/WIN7/WIN8''' and has all the features of BASCOM LT.<br/>In addition it has full support for arrays and the single floating point data type.<br/><br/>'''Key Benefits'''

*Structured BASIC with labels.
*Structured programming with IF-THEN-ELSE-END IF, DO-LOOP, WHILE-WEND, SELECT- CASE.
*Fast machine code instead of interpreted code.
*Variables and labels can be as long as 32 characters.
*Bit, Byte, Integer, Word, Long, Single and String variables.
*Compiled programs work with any 8051 uP such as AT89C1051, AT89C2051, 8031, 8032, 8051, 8052, 80552, 80535 and 80537  Processors.
*Statements are highly compatible with Microsoft’s VB/QB.
*Special commands for LCD-displays , I2C chips and 1WIRE chips.
*Integrated terminal emulator with download option.
*Integrated simulator for testing.
*Integrated flash programmer and support for SPI, PG2051, PG302, SE512, SE514, TAFE. (hardware can be purchased separately)
*Editor with statement highlighting.
*Context sensitive help.
*For compatibility with BASCOM LT, there is also a 32-bit version of the BASCOM LT compiler.

<br/>'''The following statements are supported''':<br/><br/>'''Decision and structures'''<br/>IF, THEN, ELSE, ELSEIF, END IF, DO, LOOP, WHILE, WEND, UNTIL, EXIT DO, EXIT WHILE, FOR, NEXT, TO, DOWNTO, STEP, EXIT FOR, ON .. GOTO/GOSUB, SELECT, CASE.<br/><br/>'''Input and output'''<br/>PRINT, INPUT, INKEY, PRINTHEX, INPUTHEX, LCD, UPPERLINE, LOWERLINE,DISPLAY ON/OFF, CURSOR ON/OFF/BLINK/NOBLINK, HOME, LOCATE, SHIFTLCD LEFT/RIGHT, SHIFTCURSOR LEFT/RIGHT, CLS, DEFLCDCHAR, WAITKEY, INPUTBIN, PRINTBIN, LCDHEX, OPEN, CLOSE, DEBOUNCE, SHIFTIN, SHIFTOUT.<br/><br/>'''Numeric functions'''<br/>AND, OR, XOR, INC, DEC, MOD, NOT, ABS, BCD.<br/><br/>'''I2C'''<br/>I2CSTART, I2CSTOP, I2CWBYTE, I2CRBYTE, I2CSEND and I2CRECEIVE.<br/><br/>'''1WIRE'''<br/>1WWRITE, 1WREAD, 1WRESET.<br/><br/>'''SPI'''<br/>SPIINIT, SPIIN, SPIOUT.<br/><br/>'''Interrupt programming'''<br/>ON INT0/INT1/TIMER0/TIMER1/SERIAL, RETURN, ENABLE, DISABLE, PRIORITY SET/RESET, COUNTERx, CAPTUREx, INTERRUPTS, CONFIG, START, LOAD.<br/><br/>'''Bit manipulation'''<br/>SET, RESET, ROTATE, BITWAIT.<br/><br/>'''Variables'''<br/>DIM, BIT , BYTE , INTEGER , WORD, LONG, SINGLE, STRING , DEFBIT, DEFBYTE, DEFINT, DEFWORD.<br/><br/>'''Miscellaneous'''<br/>REM, ' , SWAP, END, STOP, CONST, DELAY, WAIT, WAITMS, GOTO, GOSUB, POWERDOWN, IDLE, DECLARE, CALL, SUB, END SUB, MAKEDEC, MAKEBCD, INP,OUT, ALIAS, DIM , ERASE, DATA, READ, RESTORE, INCR, DECR, PEEK, POKE, CPEEK, GETRC5.<br/><br/>'''Compiler directives'''<br/>$INCLUDE, $NOINIT, $BAUD and $CRYSTAL, $OBJ, $SERIALINPUT, $SERIALOUTPUT, $ROMSTART, $RAMSIZE, $RAMSTART, $MONSTART, $IRAMSTART, $DEFAULT XRAM, $ASM-$END ASM, $LCD.<br/><br/>'''Conditional compilation'''<br/>#IF, #ELSE, #ENDIF<br/><br/>'''String manipulation'''<br/>STRING, SPACE, LEFT, RIGHT, MID, VAL, HEXVAL, LEN, STR, HEX, LCASE, UCASE<br/><br/>'''To make a program takes just a few steps :'''

*Write the program in BASIC
*Compile it to fast machine binary code
*Test the result with the integrated simulator (with additional hardware you can simulate the hardware too)
*Program the chip with one of the integrated programmers (hardware must be purchased separately)

<br/>The 8051 processor is included in many special chips.  BASCOM creates standard 8051 object code. So the object code can run on any 8051 compatible processor.<br/><br/>While we offer so called DAT files for many processors, it is impossible to write a DAT file for all the 8051 variants. The DAT files are however easy to make. They contain the hardware register names with their address.<br/><br/>The only thing you need to take care about is that some processors have modified instruction cycles. This means that these processors execute code faster than a normal 8051. This can effect some statements like WAITMS, WAIT, DELAY and other software timed instructions.<br/><br/>'''BASCOM-8051 IDE'''<br/><br/>[[File:8051 ndesc 1.jpg|center]]<br/><br/>'''BASCOM-8051 Simulator'''<br/><br/>[[File:8051 ndesc 2.jpg|center]]

File:8051 ndesc 2.jpg

2013-10-23T08:27:11Z

Admin:

File:8051 ndesc 1.jpg

2013-10-23T08:26:48Z

Admin:

Electronics Calculators

2013-06-18T08:00:09Z

Admin:

Hi guys,

Had a little chat with Roman Black (The man in the know, when it comes to SPMS) via email the other day about a SMPS calculator that I had written. He checked it out and suggested that I post the MC34063A SMPS calculator on a site.

I had a couple of other calculators as well that Roman didn't know about, so I put them on my site as well. here's the direct link

[http://www.deanus.leviathan.net.au/Electronics_calculators.html] http://www.deanus.leviathan.net.au/Electronics_calculators.html

All calculators are written by me in VB6. I didn't use any 3rd Party DLL's or OCX so none are required that I can remember.
You might need the VB6 runtime, I think all latter versions of windows had it already on installation) Only running them will tell if it's on your computer. All programs are Virus checked before posting, but check them after unzipping to make sure nobody has got at them.'

Give me an email If you have any problems. (address is on the site.)

- '''MC34063A SMPS'''
If the input voltage is greater than the output voltage, the circuit given will be a buck converter.
If the less voltage is less than the output voltage, the circuit given will be a boost converter.
If the input voltage is positive but the output is negative, the circuit given will be a negative converter.
The circuit will change to the correct one when you click "Calculate".
It will supply you with a bill of materials list as well. The whole window can be printed to the default printer.

[[File:Wwb_img1.jpg]]

- '''DAC Error'''
Enter the DACs reference voltage OR the operating voltage of the
chip that the DAC is connected to (in the case of an R2R type DAC).

[[File:DAC_Err.png]]

Enter the absolute Maximum number that the DAC can accept.
Or optionally select the correct bit number from the drop down list.
On selection, the correct maximum is placed in the DAC maximum box.
Now press "Go".

The voltage per DAC step is calculated an displayed in the yellow
"Volts Per Step" box.

That part of the program only calculates voltage per DAC step.
Because the voltage is analogue, (points of volts) and the DAC
deals in integer (whole numbers, The DAC has an error that cannot
be got around.. To find the step per number value, the ref voltage
Is divided by the maximum number of steps of the DAC.
In the case of a 5V ref/8Bit(255), 5/255 = 0.0196v per step.

To find the error, lets say we want 4V output.
To find the amount of steps that this requires is 4/0.0196=204.08
Since the DAC can't do .08 (whole digits only) the number is really
204.. But 204 * 0.0196 3.998V NOT the 4v that is required.

So the second part of the program does exactly that, you input a
voltage that you would like to get out of the DAC, and the program
Shows you the actual "Real" voltage that you will get.

- '''DAC (R2R type)'''

Allows the user to calculate the output voltage of an R2R DAC
The program can do calculations for DACs from 3 to 10 bits with
very good accuracy
Very easy to use and very intuitive.

[[File:R2R.jpg]]

Calculate the output voltage of a DAC given the operating voltage
(or Vref) of the DAC.
Easy steps change the operating parameters live and the results
are instantly displayed.

Setup:
Not much to do here,
Just type in the voltage of the VRef ( on the DAC type that has a
VRef input ) or for DAC's that just have the R2R resistor network,
enter the operating voltage of the chip.
You will notice that the voltage per step changes as the voltage
i/p's changed.
Select the number of bits that the DAC has as an output (Default is 3),
but the range is 3 to 10bits. The layout will change to fit the graphic
view of the selected bits.
Enter a number in any of the boxes marked Hex,Decimal or Binary.
When the cursor is clicked in another box then the screen is updated.
You will notice that the boxes that you did NOT type in have now
been updated with the correct value and format for that box.

NOTE: If you type alpha characters in the Binary or Decimal boxes,
then the characters will be removed and any numbers left behind will
be used, this will result in an unknown number and is not recommended.
Any character greater than "F" in the hex box is removed and ignored.

The output voltage is now displayed in the box at the lower right of
the window. To change the value Bit by Bit, you can click on the
check boxes. after each change, the screen is updated to reflect
the new value. Hex,Decimal and Bin are also updated.

- '''LED resistor'''
-Not much to say here, Select you input voltage,
-Enter a LED Voltage or select the LED from the pull down menu
-Enter the current you wish to run (according to the specs of the LED)
Click Calculate, Shows the resistor value in Ohm.

[[File:Led_Calc.gif]]

- '''Voltage divider'''
Enter a supply voltage. Select what you want to find using the option buttons, and enter the two missing parameters. Eg Find- R1, Enter an R2 and an output voltage click "calculate."

[[File:Divider_calc.gif]]

- '''LM317 (voltage & current modes.)'''
Allows the user to calculate the voltage calculate the output voltage, or a constant output current.
Misc section contains pinouts of common regs and resistor ranges and values.
The program is very intuitive, doesn't really need a help file.

[[File:LM317.png]]

- '''Ferrite AL.'''
Just follow the instructions on that App.

[[File:Al_Calc.jpg]]

Oh yea, there's also an '''Electronics database (RATSAK)''' a couple of directories back on the site. I wrote it when I was employed in an electronics manufacturing company to keep track of our R&D stock (different to the normal stock as we didn't have to stock take.) Makes anything really easy to find. Has multiple field search like SMD, 0805,12k0. Also can do partial searches like
74 will find all components that contain the letters 74 anywhere in the field.
That program has an installation program as it does use DLL's and the like. Password is admin. Not really meant as a password, just prevents accidental changes. Has a pretty comprehensive help file, and two other programs. One only allows you to look at the database, the other allows you to look and take the components. It will remove that amount of components off the amount of stock you have.

[[File:Main_Screen.jpg]]

''In the process of doing the LM2576 Adj SMPS''

Enjoy

Dean

[[Category:Miscellaneous stuff]]

MCS Wiki Main entry

2013-06-18T07:58:58Z

Admin:

[[File:Mcswiki logo.png|center|Mcswiki logo.png]]

= BASCOM Manuals : =

*[http://wiki.mcselec.com/bavr/ BASCOM-AVR manual]

= User projects : =

{| style="width: 80%" align="center" border="0" cellpadding="1" cellspacing="1"
|-
| <categorytree mode="pages">Projects</categorytree>
| <br/>
| <categorytree mode="pages">Arduino Ethernet with Bascom-AVR</categorytree>
|}

{| style="width: 80%" align="center" border="0" cellpadding="1" cellspacing="1"
|-
| <categorytree mode="pages">Miscellaneous stuff</categorytree>
| <br/>
|}

{{Languages}}

Category:Miscellaneous stuff

2013-06-18T07:57:21Z

Admin: Created page with "Place for miscellaneous electronics stuff"

Place for miscellaneous electronics stuff

7 inch display board

2013-04-03T15:36:07Z

Admin: /* Using a switch mode regulator */

== Description ==

== Hardware ==
<ul style="margin-left: 40px;">
<li>[[7 inch display board#WizFi210|WIZFI210 Wireless network]]</li>
<li>[[7 inch display board#iTrax300 GPS|GPS ITRAX300 GPS]]</li>
<li>BTM220 Class 1 bluetooth </li>
<li>Bluegiga WT41 1 kilometer bluetooth </li>
<li>SCP1000 barometer </li>
<li>[[7 inch display board#DS1338-33 clock|DS1337 clock with battery backup]]</li>
<li>RS232 </li>
<li>Alvidi AVRB Atxmega128A1 module </li>
<li>7 inch display </li>
<li>FT232RL USB</li>
</ul>

== Pictures ==

[[File:7inch display5.jpg|thumb|center|450px]]

<table align="center"><tr><td>
<br/><gallery widths="160px" heights="160px" align="center">
File:7inch_display1.jpg
File:7inch_display2.jpg
File:7inch_display3.jpg
File:7inch_display4.jpg
File:7inch_display6.jpg
File:7inch_display7.jpg
</gallery>
</td></tr></table>

== Source code ==

Include a PDF-file for the 7 inch display and some pictures for the Alvidi on-board SD-card : [[Media:Ssd1963 7inch.zip|Download Ssd1963_7inch.zip]]

'''Example of main program:'''

<source lang="bascomavr">
'*******************************************************************************
'
' Copyright Michael Koecher aka six1 8/2010
' -> http://www.six1.net/ michael@koecher-web.de
'
' http://creativecommons.org/licenses/by-sa/3.0/de/
' Original nur von http://bascom-forum.de
' Sie dürfen:
'
' * das Werk bzw. den Inhalt vervielfältigen, verbreiten und öffentlich zugänglich machen
'
' * Abwandlungen und Bearbeitungen des Werkes bzw. Inhaltes anfertigen
'
' Zu Den Folgenden Bedingungen:
'
' * Namensnennung.
' Sie müssen den Namen des Autors/Rechteinhabers in der von ihm festgelegten Weise nennen.
'
' * Keine kommerzielle Nutzung.
' Dieses Werk darf nicht für kommerzielle Zwecke verwendet werden.
'
' * Weitergabe unter gleichen Bedingungen.
' Wenn Sie das lizenzierte Werk bzw. den lizenzierten Inhalt bearbeiten
' oder in anderer Weise erkennbar als Grundlage für eigenes Schaffen verwenden,
' dürfen Sie die daraufhin neu entstandenen Werke bzw. Inhalte nur
' unter Verwendung von Lizenzbedingungen weitergeben, die mit denen
' dieses Lizenzvertrages identisch oder vergleichbar sind.
'
' Wobei gilt:
'
' * Verzichtserklärung
' Jede der vorgenannten Bedingungen kann aufgehoben werden, sofern Sie
' die ausdrückliche Einwilligung des Rechteinhabers dazu erhalten.
'
' * Sonstige Rechte
' Die Lizenz hat keinerlei Einfluss auf die folgenden Rechte:
' - Die gesetzlichen Schranken des Urheberrechts und sonstigen
' Befugnisse zur privaten Nutzung
' - Das Urheberpersönlichkeitsrecht des Rechteinhabers
' - Rechte anderer Personen, entweder am Lizenzgegenstand selber oder
' bezüglich seiner Verwendung, zum Beispiel Persönlichkeitsrechte abgebildeter Personen.
'
' Hinweis
'
' Im Falle einer Verbreitung müssen Sie anderen alle Lizenzbedingungen
' mitteilen, die für dieses Werk gelten. Am einfachsten ist es,
' einen Link auf http://creativecommons.org/licenses/by-sa/3.0/de/ einzubinden.
'
'
'*******************************************************************************
'auf Treiber IC SSD1963 geändert 26.11.2011
'10.09.2012 angepast für Display Typ AT070TN90
'Hkipnik@aol.com
'*******************************************************************************

$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz '--> 32MHz

'*******************************************************************************

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Stop Watchdog
'*******************************************************************************

'*******************************************************************************
'Touch Interrupt
'*******************************************************************************
Const Use_touch = 1 'use Touch = 1
#if Use_touch = 1
Config Pinf.0 = Input 'Set PINF.4 as Input
'Because of the activated Pullup the PIN Level is high and there is a falling edge when switch is pressed
Config Xpin = Portf.0 , Outpull = Pullup , Sense = Falling 'enable Pull up and reaction on falling edge

Portf_int0mask = &B0000_0001 'include PIN0 in INT0 Mask
Portf_intctrl = &B0000_00_01
'^ 'Low Level INT0 Interrupt

Dim Touch_flag As Bit
Touch_flag = 0
On Portf_int0 Touch_int
Enable Portf_int0 , Lo
#endif
'*******************************************************************************
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Graphic 800x480"
'*******************************************************************************
$include "SSD1963_declarations.inc"
$include "SSD1963__sd-card_declarations.inc"
'*******************************************************************************
Call Sdcard_initialize()
'*******************************************************************************
'use for Demo
Dim Farbe As Word , Countx As Word , Xx1 As Word , Xx2 As Word , Yy1 As Word , Yy2 As Word , Penwidth As Byte , Box_fill As Byte , Show_border As Byte , Radius As Word
Dim Help_str As String * 10

'*******************************************************************************
'Start SSD1963
'*******************************************************************************
Call Ssd1963_init()
'*******************************************************************************

Enable Interrupts

'*** MAIN **********************************************************************
Do
Call Lcd_clear(blue)
Call Lcd_text( "Clear area" , 230 , 20 , 1 , Yellow , Blue)

Call Lcd_clear_area(100 , 100 , 200 , 200 , White)
Wait 2
Call Lcd_clear_area(1 , 1 , 200 , 200 , White)
Wait 2
Call Lcd_clear(red)
Call Lcd_text( "BMP 800x480 hallo world" , 100 , 224 , 1 , Gold , Black)
Call Lcd_text( "BMP 800x480 hallo world" , 20 , 20 , 2 , Yellow , Red)
Wait 1

Call Lcd_clear(black)
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieger5.bmp" , 1 , 0) '24Bit
Call Lcd_text_trans( "24Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieg8bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1

Call Lcd_draw_bmp( "pic18bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "pic28bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)

Wait 3
Call Lcd_negate(0)
Call Lcd_text_trans( "negate" , 310 , 200 , 1 , Red , Transparent)
Wait 3
Call Lcd_negate(1)

Wait 3
Call Lcd_clear(red)
Call Lcd_draw_bmp( "test8bit.bmp" , 0 , 0) '8Bit
Wait 1

Call Lcd_clear(blue)

#if Use_touch = 1
Call Lcd_box(700 , 420 , 790 , 470 , Red , White , 1 , 1)
Call Lcd_box(100 , 100 , 105 , 105 , Red , White , 1 , 1)
Call Lcd_text( "Touch me" , 390 , 10 , 2 , Yellow , Black)
Call Lcd_text( "next" , 720 , 435 , 2 , Yellow , Red)
Do
If Touch_flag = 1 Then

Touchx = 0
Touchy = 0
Call Lcd_read_touch()

Select Case Touchx
Case 570 To 630 :
If Touchy > 5 And Touchy < 65 Then
Ende = 1
End If
End Select

If Ende = 1 Then
Ende = 0
Exit Do
End If
Touch_flag = 0
End If

Loop
#endif

Call Lcd_clear(black)

Call Lcd_text( "LINE" , 390 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Farbe = Rnd(10)
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Penwidth = Rnd(4)
Penwidth = Rnd(4)
Call Lcd_line(xx1 , Yy1 , Xx2 , Yy2 , Penwidth , Color_array(farbe))
Next

Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX FILL" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Box_fill = Rnd(100)
If Box_fill < 50 Then Box_fill = 0
Show_border = Rnd(100)
If Show_border < 70 Then Show_border = 0
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , Color_array(farbe) , White , Box_fill , 1)
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , White , Color_array(farbe) , 0 , 1)
Next
Wait 2

Call Lcd_clear(black)
Call Lcd_text( "Circle" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 40 + Rnd(640)
Yy1 = 20 + Rnd(400)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_drawcircle(xx1 , Yy1 , Radius , 100 , 2 , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)
Call Lcd_text( "Circle Fill" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 50 + Rnd(540)
Yy1 = 80 + Rnd(300)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_fill_circle(xx1 , Yy1 , Radius , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BMP 320x240" , 330 , 10 , 2 , Yellow , Black)
Call Lcd_draw_bmp( "sylt1.bmp" , 240 , 100)
Wait 1
Call Lcd_draw_bmp( "tieger5.bmp" , 0 , 0)

Call Lcd_setscrollarea(0 , 480 , 0)
For Countx = 0 To 479
Call Lcd_scroll(countx)
Waitms 2
Next
For Countx = 479 To 0 Step -1
Call Lcd_scroll(countx)
Waitms 2
Next

Wait 2
Call Lcd_clear(black)
Loop
End
#if Use_touch = 1
Touch_int:
Touch_flag = 1
' Print #1 , "Touch"
Return
#endif

'*******************************************************************************

$include "SSD1963__sd-card_routines.inc"
$include "SSD1963_functions.inc"

$include "Font12x16.font"
$include "font25x32.font"
</source>

== DS1338-33 clock ==

Put a DS1338-33 clock IC on the board. It is the 3,3 volts 1307. <br/>Got some help to get soft I2c running, the command $forcesofti2c did the trick. And if you study the history.txt files of the Bascom-AVR updates, you will find this command.

[[File:7inch DS1338 33.jpg|thumb|center|400px|7inch DS1338 33.jpg]]

And here the software, with on top a little scan to check if the clock can be found on the soft i2c bus <source lang="bascomavr">
$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Start clock"

$forcesofti2c ' with this the software I2C/TWI commands are used when including i2c.lbx
$lib "i2c.lbx" ' override the normal xmega i2c lib

Dim B As Byte
Dim Weekday As Byte
Dim Text As String * 30

Declare Sub Setdate
Declare Sub Settime
Declare Sub Getdatetime

'We use here Virtual port 0
Config Vport0 = B ' 'map portB to virtual port0

Config Scl = Port0 .3 ' Pin to use as SCL (The hardware pin is Pinb.1)
Config Sda = Port0 .4 ' Pin to use as SDA (The hardware pin is Pinb.0)
I2cinit ' Bring the Pin's in the proper state

Print #1 , "Scan start"
For B = 0 To 254 Step 2 'for all odd addresses
I2cstart 'send start
I2cwbyte B 'send address
If Err = 0 Then 'we got an ack
Print #1 , "Slave at : " ; B ; " hex : " ; Hex(b) ; " bin : " ; Bin(b)
End If
I2cstop 'free bus
Next
Print #1 , "End Scan"

Wait 5 ' Bring the Pin's in the proper state

'DS1338
Const Ds1338w = &HD0 ' Adres van de Ds1338 clock
Const Ds1338r = &HD1

'Clock
Config Clock = User
Config Date = Dmy , Separator = .

$lib "ds1307clock.lib"

'Time$ = "00:07:00"
'Date$ = "24.02.13"

Do
Call Getdatetime
Print #1 , _hour
Print #1 , _min
Wait 5
Loop

End

'called from ds1307clock.lib

'-------------------------------------------------------------------------------
' DS1338 Get date-time routine
'-------------------------------------------------------------------------------
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' start address in 1338

I2cstart ' Generate start code
I2cwbyte Ds1338r ' 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

'-------------------------------------------------------------------------------
' DS1338 set date routine
'-------------------------------------------------------------------------------
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 4 ' starting address in 1338
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

'-------------------------------------------------------------------------------
' DS1338 set time routine
'-------------------------------------------------------------------------------
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' starting address in 1338
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

End
</source>

== WizFi210<br/> ==

=== HW part<br/> ===

HKipnik made an example how to make an UDP connection between the 7 inch display board and a Android SmartPhone.<br/><br/>Here some pictures of the WizFi210 with a DIY-antenna.

[[File:Wizfi210 5.jpg|thumb|center|400px|Wizfi210 5.jpg]]
<table align="center"><tr><td>
<gallery widths="250px" heights="250px" align="center">
File:Wizfi210_1.jpg‎|Antenna, 31 mm, with an cap.
File:Wizfi210_2.jpg‎|Antenna, shrinked
File:Wizfi210_3.jpg‎|The WIZFI210
File:Wizfi210_4.jpg‎|The WIZFI210 in detail
</gallery>
</td></tr>
</table>

=== Config part<br/> ===

To configure the WIZFI210 with WPA or WEP key, with DHCP or fixed IP and to have it auto-connect a level converter RS232 from PC straight to the WIZFI210

Download the WIZSmartScript from the Wiznet site

<table align="center"><tr><td>
<br/><gallery widths="240px" heights="240px" align="center" perrow="4">
File:Wizfi210_1c.jpg‎|The ZIP-file extracted
File:Wizfi210_2c.jpg‎|Start the WIZSmartScript program, baudrate 115200
File:Wizfi210_3c.jpg‎|Find WizFI and Set Command Mode
File:Wizfi210_4c.jpg‎|Do an Access Point scan and select the Access Point to associate with
File:Wizfi210_5c.jpg‎|Select the WiFi security. In this case WPA with the Passphrase 'wisclub1'
File:Wizfi210_6c.jpg‎|Give the module a static IP address (or if you want, give it a DHCP IP address)
File:Wizfi210_7c.jpg‎|Here you can change the Serial port options
File:Wizfi210_8c.jpg‎|For this example we will be using UDP traffic to a PC in our network that has the IP address 192.168.0.237 listening to port 5000
File:Wizfi210_9c.jpg‎|Select an save option. Here you create an startup profile for the WizFi210 module
File:Wizfi210_10c.jpg‎|You enable auto connect on the next reboot and enable UART messages
File:Wizfi210_11c.jpg‎|We saved it with the name benshobbycorner and here an example of a script
</gallery>
</td></tr></table>
With a not programmed Atxmega128A1. Remove all four jumpers of the Alvidi module (RS232). The MAX3232 on the module will be isolated. Connect the TXD1 and RXD1 from the WIZFI210 to the second RS232 of the Alvidi module. Connect a terminal program, 115200 baud and power the board. If all is connected right you will get the information from the WIZFI210. Start the WizSmartScript and there you go.

[[File:rs232_trick.jpg|thumb|450px|center]]

=== SW part<br/> ===

For the next part, Bascom, Android and Wireless, '''all credit goes to HKipnik alias HKBascom alias Heiko'''.

First some pictures:

<table align="center"><tr><td>
<gallery widths=340px heights=340>
File:Android.png
File:7inch_android.JPG
</gallery>
</td></tr></table>

In this example the WIZFI210 has got IP-address 192.168.0.250

And my Samsung Galaxy Note II has IP-address 192.168.0.237

Port 5000 is used to send UDP-traffic from the 7 inch display board to the Android SmartPhone.

Port 8000 is used to send UDP-traffic from SmartPhone to 7 inch display.

All wireless.

Here the software for the 7 inch display board and for the Android Smartphone.

The first in Bascom-AVR and the second in Basic4Android.

In the subdirectory bilder, the images

In the subdirectory wizfi210 a small testprogram and some more info we got from Heiko.

What we did change was the touchscreen routine. We left the old one from Heiko remarked, and put in our own routine.

Seems there are different displays with different touchscreens.

'''File 1:''' [[Media:7inch_wizfi210.zip|Download 7inch_wizfi210.zip]]

'''File 2:''' [[Media:Test_udp_wizfi210.zip‎|Download Test_udp_wizfi210.zip‎]]

== DHT11 sensor ==

DHT11 sensor on location JP1 and from www.AVRprojects.ru we have download software to read the DHT11.

[[Image:Dht11 7inch.jpg|thumb|400px|center]]

Now we got the time and date from the DS1338-33 and temperature and humidity from a DHT11.

Time to make a WordClock. Fontsize 25x32. So on a 800 x 480 pixel display we can make 13 lines of 31 characters.

It is a running clock, the text is refreshed three times a minute so it is very dynamic.

In real the blue is less intensive.

[[Image:Wordclock.jpg|thumb|400px|center]]

== iTrax300 GPS ==

The next step is the iTrax300 GPS module. It is the WIZFI210 or the Itrax300 GPS module, they are on the same serial lines.

<table align="center"><tr><td>
<br/><gallery widths="260px" heights="260px" align="center">
File:itrax2.jpg
File:itrax300x.jpg
File:rs232trick_itrax.jpg
</gallery>
</td></tr></table>

Same trick to connect a PC direct to the iTrax300 module

[[Image:itrax300.jpg|thumb|400px|center]]

Here the output of the module

== Using a switch mode regulator ==

There is a switched mode regulator available which is pin compatible with the 7805 regulator and a similar size. The 7805 regulator is supposed to be roughly 55% efficient where as the switch mode regulator TSR 1-2450 is supposed to be roughly 95% efficient.

[[Image:Tsr_1-2450_x2.jpg|thumb|center]]

Due to the backlight of the display, the 7805 got warm/hot, with the TSR 1-2450 no problem.

== Easter World Clock ==

'''File 1:''' [[Media:EasterWordClock.zip|Download EasterWordClock.zip]]

== Video<br/> ==

{{#ev:youtube|3BdFNtNBRlM |500|center|WizFi210 test UDP and Bascom (by HKipnik)}}

{{#ev:youtube|dpdl6lNeB1Y |500|center|SSD1963 7zoll mit ATxmega128A1 (by HKipnik)}}

== Authors<br/> ==
<div>Ben Zijlstra and Theo Kleijn designed the board and initial software.<br/></div><div>HKipnik made various software extensions such as the WIFI.<br/></div><div><br/></div><div><br/></div><div><br/></div>
[[Category:Projects]]

File:EasterWordClock.zip

2013-04-03T15:34:17Z

Admin:

7 inch display board

2013-04-03T15:32:13Z

Admin: /* Hardware */

== Description ==

== Hardware ==
<ul style="margin-left: 40px;">
<li>[[7 inch display board#WizFi210|WIZFI210 Wireless network]]</li>
<li>[[7 inch display board#iTrax300 GPS|GPS ITRAX300 GPS]]</li>
<li>BTM220 Class 1 bluetooth </li>
<li>Bluegiga WT41 1 kilometer bluetooth </li>
<li>SCP1000 barometer </li>
<li>[[7 inch display board#DS1338-33 clock|DS1337 clock with battery backup]]</li>
<li>RS232 </li>
<li>Alvidi AVRB Atxmega128A1 module </li>
<li>7 inch display </li>
<li>FT232RL USB</li>
</ul>

== Pictures ==

[[File:7inch display5.jpg|thumb|center|450px]]

<table align="center"><tr><td>
<br/><gallery widths="160px" heights="160px" align="center">
File:7inch_display1.jpg
File:7inch_display2.jpg
File:7inch_display3.jpg
File:7inch_display4.jpg
File:7inch_display6.jpg
File:7inch_display7.jpg
</gallery>
</td></tr></table>

== Source code ==

Include a PDF-file for the 7 inch display and some pictures for the Alvidi on-board SD-card : [[Media:Ssd1963 7inch.zip|Download Ssd1963_7inch.zip]]

'''Example of main program:'''

<source lang="bascomavr">
'*******************************************************************************
'
' Copyright Michael Koecher aka six1 8/2010
' -> http://www.six1.net/ michael@koecher-web.de
'
' http://creativecommons.org/licenses/by-sa/3.0/de/
' Original nur von http://bascom-forum.de
' Sie dürfen:
'
' * das Werk bzw. den Inhalt vervielfältigen, verbreiten und öffentlich zugänglich machen
'
' * Abwandlungen und Bearbeitungen des Werkes bzw. Inhaltes anfertigen
'
' Zu Den Folgenden Bedingungen:
'
' * Namensnennung.
' Sie müssen den Namen des Autors/Rechteinhabers in der von ihm festgelegten Weise nennen.
'
' * Keine kommerzielle Nutzung.
' Dieses Werk darf nicht für kommerzielle Zwecke verwendet werden.
'
' * Weitergabe unter gleichen Bedingungen.
' Wenn Sie das lizenzierte Werk bzw. den lizenzierten Inhalt bearbeiten
' oder in anderer Weise erkennbar als Grundlage für eigenes Schaffen verwenden,
' dürfen Sie die daraufhin neu entstandenen Werke bzw. Inhalte nur
' unter Verwendung von Lizenzbedingungen weitergeben, die mit denen
' dieses Lizenzvertrages identisch oder vergleichbar sind.
'
' Wobei gilt:
'
' * Verzichtserklärung
' Jede der vorgenannten Bedingungen kann aufgehoben werden, sofern Sie
' die ausdrückliche Einwilligung des Rechteinhabers dazu erhalten.
'
' * Sonstige Rechte
' Die Lizenz hat keinerlei Einfluss auf die folgenden Rechte:
' - Die gesetzlichen Schranken des Urheberrechts und sonstigen
' Befugnisse zur privaten Nutzung
' - Das Urheberpersönlichkeitsrecht des Rechteinhabers
' - Rechte anderer Personen, entweder am Lizenzgegenstand selber oder
' bezüglich seiner Verwendung, zum Beispiel Persönlichkeitsrechte abgebildeter Personen.
'
' Hinweis
'
' Im Falle einer Verbreitung müssen Sie anderen alle Lizenzbedingungen
' mitteilen, die für dieses Werk gelten. Am einfachsten ist es,
' einen Link auf http://creativecommons.org/licenses/by-sa/3.0/de/ einzubinden.
'
'
'*******************************************************************************
'auf Treiber IC SSD1963 geändert 26.11.2011
'10.09.2012 angepast für Display Typ AT070TN90
'Hkipnik@aol.com
'*******************************************************************************

$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz '--> 32MHz

'*******************************************************************************

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Stop Watchdog
'*******************************************************************************

'*******************************************************************************
'Touch Interrupt
'*******************************************************************************
Const Use_touch = 1 'use Touch = 1
#if Use_touch = 1
Config Pinf.0 = Input 'Set PINF.4 as Input
'Because of the activated Pullup the PIN Level is high and there is a falling edge when switch is pressed
Config Xpin = Portf.0 , Outpull = Pullup , Sense = Falling 'enable Pull up and reaction on falling edge

Portf_int0mask = &B0000_0001 'include PIN0 in INT0 Mask
Portf_intctrl = &B0000_00_01
'^ 'Low Level INT0 Interrupt

Dim Touch_flag As Bit
Touch_flag = 0
On Portf_int0 Touch_int
Enable Portf_int0 , Lo
#endif
'*******************************************************************************
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Graphic 800x480"
'*******************************************************************************
$include "SSD1963_declarations.inc"
$include "SSD1963__sd-card_declarations.inc"
'*******************************************************************************
Call Sdcard_initialize()
'*******************************************************************************
'use for Demo
Dim Farbe As Word , Countx As Word , Xx1 As Word , Xx2 As Word , Yy1 As Word , Yy2 As Word , Penwidth As Byte , Box_fill As Byte , Show_border As Byte , Radius As Word
Dim Help_str As String * 10

'*******************************************************************************
'Start SSD1963
'*******************************************************************************
Call Ssd1963_init()
'*******************************************************************************

Enable Interrupts

'*** MAIN **********************************************************************
Do
Call Lcd_clear(blue)
Call Lcd_text( "Clear area" , 230 , 20 , 1 , Yellow , Blue)

Call Lcd_clear_area(100 , 100 , 200 , 200 , White)
Wait 2
Call Lcd_clear_area(1 , 1 , 200 , 200 , White)
Wait 2
Call Lcd_clear(red)
Call Lcd_text( "BMP 800x480 hallo world" , 100 , 224 , 1 , Gold , Black)
Call Lcd_text( "BMP 800x480 hallo world" , 20 , 20 , 2 , Yellow , Red)
Wait 1

Call Lcd_clear(black)
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieger5.bmp" , 1 , 0) '24Bit
Call Lcd_text_trans( "24Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieg8bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1

Call Lcd_draw_bmp( "pic18bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "pic28bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)

Wait 3
Call Lcd_negate(0)
Call Lcd_text_trans( "negate" , 310 , 200 , 1 , Red , Transparent)
Wait 3
Call Lcd_negate(1)

Wait 3
Call Lcd_clear(red)
Call Lcd_draw_bmp( "test8bit.bmp" , 0 , 0) '8Bit
Wait 1

Call Lcd_clear(blue)

#if Use_touch = 1
Call Lcd_box(700 , 420 , 790 , 470 , Red , White , 1 , 1)
Call Lcd_box(100 , 100 , 105 , 105 , Red , White , 1 , 1)
Call Lcd_text( "Touch me" , 390 , 10 , 2 , Yellow , Black)
Call Lcd_text( "next" , 720 , 435 , 2 , Yellow , Red)
Do
If Touch_flag = 1 Then

Touchx = 0
Touchy = 0
Call Lcd_read_touch()

Select Case Touchx
Case 570 To 630 :
If Touchy > 5 And Touchy < 65 Then
Ende = 1
End If
End Select

If Ende = 1 Then
Ende = 0
Exit Do
End If
Touch_flag = 0
End If

Loop
#endif

Call Lcd_clear(black)

Call Lcd_text( "LINE" , 390 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Farbe = Rnd(10)
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Penwidth = Rnd(4)
Penwidth = Rnd(4)
Call Lcd_line(xx1 , Yy1 , Xx2 , Yy2 , Penwidth , Color_array(farbe))
Next

Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX FILL" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Box_fill = Rnd(100)
If Box_fill < 50 Then Box_fill = 0
Show_border = Rnd(100)
If Show_border < 70 Then Show_border = 0
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , Color_array(farbe) , White , Box_fill , 1)
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , White , Color_array(farbe) , 0 , 1)
Next
Wait 2

Call Lcd_clear(black)
Call Lcd_text( "Circle" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 40 + Rnd(640)
Yy1 = 20 + Rnd(400)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_drawcircle(xx1 , Yy1 , Radius , 100 , 2 , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)
Call Lcd_text( "Circle Fill" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 50 + Rnd(540)
Yy1 = 80 + Rnd(300)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_fill_circle(xx1 , Yy1 , Radius , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BMP 320x240" , 330 , 10 , 2 , Yellow , Black)
Call Lcd_draw_bmp( "sylt1.bmp" , 240 , 100)
Wait 1
Call Lcd_draw_bmp( "tieger5.bmp" , 0 , 0)

Call Lcd_setscrollarea(0 , 480 , 0)
For Countx = 0 To 479
Call Lcd_scroll(countx)
Waitms 2
Next
For Countx = 479 To 0 Step -1
Call Lcd_scroll(countx)
Waitms 2
Next

Wait 2
Call Lcd_clear(black)
Loop
End
#if Use_touch = 1
Touch_int:
Touch_flag = 1
' Print #1 , "Touch"
Return
#endif

'*******************************************************************************

$include "SSD1963__sd-card_routines.inc"
$include "SSD1963_functions.inc"

$include "Font12x16.font"
$include "font25x32.font"
</source>

== DS1338-33 clock ==

Put a DS1338-33 clock IC on the board. It is the 3,3 volts 1307. <br/>Got some help to get soft I2c running, the command $forcesofti2c did the trick. And if you study the history.txt files of the Bascom-AVR updates, you will find this command.

[[File:7inch DS1338 33.jpg|thumb|center|400px|7inch DS1338 33.jpg]]

And here the software, with on top a little scan to check if the clock can be found on the soft i2c bus <source lang="bascomavr">
$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Start clock"

$forcesofti2c ' with this the software I2C/TWI commands are used when including i2c.lbx
$lib "i2c.lbx" ' override the normal xmega i2c lib

Dim B As Byte
Dim Weekday As Byte
Dim Text As String * 30

Declare Sub Setdate
Declare Sub Settime
Declare Sub Getdatetime

'We use here Virtual port 0
Config Vport0 = B ' 'map portB to virtual port0

Config Scl = Port0 .3 ' Pin to use as SCL (The hardware pin is Pinb.1)
Config Sda = Port0 .4 ' Pin to use as SDA (The hardware pin is Pinb.0)
I2cinit ' Bring the Pin's in the proper state

Print #1 , "Scan start"
For B = 0 To 254 Step 2 'for all odd addresses
I2cstart 'send start
I2cwbyte B 'send address
If Err = 0 Then 'we got an ack
Print #1 , "Slave at : " ; B ; " hex : " ; Hex(b) ; " bin : " ; Bin(b)
End If
I2cstop 'free bus
Next
Print #1 , "End Scan"

Wait 5 ' Bring the Pin's in the proper state

'DS1338
Const Ds1338w = &HD0 ' Adres van de Ds1338 clock
Const Ds1338r = &HD1

'Clock
Config Clock = User
Config Date = Dmy , Separator = .

$lib "ds1307clock.lib"

'Time$ = "00:07:00"
'Date$ = "24.02.13"

Do
Call Getdatetime
Print #1 , _hour
Print #1 , _min
Wait 5
Loop

End

'called from ds1307clock.lib

'-------------------------------------------------------------------------------
' DS1338 Get date-time routine
'-------------------------------------------------------------------------------
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' start address in 1338

I2cstart ' Generate start code
I2cwbyte Ds1338r ' 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

'-------------------------------------------------------------------------------
' DS1338 set date routine
'-------------------------------------------------------------------------------
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 4 ' starting address in 1338
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

'-------------------------------------------------------------------------------
' DS1338 set time routine
'-------------------------------------------------------------------------------
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' starting address in 1338
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

End
</source>

== WizFi210<br/> ==

=== HW part<br/> ===

HKipnik made an example how to make an UDP connection between the 7 inch display board and a Android SmartPhone.<br/><br/>Here some pictures of the WizFi210 with a DIY-antenna.

[[File:Wizfi210 5.jpg|thumb|center|400px|Wizfi210 5.jpg]]
<table align="center"><tr><td>
<gallery widths="250px" heights="250px" align="center">
File:Wizfi210_1.jpg‎|Antenna, 31 mm, with an cap.
File:Wizfi210_2.jpg‎|Antenna, shrinked
File:Wizfi210_3.jpg‎|The WIZFI210
File:Wizfi210_4.jpg‎|The WIZFI210 in detail
</gallery>
</td></tr>
</table>

=== Config part<br/> ===

To configure the WIZFI210 with WPA or WEP key, with DHCP or fixed IP and to have it auto-connect a level converter RS232 from PC straight to the WIZFI210

Download the WIZSmartScript from the Wiznet site

<table align="center"><tr><td>
<br/><gallery widths="240px" heights="240px" align="center" perrow="4">
File:Wizfi210_1c.jpg‎|The ZIP-file extracted
File:Wizfi210_2c.jpg‎|Start the WIZSmartScript program, baudrate 115200
File:Wizfi210_3c.jpg‎|Find WizFI and Set Command Mode
File:Wizfi210_4c.jpg‎|Do an Access Point scan and select the Access Point to associate with
File:Wizfi210_5c.jpg‎|Select the WiFi security. In this case WPA with the Passphrase 'wisclub1'
File:Wizfi210_6c.jpg‎|Give the module a static IP address (or if you want, give it a DHCP IP address)
File:Wizfi210_7c.jpg‎|Here you can change the Serial port options
File:Wizfi210_8c.jpg‎|For this example we will be using UDP traffic to a PC in our network that has the IP address 192.168.0.237 listening to port 5000
File:Wizfi210_9c.jpg‎|Select an save option. Here you create an startup profile for the WizFi210 module
File:Wizfi210_10c.jpg‎|You enable auto connect on the next reboot and enable UART messages
File:Wizfi210_11c.jpg‎|We saved it with the name benshobbycorner and here an example of a script
</gallery>
</td></tr></table>
With a not programmed Atxmega128A1. Remove all four jumpers of the Alvidi module (RS232). The MAX3232 on the module will be isolated. Connect the TXD1 and RXD1 from the WIZFI210 to the second RS232 of the Alvidi module. Connect a terminal program, 115200 baud and power the board. If all is connected right you will get the information from the WIZFI210. Start the WizSmartScript and there you go.

[[File:rs232_trick.jpg|thumb|450px|center]]

=== SW part<br/> ===

For the next part, Bascom, Android and Wireless, '''all credit goes to HKipnik alias HKBascom alias Heiko'''.

First some pictures:

<table align="center"><tr><td>
<gallery widths=340px heights=340>
File:Android.png
File:7inch_android.JPG
</gallery>
</td></tr></table>

In this example the WIZFI210 has got IP-address 192.168.0.250

And my Samsung Galaxy Note II has IP-address 192.168.0.237

Port 5000 is used to send UDP-traffic from the 7 inch display board to the Android SmartPhone.

Port 8000 is used to send UDP-traffic from SmartPhone to 7 inch display.

All wireless.

Here the software for the 7 inch display board and for the Android Smartphone.

The first in Bascom-AVR and the second in Basic4Android.

In the subdirectory bilder, the images

In the subdirectory wizfi210 a small testprogram and some more info we got from Heiko.

What we did change was the touchscreen routine. We left the old one from Heiko remarked, and put in our own routine.

Seems there are different displays with different touchscreens.

'''File 1:''' [[Media:7inch_wizfi210.zip|Download 7inch_wizfi210.zip]]

'''File 2:''' [[Media:Test_udp_wizfi210.zip‎|Download Test_udp_wizfi210.zip‎]]

== DHT11 sensor ==

DHT11 sensor on location JP1 and from www.AVRprojects.ru we have download software to read the DHT11.

[[Image:Dht11 7inch.jpg|thumb|400px|center]]

Now we got the time and date from the DS1338-33 and temperature and humidity from a DHT11.

Time to make a WordClock. Fontsize 25x32. So on a 800 x 480 pixel display we can make 13 lines of 31 characters.

It is a running clock, the text is refreshed three times a minute so it is very dynamic.

In real the blue is less intensive.

[[Image:Wordclock.jpg|thumb|400px|center]]

== iTrax300 GPS ==

The next step is the iTrax300 GPS module. It is the WIZFI210 or the Itrax300 GPS module, they are on the same serial lines.

<table align="center"><tr><td>
<br/><gallery widths="260px" heights="260px" align="center">
File:itrax2.jpg
File:itrax300x.jpg
File:rs232trick_itrax.jpg
</gallery>
</td></tr></table>

Same trick to connect a PC direct to the iTrax300 module

[[Image:itrax300.jpg|thumb|400px|center]]

Here the output of the module

== Using a switch mode regulator ==

There is a switched mode regulator available which is pin compatible with the 7805 regulator and a similar size. The 7805 regulator is supposed to be roughly 55% efficient where as the switch mode regulator TSR 1-2450 is supposed to be roughly 95% efficient.

[[Image:Tsr_1-2450_x2.jpg|thumb|center]]

Due to the backlight of the display, the 7805 got warm/hot, with the TSR 1-2450 no problem.

== Video<br/> ==

{{#ev:youtube|3BdFNtNBRlM |500|center|WizFi210 test UDP and Bascom (by HKipnik)}}

{{#ev:youtube|dpdl6lNeB1Y |500|center|SSD1963 7zoll mit ATxmega128A1 (by HKipnik)}}

== Authors<br/> ==
<div>Ben Zijlstra and Theo Kleijn designed the board and initial software.<br/></div><div>HKipnik made various software extensions such as the WIFI.<br/></div><div><br/></div><div><br/></div><div><br/></div>
[[Category:Projects]]

7 inch display board

2013-04-03T15:31:31Z

Admin: /* Hardware */

== Description ==

== Hardware ==
<ul style="margin-left: 40px;">
<li>[[7 inch display board#WizFi210|WIZFI210 Wireless network]]</li>
<li>[[7 inch display board#iTrax300|GPS ITRAX300 GPS]]</li>
<li>BTM220 Class 1 bluetooth </li>
<li>Bluegiga WT41 1 kilometer bluetooth </li>
<li>SCP1000 barometer </li>
<li>[[7 inch display board#DS1338-33 clock|DS1337 clock with battery backup]]</li>
<li>RS232 </li>
<li>Alvidi AVRB Atxmega128A1 module </li>
<li>7 inch display </li>
<li>FT232RL USB</li>
</ul>

== Pictures ==

[[File:7inch display5.jpg|thumb|center|450px]]

<table align="center"><tr><td>
<br/><gallery widths="160px" heights="160px" align="center">
File:7inch_display1.jpg
File:7inch_display2.jpg
File:7inch_display3.jpg
File:7inch_display4.jpg
File:7inch_display6.jpg
File:7inch_display7.jpg
</gallery>
</td></tr></table>

== Source code ==

Include a PDF-file for the 7 inch display and some pictures for the Alvidi on-board SD-card : [[Media:Ssd1963 7inch.zip|Download Ssd1963_7inch.zip]]

'''Example of main program:'''

<source lang="bascomavr">
'*******************************************************************************
'
' Copyright Michael Koecher aka six1 8/2010
' -> http://www.six1.net/ michael@koecher-web.de
'
' http://creativecommons.org/licenses/by-sa/3.0/de/
' Original nur von http://bascom-forum.de
' Sie dürfen:
'
' * das Werk bzw. den Inhalt vervielfältigen, verbreiten und öffentlich zugänglich machen
'
' * Abwandlungen und Bearbeitungen des Werkes bzw. Inhaltes anfertigen
'
' Zu Den Folgenden Bedingungen:
'
' * Namensnennung.
' Sie müssen den Namen des Autors/Rechteinhabers in der von ihm festgelegten Weise nennen.
'
' * Keine kommerzielle Nutzung.
' Dieses Werk darf nicht für kommerzielle Zwecke verwendet werden.
'
' * Weitergabe unter gleichen Bedingungen.
' Wenn Sie das lizenzierte Werk bzw. den lizenzierten Inhalt bearbeiten
' oder in anderer Weise erkennbar als Grundlage für eigenes Schaffen verwenden,
' dürfen Sie die daraufhin neu entstandenen Werke bzw. Inhalte nur
' unter Verwendung von Lizenzbedingungen weitergeben, die mit denen
' dieses Lizenzvertrages identisch oder vergleichbar sind.
'
' Wobei gilt:
'
' * Verzichtserklärung
' Jede der vorgenannten Bedingungen kann aufgehoben werden, sofern Sie
' die ausdrückliche Einwilligung des Rechteinhabers dazu erhalten.
'
' * Sonstige Rechte
' Die Lizenz hat keinerlei Einfluss auf die folgenden Rechte:
' - Die gesetzlichen Schranken des Urheberrechts und sonstigen
' Befugnisse zur privaten Nutzung
' - Das Urheberpersönlichkeitsrecht des Rechteinhabers
' - Rechte anderer Personen, entweder am Lizenzgegenstand selber oder
' bezüglich seiner Verwendung, zum Beispiel Persönlichkeitsrechte abgebildeter Personen.
'
' Hinweis
'
' Im Falle einer Verbreitung müssen Sie anderen alle Lizenzbedingungen
' mitteilen, die für dieses Werk gelten. Am einfachsten ist es,
' einen Link auf http://creativecommons.org/licenses/by-sa/3.0/de/ einzubinden.
'
'
'*******************************************************************************
'auf Treiber IC SSD1963 geändert 26.11.2011
'10.09.2012 angepast für Display Typ AT070TN90
'Hkipnik@aol.com
'*******************************************************************************

$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz '--> 32MHz

'*******************************************************************************

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Stop Watchdog
'*******************************************************************************

'*******************************************************************************
'Touch Interrupt
'*******************************************************************************
Const Use_touch = 1 'use Touch = 1
#if Use_touch = 1
Config Pinf.0 = Input 'Set PINF.4 as Input
'Because of the activated Pullup the PIN Level is high and there is a falling edge when switch is pressed
Config Xpin = Portf.0 , Outpull = Pullup , Sense = Falling 'enable Pull up and reaction on falling edge

Portf_int0mask = &B0000_0001 'include PIN0 in INT0 Mask
Portf_intctrl = &B0000_00_01
'^ 'Low Level INT0 Interrupt

Dim Touch_flag As Bit
Touch_flag = 0
On Portf_int0 Touch_int
Enable Portf_int0 , Lo
#endif
'*******************************************************************************
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Graphic 800x480"
'*******************************************************************************
$include "SSD1963_declarations.inc"
$include "SSD1963__sd-card_declarations.inc"
'*******************************************************************************
Call Sdcard_initialize()
'*******************************************************************************
'use for Demo
Dim Farbe As Word , Countx As Word , Xx1 As Word , Xx2 As Word , Yy1 As Word , Yy2 As Word , Penwidth As Byte , Box_fill As Byte , Show_border As Byte , Radius As Word
Dim Help_str As String * 10

'*******************************************************************************
'Start SSD1963
'*******************************************************************************
Call Ssd1963_init()
'*******************************************************************************

Enable Interrupts

'*** MAIN **********************************************************************
Do
Call Lcd_clear(blue)
Call Lcd_text( "Clear area" , 230 , 20 , 1 , Yellow , Blue)

Call Lcd_clear_area(100 , 100 , 200 , 200 , White)
Wait 2
Call Lcd_clear_area(1 , 1 , 200 , 200 , White)
Wait 2
Call Lcd_clear(red)
Call Lcd_text( "BMP 800x480 hallo world" , 100 , 224 , 1 , Gold , Black)
Call Lcd_text( "BMP 800x480 hallo world" , 20 , 20 , 2 , Yellow , Red)
Wait 1

Call Lcd_clear(black)
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieger5.bmp" , 1 , 0) '24Bit
Call Lcd_text_trans( "24Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieg8bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1

Call Lcd_draw_bmp( "pic18bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "pic28bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)

Wait 3
Call Lcd_negate(0)
Call Lcd_text_trans( "negate" , 310 , 200 , 1 , Red , Transparent)
Wait 3
Call Lcd_negate(1)

Wait 3
Call Lcd_clear(red)
Call Lcd_draw_bmp( "test8bit.bmp" , 0 , 0) '8Bit
Wait 1

Call Lcd_clear(blue)

#if Use_touch = 1
Call Lcd_box(700 , 420 , 790 , 470 , Red , White , 1 , 1)
Call Lcd_box(100 , 100 , 105 , 105 , Red , White , 1 , 1)
Call Lcd_text( "Touch me" , 390 , 10 , 2 , Yellow , Black)
Call Lcd_text( "next" , 720 , 435 , 2 , Yellow , Red)
Do
If Touch_flag = 1 Then

Touchx = 0
Touchy = 0
Call Lcd_read_touch()

Select Case Touchx
Case 570 To 630 :
If Touchy > 5 And Touchy < 65 Then
Ende = 1
End If
End Select

If Ende = 1 Then
Ende = 0
Exit Do
End If
Touch_flag = 0
End If

Loop
#endif

Call Lcd_clear(black)

Call Lcd_text( "LINE" , 390 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Farbe = Rnd(10)
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Penwidth = Rnd(4)
Penwidth = Rnd(4)
Call Lcd_line(xx1 , Yy1 , Xx2 , Yy2 , Penwidth , Color_array(farbe))
Next

Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX FILL" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Box_fill = Rnd(100)
If Box_fill < 50 Then Box_fill = 0
Show_border = Rnd(100)
If Show_border < 70 Then Show_border = 0
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , Color_array(farbe) , White , Box_fill , 1)
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , White , Color_array(farbe) , 0 , 1)
Next
Wait 2

Call Lcd_clear(black)
Call Lcd_text( "Circle" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 40 + Rnd(640)
Yy1 = 20 + Rnd(400)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_drawcircle(xx1 , Yy1 , Radius , 100 , 2 , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)
Call Lcd_text( "Circle Fill" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 50 + Rnd(540)
Yy1 = 80 + Rnd(300)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_fill_circle(xx1 , Yy1 , Radius , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BMP 320x240" , 330 , 10 , 2 , Yellow , Black)
Call Lcd_draw_bmp( "sylt1.bmp" , 240 , 100)
Wait 1
Call Lcd_draw_bmp( "tieger5.bmp" , 0 , 0)

Call Lcd_setscrollarea(0 , 480 , 0)
For Countx = 0 To 479
Call Lcd_scroll(countx)
Waitms 2
Next
For Countx = 479 To 0 Step -1
Call Lcd_scroll(countx)
Waitms 2
Next

Wait 2
Call Lcd_clear(black)
Loop
End
#if Use_touch = 1
Touch_int:
Touch_flag = 1
' Print #1 , "Touch"
Return
#endif

'*******************************************************************************

$include "SSD1963__sd-card_routines.inc"
$include "SSD1963_functions.inc"

$include "Font12x16.font"
$include "font25x32.font"
</source>

== DS1338-33 clock ==

Put a DS1338-33 clock IC on the board. It is the 3,3 volts 1307. <br/>Got some help to get soft I2c running, the command $forcesofti2c did the trick. And if you study the history.txt files of the Bascom-AVR updates, you will find this command.

[[File:7inch DS1338 33.jpg|thumb|center|400px|7inch DS1338 33.jpg]]

And here the software, with on top a little scan to check if the clock can be found on the soft i2c bus <source lang="bascomavr">
$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Start clock"

$forcesofti2c ' with this the software I2C/TWI commands are used when including i2c.lbx
$lib "i2c.lbx" ' override the normal xmega i2c lib

Dim B As Byte
Dim Weekday As Byte
Dim Text As String * 30

Declare Sub Setdate
Declare Sub Settime
Declare Sub Getdatetime

'We use here Virtual port 0
Config Vport0 = B ' 'map portB to virtual port0

Config Scl = Port0 .3 ' Pin to use as SCL (The hardware pin is Pinb.1)
Config Sda = Port0 .4 ' Pin to use as SDA (The hardware pin is Pinb.0)
I2cinit ' Bring the Pin's in the proper state

Print #1 , "Scan start"
For B = 0 To 254 Step 2 'for all odd addresses
I2cstart 'send start
I2cwbyte B 'send address
If Err = 0 Then 'we got an ack
Print #1 , "Slave at : " ; B ; " hex : " ; Hex(b) ; " bin : " ; Bin(b)
End If
I2cstop 'free bus
Next
Print #1 , "End Scan"

Wait 5 ' Bring the Pin's in the proper state

'DS1338
Const Ds1338w = &HD0 ' Adres van de Ds1338 clock
Const Ds1338r = &HD1

'Clock
Config Clock = User
Config Date = Dmy , Separator = .

$lib "ds1307clock.lib"

'Time$ = "00:07:00"
'Date$ = "24.02.13"

Do
Call Getdatetime
Print #1 , _hour
Print #1 , _min
Wait 5
Loop

End

'called from ds1307clock.lib

'-------------------------------------------------------------------------------
' DS1338 Get date-time routine
'-------------------------------------------------------------------------------
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' start address in 1338

I2cstart ' Generate start code
I2cwbyte Ds1338r ' 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

'-------------------------------------------------------------------------------
' DS1338 set date routine
'-------------------------------------------------------------------------------
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 4 ' starting address in 1338
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

'-------------------------------------------------------------------------------
' DS1338 set time routine
'-------------------------------------------------------------------------------
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' starting address in 1338
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

End
</source>

== WizFi210<br/> ==

=== HW part<br/> ===

HKipnik made an example how to make an UDP connection between the 7 inch display board and a Android SmartPhone.<br/><br/>Here some pictures of the WizFi210 with a DIY-antenna.

[[File:Wizfi210 5.jpg|thumb|center|400px|Wizfi210 5.jpg]]
<table align="center"><tr><td>
<gallery widths="250px" heights="250px" align="center">
File:Wizfi210_1.jpg‎|Antenna, 31 mm, with an cap.
File:Wizfi210_2.jpg‎|Antenna, shrinked
File:Wizfi210_3.jpg‎|The WIZFI210
File:Wizfi210_4.jpg‎|The WIZFI210 in detail
</gallery>
</td></tr>
</table>

=== Config part<br/> ===

To configure the WIZFI210 with WPA or WEP key, with DHCP or fixed IP and to have it auto-connect a level converter RS232 from PC straight to the WIZFI210

Download the WIZSmartScript from the Wiznet site

<table align="center"><tr><td>
<br/><gallery widths="240px" heights="240px" align="center" perrow="4">
File:Wizfi210_1c.jpg‎|The ZIP-file extracted
File:Wizfi210_2c.jpg‎|Start the WIZSmartScript program, baudrate 115200
File:Wizfi210_3c.jpg‎|Find WizFI and Set Command Mode
File:Wizfi210_4c.jpg‎|Do an Access Point scan and select the Access Point to associate with
File:Wizfi210_5c.jpg‎|Select the WiFi security. In this case WPA with the Passphrase 'wisclub1'
File:Wizfi210_6c.jpg‎|Give the module a static IP address (or if you want, give it a DHCP IP address)
File:Wizfi210_7c.jpg‎|Here you can change the Serial port options
File:Wizfi210_8c.jpg‎|For this example we will be using UDP traffic to a PC in our network that has the IP address 192.168.0.237 listening to port 5000
File:Wizfi210_9c.jpg‎|Select an save option. Here you create an startup profile for the WizFi210 module
File:Wizfi210_10c.jpg‎|You enable auto connect on the next reboot and enable UART messages
File:Wizfi210_11c.jpg‎|We saved it with the name benshobbycorner and here an example of a script
</gallery>
</td></tr></table>
With a not programmed Atxmega128A1. Remove all four jumpers of the Alvidi module (RS232). The MAX3232 on the module will be isolated. Connect the TXD1 and RXD1 from the WIZFI210 to the second RS232 of the Alvidi module. Connect a terminal program, 115200 baud and power the board. If all is connected right you will get the information from the WIZFI210. Start the WizSmartScript and there you go.

[[File:rs232_trick.jpg|thumb|450px|center]]

=== SW part<br/> ===

For the next part, Bascom, Android and Wireless, '''all credit goes to HKipnik alias HKBascom alias Heiko'''.

First some pictures:

<table align="center"><tr><td>
<gallery widths=340px heights=340>
File:Android.png
File:7inch_android.JPG
</gallery>
</td></tr></table>

In this example the WIZFI210 has got IP-address 192.168.0.250

And my Samsung Galaxy Note II has IP-address 192.168.0.237

Port 5000 is used to send UDP-traffic from the 7 inch display board to the Android SmartPhone.

Port 8000 is used to send UDP-traffic from SmartPhone to 7 inch display.

All wireless.

Here the software for the 7 inch display board and for the Android Smartphone.

The first in Bascom-AVR and the second in Basic4Android.

In the subdirectory bilder, the images

In the subdirectory wizfi210 a small testprogram and some more info we got from Heiko.

What we did change was the touchscreen routine. We left the old one from Heiko remarked, and put in our own routine.

Seems there are different displays with different touchscreens.

'''File 1:''' [[Media:7inch_wizfi210.zip|Download 7inch_wizfi210.zip]]

'''File 2:''' [[Media:Test_udp_wizfi210.zip‎|Download Test_udp_wizfi210.zip‎]]

== DHT11 sensor ==

DHT11 sensor on location JP1 and from www.AVRprojects.ru we have download software to read the DHT11.

[[Image:Dht11 7inch.jpg|thumb|400px|center]]

Now we got the time and date from the DS1338-33 and temperature and humidity from a DHT11.

Time to make a WordClock. Fontsize 25x32. So on a 800 x 480 pixel display we can make 13 lines of 31 characters.

It is a running clock, the text is refreshed three times a minute so it is very dynamic.

In real the blue is less intensive.

[[Image:Wordclock.jpg|thumb|400px|center]]

== iTrax300 GPS ==

The next step is the iTrax300 GPS module. It is the WIZFI210 or the Itrax300 GPS module, they are on the same serial lines.

<table align="center"><tr><td>
<br/><gallery widths="260px" heights="260px" align="center">
File:itrax2.jpg
File:itrax300x.jpg
File:rs232trick_itrax.jpg
</gallery>
</td></tr></table>

Same trick to connect a PC direct to the iTrax300 module

[[Image:itrax300.jpg|thumb|400px|center]]

Here the output of the module

== Using a switch mode regulator ==

There is a switched mode regulator available which is pin compatible with the 7805 regulator and a similar size. The 7805 regulator is supposed to be roughly 55% efficient where as the switch mode regulator TSR 1-2450 is supposed to be roughly 95% efficient.

[[Image:Tsr_1-2450_x2.jpg|thumb|center]]

Due to the backlight of the display, the 7805 got warm/hot, with the TSR 1-2450 no problem.

== Video<br/> ==

{{#ev:youtube|3BdFNtNBRlM |500|center|WizFi210 test UDP and Bascom (by HKipnik)}}

{{#ev:youtube|dpdl6lNeB1Y |500|center|SSD1963 7zoll mit ATxmega128A1 (by HKipnik)}}

== Authors<br/> ==
<div>Ben Zijlstra and Theo Kleijn designed the board and initial software.<br/></div><div>HKipnik made various software extensions such as the WIFI.<br/></div><div><br/></div><div><br/></div><div><br/></div>
[[Category:Projects]]

7 inch display board

2013-04-03T15:31:05Z

Admin: /* Hardware */

== Description ==

== Hardware ==
<ul style="margin-left: 40px;">
<li>[[7 inch display board#WizFi210|WIZFI210 Wireless network]]</li>
<li>[[7 inch display board#iTrax300|GPSITRAX300 GPS]]</li>
<li>BTM220 Class 1 bluetooth </li>
<li>Bluegiga WT41 1 kilometer bluetooth </li>
<li>SCP1000 barometer </li>
<li>[[7 inch display board#DS1338-33 clock|DSDS1337 clock with battery backup]]</li>
<li>RS232 </li>
<li>Alvidi AVRB Atxmega128A1 module </li>
<li>7 inch display </li>
<li>FT232RL USB</li>
</ul>

== Pictures ==

[[File:7inch display5.jpg|thumb|center|450px]]

<table align="center"><tr><td>
<br/><gallery widths="160px" heights="160px" align="center">
File:7inch_display1.jpg
File:7inch_display2.jpg
File:7inch_display3.jpg
File:7inch_display4.jpg
File:7inch_display6.jpg
File:7inch_display7.jpg
</gallery>
</td></tr></table>

== Source code ==

Include a PDF-file for the 7 inch display and some pictures for the Alvidi on-board SD-card : [[Media:Ssd1963 7inch.zip|Download Ssd1963_7inch.zip]]

'''Example of main program:'''

<source lang="bascomavr">
'*******************************************************************************
'
' Copyright Michael Koecher aka six1 8/2010
' -> http://www.six1.net/ michael@koecher-web.de
'
' http://creativecommons.org/licenses/by-sa/3.0/de/
' Original nur von http://bascom-forum.de
' Sie dürfen:
'
' * das Werk bzw. den Inhalt vervielfältigen, verbreiten und öffentlich zugänglich machen
'
' * Abwandlungen und Bearbeitungen des Werkes bzw. Inhaltes anfertigen
'
' Zu Den Folgenden Bedingungen:
'
' * Namensnennung.
' Sie müssen den Namen des Autors/Rechteinhabers in der von ihm festgelegten Weise nennen.
'
' * Keine kommerzielle Nutzung.
' Dieses Werk darf nicht für kommerzielle Zwecke verwendet werden.
'
' * Weitergabe unter gleichen Bedingungen.
' Wenn Sie das lizenzierte Werk bzw. den lizenzierten Inhalt bearbeiten
' oder in anderer Weise erkennbar als Grundlage für eigenes Schaffen verwenden,
' dürfen Sie die daraufhin neu entstandenen Werke bzw. Inhalte nur
' unter Verwendung von Lizenzbedingungen weitergeben, die mit denen
' dieses Lizenzvertrages identisch oder vergleichbar sind.
'
' Wobei gilt:
'
' * Verzichtserklärung
' Jede der vorgenannten Bedingungen kann aufgehoben werden, sofern Sie
' die ausdrückliche Einwilligung des Rechteinhabers dazu erhalten.
'
' * Sonstige Rechte
' Die Lizenz hat keinerlei Einfluss auf die folgenden Rechte:
' - Die gesetzlichen Schranken des Urheberrechts und sonstigen
' Befugnisse zur privaten Nutzung
' - Das Urheberpersönlichkeitsrecht des Rechteinhabers
' - Rechte anderer Personen, entweder am Lizenzgegenstand selber oder
' bezüglich seiner Verwendung, zum Beispiel Persönlichkeitsrechte abgebildeter Personen.
'
' Hinweis
'
' Im Falle einer Verbreitung müssen Sie anderen alle Lizenzbedingungen
' mitteilen, die für dieses Werk gelten. Am einfachsten ist es,
' einen Link auf http://creativecommons.org/licenses/by-sa/3.0/de/ einzubinden.
'
'
'*******************************************************************************
'auf Treiber IC SSD1963 geändert 26.11.2011
'10.09.2012 angepast für Display Typ AT070TN90
'Hkipnik@aol.com
'*******************************************************************************

$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz '--> 32MHz

'*******************************************************************************

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Stop Watchdog
'*******************************************************************************

'*******************************************************************************
'Touch Interrupt
'*******************************************************************************
Const Use_touch = 1 'use Touch = 1
#if Use_touch = 1
Config Pinf.0 = Input 'Set PINF.4 as Input
'Because of the activated Pullup the PIN Level is high and there is a falling edge when switch is pressed
Config Xpin = Portf.0 , Outpull = Pullup , Sense = Falling 'enable Pull up and reaction on falling edge

Portf_int0mask = &B0000_0001 'include PIN0 in INT0 Mask
Portf_intctrl = &B0000_00_01
'^ 'Low Level INT0 Interrupt

Dim Touch_flag As Bit
Touch_flag = 0
On Portf_int0 Touch_int
Enable Portf_int0 , Lo
#endif
'*******************************************************************************
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Graphic 800x480"
'*******************************************************************************
$include "SSD1963_declarations.inc"
$include "SSD1963__sd-card_declarations.inc"
'*******************************************************************************
Call Sdcard_initialize()
'*******************************************************************************
'use for Demo
Dim Farbe As Word , Countx As Word , Xx1 As Word , Xx2 As Word , Yy1 As Word , Yy2 As Word , Penwidth As Byte , Box_fill As Byte , Show_border As Byte , Radius As Word
Dim Help_str As String * 10

'*******************************************************************************
'Start SSD1963
'*******************************************************************************
Call Ssd1963_init()
'*******************************************************************************

Enable Interrupts

'*** MAIN **********************************************************************
Do
Call Lcd_clear(blue)
Call Lcd_text( "Clear area" , 230 , 20 , 1 , Yellow , Blue)

Call Lcd_clear_area(100 , 100 , 200 , 200 , White)
Wait 2
Call Lcd_clear_area(1 , 1 , 200 , 200 , White)
Wait 2
Call Lcd_clear(red)
Call Lcd_text( "BMP 800x480 hallo world" , 100 , 224 , 1 , Gold , Black)
Call Lcd_text( "BMP 800x480 hallo world" , 20 , 20 , 2 , Yellow , Red)
Wait 1

Call Lcd_clear(black)
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieger5.bmp" , 1 , 0) '24Bit
Call Lcd_text_trans( "24Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieg8bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1

Call Lcd_draw_bmp( "pic18bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "pic28bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)

Wait 3
Call Lcd_negate(0)
Call Lcd_text_trans( "negate" , 310 , 200 , 1 , Red , Transparent)
Wait 3
Call Lcd_negate(1)

Wait 3
Call Lcd_clear(red)
Call Lcd_draw_bmp( "test8bit.bmp" , 0 , 0) '8Bit
Wait 1

Call Lcd_clear(blue)

#if Use_touch = 1
Call Lcd_box(700 , 420 , 790 , 470 , Red , White , 1 , 1)
Call Lcd_box(100 , 100 , 105 , 105 , Red , White , 1 , 1)
Call Lcd_text( "Touch me" , 390 , 10 , 2 , Yellow , Black)
Call Lcd_text( "next" , 720 , 435 , 2 , Yellow , Red)
Do
If Touch_flag = 1 Then

Touchx = 0
Touchy = 0
Call Lcd_read_touch()

Select Case Touchx
Case 570 To 630 :
If Touchy > 5 And Touchy < 65 Then
Ende = 1
End If
End Select

If Ende = 1 Then
Ende = 0
Exit Do
End If
Touch_flag = 0
End If

Loop
#endif

Call Lcd_clear(black)

Call Lcd_text( "LINE" , 390 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Farbe = Rnd(10)
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Penwidth = Rnd(4)
Penwidth = Rnd(4)
Call Lcd_line(xx1 , Yy1 , Xx2 , Yy2 , Penwidth , Color_array(farbe))
Next

Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX FILL" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Box_fill = Rnd(100)
If Box_fill < 50 Then Box_fill = 0
Show_border = Rnd(100)
If Show_border < 70 Then Show_border = 0
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , Color_array(farbe) , White , Box_fill , 1)
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , White , Color_array(farbe) , 0 , 1)
Next
Wait 2

Call Lcd_clear(black)
Call Lcd_text( "Circle" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 40 + Rnd(640)
Yy1 = 20 + Rnd(400)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_drawcircle(xx1 , Yy1 , Radius , 100 , 2 , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)
Call Lcd_text( "Circle Fill" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 50 + Rnd(540)
Yy1 = 80 + Rnd(300)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_fill_circle(xx1 , Yy1 , Radius , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BMP 320x240" , 330 , 10 , 2 , Yellow , Black)
Call Lcd_draw_bmp( "sylt1.bmp" , 240 , 100)
Wait 1
Call Lcd_draw_bmp( "tieger5.bmp" , 0 , 0)

Call Lcd_setscrollarea(0 , 480 , 0)
For Countx = 0 To 479
Call Lcd_scroll(countx)
Waitms 2
Next
For Countx = 479 To 0 Step -1
Call Lcd_scroll(countx)
Waitms 2
Next

Wait 2
Call Lcd_clear(black)
Loop
End
#if Use_touch = 1
Touch_int:
Touch_flag = 1
' Print #1 , "Touch"
Return
#endif

'*******************************************************************************

$include "SSD1963__sd-card_routines.inc"
$include "SSD1963_functions.inc"

$include "Font12x16.font"
$include "font25x32.font"
</source>

== DS1338-33 clock ==

Put a DS1338-33 clock IC on the board. It is the 3,3 volts 1307. <br/>Got some help to get soft I2c running, the command $forcesofti2c did the trick. And if you study the history.txt files of the Bascom-AVR updates, you will find this command.

[[File:7inch DS1338 33.jpg|thumb|center|400px|7inch DS1338 33.jpg]]

And here the software, with on top a little scan to check if the clock can be found on the soft i2c bus <source lang="bascomavr">
$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Start clock"

$forcesofti2c ' with this the software I2C/TWI commands are used when including i2c.lbx
$lib "i2c.lbx" ' override the normal xmega i2c lib

Dim B As Byte
Dim Weekday As Byte
Dim Text As String * 30

Declare Sub Setdate
Declare Sub Settime
Declare Sub Getdatetime

'We use here Virtual port 0
Config Vport0 = B ' 'map portB to virtual port0

Config Scl = Port0 .3 ' Pin to use as SCL (The hardware pin is Pinb.1)
Config Sda = Port0 .4 ' Pin to use as SDA (The hardware pin is Pinb.0)
I2cinit ' Bring the Pin's in the proper state

Print #1 , "Scan start"
For B = 0 To 254 Step 2 'for all odd addresses
I2cstart 'send start
I2cwbyte B 'send address
If Err = 0 Then 'we got an ack
Print #1 , "Slave at : " ; B ; " hex : " ; Hex(b) ; " bin : " ; Bin(b)
End If
I2cstop 'free bus
Next
Print #1 , "End Scan"

Wait 5 ' Bring the Pin's in the proper state

'DS1338
Const Ds1338w = &HD0 ' Adres van de Ds1338 clock
Const Ds1338r = &HD1

'Clock
Config Clock = User
Config Date = Dmy , Separator = .

$lib "ds1307clock.lib"

'Time$ = "00:07:00"
'Date$ = "24.02.13"

Do
Call Getdatetime
Print #1 , _hour
Print #1 , _min
Wait 5
Loop

End

'called from ds1307clock.lib

'-------------------------------------------------------------------------------
' DS1338 Get date-time routine
'-------------------------------------------------------------------------------
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' start address in 1338

I2cstart ' Generate start code
I2cwbyte Ds1338r ' 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

'-------------------------------------------------------------------------------
' DS1338 set date routine
'-------------------------------------------------------------------------------
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 4 ' starting address in 1338
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

'-------------------------------------------------------------------------------
' DS1338 set time routine
'-------------------------------------------------------------------------------
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' starting address in 1338
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

End
</source>

== WizFi210<br/> ==

=== HW part<br/> ===

HKipnik made an example how to make an UDP connection between the 7 inch display board and a Android SmartPhone.<br/><br/>Here some pictures of the WizFi210 with a DIY-antenna.

[[File:Wizfi210 5.jpg|thumb|center|400px|Wizfi210 5.jpg]]
<table align="center"><tr><td>
<gallery widths="250px" heights="250px" align="center">
File:Wizfi210_1.jpg‎|Antenna, 31 mm, with an cap.
File:Wizfi210_2.jpg‎|Antenna, shrinked
File:Wizfi210_3.jpg‎|The WIZFI210
File:Wizfi210_4.jpg‎|The WIZFI210 in detail
</gallery>
</td></tr>
</table>

=== Config part<br/> ===

To configure the WIZFI210 with WPA or WEP key, with DHCP or fixed IP and to have it auto-connect a level converter RS232 from PC straight to the WIZFI210

Download the WIZSmartScript from the Wiznet site

<table align="center"><tr><td>
<br/><gallery widths="240px" heights="240px" align="center" perrow="4">
File:Wizfi210_1c.jpg‎|The ZIP-file extracted
File:Wizfi210_2c.jpg‎|Start the WIZSmartScript program, baudrate 115200
File:Wizfi210_3c.jpg‎|Find WizFI and Set Command Mode
File:Wizfi210_4c.jpg‎|Do an Access Point scan and select the Access Point to associate with
File:Wizfi210_5c.jpg‎|Select the WiFi security. In this case WPA with the Passphrase 'wisclub1'
File:Wizfi210_6c.jpg‎|Give the module a static IP address (or if you want, give it a DHCP IP address)
File:Wizfi210_7c.jpg‎|Here you can change the Serial port options
File:Wizfi210_8c.jpg‎|For this example we will be using UDP traffic to a PC in our network that has the IP address 192.168.0.237 listening to port 5000
File:Wizfi210_9c.jpg‎|Select an save option. Here you create an startup profile for the WizFi210 module
File:Wizfi210_10c.jpg‎|You enable auto connect on the next reboot and enable UART messages
File:Wizfi210_11c.jpg‎|We saved it with the name benshobbycorner and here an example of a script
</gallery>
</td></tr></table>
With a not programmed Atxmega128A1. Remove all four jumpers of the Alvidi module (RS232). The MAX3232 on the module will be isolated. Connect the TXD1 and RXD1 from the WIZFI210 to the second RS232 of the Alvidi module. Connect a terminal program, 115200 baud and power the board. If all is connected right you will get the information from the WIZFI210. Start the WizSmartScript and there you go.

[[File:rs232_trick.jpg|thumb|450px|center]]

=== SW part<br/> ===

For the next part, Bascom, Android and Wireless, '''all credit goes to HKipnik alias HKBascom alias Heiko'''.

First some pictures:

<table align="center"><tr><td>
<gallery widths=340px heights=340>
File:Android.png
File:7inch_android.JPG
</gallery>
</td></tr></table>

In this example the WIZFI210 has got IP-address 192.168.0.250

And my Samsung Galaxy Note II has IP-address 192.168.0.237

Port 5000 is used to send UDP-traffic from the 7 inch display board to the Android SmartPhone.

Port 8000 is used to send UDP-traffic from SmartPhone to 7 inch display.

All wireless.

Here the software for the 7 inch display board and for the Android Smartphone.

The first in Bascom-AVR and the second in Basic4Android.

In the subdirectory bilder, the images

In the subdirectory wizfi210 a small testprogram and some more info we got from Heiko.

What we did change was the touchscreen routine. We left the old one from Heiko remarked, and put in our own routine.

Seems there are different displays with different touchscreens.

'''File 1:''' [[Media:7inch_wizfi210.zip|Download 7inch_wizfi210.zip]]

'''File 2:''' [[Media:Test_udp_wizfi210.zip‎|Download Test_udp_wizfi210.zip‎]]

== DHT11 sensor ==

DHT11 sensor on location JP1 and from www.AVRprojects.ru we have download software to read the DHT11.

[[Image:Dht11 7inch.jpg|thumb|400px|center]]

Now we got the time and date from the DS1338-33 and temperature and humidity from a DHT11.

Time to make a WordClock. Fontsize 25x32. So on a 800 x 480 pixel display we can make 13 lines of 31 characters.

It is a running clock, the text is refreshed three times a minute so it is very dynamic.

In real the blue is less intensive.

[[Image:Wordclock.jpg|thumb|400px|center]]

== iTrax300 GPS ==

The next step is the iTrax300 GPS module. It is the WIZFI210 or the Itrax300 GPS module, they are on the same serial lines.

<table align="center"><tr><td>
<br/><gallery widths="260px" heights="260px" align="center">
File:itrax2.jpg
File:itrax300x.jpg
File:rs232trick_itrax.jpg
</gallery>
</td></tr></table>

Same trick to connect a PC direct to the iTrax300 module

[[Image:itrax300.jpg|thumb|400px|center]]

Here the output of the module

== Using a switch mode regulator ==

There is a switched mode regulator available which is pin compatible with the 7805 regulator and a similar size. The 7805 regulator is supposed to be roughly 55% efficient where as the switch mode regulator TSR 1-2450 is supposed to be roughly 95% efficient.

[[Image:Tsr_1-2450_x2.jpg|thumb|center]]

Due to the backlight of the display, the 7805 got warm/hot, with the TSR 1-2450 no problem.

== Video<br/> ==

{{#ev:youtube|3BdFNtNBRlM |500|center|WizFi210 test UDP and Bascom (by HKipnik)}}

{{#ev:youtube|dpdl6lNeB1Y |500|center|SSD1963 7zoll mit ATxmega128A1 (by HKipnik)}}

== Authors<br/> ==
<div>Ben Zijlstra and Theo Kleijn designed the board and initial software.<br/></div><div>HKipnik made various software extensions such as the WIFI.<br/></div><div><br/></div><div><br/></div><div><br/></div>
[[Category:Projects]]

7 inch display board

2013-04-03T15:28:53Z

Admin: /* Using a switch mode regulator */

== Description ==

== Hardware ==
<ul style="margin-left: 40px;">
<li>[[7 inch display board#WizFi210|WIZFI210 Wireless network]]</li>
<li>ITRAX300 GPS </li>
<li>BTM220 Class 1 bluetooth </li>
<li>Bluegiga WT41 1 kilometer bluetooth </li>
<li>SCP1000 barometer </li>
<li>DS1337 clock with battery backup </li>
<li>RS232 </li>
<li>Alvidi AVRB Atxmega128A1 module </li>
<li>7 inch display </li>
<li>FT232RL USB</li>
</ul>

== Pictures ==

[[File:7inch display5.jpg|thumb|center|450px]]

<table align="center"><tr><td>
<br/><gallery widths="160px" heights="160px" align="center">
File:7inch_display1.jpg
File:7inch_display2.jpg
File:7inch_display3.jpg
File:7inch_display4.jpg
File:7inch_display6.jpg
File:7inch_display7.jpg
</gallery>
</td></tr></table>

== Source code ==

Include a PDF-file for the 7 inch display and some pictures for the Alvidi on-board SD-card : [[Media:Ssd1963 7inch.zip|Download Ssd1963_7inch.zip]]

'''Example of main program:'''

<source lang="bascomavr">
'*******************************************************************************
'
' Copyright Michael Koecher aka six1 8/2010
' -> http://www.six1.net/ michael@koecher-web.de
'
' http://creativecommons.org/licenses/by-sa/3.0/de/
' Original nur von http://bascom-forum.de
' Sie dürfen:
'
' * das Werk bzw. den Inhalt vervielfältigen, verbreiten und öffentlich zugänglich machen
'
' * Abwandlungen und Bearbeitungen des Werkes bzw. Inhaltes anfertigen
'
' Zu Den Folgenden Bedingungen:
'
' * Namensnennung.
' Sie müssen den Namen des Autors/Rechteinhabers in der von ihm festgelegten Weise nennen.
'
' * Keine kommerzielle Nutzung.
' Dieses Werk darf nicht für kommerzielle Zwecke verwendet werden.
'
' * Weitergabe unter gleichen Bedingungen.
' Wenn Sie das lizenzierte Werk bzw. den lizenzierten Inhalt bearbeiten
' oder in anderer Weise erkennbar als Grundlage für eigenes Schaffen verwenden,
' dürfen Sie die daraufhin neu entstandenen Werke bzw. Inhalte nur
' unter Verwendung von Lizenzbedingungen weitergeben, die mit denen
' dieses Lizenzvertrages identisch oder vergleichbar sind.
'
' Wobei gilt:
'
' * Verzichtserklärung
' Jede der vorgenannten Bedingungen kann aufgehoben werden, sofern Sie
' die ausdrückliche Einwilligung des Rechteinhabers dazu erhalten.
'
' * Sonstige Rechte
' Die Lizenz hat keinerlei Einfluss auf die folgenden Rechte:
' - Die gesetzlichen Schranken des Urheberrechts und sonstigen
' Befugnisse zur privaten Nutzung
' - Das Urheberpersönlichkeitsrecht des Rechteinhabers
' - Rechte anderer Personen, entweder am Lizenzgegenstand selber oder
' bezüglich seiner Verwendung, zum Beispiel Persönlichkeitsrechte abgebildeter Personen.
'
' Hinweis
'
' Im Falle einer Verbreitung müssen Sie anderen alle Lizenzbedingungen
' mitteilen, die für dieses Werk gelten. Am einfachsten ist es,
' einen Link auf http://creativecommons.org/licenses/by-sa/3.0/de/ einzubinden.
'
'
'*******************************************************************************
'auf Treiber IC SSD1963 geändert 26.11.2011
'10.09.2012 angepast für Display Typ AT070TN90
'Hkipnik@aol.com
'*******************************************************************************

$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz '--> 32MHz

'*******************************************************************************

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Stop Watchdog
'*******************************************************************************

'*******************************************************************************
'Touch Interrupt
'*******************************************************************************
Const Use_touch = 1 'use Touch = 1
#if Use_touch = 1
Config Pinf.0 = Input 'Set PINF.4 as Input
'Because of the activated Pullup the PIN Level is high and there is a falling edge when switch is pressed
Config Xpin = Portf.0 , Outpull = Pullup , Sense = Falling 'enable Pull up and reaction on falling edge

Portf_int0mask = &B0000_0001 'include PIN0 in INT0 Mask
Portf_intctrl = &B0000_00_01
'^ 'Low Level INT0 Interrupt

Dim Touch_flag As Bit
Touch_flag = 0
On Portf_int0 Touch_int
Enable Portf_int0 , Lo
#endif
'*******************************************************************************
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Graphic 800x480"
'*******************************************************************************
$include "SSD1963_declarations.inc"
$include "SSD1963__sd-card_declarations.inc"
'*******************************************************************************
Call Sdcard_initialize()
'*******************************************************************************
'use for Demo
Dim Farbe As Word , Countx As Word , Xx1 As Word , Xx2 As Word , Yy1 As Word , Yy2 As Word , Penwidth As Byte , Box_fill As Byte , Show_border As Byte , Radius As Word
Dim Help_str As String * 10

'*******************************************************************************
'Start SSD1963
'*******************************************************************************
Call Ssd1963_init()
'*******************************************************************************

Enable Interrupts

'*** MAIN **********************************************************************
Do
Call Lcd_clear(blue)
Call Lcd_text( "Clear area" , 230 , 20 , 1 , Yellow , Blue)

Call Lcd_clear_area(100 , 100 , 200 , 200 , White)
Wait 2
Call Lcd_clear_area(1 , 1 , 200 , 200 , White)
Wait 2
Call Lcd_clear(red)
Call Lcd_text( "BMP 800x480 hallo world" , 100 , 224 , 1 , Gold , Black)
Call Lcd_text( "BMP 800x480 hallo world" , 20 , 20 , 2 , Yellow , Red)
Wait 1

Call Lcd_clear(black)
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieger5.bmp" , 1 , 0) '24Bit
Call Lcd_text_trans( "24Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieg8bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1

Call Lcd_draw_bmp( "pic18bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "pic28bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)

Wait 3
Call Lcd_negate(0)
Call Lcd_text_trans( "negate" , 310 , 200 , 1 , Red , Transparent)
Wait 3
Call Lcd_negate(1)

Wait 3
Call Lcd_clear(red)
Call Lcd_draw_bmp( "test8bit.bmp" , 0 , 0) '8Bit
Wait 1

Call Lcd_clear(blue)

#if Use_touch = 1
Call Lcd_box(700 , 420 , 790 , 470 , Red , White , 1 , 1)
Call Lcd_box(100 , 100 , 105 , 105 , Red , White , 1 , 1)
Call Lcd_text( "Touch me" , 390 , 10 , 2 , Yellow , Black)
Call Lcd_text( "next" , 720 , 435 , 2 , Yellow , Red)
Do
If Touch_flag = 1 Then

Touchx = 0
Touchy = 0
Call Lcd_read_touch()

Select Case Touchx
Case 570 To 630 :
If Touchy > 5 And Touchy < 65 Then
Ende = 1
End If
End Select

If Ende = 1 Then
Ende = 0
Exit Do
End If
Touch_flag = 0
End If

Loop
#endif

Call Lcd_clear(black)

Call Lcd_text( "LINE" , 390 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Farbe = Rnd(10)
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Penwidth = Rnd(4)
Penwidth = Rnd(4)
Call Lcd_line(xx1 , Yy1 , Xx2 , Yy2 , Penwidth , Color_array(farbe))
Next

Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX FILL" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Box_fill = Rnd(100)
If Box_fill < 50 Then Box_fill = 0
Show_border = Rnd(100)
If Show_border < 70 Then Show_border = 0
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , Color_array(farbe) , White , Box_fill , 1)
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , White , Color_array(farbe) , 0 , 1)
Next
Wait 2

Call Lcd_clear(black)
Call Lcd_text( "Circle" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 40 + Rnd(640)
Yy1 = 20 + Rnd(400)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_drawcircle(xx1 , Yy1 , Radius , 100 , 2 , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)
Call Lcd_text( "Circle Fill" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 50 + Rnd(540)
Yy1 = 80 + Rnd(300)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_fill_circle(xx1 , Yy1 , Radius , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BMP 320x240" , 330 , 10 , 2 , Yellow , Black)
Call Lcd_draw_bmp( "sylt1.bmp" , 240 , 100)
Wait 1
Call Lcd_draw_bmp( "tieger5.bmp" , 0 , 0)

Call Lcd_setscrollarea(0 , 480 , 0)
For Countx = 0 To 479
Call Lcd_scroll(countx)
Waitms 2
Next
For Countx = 479 To 0 Step -1
Call Lcd_scroll(countx)
Waitms 2
Next

Wait 2
Call Lcd_clear(black)
Loop
End
#if Use_touch = 1
Touch_int:
Touch_flag = 1
' Print #1 , "Touch"
Return
#endif

'*******************************************************************************

$include "SSD1963__sd-card_routines.inc"
$include "SSD1963_functions.inc"

$include "Font12x16.font"
$include "font25x32.font"
</source>

== DS1338-33 clock ==

Put a DS1338-33 clock IC on the board. It is the 3,3 volts 1307. <br/>Got some help to get soft I2c running, the command $forcesofti2c did the trick. And if you study the history.txt files of the Bascom-AVR updates, you will find this command.

[[File:7inch DS1338 33.jpg|thumb|center|400px|7inch DS1338 33.jpg]]

And here the software, with on top a little scan to check if the clock can be found on the soft i2c bus <source lang="bascomavr">
$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Start clock"

$forcesofti2c ' with this the software I2C/TWI commands are used when including i2c.lbx
$lib "i2c.lbx" ' override the normal xmega i2c lib

Dim B As Byte
Dim Weekday As Byte
Dim Text As String * 30

Declare Sub Setdate
Declare Sub Settime
Declare Sub Getdatetime

'We use here Virtual port 0
Config Vport0 = B ' 'map portB to virtual port0

Config Scl = Port0 .3 ' Pin to use as SCL (The hardware pin is Pinb.1)
Config Sda = Port0 .4 ' Pin to use as SDA (The hardware pin is Pinb.0)
I2cinit ' Bring the Pin's in the proper state

Print #1 , "Scan start"
For B = 0 To 254 Step 2 'for all odd addresses
I2cstart 'send start
I2cwbyte B 'send address
If Err = 0 Then 'we got an ack
Print #1 , "Slave at : " ; B ; " hex : " ; Hex(b) ; " bin : " ; Bin(b)
End If
I2cstop 'free bus
Next
Print #1 , "End Scan"

Wait 5 ' Bring the Pin's in the proper state

'DS1338
Const Ds1338w = &HD0 ' Adres van de Ds1338 clock
Const Ds1338r = &HD1

'Clock
Config Clock = User
Config Date = Dmy , Separator = .

$lib "ds1307clock.lib"

'Time$ = "00:07:00"
'Date$ = "24.02.13"

Do
Call Getdatetime
Print #1 , _hour
Print #1 , _min
Wait 5
Loop

End

'called from ds1307clock.lib

'-------------------------------------------------------------------------------
' DS1338 Get date-time routine
'-------------------------------------------------------------------------------
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' start address in 1338

I2cstart ' Generate start code
I2cwbyte Ds1338r ' 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

'-------------------------------------------------------------------------------
' DS1338 set date routine
'-------------------------------------------------------------------------------
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 4 ' starting address in 1338
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

'-------------------------------------------------------------------------------
' DS1338 set time routine
'-------------------------------------------------------------------------------
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' starting address in 1338
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

End
</source>

== WizFi210<br/> ==

=== HW part<br/> ===

HKipnik made an example how to make an UDP connection between the 7 inch display board and a Android SmartPhone.<br/><br/>Here some pictures of the WizFi210 with a DIY-antenna.

[[File:Wizfi210 5.jpg|thumb|center|400px|Wizfi210 5.jpg]]
<table align="center"><tr><td>
<gallery widths="250px" heights="250px" align="center">
File:Wizfi210_1.jpg‎|Antenna, 31 mm, with an cap.
File:Wizfi210_2.jpg‎|Antenna, shrinked
File:Wizfi210_3.jpg‎|The WIZFI210
File:Wizfi210_4.jpg‎|The WIZFI210 in detail
</gallery>
</td></tr>
</table>

=== Config part<br/> ===

To configure the WIZFI210 with WPA or WEP key, with DHCP or fixed IP and to have it auto-connect a level converter RS232 from PC straight to the WIZFI210

Download the WIZSmartScript from the Wiznet site

<table align="center"><tr><td>
<br/><gallery widths="240px" heights="240px" align="center" perrow="4">
File:Wizfi210_1c.jpg‎|The ZIP-file extracted
File:Wizfi210_2c.jpg‎|Start the WIZSmartScript program, baudrate 115200
File:Wizfi210_3c.jpg‎|Find WizFI and Set Command Mode
File:Wizfi210_4c.jpg‎|Do an Access Point scan and select the Access Point to associate with
File:Wizfi210_5c.jpg‎|Select the WiFi security. In this case WPA with the Passphrase 'wisclub1'
File:Wizfi210_6c.jpg‎|Give the module a static IP address (or if you want, give it a DHCP IP address)
File:Wizfi210_7c.jpg‎|Here you can change the Serial port options
File:Wizfi210_8c.jpg‎|For this example we will be using UDP traffic to a PC in our network that has the IP address 192.168.0.237 listening to port 5000
File:Wizfi210_9c.jpg‎|Select an save option. Here you create an startup profile for the WizFi210 module
File:Wizfi210_10c.jpg‎|You enable auto connect on the next reboot and enable UART messages
File:Wizfi210_11c.jpg‎|We saved it with the name benshobbycorner and here an example of a script
</gallery>
</td></tr></table>
With a not programmed Atxmega128A1. Remove all four jumpers of the Alvidi module (RS232). The MAX3232 on the module will be isolated. Connect the TXD1 and RXD1 from the WIZFI210 to the second RS232 of the Alvidi module. Connect a terminal program, 115200 baud and power the board. If all is connected right you will get the information from the WIZFI210. Start the WizSmartScript and there you go.

[[File:rs232_trick.jpg|thumb|450px|center]]

=== SW part<br/> ===

For the next part, Bascom, Android and Wireless, '''all credit goes to HKipnik alias HKBascom alias Heiko'''.

First some pictures:

<table align="center"><tr><td>
<gallery widths=340px heights=340>
File:Android.png
File:7inch_android.JPG
</gallery>
</td></tr></table>

In this example the WIZFI210 has got IP-address 192.168.0.250

And my Samsung Galaxy Note II has IP-address 192.168.0.237

Port 5000 is used to send UDP-traffic from the 7 inch display board to the Android SmartPhone.

Port 8000 is used to send UDP-traffic from SmartPhone to 7 inch display.

All wireless.

Here the software for the 7 inch display board and for the Android Smartphone.

The first in Bascom-AVR and the second in Basic4Android.

In the subdirectory bilder, the images

In the subdirectory wizfi210 a small testprogram and some more info we got from Heiko.

What we did change was the touchscreen routine. We left the old one from Heiko remarked, and put in our own routine.

Seems there are different displays with different touchscreens.

'''File 1:''' [[Media:7inch_wizfi210.zip|Download 7inch_wizfi210.zip]]

'''File 2:''' [[Media:Test_udp_wizfi210.zip‎|Download Test_udp_wizfi210.zip‎]]

== DHT11 sensor ==

DHT11 sensor on location JP1 and from www.AVRprojects.ru we have download software to read the DHT11.

[[Image:Dht11 7inch.jpg|thumb|400px|center]]

Now we got the time and date from the DS1338-33 and temperature and humidity from a DHT11.

Time to make a WordClock. Fontsize 25x32. So on a 800 x 480 pixel display we can make 13 lines of 31 characters.

It is a running clock, the text is refreshed three times a minute so it is very dynamic.

In real the blue is less intensive.

[[Image:Wordclock.jpg|thumb|400px|center]]

== iTrax300 GPS ==

The next step is the iTrax300 GPS module. It is the WIZFI210 or the Itrax300 GPS module, they are on the same serial lines.

<table align="center"><tr><td>
<br/><gallery widths="260px" heights="260px" align="center">
File:itrax2.jpg
File:itrax300x.jpg
File:rs232trick_itrax.jpg
</gallery>
</td></tr></table>

Same trick to connect a PC direct to the iTrax300 module

[[Image:itrax300.jpg|thumb|400px|center]]

Here the output of the module

== Using a switch mode regulator ==

There is a switched mode regulator available which is pin compatible with the 7805 regulator and a similar size. The 7805 regulator is supposed to be roughly 55% efficient where as the switch mode regulator TSR 1-2450 is supposed to be roughly 95% efficient.

[[Image:Tsr_1-2450_x2.jpg|thumb|center]]

Due to the backlight of the display, the 7805 got warm/hot, with the TSR 1-2450 no problem.

== Video<br/> ==

{{#ev:youtube|3BdFNtNBRlM |500|center|WizFi210 test UDP and Bascom (by HKipnik)}}

{{#ev:youtube|dpdl6lNeB1Y |500|center|SSD1963 7zoll mit ATxmega128A1 (by HKipnik)}}

== Authors<br/> ==
<div>Ben Zijlstra and Theo Kleijn designed the board and initial software.<br/></div><div>HKipnik made various software extensions such as the WIFI.<br/></div><div><br/></div><div><br/></div><div><br/></div>
[[Category:Projects]]

File:Tsr 1-2450 x2.jpg

2013-04-03T15:28:12Z

Admin:

7 inch display board

2013-04-03T15:27:24Z

Admin: /* iTrax300 GPS */

== Description ==

== Hardware ==
<ul style="margin-left: 40px;">
<li>[[7 inch display board#WizFi210|WIZFI210 Wireless network]]</li>
<li>ITRAX300 GPS </li>
<li>BTM220 Class 1 bluetooth </li>
<li>Bluegiga WT41 1 kilometer bluetooth </li>
<li>SCP1000 barometer </li>
<li>DS1337 clock with battery backup </li>
<li>RS232 </li>
<li>Alvidi AVRB Atxmega128A1 module </li>
<li>7 inch display </li>
<li>FT232RL USB</li>
</ul>

== Pictures ==

[[File:7inch display5.jpg|thumb|center|450px]]

<table align="center"><tr><td>
<br/><gallery widths="160px" heights="160px" align="center">
File:7inch_display1.jpg
File:7inch_display2.jpg
File:7inch_display3.jpg
File:7inch_display4.jpg
File:7inch_display6.jpg
File:7inch_display7.jpg
</gallery>
</td></tr></table>

== Source code ==

Include a PDF-file for the 7 inch display and some pictures for the Alvidi on-board SD-card : [[Media:Ssd1963 7inch.zip|Download Ssd1963_7inch.zip]]

'''Example of main program:'''

<source lang="bascomavr">
'*******************************************************************************
'
' Copyright Michael Koecher aka six1 8/2010
' -> http://www.six1.net/ michael@koecher-web.de
'
' http://creativecommons.org/licenses/by-sa/3.0/de/
' Original nur von http://bascom-forum.de
' Sie dürfen:
'
' * das Werk bzw. den Inhalt vervielfältigen, verbreiten und öffentlich zugänglich machen
'
' * Abwandlungen und Bearbeitungen des Werkes bzw. Inhaltes anfertigen
'
' Zu Den Folgenden Bedingungen:
'
' * Namensnennung.
' Sie müssen den Namen des Autors/Rechteinhabers in der von ihm festgelegten Weise nennen.
'
' * Keine kommerzielle Nutzung.
' Dieses Werk darf nicht für kommerzielle Zwecke verwendet werden.
'
' * Weitergabe unter gleichen Bedingungen.
' Wenn Sie das lizenzierte Werk bzw. den lizenzierten Inhalt bearbeiten
' oder in anderer Weise erkennbar als Grundlage für eigenes Schaffen verwenden,
' dürfen Sie die daraufhin neu entstandenen Werke bzw. Inhalte nur
' unter Verwendung von Lizenzbedingungen weitergeben, die mit denen
' dieses Lizenzvertrages identisch oder vergleichbar sind.
'
' Wobei gilt:
'
' * Verzichtserklärung
' Jede der vorgenannten Bedingungen kann aufgehoben werden, sofern Sie
' die ausdrückliche Einwilligung des Rechteinhabers dazu erhalten.
'
' * Sonstige Rechte
' Die Lizenz hat keinerlei Einfluss auf die folgenden Rechte:
' - Die gesetzlichen Schranken des Urheberrechts und sonstigen
' Befugnisse zur privaten Nutzung
' - Das Urheberpersönlichkeitsrecht des Rechteinhabers
' - Rechte anderer Personen, entweder am Lizenzgegenstand selber oder
' bezüglich seiner Verwendung, zum Beispiel Persönlichkeitsrechte abgebildeter Personen.
'
' Hinweis
'
' Im Falle einer Verbreitung müssen Sie anderen alle Lizenzbedingungen
' mitteilen, die für dieses Werk gelten. Am einfachsten ist es,
' einen Link auf http://creativecommons.org/licenses/by-sa/3.0/de/ einzubinden.
'
'
'*******************************************************************************
'auf Treiber IC SSD1963 geändert 26.11.2011
'10.09.2012 angepast für Display Typ AT070TN90
'Hkipnik@aol.com
'*******************************************************************************

$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz '--> 32MHz

'*******************************************************************************

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Stop Watchdog
'*******************************************************************************

'*******************************************************************************
'Touch Interrupt
'*******************************************************************************
Const Use_touch = 1 'use Touch = 1
#if Use_touch = 1
Config Pinf.0 = Input 'Set PINF.4 as Input
'Because of the activated Pullup the PIN Level is high and there is a falling edge when switch is pressed
Config Xpin = Portf.0 , Outpull = Pullup , Sense = Falling 'enable Pull up and reaction on falling edge

Portf_int0mask = &B0000_0001 'include PIN0 in INT0 Mask
Portf_intctrl = &B0000_00_01
'^ 'Low Level INT0 Interrupt

Dim Touch_flag As Bit
Touch_flag = 0
On Portf_int0 Touch_int
Enable Portf_int0 , Lo
#endif
'*******************************************************************************
Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Graphic 800x480"
'*******************************************************************************
$include "SSD1963_declarations.inc"
$include "SSD1963__sd-card_declarations.inc"
'*******************************************************************************
Call Sdcard_initialize()
'*******************************************************************************
'use for Demo
Dim Farbe As Word , Countx As Word , Xx1 As Word , Xx2 As Word , Yy1 As Word , Yy2 As Word , Penwidth As Byte , Box_fill As Byte , Show_border As Byte , Radius As Word
Dim Help_str As String * 10

'*******************************************************************************
'Start SSD1963
'*******************************************************************************
Call Ssd1963_init()
'*******************************************************************************

Enable Interrupts

'*** MAIN **********************************************************************
Do
Call Lcd_clear(blue)
Call Lcd_text( "Clear area" , 230 , 20 , 1 , Yellow , Blue)

Call Lcd_clear_area(100 , 100 , 200 , 200 , White)
Wait 2
Call Lcd_clear_area(1 , 1 , 200 , 200 , White)
Wait 2
Call Lcd_clear(red)
Call Lcd_text( "BMP 800x480 hallo world" , 100 , 224 , 1 , Gold , Black)
Call Lcd_text( "BMP 800x480 hallo world" , 20 , 20 , 2 , Yellow , Red)
Wait 1

Call Lcd_clear(black)
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieger5.bmp" , 1 , 0) '24Bit
Call Lcd_text_trans( "24Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "tieg8bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_draw_bmp( "frau5.bmp" , 200 , 0) '24Bit
Wait 1

Call Lcd_draw_bmp( "pic18bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)
Wait 1
Call Lcd_clear(red)
Call Lcd_draw_bmp( "pic28bit.bmp" , 0 , 0) '8Bit
Call Lcd_text_trans( "8Bit Bmp" , 310 , 100 , 1 , Red , Transparent)

Wait 3
Call Lcd_negate(0)
Call Lcd_text_trans( "negate" , 310 , 200 , 1 , Red , Transparent)
Wait 3
Call Lcd_negate(1)

Wait 3
Call Lcd_clear(red)
Call Lcd_draw_bmp( "test8bit.bmp" , 0 , 0) '8Bit
Wait 1

Call Lcd_clear(blue)

#if Use_touch = 1
Call Lcd_box(700 , 420 , 790 , 470 , Red , White , 1 , 1)
Call Lcd_box(100 , 100 , 105 , 105 , Red , White , 1 , 1)
Call Lcd_text( "Touch me" , 390 , 10 , 2 , Yellow , Black)
Call Lcd_text( "next" , 720 , 435 , 2 , Yellow , Red)
Do
If Touch_flag = 1 Then

Touchx = 0
Touchy = 0
Call Lcd_read_touch()

Select Case Touchx
Case 570 To 630 :
If Touchy > 5 And Touchy < 65 Then
Ende = 1
End If
End Select

If Ende = 1 Then
Ende = 0
Exit Do
End If
Touch_flag = 0
End If

Loop
#endif

Call Lcd_clear(black)

Call Lcd_text( "LINE" , 390 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Farbe = Rnd(10)
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Penwidth = Rnd(4)
Penwidth = Rnd(4)
Call Lcd_line(xx1 , Yy1 , Xx2 , Yy2 , Penwidth , Color_array(farbe))
Next

Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX FILL" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Box_fill = Rnd(100)
If Box_fill < 50 Then Box_fill = 0
Show_border = Rnd(100)
If Show_border < 70 Then Show_border = 0
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , Color_array(farbe) , White , Box_fill , 1)
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BOX" , 390 , 10 , 2 , Yellow , Black)

For Countx = 1 To 100
Xx1 = Rnd(740)
Xx2 = Rnd(740)
Yy1 = 90 + Rnd(300)
Yy2 = 90 + Rnd(300)
Farbe = Rnd(10)
Call Lcd_box(xx1 , Yy1 , Xx2 , Yy2 , White , Color_array(farbe) , 0 , 1)
Next
Wait 2

Call Lcd_clear(black)
Call Lcd_text( "Circle" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 40 + Rnd(640)
Yy1 = 20 + Rnd(400)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_drawcircle(xx1 , Yy1 , Radius , 100 , 2 , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)
Call Lcd_text( "Circle Fill" , 370 , 10 , 2 , Yellow , Black)
For Countx = 1 To 100
Xx1 = 50 + Rnd(540)
Yy1 = 80 + Rnd(300)
Radius = Rnd(50)
Farbe = Rnd(10)
Call Lcd_fill_circle(xx1 , Yy1 , Radius , Color_array(farbe))
Next
Wait 2
Call Lcd_clear(black)

Call Lcd_text( "BMP 320x240" , 330 , 10 , 2 , Yellow , Black)
Call Lcd_draw_bmp( "sylt1.bmp" , 240 , 100)
Wait 1
Call Lcd_draw_bmp( "tieger5.bmp" , 0 , 0)

Call Lcd_setscrollarea(0 , 480 , 0)
For Countx = 0 To 479
Call Lcd_scroll(countx)
Waitms 2
Next
For Countx = 479 To 0 Step -1
Call Lcd_scroll(countx)
Waitms 2
Next

Wait 2
Call Lcd_clear(black)
Loop
End
#if Use_touch = 1
Touch_int:
Touch_flag = 1
' Print #1 , "Touch"
Return
#endif

'*******************************************************************************

$include "SSD1963__sd-card_routines.inc"
$include "SSD1963_functions.inc"

$include "Font12x16.font"
$include "font25x32.font"
</source>

== DS1338-33 clock ==

Put a DS1338-33 clock IC on the board. It is the 3,3 volts 1307. <br/>Got some help to get soft I2c running, the command $forcesofti2c did the trick. And if you study the history.txt files of the Bascom-AVR updates, you will find this command.

[[File:7inch DS1338 33.jpg|thumb|center|400px|7inch DS1338 33.jpg]]

And here the software, with on top a little scan to check if the clock can be found on the soft i2c bus <source lang="bascomavr">
$regfile = "xm128a1def.dat"
$hwstack = 200
$swstack = 200
$framesize = 500
$crystal = 32000000

Config Osc = Enabled , 32mhzosc = Enabled
Config Sysclock = 32mhz

Config Osc = Disabled , 32mhzosc = Enabled
Osc_pllctrl = &B10_0_00100
Do
Loop Until Osc_status.1 = 1 'Check if RC2MRDY is ready '
'enable PLL
Set Osc_ctrl.4 'PLL enable
'configure the systemclock
Config Sysclock = Pll , Prescalea = 1 , Prescalebc = 1_1 'use PLL

Config Priority = Static , Vector = Application , Lo = Enabled , Med = Enabled

Config Com5 = 57600 , Mode = Asynchroneous , Parity = None , Stopbits = 1 , Databits = 8
Open "COM5:" For Binary As #1

Print #1 , "Start clock"

$forcesofti2c ' with this the software I2C/TWI commands are used when including i2c.lbx
$lib "i2c.lbx" ' override the normal xmega i2c lib

Dim B As Byte
Dim Weekday As Byte
Dim Text As String * 30

Declare Sub Setdate
Declare Sub Settime
Declare Sub Getdatetime

'We use here Virtual port 0
Config Vport0 = B ' 'map portB to virtual port0

Config Scl = Port0 .3 ' Pin to use as SCL (The hardware pin is Pinb.1)
Config Sda = Port0 .4 ' Pin to use as SDA (The hardware pin is Pinb.0)
I2cinit ' Bring the Pin's in the proper state

Print #1 , "Scan start"
For B = 0 To 254 Step 2 'for all odd addresses
I2cstart 'send start
I2cwbyte B 'send address
If Err = 0 Then 'we got an ack
Print #1 , "Slave at : " ; B ; " hex : " ; Hex(b) ; " bin : " ; Bin(b)
End If
I2cstop 'free bus
Next
Print #1 , "End Scan"

Wait 5 ' Bring the Pin's in the proper state

'DS1338
Const Ds1338w = &HD0 ' Adres van de Ds1338 clock
Const Ds1338r = &HD1

'Clock
Config Clock = User
Config Date = Dmy , Separator = .

$lib "ds1307clock.lib"

'Time$ = "00:07:00"
'Date$ = "24.02.13"

Do
Call Getdatetime
Print #1 , _hour
Print #1 , _min
Wait 5
Loop

End

'called from ds1307clock.lib

'-------------------------------------------------------------------------------
' DS1338 Get date-time routine
'-------------------------------------------------------------------------------
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' start address in 1338

I2cstart ' Generate start code
I2cwbyte Ds1338r ' 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

'-------------------------------------------------------------------------------
' DS1338 set date routine
'-------------------------------------------------------------------------------
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 4 ' starting address in 1338
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return

'-------------------------------------------------------------------------------
' DS1338 set time routine
'-------------------------------------------------------------------------------
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1338w ' send address
I2cwbyte 0 ' starting address in 1338
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return

End
</source>

== WizFi210<br/> ==

=== HW part<br/> ===

HKipnik made an example how to make an UDP connection between the 7 inch display board and a Android SmartPhone.<br/><br/>Here some pictures of the WizFi210 with a DIY-antenna.

[[File:Wizfi210 5.jpg|thumb|center|400px|Wizfi210 5.jpg]]
<table align="center"><tr><td>
<gallery widths="250px" heights="250px" align="center">
File:Wizfi210_1.jpg‎|Antenna, 31 mm, with an cap.
File:Wizfi210_2.jpg‎|Antenna, shrinked
File:Wizfi210_3.jpg‎|The WIZFI210
File:Wizfi210_4.jpg‎|The WIZFI210 in detail
</gallery>
</td></tr>
</table>

=== Config part<br/> ===

To configure the WIZFI210 with WPA or WEP key, with DHCP or fixed IP and to have it auto-connect a level converter RS232 from PC straight to the WIZFI210

Download the WIZSmartScript from the Wiznet site

<table align="center"><tr><td>
<br/><gallery widths="240px" heights="240px" align="center" perrow="4">
File:Wizfi210_1c.jpg‎|The ZIP-file extracted
File:Wizfi210_2c.jpg‎|Start the WIZSmartScript program, baudrate 115200
File:Wizfi210_3c.jpg‎|Find WizFI and Set Command Mode
File:Wizfi210_4c.jpg‎|Do an Access Point scan and select the Access Point to associate with
File:Wizfi210_5c.jpg‎|Select the WiFi security. In this case WPA with the Passphrase 'wisclub1'
File:Wizfi210_6c.jpg‎|Give the module a static IP address (or if you want, give it a DHCP IP address)
File:Wizfi210_7c.jpg‎|Here you can change the Serial port options
File:Wizfi210_8c.jpg‎|For this example we will be using UDP traffic to a PC in our network that has the IP address 192.168.0.237 listening to port 5000
File:Wizfi210_9c.jpg‎|Select an save option. Here you create an startup profile for the WizFi210 module
File:Wizfi210_10c.jpg‎|You enable auto connect on the next reboot and enable UART messages
File:Wizfi210_11c.jpg‎|We saved it with the name benshobbycorner and here an example of a script
</gallery>
</td></tr></table>
With a not programmed Atxmega128A1. Remove all four jumpers of the Alvidi module (RS232). The MAX3232 on the module will be isolated. Connect the TXD1 and RXD1 from the WIZFI210 to the second RS232 of the Alvidi module. Connect a terminal program, 115200 baud and power the board. If all is connected right you will get the information from the WIZFI210. Start the WizSmartScript and there you go.

[[File:rs232_trick.jpg|thumb|450px|center]]

=== SW part<br/> ===

For the next part, Bascom, Android and Wireless, '''all credit goes to HKipnik alias HKBascom alias Heiko'''.

First some pictures:

<table align="center"><tr><td>
<gallery widths=340px heights=340>
File:Android.png
File:7inch_android.JPG
</gallery>
</td></tr></table>

In this example the WIZFI210 has got IP-address 192.168.0.250

And my Samsung Galaxy Note II has IP-address 192.168.0.237

Port 5000 is used to send UDP-traffic from the 7 inch display board to the Android SmartPhone.

Port 8000 is used to send UDP-traffic from SmartPhone to 7 inch display.

All wireless.

Here the software for the 7 inch display board and for the Android Smartphone.

The first in Bascom-AVR and the second in Basic4Android.

In the subdirectory bilder, the images

In the subdirectory wizfi210 a small testprogram and some more info we got from Heiko.

What we did change was the touchscreen routine. We left the old one from Heiko remarked, and put in our own routine.

Seems there are different displays with different touchscreens.

'''File 1:''' [[Media:7inch_wizfi210.zip|Download 7inch_wizfi210.zip]]

'''File 2:''' [[Media:Test_udp_wizfi210.zip‎|Download Test_udp_wizfi210.zip‎]]

== DHT11 sensor ==

DHT11 sensor on location JP1 and from www.AVRprojects.ru we have download software to read the DHT11.

[[Image:Dht11 7inch.jpg|thumb|400px|center]]

Now we got the time and date from the DS1338-33 and temperature and humidity from a DHT11.

Time to make a WordClock. Fontsize 25x32. So on a 800 x 480 pixel display we can make 13 lines of 31 characters.

It is a running clock, the text is refreshed three times a minute so it is very dynamic.

In real the blue is less intensive.

[[Image:Wordclock.jpg|thumb|400px|center]]

== iTrax300 GPS ==

The next step is the iTrax300 GPS module. It is the WIZFI210 or the Itrax300 GPS module, they are on the same serial lines.

<table align="center"><tr><td>
<br/><gallery widths="260px" heights="260px" align="center">
File:itrax2.jpg
File:itrax300x.jpg
File:rs232trick_itrax.jpg
</gallery>
</td></tr></table>

Same trick to connect a PC direct to the iTrax300 module

[[Image:itrax300.jpg|thumb|400px|center]]

Here the output of the module

== Using a switch mode regulator ==

== Video<br/> ==

{{#ev:youtube|3BdFNtNBRlM |500|center|WizFi210 test UDP and Bascom (by HKipnik)}}

{{#ev:youtube|dpdl6lNeB1Y |500|center|SSD1963 7zoll mit ATxmega128A1 (by HKipnik)}}

== Authors<br/> ==
<div>Ben Zijlstra and Theo Kleijn designed the board and initial software.<br/></div><div>HKipnik made various software extensions such as the WIFI.<br/></div><div><br/></div><div><br/></div><div><br/></div>
[[Category:Projects]]

File:Rs232trick itrax.jpg

2013-04-03T15:21:57Z

Admin:

File:Itrax300x.jpg

2013-04-03T15:21:36Z

Admin: