 Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me. |
Forum Index : Microcontroller and PC projects : PicoMite V6.00.02 release candidates - all versions
  Page 51 of 52   |
|||||
| Author | Message | ||||
phil99 Guru  Joined: 11/02/2018 Location: AustraliaPosts: 2551 |
BYVAL appears not to adhere to that. > LIST ' Test prog 1 Dim integer a=5, b=6, c=7 Print "a, b, c =";a;b;c test a,,c Sub test(BYVAL a, BYVAL b, BYVAL c) If a = 5 Then a = 10 Print "In Sub a, b, c =";a;b;c EndIf End Sub Print "After Sub a, b, c =";a;b;c > RUN a, b, c = 5 6 7 In Sub a, b, c = 10 6 7 After Sub a, b, c = 5 6 7 > > LIST ' Test prog 1 Dim integer a=5, b=6, c=7 Print "a, b, c =";a;b;c test a,,c Sub test(a, b, c) If a = 5 Then a = 10 Print "In Sub a, b, c =";a;b;c EndIf End Sub Print "After Sub a, b, c =";a;b;c > RUN a, b, c = 5 6 7 In Sub a, b, c = 10 0 7 After Sub a, b, c = 5 6 7 > BYVAL appears to be the default anyway. Senility advancing. Edited 2025-06-07 16:01 by phil99 |
||||
| JohnS Guru Joined: 18/11/2011 Location: United KingdomPosts: 4022 |
Oops - looks like a bug in MMBasic! (b should default to 0 in test.) John |
||||
| matherp Guru Joined: 11/12/2012 Location: United KingdomPosts: 10169 |
No it isn't. You are just printing the value of a global variable which wasn't passed. Try ' Test prog 1 Dim integer a=5, b=6, c=7 Print "a, b, c =";a;b;c test a,,c Sub test(BYVAL x%, BYVAL y%, BYVAL z%) If x% = 5 Then x% = 10 Print "In Sub x% y%, z% =";x%;y%;z% EndIf End Sub Print "After Sub a, b, c =";a;b;c > RUN a, b, c = 5 6 7 In Sub a, b, c = 10 6 7 After Sub a, b, c = 5 6 7 > |
||||
| toml_12953 Guru Joined: 13/02/2015 Location: United StatesPosts: 419 |
It doesn't look like a bug to me. Variables that aren't passed are global unless declared as LOCAL. The variable b wasn't passed so it retained its value of 6. Try changing b in the sub and see what happens. It will have the changed value after exiting the sub. |
||||
TassyJim Guru Joined: 07/08/2011 Location: AustraliaPosts: 6249 |
If you use OPTION EXPLICIT RUN a, b, c = 5 6 7 In Sub x% y%, z% = 10 [10] Print "In Sub x% y%, z% =";x%;y%;z% Error : Y is not declared > Perhaps a warning in the manual to take care with empty parameters and BYVAL Jim VK7JH MMedit |
||||
| AlbertR Newbie  Joined: 29/05/2025 Location: GermanyPosts: 12 |
there should also be a different if the "AS INTEGER" is used Option EXPLICIT Dim integer a a = 2 Print "a at start "a test1 Print "test without par:"a a = 2 test1(a) Print "test1: "a a = 2 test2(a) Print "test2: "a a = 2 test3(a) Print "test3: "a a = 2 test4(a) Print "test4: "a a = 2 test5(a) Print "test5: "a a = 2 test6(a) Print "test6: "a '------------------------------------ Sub test1( b ) If b = 2 Then b = 23 End Sub Sub test2( b As integer ) If b = 2 Then b = 23 End Sub Sub test3(byval b ) If b = 2 Then b = 23 End Sub Sub test4(byval b As integer) If b = 2 Then b = 23 End Sub Sub test5(byref b As integer) If b = 2 Then b = 23 End Sub Sub test6(byref b ) If b = 2 Then b = 23 End Sub >RUN a at start 2 test without par: 2 test1: 2 test2: 23 test3: 2 test4: 2 test5: 23 [23] test6(a) Error : BYREF requires same types: a |
||||
| JohnS Guru Joined: 18/11/2011 Location: United KingdomPosts: 4022 |
I don't see how that can print In Sub a, b, c = 10 6 7 as it should be In Sub x% y%, z% etc But addressing the main issue: normally defining a SUB with parameters makes each of those parameters a sort of locally defined variable, so the original example would have both a global variable b and a parameter b. The parameter would in effect hide the global one. It's OK if that is not how MMBasic is supposed to work but it is most unusual/odd. John Edited 2025-06-07 21:38 by JohnS |
||||
| mozzie Senior Member  Joined: 15/06/2020 Location: AustraliaPosts: 131 |
G'day Peter, Finally managed to read the EDID data from the two 7" 1024x600 displays here and decoded them, both totally different.  Searching around it appears there are as many settings for the 1024x600 displays as there are displays... and 800x480 looks like a similar situation. Sadly, as you suggest, there is no real "standard" at this resolution. With that in mind, would you consider the following: A "HDMI USER" mode / resolution, with the parameters input by the user, I imagine this would require 2 sets: Mode 1 in monochrome with tiles Mode 2,3 or 4 in color. This would require the user to do the calculations for the clock frequency and divider / PLL ratios to suit, thankfully a lot of the porch and blanking information is available in the datasheets. Whilst this would not be for the beginner, a database could be formed with setting data for the more common displays from Waveshare / Buydisplay etc. This does of course assume that the above is even possible. Regards, Lyle. |
||||
| mozzie Senior Member Joined: 15/06/2020 Location: AustraliaPosts: 131 |
G'day, Another possible gremlin, can anyone else confirm? Setting system I2C to "slow" or opening I2C/I2C2 at 100khz stops the "I2C check" and "List System I2C" functions from working. 060002rc9 works ok, 060002rc15 onwards does not. > option list PicoMite MMBasic RP2040 Edition V6.00.02RC26 OPTION COLOURCODE ON OPTION CPUSPEED (KHz) 200000 > setpin gp0,gp1,i2c > i2c open 100,1000 > i2c check &h3c > ? mm.i2c 1 > i2c write &h3c,0,1,0 > ? mm.i2c 0 > i2c check &h3c > ? mm.i2c 1 > (Move DAT / CLK) > setpin gp2,gp3,i2c2 > i2c2 open 100,1000 > i2c2 check &h3c > ? mm.i2c 1 > i2c2 write &h3c,0,1,0 > ? mm.i2c 0 > List System I2C can also block further read / write attempts, although hard to nail down a pattern. Tested with SSD1306 OLED display and DS3231RTC (separately) Regards, Lyle. |
||||
| phil99 Guru Joined: 11/02/2018 Location: AustraliaPosts: 2551 |
My understanding is "List System I2C" only works for the channel specified in OPTION SYSTEM I2C. Your option list doesn't show that. |
||||
| mozzie Senior Member Joined: 15/06/2020 Location: AustraliaPosts: 131 |
G'day Phil, Correct, however the post was getting a bit long showing both scenarios. > option list PicoMiteHDMI MMBasic USB RP2350A Edition V6.00.02RC23 OPTION SERIAL CONSOLE COM2,GP8,GP9 OPTION SYSTEM I2C GP20,GP21 OPTION FLASH SIZE 4194304 OPTION COLOURCODE ON OPTION KEYBOARD US, 0, 0, 600, 150 OPTION RESOLUTION 720x400 @ 283200KHz OPTION DISPLAY 33, 90 OPTION SDCARD GP22, GP26, GP27, GP28 OPTION AUDIO GP10,GP11', ON PWM CHANNEL 5 OPTION RTC AUTO ENABLE OPTION PLATFORM HDMIUSB > option system i2c disable > option system i2c gp20,gp21,slow > list system i2c HEX 0 1 2 3 4 5 6 7 8 9 A B C D E F 00: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 10: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 20: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 30: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 40: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 50: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 60: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 70: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- > i2c write &h68,0,1,0 > ?mm.i2c 1 > option system i2c disable > option system i2c gp20,gp21 > list system i2c HEX 0 1 2 3 4 5 6 7 8 9 A B C D E F 00: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 10: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 20: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 30: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 40: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 50: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 60: -- -- -- -- -- -- -- -- 68 -- -- -- -- -- -- -- 70: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- > i2c write &h68,0,1,0 > ? mm.i2c 0 > This is on a different system with DS3231 RTC but shows the same symptoms. Also "I2C/I2C2 check" as example in previous post. Have tried from RC15-RC26 and same result. Regards, Lyle. |
||||
| phil99 Guru Joined: 11/02/2018 Location: AustraliaPosts: 2551 |
Yes, similar result. Also manual doesn't mention MM.I2C can return 2. Reading a EEPROM it fails to read all the requested bytes, but maybe 100kHz is too slow for the EEPROM. Reads the full amount at 400kHz. > ? mm.i2c 1 > i2c check &h50 > ? mm.i2c 0 > List System I2C HEX 0 1 2 3 4 5 6 7 8 9 A B C D E F 00: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 10: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 20: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 30: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 40: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 50: 50 -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 60: -- -- -- -- -- -- -- -- 68 -- -- -- -- -- -- -- 70: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- > ? mm.i2c 1 > OPTION SYSTEM I2C disable > OPTION SYSTEM I2C GP8,GP9,slow > List System I2C HEX 0 1 2 3 4 5 6 7 8 9 A B C D E F 00: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 10: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 20: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 30: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 40: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 50: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 60: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 70: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- > > s$="" > i2c read &H50,0,128,s$ :? s$ , Page 0, A= 31-> > ? mm.i2c 2 > i2c check &h50 > ? mm.i2c 1 > i2c read &H50,0,128,s$ :? s$ ptr A= 32, Page 1 > ? mm.i2c 2 > i2c check &h50 > ? mm.i2c 1 > Edited 2025-06-09 23:06 by phil99 |
||||
| matherp Guru Joined: 11/12/2012 Location: United KingdomPosts: 10169 |
I know why this is happening - will fix in the release |
||||
| phil99 Guru Joined: 11/02/2018 Location: AustraliaPosts: 2551 |
In RC26 Did a proper count of the bytes returned at 400kHz and the maximum is 82 out of 128 the remainder are NUL. In RC19 I got all requested bytes. Edited 2025-06-10 16:03 by phil99 |
||||
| matherp Guru Joined: 11/12/2012 Location: United KingdomPosts: 10169 |
Code for me to test with? |
||||
| phil99 Guru Joined: 11/02/2018 Location: AustraliaPosts: 2551 |
This writes and reads all pages on a 24C32. If you don't want write to them all reduce For n = 0 To 127 to 4 or more. If you already have data on the EEPROM just use :- Sub Read_24C32_All ' Read all data from 24C32 EEPROM at the bottom. Edit. It uses System I2C. 24C32 EEPROM tester 2.bas ' Test program to fill a 24C32 EEPROM with 128 x 32 byte pages. Dim Integer n, dummy, I2C.addr, Mem.addr Dim D$, R$, txt$ For n = &H50 To &H58 'find the I2C address - if more than one the first or last can be used I2C CHECK n If Not MM.I2C Then ' test for slave response. 1 = no response I2C.addr = n Print "&H";Hex$(I2C.addr), EndIf Next ' Write to all pages on 24C32 EEPROM Print "Assembled I2C data, including the 2 pointer address bytes." For n = 0 To 127 'make 32 byte pages Mem.addr = n * 32 'set the memory pointer D$ = "<-ptr A="+Str$(Mem.addr,4)+", Page "+Str$(n,3)+", A="+Str$(Mem.addr+31,4)+"->" 'make a page D$ = Chr$(Mem.addr>>8) + Chr$(Mem.addr And 255) + D$ 'Add 2 byte Mem. address to the start of the Data' I2C WRITE I2C.addr,0,Len(D$),D$ 'write 2 memory address bytes + data bytes For m=1 To 34 : If Asc(Mid$(D$,m,1))<32 Or Asc(Mid$(D$,m,1))>127 Then : MID$(D$,m,1)="." : EndIf : Next Print d$+" "; :If n Mod 4 = 3 Then :Print :EndIf 'show the pages written, non-ASCII characters shown as "." Pause 6 'allow time to write Next Print :Print :Print "Data read from EEPROM" Read_24C32_All Sub Read_24C32_All ' Read all data from 24C32 EEPROM Mem.addr = 0 : I2C WRITE I2C.addr, 0, 2, Mem.addr >> 8, Mem.addr And 255 'return the pointer to 0 For n = 0 To 31 I2C read I2C.addr, 0, 128, R$ 'print all data, 4 pages per line, showing non-ASCII characters as "." For m=1 To 32 : If Asc(Mid$(R$,m,1))<32 Or Asc(Mid$(R$,m,1))>127 Then : MID$(R$,m,1)="." : EndIf : Next Print R$ Next End Sub End Edited 2025-06-10 18:07 by phil99 |
||||
| matherp Guru Joined: 11/12/2012 Location: United KingdomPosts: 10169 |
I'm getting reams of output. How do I know if it has worked? Edited 2025-06-10 18:13 by matherp |
||||
| phil99 Guru Joined: 11/02/2018 Location: AustraliaPosts: 2551 |
The bottom section "Data read from EEPROM" should show 4 pages of 32 bytes per line like this from RC19. Data read from EEPROM <-ptr A= 0, Page 0, A= 31-><-ptr A= 32, Page 1, A= 63-><-ptr A= 64, Page 2, A= 95-><-ptr A= 96, Page 3, A= 127-> <-ptr A= 128, Page 4, A= 159-><-ptr A= 160, Page 5, A= 191-><-ptr A= 192, Page 6, A= 223-><-ptr A= 224, Page 7, A= 255-> <-ptr A= 256, Page 8, A= 287-><-ptr A= 288, Page 9, A= 319-><-ptr A= 320, Page 10, A= 351-><-ptr A= 352, Page 11, A= 383-> <-ptr A= 384, Page 12, A= 415-><-ptr A= 416, Page 13, A= 447-><-ptr A= 448, Page 14, A= 479-><-ptr A= 480, Page 15, A= 511-> ... It looks like you are only getting 52 characters out of 128 per line. As the EEPROM address pointer stops incrementing at the point where it stops reading the next 128 byte read starts where the last finished but once again stops short so the last half of it doesn't get read. The last page shown is 52 out of 128 that were written. Edited 2025-06-10 18:38 by phil99 |
||||
| matherp Guru Joined: 11/12/2012 Location: United KingdomPosts: 10169 |
Any chance of a simpler program? |
||||
| phil99 Guru Joined: 11/02/2018 Location: AustraliaPosts: 2551 |
Ok I will start on it after dinner. The <- and -> point to the start and end of each 32 byte page and the A= is the byte address at the start and end. Edited 2025-06-10 18:51 by phil99 |
||||
| Page 51 of 52 |
|||||
 Print this page |
 |
The Back Shed's forum code is written, and hosted, in Australia. | © JAQ Software 2025 |
