Experiment met listboxen voor log en foutberichten op scherm en Ik kan de logberichten daarin zetten met lsbx.Add(s, 0) .

Maar ik wil het op een minder storende manier:

• Ik heb op mijn Form een aparte listbox voor fouten lsbxErr en één voor gewone logberichten lsbxLog
• Die zitten samen in een dichtklapbaar parent (Expander), zodat ze niet in de weg staan als ze niet relevant zijn.
• Als het maximaal aantal lijnen in de listbox (iSize) is overschreden, wordt de oudste lijn verwijderd (onderste)

Zet de instellingen van de form objecten:

• Form Arrangement: vertical
• Form content Expand: True
• Expander.Arrangement: Horizontal
• Expander Expand: True
• Iedere listbox Expand: True

We willen het verloop van de berichten zo:

• Een logbericht komt bovenaan bij in lsbxLog, en verandert niets aan de zichtbaarheid (als Expander open of gesloten stond blijft dat zo)
• Een errormessage komt bovenaan in de lsbxError, en opent de parent Expander.
• Het laatste bericht komt als Tooltip te staan van de eigen Listbox én als text van de parent expander; bij gesloten expander is zo het laatste bericht leesbaar.

Om hetzelfde te kunnen doen op al onze forms zetten we de code in MMain:

Public Const csHide As String = "h"
Public Const csShow As String = "s"
Public Const csUnchanged As String = "u"
Public iMaxLsbxLen As Integer = 100

Public Sub addToListbox(lsbx As ListBox, s As String, iSize As Integer, sHideShowUnchanged As String, bCompress As Boolean)
  
  Dim myExpanderParent As Expander

  lsbx.Tooltip = s
  If lsbx.Tag = "" Then
    lsbx.Tag = 0
  Endif
  ' add to list if needed
  If bCompress And lsbx.Count > 0 Then
    ' show repeated item with added string and keep in mind when comparing again..
    If (lsbx[0].Text = s) Or (lsbx[0].Text = s & " (++)") Then
      If lsbx[0].Text = s
        lsbx[0].Text &= " (++)" ' show it is repeated several times
      Endif 
      lsbx.Tag = lsbx.Tag + 1 ' last consecutive count
    Else 
      lsbx.Add(s, 0)
      lsbx.Tag = 1
    Endif
    lsbx.Tooltip &= " (R:" & lsbx.Tag & ")" 
  Else 
    lsbx.Add(s, 0)
  Endif
  ' add size
  lsbx.Tooltip &= "; Size:" & lsbx.Count
  ' adjust parent to make message visible even with closed expander
  myExpanderParent = lsbx.Parent
  Try myExpanderParent.Text = s
  Try myExpanderParent.Tooltip = lsbx.Name
  If Error Then
    Message.Error(Error.Text)
  Endif 
  ' keep within limits
  If lsbx.Count > IIf(isize, iSize, iMaxLsbxLen) Then
    Try lsbx.Remove(IIf(isize, iSize, iMaxLsbxLen))
    If Error Then
      Print "Could not trim " & lsbx.Name & ": " & Error.Text
    Endif
  Endif
  ' does this trigger the parent to expand to make change visible?
  Select sHideShowUnchanged
    Case "h"
      Try myExpanderParent.Hidden = True ' assume parent is Expander 
    Case "s"
      Try myExpanderParent.Hidden = False ' assume parent is Expander 
    Case Else '  incl empty
      ' leave unchanged
  End Select
  If Error Then
    Message.Error(Error.Text)
  Endif
End

Uitbreidingen of aanpassen bv:

• bewaar log/err in bestand.

Algemene uitleg over gambas, momenteel in versie 3.x:

Gambas3 IDE

Dat is de programmeeromgeving om Gambas programma’s te maken. Als je zelf programma’s wil maken moet je opletten dat je de gambas “IDE” mee installeert!

Project

Een nieuw project maakt een directory aan met daarin alles wat met het project te maken heeft:

• instellingen
• code
• scherm-ontwerpen (indien desktop-project)
• teksten als README, help, licentie..
• icoon voor project (voor eventuele link desktop)
• beeldmateriaal voor iconen op knoppen of start/about scherm
• …

Er zijn veel voorbeeldprogramma’s beschikbaar die je kan openen in de IDE om te kijken hoe Gambas werkt, als broncode-archief of via git.

Broncode-archief

De Gambas IDE maakt het gemakkelijk om de broncode van je project klaar te zetten voor transport: met een export functie maak je een standaard Linux .tag.gz bestand.

Als je zo’n .tar.gz bestand krijgt of download, kan je het uitpakken met tar -xzvf naam.tar.gz, en dan maakt dat de projectdirectory, zodat je het project kan openen in de IDE.

CLI

Je kan niet alleen een desktop programma maken, maar ook CLI-programma, zonder een desktop scherm. CLI-programma’s zijn zoals (shell-) scripts, je start ze op de commandolijn, of je kan ze laten lopen uit een timer (cronjobs, ..).

Programma draaien (“run”)

Als je het programma draait vanuit de programmeeromgeving kan je het stap voor stap laten lopen tot gemarkeerde punten in je code, om te onderzoeken wat er juist gebeurt met variabelen enz.

Executable

Als je het programma uitvoerbaar wil maken, als afgewerkt programma dat zelfstandig(*) kan draaien, als “executable”, dan compileer je het tot een .gambas, en je kan automatisch een link (met icoon) laten maken op je desktop als je die optie aanvinkt. Daarop klikken start dan het programma, zonder de programmeeromgeving mee te starten. Dat is dus de versie die de “gebruikers” zullen krijgen. Ze hoeven niet het hele project met de broncode en de hele programmeeromgeving te hebben.

Runtime

• Het minimum wat nodig is op een computer om de .gambas programma’s uit te voeren is de gambas “runtime”. Die moet je op de doelcomputer dus wel installeren: sudo apt install gambas3-runtime.

sudo apt install gambas3-runtime

Gambas3 gestart, en daarin een project open en laten lopen;
In Taakbeheer zie je:

…
gbx3
…
gbr3
…

Een project gecompileerd en gestart bv met link op de desktop;
In Taakbeheer zie je:

…
gbr3
…

Schema

Dit overzicht/schema (over gambas2) is nog grotendeels geldig:

Links

Terugblik naar Gambas3 in 2019
http://gambas.copyleft.be/blog/archives/2144

Library of Component in Gambas3
http://gambas.copyleft.be/blog/archives/1861

Gambas3 app uitpakken en compileren
http://gambas.copyleft.be/blog/archives/1842

Vergelijking tussen de progammeertaal en IDE gambas / freepascal-lazarus

Deze foutmelding bij een databaseverbinding komt veel voor en betekent weinig.

• driver name: op het eerste zicht zou de optie van het type ontbreken hConnection.Type=”mysql” bv. Maar dat is het niet altijd.
• dikwijls is het wel één van de andere gegevens van de connectie die niet kloppen (user, password, name =database name, niet user, ..) dus je kan die tonen om te debuggen
• bron van de parameters: soms is er iets mis met waar die parameters vandaan komen, bv uit een config file: keyname/parameter juist, kleinen/hoofdletters, wachtwoord (dikwijls moeilijk leesbaar) …,
• via een schakelmechanisme als DataContext; ook daar: naam van de context, dataset, klein/hoofdletters…