Gambas ONE

Quincunxian wrote: ↑Monday 23rd October 2023 12:33am I may have to put on a grass skirt, grab some bone rattles and do a dance around my computer.

Post video, we may be able to detect incorrect dance steps!

Unfortunately using the command to set the GUI to qt5 didn't help Unfortunately, neither does that comment. What, exactly, happened when you copied and pasted Bruce's command into a terminal? I think this must be a bug or a design flaw because ... No, no one else has that problem. Ergo, it is at yo...

(yes, its been a long time since that was spoken about)

 in the Form_Close event handler
  Stop Event
End

works with QT5

At a guess, I'd say that one of you has a blank line at the end of the file and one doesn't. In other words a Cr or whatever on the last data line. If that is the case then I find the best way to to handle that is in the initial file load when the file string is split by line endings, just by ignori...

For the sake of it ' Gambas module file Private $totals As New Collection Public Sub Main() Dim sLines As String[] = Split(File.Load("./data.txt"), "\n") SumOverBCode(sLines) For Each $totals Print $totals.Key; "|"; $totals[$totals.Key] Next End Private Sub SumOverBCode...

I'd do it using a collection. Read each line and split it into a barcode and a quantity. Then using the barcode as the key and the quantity as the value, if the key is not in the collection already then add the key with the value 0. Then update the (now existing key) adding the quantity to the value...

SELECT "EpochDate", 'max' as ind FROM yourtable WHERE temperature = (Select Min("Temperature") from yourtable) UNION SELECT "EpochDate", 'min' as ind FROM youtable WHERE temperature = (Select Max("Temperature") from yourtable); (or whatever the equivalent SQL ...

BTW, A4 is one of the most annoying sounds in the universe.
Try C3 523.25Hz

Try: play -V3 -n synth 0.1 sine 880 vol 0.4 vol 5 means 5 times the normal volume which clips to a DC voltage. I tried this one and I got the following show up in the console of the Gambas enveroment. play WARN alsa: can't encode 0-bit Unknown or not applicable play: SoX v14.4.2 play INFO nulfile: ...

Public Sub Form_Open() Dim L1 As New Label(Me) Dim L2 As New Label(Me) L1.X = 1 L1.Y = 1 L2.X = 1 L2.Y = 1 L1.AutoResize = True L2.AutoResize = True L1.Text = "Xxxxx" L2.Text = "O" Me.W = L1.Width Me.H = L1.H End That is the entire code for the project, just an empty form with t...