Darn...
Check the pick with a one second blink to see if it is running at the expected speed?
Using a 232 type chip between PIC and PC?
Post the exact code and configs you are testing with.
Maybe we will see some thing.
Printable View
Darn...
Check the pick with a one second blink to see if it is running at the expected speed?
Using a 232 type chip between PIC and PC?
Post the exact code and configs you are testing with.
Maybe we will see some thing.
i testing with the code i post b4..i got connect to 232 using max232..i already test the mode with 84,8276
INCLUDE "modedefs.bas"
DEFINE OSC 20
DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 4
DEFINE LCD_RWREG PORTB
DEFINE LCD_RWBIT 6
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
TXD VAR PORTC.7 'AD0 TXD VDIP2 connect RX
RXD VAR PORTC.6 'AD1 RXD VDIP2 connect TX
Flow VAR PORTC.0 'AD2 RTS
Start:
HIGH RXD
PAUSEUS 10
SEROUT2 RXD,84,["ECS",13]
HIGH RXD
PAUSEUS 10
SEROUT2 RXD,84,["IPA",13]
HIGH RXD
PAUSEUS 10
SEROUT2 RXD,84,["A:",13] 'choose source disk
HIGH RXD
PAUSEUS 100
SEROUT2 RXD,84,["DIR",13]
GOTO Start
I would like to see you test a simple "hello world" to the PC without the VDIP involved.
At this point we do not know where the problem is. Need to narrow it down.
i did not connect to the VDIP..just connect with max232...
HIGH RXD
SEROUT2 RXD,84,["ECS",13]
and i change to
HIGH RXD
SEROUT2 RXD,84,["hello",13]
DEFINE OSC 20
TXD VAR PORTC.7 'AD0 TXD VDIP2 connect RX
RXD VAR PORTC.6 'AD1 RXD VDIP2 connect TX
FlowIn VAR PORTC.0 'AD2 RTS
StartDisk:
RXD=1
SEROUT2 VinRXD,84,["hello"]
pauseus 1000
GOTO StartDisk
now i testing with this code...and i wan to ask is after i set the configuration bit..the hex code will become 24kb...and the pic16f873A program memory only 4k is this got problem?
There is no way that little bit of code would make a hex that large.
The data sheet says the program memory is 7.2K Bytes.
I really have no idea what you are doing or looking at.
Can you make a LED blink with this chip?
i know so a little bit cant have so large hex code....
before i set the configuration bit.. the hex code size is small..after i export it..it become large...
Looking at your code you have the TX and RX mixed up and here
SEROUT2 VinRXD,84,["hello"]
VinRXD does not exist.
Try this code without the VDIP. Connect as shown in the comments.
Code:@ __config _HS_OSC & _WDT_OFF & _LVP_OFF & _CP_OFF
DEFINE OSC 20
TXD VAR PORTC.6 'CONNECT TO MAX232 PIN #11
'MAX232 PIN#14 TO DB9 #2
RXD VAR PORTC.7
StartDisk:
SEROUT2 TXD,84,["hello",$d,$a]
pauseus 1000
GOTO StartDisk
when i add in this line
@ __config _HS_OSC & _WDT_OFF & _LVP_OFF & _CP_OFF
and compile .. get error
Error[118] C:\USERS\DESKTOP\PIC16F873A\PIC TO HYT\ABC.ASM 157 : Overwriting previous address contents (2007)
Error[118] C:\USERS\DESKTOP\PIC16F873A\PIC TO HYT\ABC.ASM 157 : Overwriting previous address contents (2007)
Ok. You must be setting the configuration bits in the *inc file.
Commnt that line and use those settings.
Fir more of what I am talking about
http://www.picbasic.co.uk/forum/showthread.php?t=543
follow the code u given already success print hello to hyperterminal...
is that means if i modified the code n connect to VDIP2 module..
Yes, we are going now!!!
Connect the VDIP to the PC with the MAX232 chip like you had when you saw the firmware message.
Connect the VDIP's input to the same wire you now have connected to the PC from the PIC.
What we will do is send commands to the VDIP from the PIC and have the VDIP send the response to the PC...
We do need to add another connection for flow control. The "FLOWIN" signal from the VDIP will tell the PIC it is OK to send another command. I am using the VDIP1 so check the VDIP2 pin out. I think they are the same...
Try to connect FLOWIN on a non ADC pin for now. Change the code below to your pin.
The below should cause the VDIP to diplay on the terminal a
D:\>
every 1.5 seconds..
Code:VinRXD VAR PORTC.6 'DATA TO VDIP PIN #8 ON VDIP1
FLOWIN VAR PORTD.6 'FLOW CONTROL FROM VDIP PIN #9 ON VDIP1
START:
HIGH PORTD.2 'LED
PAUSE 250
LOW PORTD.2
PAUSE 250
SEROUT2 VinRXD,84,["ECS",13] '9600 TRUE
HIGH VinRXD
PAUSEUS 10
SEROUT2 VinRXD,84,["IPA",13]
HIGH VinRXD
PAUSEUS 10
WAIT111:
IF FLOWIN = 1 THEN WAIT111
PAUSE 1000
GOTO START
thx..
i wan to ask..this
"HIGH PORTD.2 'LED
PAUSE 250
LOW PORTD.2
PAUSE 250"
line is for ?
and why need put this "HIGH VinRXD"line?
because i test on without the HIGH VinRXD it also can send to the VDIP2 and display to the hyperterminal..
if that this HIGH VinRX necessary?
So you got it working???Quote:
because i test on without the HIGH VinRXD it also can send to the VDIP2 and display to the hyperterminal..
if that this HIGH VinRX necessary?
The LED is something I like to do to see it the PIC is running. A heart beat. . . .
The HIGH VinRXD is just a little insurance to put the pin in the correct state before transmitting data. Yes, it is not always needed.
ya thankyou very much...i get it work and succes send comment to the VDIP2.now working on the 2 line LCD..because it cant display the file name correctly...
COOL :) Glad to have helped.Quote:
Originally Posted by fokus_1116
For the LCD problem maybe it is the same as newbie was having?
ya almost the same...
If you can not figure it out from what we did with newbie let us know and we will try to figure it out.
Good luck!
i think another prob is ..i using 4bit....i will try using 8bit to test it..
i follow the way newbie show to the LCD...but i only can show 1 or 2 file name only..then keep on repeat the second file name..
Hey, at least you are getting something :)
I do not think newbie ever showed us his last code so I am not sure what you are using. Sounds like a loop problem but to be sure post your current code so we can have a look at it.
"actually i not really understand for this line "SERIN2 VinTXD,84,[WAIT(CRET),STR FILE1\12 \CRET,WAIT(CRET),STR FILE2\12 \CRET,WAIT(CRET),STR FILE3\12 \CRET]" "Code:INCLUDE "modedefs.bas"
@ __config _HS_OSC & _WDT_OFF & _LVP_OFF & _CP_OFF
DEFINE OSC 20
DEFINE SER2_BITS 8
DEFINE LCD_DREG PORTA 'LCD Data line
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB 'RS bit
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTB 'E bit
DEFINE LCD_EBIT 4
DEFINE LCD_RWREG PORTB 'RW bit
DEFINE LCD_RWBIT 6
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_CHARS 20
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
VinTXD VAR PORTC.7 'AD0 TXD VDIP2 connect RX
VinRXD VAR PORTC.6 'AD1 RXD VDIP2 connect TX
FlowIn VAR PORTC.0 'AD2 RTS
T VAR PORTC.0 'push button
D VAR PORTC.1 ' PUSH BUTTON FOR DISPLAY
FILE1 VAR BYTE[12]
FILE2 VAR BYTE[12]
FILE3 VAR BYTE[12]
X1 VAR BYTE
X2 VAR BYTE
X3 VAR BYTE
X4 VAR BYTE
X5 VAR BYTE
X6 VAR BYTE
X7 VAR BYTE
X8 VAR BYTE
X9 VAR BYTE
X10 VAR BYTE
X11 VAR BYTE
X12 VAR BYTE
X13 VAR BYTE
X14 VAR BYTE
X15 VAR BYTE
X16 VAR BYTE
X17 VAR BYTE
X18 VAR BYTE
X19 VAR BYTE
X20 VAR BYTE
X21 VAR BYTE
X22 VAR BYTE
X23 VAR BYTE
X24 VAR BYTE
X25 VAR BYTE
X26 VAR BYTE
X27 VAR BYTE
X28 VAR BYTE
X29 VAR BYTE
X30 VAR BYTE
X31 VAR BYTE
X32 VAR BYTE
X33 VAR BYTE
X34 VAR BYTE
X35 VAR BYTE
X36 VAR BYTE
CRET VAR BYTE
CRET = $0D
StartDisk:
pause 3000
HIGH VinRXD
SEROUT2 VinRXD,84,["ECS",13]
LCDOUT $FE,1, "1"
pause 2500
PAUSEUS 1000
HIGH VinRXD
PAUSEUS 3000
SEROUT2 VinRXD,84,["IPA",13]
LCDOUT $FE,1, "2"
pause 2500
HIGH VinRXD
PAUSEUS 1000
SEROUT2 VinRXD,84,["A:",13]
LCDOUT $FE,1, "3"
pause 2500
HIGH VinRXD
PAUSEUS 1000
SEROUT2 VinRXD,84,["DIR",13]
LCDOUT $FE,1, "4"
'pause 2500
PAUSEUS 1000
WAIT1
IF FLOWIN = 1 THEN WAIT1
SERIN2 VinTXD,84,[WAIT(CRET),STR FILE1\12 \CRET,WAIT(CRET),STR FILE2\12 \CRET,WAIT(CRET),STR FILE3\12 \CRET]
LCDOUT $FE,1, "5"
'pause 2500
X1 = FILE1[0]
X2 = FILE1[1]
X3 = FILE1[2]
X4 = FILE1[3]
X5 = FILE1[4]
X6 = FILE1[5]
X7 = FILE1[6]
X8 = FILE1[7]
X9 = FILE1[8]
X10 = FILE1[9]
X11 = FILE1[10]
X12 = FILE1[11]
X13 = FILE1[0]
X14 = FILE1[1]
X15 = FILE1[2]
X16 = FILE1[3]
X17 = FILE1[4]
X18 = FILE1[5]
X19 = FILE1[6]
X20 = FILE1[7]
X21 = FILE1[8]
X22 = FILE1[9]
X23 = FILE1[10]
X24 = FILE1[11]
PAUSE 100
LCDOUT $FE,1,X1,X2,X3,X4,X5,X6,X7,X8,x9,x10,x11,x12
the code of this can display only 1 file name...but if i add another line LCDOUT the LCD display 2 same file name...
dear mackrackit,
i already figure out..how to make it display..but the array part need got some prob.. it that got other way to make the file store at X
X1 = FILE1[0]
X2 = FILE1[1]
X3 = FILE1[2]
X4 = FILE1[3]
X5 = FILE1[4]
X6 = FILE1[5]
X7 = FILE1[6]
X8 = FILE1[7]
X9 = FILE1[8]
X10 = FILE1[9]
X11 = FILE1[10]
X12 = FILE1[11]
X13 = FILE2[0]
X14 = FILE2[1]
X15 = FILE2[2]
X16 = FILE2[3]
X17 = FILE2[4]
X18 = FILE2[5]
X19 = FILE2[6]
X20 = FILE2[7]
X21 = FILE2[8]
X22 = FILE2[9]
X23 = FILE2[10]
X24 = FILE2[11]
This line WAITS for a carriage return (CRET) then will take the next 12 character and place then in the array FILE1 or FILE2 and so on.Quote:
"actually i not really understand for this line "SERIN2 VinTXD,84,[WAIT(CRET),STR FILE1\12 \CRET,WAIT(CRET),STR FILE2\12 \CRET,WAIT(CRET),STR FILE3\12 \CRET]" "
The X~ array is just a dummy array to give a place to play with things, parse if needed. It is not really needed.Quote:
other way to make the file store at X
mackrackit,
can i use 2D array in picbasic pro compile or the pic16f873A can support the 2D array?
This should answer your question
http://www.picbasic.co.uk/forum/showthread.php?t=12870
dear sir..
i plan to use 2d array to store the file name and then display it to the LCD..
but cant make it success ... is that any suggestion to make it the array work?
The best I can do is tell you to start a new thread about the 2D array problem. I have not tried them myself.
Be sure to post your code when you start the new thread...
i already tired to try the 2d array but it still cannot work....
is that any way to store the file name except using the 2d array?
If you do not want to post your code and ask about why it does not work I guess there is not much anyone can do to help. You have not even explained exactly what you are trying to do.
It seems like you now have the VDIP running. So if you want help with arrays or something else start a new thread as suggested.
so sorry,
i got post my coding..but dunno y cant display...
now the coding not at me..later i will post again for the coding...thank for your inform
dear sir,
y when i put the line @Put2D(X,Y) then cannot compile got error
Error[108] C:\USERS\PIC16F873A\ARRAY TEST 2\ARRAY2.ASM 311 : Illegal character (()
dear mackrackit
below is my code..it like stuck at some where please help..
INCLUDE "modedefs.bas"
@ __config _HS_OSC & _WDT_OFF & _LVP_OFF & _CP_OFF
;----------------------------------------------------------------
DEFINE OSC 20
DEFINE LCD_DREG PORTA 'LCD Data line
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB 'RS bit
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTB 'E bit
DEFINE LCD_EBIT 4
DEFINE LCD_RWREG PORTB 'RW bit
DEFINE LCD_RWBIT 6
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_CHARS 20
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
;---------------------------------------------------------------
VinTXD VAR PORTC.7 'AD0 TXD VDIP2 connect RX
VinRXD VAR PORTC.6 'AD1 RXD VDIP2 connect TX
FlowIn VAR PORTC.0 'AD2 RTS
T VAR PORTC.0 'push button
D VAR PORTC.1 ' PUSH BUTTON FOR DISPLAY
;----------------------------------------------------------------
X VAR BYTE SYSTEM
Y VAR BYTE SYSTEM
;----------------------------------------------------------------
;----------------------------------------------------------------
; -- Working with 2D arrays ---
Width CON 8 ; Number of bytes in a Row
Length CON 10 ; Number of Rows in the array
;---------------------------------------------------------------------------
ArraySize CON Width * Length ; Total size of the array
MyArray VAR BYTE[ArraySize] ; The Array
Idx VAR BYTE ; Index, points to 1D array locations
Xidx VAR BYTE ; 2D column Index
Yidx VAR BYTE ; 2D row Index
ArrayData VAR BYTE ; holding register for array data
;----[Get a value from the 2D array]----------------------------------------
Get2D:
Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize
ArrayData = MyArray(Idx) ; retrieve value from the array
RETURN
;----[Put a value in the 2D array]------------------------------------------
Put2D:
Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize
MyArray(Idx) = ArrayData ; store the value in the array
RETURN
;----[Set entire array to 0's]----------------------------------------------
Clear2D:
FOR Idx = 0 TO ArraySize-1
MyArray(Idx) = 0
NEXT Idx
RETURN
;----[Turn the Subroutines into Functions]----------------------------------
ASM
#Get2D macro X, Y
MOVE?BB X, _Xidx ; copy users X value to Xidx
MOVE?BB Y, _Yidx ; copy users Y value to Yidx
L?CALL _Get2D ; call the Get subroutine
endm ; value is returned in ArrayData
#define Get2D(X, Y) #Get2D X, Y ; allows paretheses in macro
;-----------------------
#Put2D macro X, Y ; value should be in ArrayData
MOVE?BB X, _Xidx ; copy users X value to Xidx
MOVE?BB Y, _Yidx ; copy users Y value to Yidx
L?CALL _Put2D ; call the Put subroutine
endm
#define Put2D(X, Y) #Put2D X, Y ; allows paretheses in macro
;-----------------------
#Clear2D macro
L?CALL _Clear2D ; call the Clear subroutine
endm
#define Clear2D() #Clear2D
ENDASM
;----------------------------------------------------------------
;a var BYTE[12]
FILE1 VAR BYTE[12]
FILE2 VAR BYTE[12]
FILE3 VAR BYTE[12]
;X VAR BYTE
CRET VAR BYTE
CRET = $0D
;----------------------------------------------------------------
StartDisk:
pause 3000
HIGH VinRXD
SEROUT2 VinRXD,84,["ECS",13]
LCDOUT $FE,1, "1"
PAUSEUS 1000
HIGH VinRXD
PAUSEUS 1000
SEROUT2 VinRXD,84,["IPA",13]
LCDOUT $FE,1, "2"
HIGH VinRXD
PAUSEUS 1000
SEROUT2 VinRXD,84,["A:",13]
LCDOUT $FE,1, "3"
HIGH VinRXD
PAUSEUS 1000
SEROUT2 VinRXD,84,["DIR",13]
LCDOUT $FE,1, "4"
PAUSEUS 1000
;------------------------------------------------------------
WAIT1
IF FLOWIN = 1 THEN WAIT1
SERIN2 VinTXD,84,[WAIT(CRET),STR FILE1\12 \CRET]
LCDOUT $FE,1, "5"
@ Clear2D ; clear the array
FOR Y = 0 TO Length-1 ; fill the array with data
FOR X = 0 TO Width-1
ArrayData =FILE1[X] ; value to put in array
@ Put2D(X,Y)
NEXT X
NEXT Y
;--------------------------------------------------------------------------------
PAUSE 1000
FOR Y = 0 TO Length-1
FOR X = 0 TO Width-1
@ Get2D(X,Y)
NEXT X
LCDOUT $FE,1,ArrayData
pause 500
NEXT Y
goto StartDisk
So you got the new version of PBP?
Where did you get it?
u use the 2.46version...
the code i use it like stuck only can run until the code below then stop
INCLUDE "modedefs.bas"
@ __config _HS_OSC & _WDT_OFF & _LVP_OFF & _CP_OFF
;----------------------------------------------------------------
DEFINE OSC 20
DEFINE LCD_DREG PORTA 'LCD Data line
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB 'RS bit
DEFINE LCD_RSBIT 5
DEFINE LCD_EREG PORTB 'E bit
DEFINE LCD_EBIT 4
DEFINE LCD_RWREG PORTB 'RW bit
DEFINE LCD_RWBIT 6
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_CHARS 20
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
;---------------------------------------------------------------
VinTXD VAR PORTC.7 'AD0 TXD VDIP2 connect RX
VinRXD VAR PORTC.6 'AD1 RXD VDIP2 connect TX
FlowIn VAR PORTC.0 'AD2 RTS
T VAR PORTC.0 'push button
D VAR PORTC.1 ' PUSH BUTTON FOR DISPLAY
;----------------------------------------------------------------
X VAR BYTE SYSTEM
Y VAR BYTE SYSTEM
;----------------------------------------------------------------
;----------------------------------------------------------------
; -- Working with 2D arrays ---
Width CON 8 ; Number of bytes in a Row
Length CON 10 ; Number of Rows in the array
;---------------------------------------------------------------------------
ArraySize CON Width * Length ; Total size of the array
MyArray VAR BYTE[ArraySize] ; The Array
Idx VAR BYTE ; Index, points to 1D array locations
Xidx VAR BYTE ; 2D column Index
Yidx VAR BYTE ; 2D row Index
ArrayData VAR BYTE ; holding register for array data
;----[Get a value from the 2D array]----------------------------------------
Get2D:
Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize
ArrayData = MyArray(Idx) ; retrieve value from the array
RETURN
;----[Put a value in the 2D array]------------------------------------------
Put2D:
Idx=(Yidx*Width+Xidx) MIN (ArraySize-1) ; find Index, limit to ArraySize
MyArray(Idx) = ArrayData ; store the value in the array
RETURN
;----[Set entire array to 0's]----------------------------------------------
Clear2D:
FOR Idx = 0 TO ArraySize-1
MyArray(Idx) = 0
NEXT Idx
RETURN
Sorry, I have not used arrays like that.
You may want to go here
http://www.picbasic.co.uk/forum/showthread.php?t=12870
what array you using? can show it?
I have shown it several times starting in post#8 of this thread.
using this way of array...if i got 10 file..then need to copy the X1X2 until X120? this way of array i have try it..it simple and easy...if i dunno the pendrive have how many file?
you can try storing storing all the file names that your PIC's array is capable of storing then when your cursor goes down to the last file name, do another serin but this time use the waitstr function and wait for the last file name in your list. you will then receive an new batch or list of file names. You can do this again and again if there are too many file names in your flash drive. As for going up to view the previous files names., you can save the last file name every batch and when you want to get to a specific batch, do a serin and wait for the last file name of the batch before that particular batch where you want to get to. i would advice that you lessen the file names per batch because based on my experience, the pic hangs when for example you are set to receive 8 files but receives only 7 or less. This is just my idea. its not yet complete though.. there are so many other ways to address to the problem of getting all the file names from a flash drive printed in you lcd.