Da li je neko radio sa serijskim lcd i PicBasicom, ja nisam nikad radio s I2C proširenjem za LCD i PicBasicom , naime nasao sam na netu:
http://www.ebay.com/itm/TWI-SPI-IIC-I2C ... 35d3d2a27d
http://www.ebay.com/itm/Blue-Serial-IIC ... 2a3644b868
http://www.ebay.com/itm/IIC-I2C-TWI-SP- ... 417ae07189
Da li neko ima neki primer koda kako da ispisem nesto na njemu, tj kako da predjem sa "lcdout" na serisjki lcd?
Serijski LCD
Moderators: pedja089, stojke369, [eDo], trax
-
morski_pas
- Odlično uznapredovao
- Posts: 639
- Joined: 07-03-2011, 23:58
- Location: Rijeka
Re: Serijski LCD
PICBASIC PRO program to display result of 10-bit A/D conversion on Lab-X4 serial LCD.
' Name : ADCIN1X4.pbp
' Compiler : PICBASIC PRO Compiler 2.6
' Assembler : PM or MPASM
' Target PIC : 8-pin PIC12F675 or similar types
' Hardware : Lab-X4 board
' Oscillator : 4MHz internal
' Keywords : ADCIN, SEROUT
' Description : PICBASIC PRO program to display result of 10-bit A/D conversion on
' Lab-X4 serial LCD.
'
Include "modedefs.bas" ' Mode definitions for Serout
Define OSCCAL_1K 1 ' Calibrate internal oscillator
' Define ADCIN parameters
Define ADC_BITS 10 ' Set number of bits in result
Define ADC_CLOCK 3 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uS
LCD Var GPIO.1 ' LCD TX pin
adval Var Word ' Create adval to store result
ADCON0.7 = 1 ' Right justify result
ANSEL = %00111000 ' Set AN3 analog, rest digital
CMCON = 7 ' Analog comparators off
Pause 500 ' Wait .5 second for LCD to init
mainloop:
ADCIN 3, adval ' Read channel 3 to adval
Serout LCD,T2400,[$fe, 1] ' Clear screen
Serout LCD,T2400,["Value: ", #adval] ' Display the decimal value
Pause 100 ' Wait 100mS
Goto mainloop ' Do it forever
End
' Name : ADCIN1X4.pbp
' Compiler : PICBASIC PRO Compiler 2.6
' Assembler : PM or MPASM
' Target PIC : 8-pin PIC12F675 or similar types
' Hardware : Lab-X4 board
' Oscillator : 4MHz internal
' Keywords : ADCIN, SEROUT
' Description : PICBASIC PRO program to display result of 10-bit A/D conversion on
' Lab-X4 serial LCD.
'
Include "modedefs.bas" ' Mode definitions for Serout
Define OSCCAL_1K 1 ' Calibrate internal oscillator
' Define ADCIN parameters
Define ADC_BITS 10 ' Set number of bits in result
Define ADC_CLOCK 3 ' Set clock source (3=rc)
Define ADC_SAMPLEUS 50 ' Set sampling time in uS
LCD Var GPIO.1 ' LCD TX pin
adval Var Word ' Create adval to store result
ADCON0.7 = 1 ' Right justify result
ANSEL = %00111000 ' Set AN3 analog, rest digital
CMCON = 7 ' Analog comparators off
Pause 500 ' Wait .5 second for LCD to init
mainloop:
ADCIN 3, adval ' Read channel 3 to adval
Serout LCD,T2400,[$fe, 1] ' Clear screen
Serout LCD,T2400,["Value: ", #adval] ' Display the decimal value
Pause 100 ' Wait 100mS
Goto mainloop ' Do it forever
End
Re: Serijski LCD
Probacu danas kako radi
Re: Serijski LCD
Ovaj kod gore nema nikakve veze sa I2C 