| Menu | JAQForum Ver 19.10.27 |
| Menu | JAQForum Ver 19.10.27 |
Forum Index : Microcontroller and PC projects : Picomite to Picomite via I2C
  Page 2 of 2 |
||||||
Untested, but using the serial multidrop circuit linked above, with GP1 as Rx and GP0 as Tx, for 16 digital I/O pins it could be as simple as: setpin GP1,GP0,COM1 open "com1:115200" As #1 print #1,"A0101010111001100" ' picomite "A" to set pins print #1,"B1010101011001100" ' picomite "B" to set pins and on picomite "A" setpin GP1,GP0,COM1 open "com1:115200" As #1 for i=2 to 17: cmd$="SETPIN GP"+str$(i)+",output": EXECUTE cmd$: next i do if loc(1) then pause 50 ' long enough for full message to arrive line input #1,s$ if mid$(s$,1,1)="A" then for i=2 to 17 cmd$="pin(GP"+str$(i)+")=" if mid$(s%,i,1)="1" then cmd$=cmd$+"1" else cmd$=cmd$+"0" ' 1 is on, else off EXECUTE cmd$ next i endif endif loop (Or perhaps something similar if I have syntax or logic wrong. Error checking would probably also be useful. Alternatively, you could set a single pin at a time.) ~ Edited 2024-04-09 10:36 by lizby |
||||||
For speed, I recommend a binary protocol (str2bin/bin2str) and the PORT command. |
||||||
It looked like a variation on this might provide entertainment for an idle morning. This shows a MMBasic DOS program controlling a PicoMite over a serial connection. Every second, colors are randomly changed on an 8-LED WS2812, and a green/yellow/red traffic light module is cycled through its colors. The picomite client program looks for a serial input line which begins with "X" (for EXECUTE). It then checks to see if the second character in the string matches its id (in this instance, "A"). If it does, it serially breaks out multiple commands terminated with ":" (if more than one command), and runs the EXECUTE command with the broken out command. Here's the MMBasic DOS program: Dim integer i,j,k,l,m,n=2,stoplightpins(2)=(25,26,27) Open "com9:115200" As #1 'cmd$="XADo:For i=0 To 7:j=Rnd()*15:d%(i)=e%(j):Next:k=e%(j):Bitbang WS2812 b,11,8,d%():Pause 1000:Loop" cmd$="XAsetpin 25,dout:setpin 26,dout:setpin 27,dout" Print #1,cmd$ Do cmd$="XAd%(0)=e%(Rnd()*15):d%(1)=e%(Rnd()*15):d%(2)=e%(Rnd()*15):d%(3)=e%(Rnd()*15):d%(4)=e%(Rnd()*15):d%(5)=e%(Rnd()*15):d%(6)=e%(Rnd()*15):d%(7)=e%(Rnd()*15)" Print "Sending: ";cmd$ Print #1,cmd$ cmd$="XABitbang WS2812 b,11,8,d%()" Print "Sending: ";cmd$ Print #1,cmd$ Pause 1000 cmd$="XApin("+Str$(stoplightpins(n))+")=0:" n=n+1:n=n Mod 3 cmd$=cmd$+"pin("+Str$(stoplightpins(n))+")=1" Print "Sending: ";cmd$ Print #1,cmd$ Loop And the PicoMite program: ' ser-client.bas Dim integer d%(15),e%(15)=(RGB(red), RGB(green), RGB(blue),0,0,0,0,0,0,0,0,0,0,0,0,0) ' colors for WS2812 e%(5)=RGB(gold): e%(6)=RGB(magenta): e%(7)=RGB(brown): e%(8)=RGB(pink) e%(9)=RGB(salmon): e%(10)=RGB(orange):e%(11)=RGB(grey):e%(12)=RGB(white) e%(9)=RGB(salmon): e%(10)=RGB(orange):e%(11)=RGB(grey):e%(12)=RGB(white) e%(13)=RGB(lightgrey): e%(14)=RGB(beige): e%(15)=0 ' black Dim integer i,j,k,l,m,n SetPin GP1,GP0,COM1 Open "com1:115200" As #1 client$="A" ' for i=2 to 17: cmd$="SETPIN GP"+str$(i)+",output": EXECUTE cmd$: next i Do If Loc(1) Then Pause 50 ' long enough for full message to arrive Line Input #1,s$ Print "Received: ";s$ token$=Mid$(s$,1,1) If token$="X" Then ' execute commands (if for us) id$=Mid$(s$,2,1) If id$=client$ Then ' execute command (possibly multiple) j=3 k=Instr(j,s$,":") Do While k>0 cmd$=Mid$(s$,j,k-j) Execute cmd$ j=k+1 k=Instr(j,s$,":") Loop cmd$=Mid$(s$,j) Execute cmd$ EndIf ElseIf token$=client$ Then ' for i=2 to 17 ' cmd$="pin(GP"+str$(i)+")=" ' if mid$(s%,i,1)="1" then cmd$=cmd$+"1" else cmd$=cmd$+"0" ' 1 is on, else off ' EXECUTE cmd$ ' next i EndIf EndIf Loop A youtube video. |
||||||
@Iizby this is really interesting.  Opens a lot of opportunities for both wired and wireless projects. You can make the slave to do almost anything without the need to have all possible tasks pre-programmed in the slave. Will certainly test it in the coming days. Please have some more morning entertainments! Pluto |
||||||
Thanks for the encouragement. Slight changes here. I upped the speed to 230400, added a space after the "XA" token and id characters to better visually differentiate the command, and added control of a red/green LED, an RGB LED, and a buzzer. I also added ON ERROR SKIP before the EXECUTE command, so the client PicoMite doesn't halt for a syntax error. On the MMBasic DOS side: Dim integer i,j,k,l,m,tick,n=2,stoplightpins(2)=(25,26,27) Open "com9:230400" As #1 'cmd$="XA Do:For i=0 To 7:j=Rnd()*15:d%(i)=e%(j):Next:k=e%(j):Bitbang WS2812 b,11,8,d%():Pause 1000:Loop" cmd$="XA setpin 25,dout:setpin 26,dout:setpin 27,dout" ' traffic light module Print #1,cmd$ cmd$="XA setpin 7,dout:setpin 9,dout:setpin 10,dout:setpin 14,dout:setpin 15,dout" ' RGB & RG LEDs Print #1,cmd$ cmd$="XA setpin 5,dout" ' buzzer Print #1,cmd$ Do cmd$="XA d%(0)=e%(Rnd()*15):d%(1)=e%(Rnd()*15):d%(2)=e%(Rnd()*15):d%(3)=e%(Rnd()*15):d%(4)=e%(Rnd()*15):d%(5)=e%(Rnd()*15):d%(6)=e%(Rnd()*15):d%(7)=e%(Rnd()*15)" Print "Sending: ";cmd$ Print #1,cmd$ cmd$="XA Bitbang WS2812 b,11,8,d%()" Print "Sending: ";cmd$ Print #1,cmd$ cmd$="XA pin("+Str$(stoplightpins(n))+")=0:" n=n+1:n=n Mod 3 cmd$=cmd$+"pin("+Str$(stoplightpins(n))+")=1" Print "Sending: ";cmd$ Print #1,cmd$ a$=Str$((tick Mod 4) And 1):b$=Str$((tick Mod 4) >> 1 And 1) cmd$="XA pin(14)="+a$+":pin(15)="+b$ ' R/G LED Print "Sending: ";cmd$ Print #1,cmd$ a$=Str$((tick Mod 8) And 1):b$=Str$((tick Mod 8) >> 1 And 1):c$=Str$((tick Mod 8) >> 1 And 1) cmd$="XA pin(7)="+a$+":pin(9)="+b$+":pin(10)="+c$ ' RGB LED Print "Sending: ";cmd$ Print #1,cmd$ If (tick Mod 8) = 7 Then cmd$="XA pin(5)=1" Else cmd$="XA pin(5)=0" Print #1,cmd$ tick=tick+1 Pause 1500 Loop And the PicoMite side: ' ser-client.bas Dim integer d%(16),e%(16)=(RGB(red), RGB(green), RGB(blue),0,0,0,0,0,0,0,0,0,0,0,0,0,0) ' colors for WS2812 e%(5)=RGB(gold): e%(6)=RGB(magenta): e%(7)=RGB(brown): e%(8)=RGB(pink) e%(9)=RGB(salmon): e%(10)=RGB(orange):e%(11)=RGB(grey):e%(12)=RGB(white) e%(9)=RGB(salmon): e%(10)=RGB(orange):e%(11)=RGB(grey):e%(12)=RGB(white) e%(13)=RGB(lightgrey): e%(14)=RGB(beige): e%(15)=0 ' black Dim integer i,j,k,l,m,n SetPin GP1,GP0,COM1 Open "com1:230400" As #1 client$="A" ' for i=2 to 17: cmd$="SETPIN GP"+str$(i)+",output": EXECUTE cmd$: next i Do If Loc(1) Then Pause 100 ' long enough for full message to arrive Line Input #1,s$ Print "Received: ";s$ token$=Mid$(s$,1,1) If token$="X" Then ' execute commands (if for us) id$=Mid$(s$,2,1) If id$=client$ Then ' execute command (possibly multiple) j=4 k=Instr(j,s$,":") Do While k>0 cmd$=Mid$(s$,j,k-j) Execute cmd$ j=k+1 k=Instr(j,s$,":") Loop cmd$=Mid$(s$,j) On Error Skip Execute cmd$ EndIf EndIf EndIf Loop Youtube short ~ Edited 2024-04-11 05:10 by lizby |
||||||
Clearly our minds have been running in parallel; I simply need to switch the pins on the remote pico high/low. Therefore I find that this has done the trick: 'Picomite Simple Serial Master Option AUTORUN ON SetPin GP1,GP0,com1 ' Open "com1:115200, 256" As #1 'program the commands here onwards...in the form PRINT #1,"COMMAND+PARAMETERS" And on the remote picomite 'Picomite Simple Serial Client Option AUTORUN ON Dim string cmd SetPin GP1,GP0,com1 'Set up comms channel 1 Open "com1:115200, 256, ActionCommand, 3" As #1 Do WatchDog 500 'This recovers from errors not ignored but resets the chip Loop Sub ActionCommand 'Message receipt detected ON ERROR IGNORE 'This avoids system reset if duff command arrives Pause 30 'ensure all characters in command have arrived Line Input #1,cmd 'Get the command Execute cmd 'Action the received command End Sub 'Return from the interrupt What and excellent addition the command EXECUTE has turned out to be. Works a treat. Thanks to all for pointing me in the right direction. @Lizby; your extra coding to allow for multiple modules will be most helpful in the future. Many thanks for taking the time on this one. |
||||||
(as it were) Excellent. Short and sweet client code (and robust). Returning of values (e.g., DS18B20) adds a level of complexity--with timing issues if there are multiple clients. |
||||||
Iizby (or Lizby?), finally had time to test your code above last night. I am pleased with the outcome!  Initially I had some problems...tried to send a short for-next program to be excecuted by the slave. (I think you had something similar commented out in your program.) Recognized however quite rapidly that it could not work. Is this what you call a senior moment?  FOR-NEXT and DO-LOOP implemented in the master works of course excellently. Thanks Pluto |
||||||
Right. DO LOOP, FOR NEXT, IF ENDIF won't work with EXECUTE because a single command at a time is executed and it can't know where the termination is (or how to get back to the start). I just tried IF ... THEN ... ELSE ... with no colons and no ENDIF, and that worked. I think I left the commented-out FOR NEXT to remind myself what I was trying to implement. Glad it otherwise worked for you. |
||||||
In the documentation for the EXECUTE command, it says; The command sets an internal watchdog before executing the requested command and if control does not return to the command, like in a GOTO statement, the timer will expire. In this case you will get the message "Command timeout". RUN is a special case and will cancel the timer allowing you to use the command to chain programs if required. There is no indication of a duration for this watchdog timer which may affect some of the more complex command constructions that are now being mentioned. Perhaps the authors of the firmware might indicate a little more detail about this aspect of the command and its impact. |
||||||
A 1 second timer is started when a command is executed via EXECUTE "command". i.e. ScrewUpTimer = 1000; i.e 1 second. If the command completes within 1 second all is good. If not then MMBasic is restart. EXECUTE "PAUSE 950" should work. EXECUTE "PAUSE 1050" will cause a restart. It looks like the "Command timeout" message is no longer given. May have gone when the hardware timeout was introduced. |
||||||
| Page 2 of 2 |
||||||
