DEBUG "test"
toont “test” in het zwarte venster, maar evengoed kan je een variabele laten zien:
DEBUG sSqlStatement
of nog iets duidelijker voor jezelf:
DEBUG "SQL statement is:" & sSqlStatement

Een andere techniek is het gebruik van TRY (code) / IF ERROR (code).

Mijn fout was de combinatie van de twee:

TRY DEBUG resultOfProcedure()
IF ERROR
(code)
ELSE
(code)
ENDIF

In de IDE werk dat perfect, maar het probleem steekt de kop op als je het project compileert; de DEBUG code wordt niet meer uitgevoerd (tenzij je compileert met behoud van DEBUG code), en de applicatie crasht.

Het behouden van DEBUG code kan je aanzetten in de IDE bij het compileren naar een uitvoerbaar programma:

Menu: Project, Make, Executable (ctrl-alt-m)

Open daar onderaan > Options en kies “Keep debugging information in executable”

Door dit verschil kon ik de fout opsporen: door de TRY DEBUG combinaties te vervangen door TRY PRINT werkte de uitvoerbare versie wel na “make executable”.

English version:(Don’t TRY to DEBUG)

bv:

EXEC [ "ls", "-lF"]

Vanaf er “wildcards” in komen, als een ‘*’ om een reeks niet op voorhand gedefinieerde files aan te duiden, moet je SHELL gebruiken.

bv:

SHELL "ls /etc/*release"

Je kan in de Gambas IDE in het console venster onderaan de resultaten zien.

Je kan de uitvoer naar een variabele binnen Gambas sturen door de lijn te eindigen met

TO sVariabele

Klein voorbeeldje:

Maak een nieuw project “Command line application”

plak in MMain:

' Gambas module file

PUBLIC sParameter AS String
PUBLIC sCommand AS String
PUBLIC sAnswer AS String

PUBLIC sLine1 AS String
PUBLIC sLine2 AS String

PUBLIC SUB Main()

  sCommand = "ls /etc/*release"

  SHELL sCommand TO sAnswer

  DEBUG "Answer was: >" & Trim$(sAnswer) & "<"

  sAnswer = Trim$(sAnswer)

  sCommand = "cat " & sAnswer

  SHELL sCommand TO sAnswer

  DEBUG "Answer was: >" & Trim$(sAnswer) & "<"

  sLine1 = Left$(sAnswer, String.InStr(sAnswer, gb.NewLine))

  DEBUG "sLine1 is: " & sLine1

END

Hier kan je code uittesten die je elders in een grotere applicatie inbouwt; sParameter en sLine2 dienden daarvoor.

Open een konsole:

$ sudo add-apt-repository ppa:nemh/gambas3
$ sudo apt-get update
$ sudo apt-get install gambas3

 

sMijnVersie = Application.version

Maar als je daarnaast de versie van Gambas zelf nodig hebt?
Binnen Gambas is er geen commando om dat op te vragen.

In de IDE is die natuurlijk zichtbaar in het menu: ? , About Gambas (bv: 2.21).

Maar als je de gambas versie wil weergeven vanuit je draaiende gambas programma?

Meestal zal je dan de runtime bedoelen; die heet gbx (van gambas execute). In gambas 2 is dat gbx2, in gambas 3 vermoedelijk gbx3.

In je besturingssysteem kan je meestal de versie van een programma opvragen met
programmanaam --version
Wat ook geldt voor Gambas:

gbx2 –version
2.21.0

gba2 –version
2.21.0

gbc2 –version
2.21.0

gbi2 –version
2.21.0

gbr2 –version
ERROR: #35: Cannot open file ‘–version’: No such file or directory

Zie ook: archiver, compiler, informer.

Linux command prompt is bruikbaar vanuit Gambas:

EXEC ["gbx2", "--version"] TO sRuntimeVersie

Fout bij start FMain

This application has raised an unexpected
error and must abort.

[13] Null object.
FMain.?.0

Na enige tijd wordt duidelijk dat ik ze wel kan draaien vanuit de IDE, waar ik dus het project open en “run” kies.
Op een ander toestel waar de applicatie gecompileerd is en gestart wordt van een icoon op de desktop, treedt de bewuste fout steeds op. Het is nochtans identiek dezelfde source, met misschien een miniem verschil in versies Linux/Kde/Gambas IDE.

Als ik het fenomeen terugzie bij een andere applicatie lijkt er een verband te zijn: programma’s die ik start vanuit de gewone, standaard voorezien FMain werken wel na compilatie. De applicatie die ik laat opstarten vanuit een module “MMain” geeft de foutmelding – niet vanuit de IDE dus, maar wel als gecompileerde versie die gestart wordt met een klik op het icoon naar de “programmanaam.gambas” file.

Gambas FMain MMain

upd 22/03/2012: Ik ben niet helemaal zeker van deze analyse, ik meen toch nog een ander voorbeeld te zijn tegengekomen waar de Show() correct was. Misschien is het een “combinatie van problemen” ?

Update:
Een interessant verschil blijkt te zitten in het behouden van de debug informatie bij het compileren. Als dat “aan” staat crasht de applicatie niet als je ze start vanop de link op de desktop!
“Make executable”, “options”, “Keep debugging information in executable”.
(Oorzaak van de fout: zie “Don’t TRY to DEBUG“)

Als je view op Repositories zet, vind je zowel Gambas 2 als 3 terug onder openSUSE BuildService – Education.

Hetzelfde voor Gambas3:
- Yast, software management, zoek “Gambas”
- Selecteer “Gambas 3 IDE”, bevestig.
- Gambas 3 is daarna opgenomen in het menu onder “Developement”, en start perfect.
- Nadien bij “Package Group: Development/Tools/IDE”, vendor “openSUSE-Education”

Bij Software, view “Pattern” is gambas3 IDE terug te vinden onder “Youth Education Desktop software”, gambas2 vind ik niet terug.

(*)
Op een eerdere openSUSE 12.1 installatie kreeg ik Gambas3 oorspronkelijk niet vlot geïnstalleerd, maar dat was misschien niet representatief…

De invoer gebeurde in txbxEditField.

Het was de bedoeling dat als de tekst daar klaar was, en de gebruiker enter of return drukt, de tekst ingevuld wordt in een cel in een tabel “tbvwDoel”. Het invullen in die tabel gebeurde met de functie valToTable() die in essentie niet meer doet dan:

tbvwDoel[iRowSelected, iColNewValue].Text = txbxEditField.Text

Ik ving bij het invoeren de Enter en de Return knop op om de invoer te aanvaarden:


PUBLIC SUB txbxEditField_KeyPress()
IF Key.Enter
valToTable()
btEditOk_Click()
ENDIF
IF Key.Return
valToTable()
btEditOk_Click()
ENDIF
END


Maar het vervelende effect was dat in de tabel de tekst die ingetikt wordt zichbaar is maar telkens met 1 letter vertraging, met 1 letter minder dan wat ingegeven is. Dat is bijzonder irrittant voor de gebruiker, die eigenlijk kijkt naar de plaats in de tabel in plaats van naar het invulveld.

Het is een kleine “logische” fout:


PUBLIC SUB txbxEditField_KeyPress()
IF Key.Code = Key.Enter
valToTable()
btEditOk_Click()
ENDIF
IF Key.Code = Key.Return
valToTable()
btEditOk_Click()
ENDIF
END


Nu gebeurt wat de bedoeling is. Het andere, verkeerde effect is leuk om te onthouden …

Vooraf: Installeer openSUSE 12.1, bv van een CD/DVD waarvan je de inhoud kan afhalen van http://software.opensuse.org/121/en ( Algemeen: http://www.opensuse.org/ )

Gambas 3
Daarna zoek je Gambas voor openSUSE:
http://en.opensuse.org/Gambas; in de rechtse kolom heb je “Download for openSUSE:” en de links naar 12.1, 11.4 en 11.3 (op moment van dit schrijven).

Je komt op een soort Package Search, waar je kan kiezen uit Gambas 2 en 3 voor verschillende versies van openSUSE.

• Versie 3 is net uit: “3.0.0.3″

Bovenaan de lijst met software staat meestal het algemene pakket – de interpreter- (zoek programmeeromgeving of “IDE”, met alles erbij of installeer dat later), eronder de afzonderlijke modules, om enkel te installeren wat je nodig hebt.

Rechts staat de “repository” waar het uitkomt; bv “Education/oepnSUSE_12.1″.

Net daaronder een “1 Click install” link.

Net daaronder krijg je een gedetailleerde tabel met (link naar) i586-, src- (source) en x86_64- (64 bit) versies.

Een klik op “1 Click install” link en Firefox biedt aan om gambas3.ymp te openen met “Yast 1-Click Install”. (ok)

Er worden automatisch een paar repositories (perl, python, Education, non-oss..) toegevoegd. (bevestig: next).

Select the software components you wish to install: [v] gambas3
Alles staat klaar, dus bevestig (next) en bevestig nog eens het overzicht.

Geef het root wacthwoord om te mogen installeren. Ik bevestigde de key van Perl en van python (trust).

Sluit af na:

Software installation
Installation was successful. (Finish)

Gambas IDE

Meestal staat na installatie Gambas bij in je menu; ik merk hier in het “traditionele” KDE-menu dat er geen rubriek (programmeren of Educational of zo) is bijgekomen. Evenmin zie ik het verwachte “laatst geïnstalleerd” menu-item. Nee, opnieuw inloggen voegt het niet toe.
De gambas die ik gekozen had was dus de basis Gambas Basic interpreter, niet de volledige IDE (= Integrated Development Environment; programmeeromgeving).

Gelukkig zijn nu wel de juiste repositories aanwezig en is het maar kwestie van de IDE te gaan kiezen in het softwarebeheer:
- Menu, Yast, install/remove software.
- Zoek “gambas”.
- Kies uit de lijst de IDE (automatisch worden een aantal andere mee geselecteerd), en al wat je nog denkt nodig te hebben.
- Bevestig (Accept), bekijk “Automatic changes”, ga verder (continue).

Je ziet dat er nu iets meer gedownload wordt; dat duurt even en je ziet alles voorbijrollen tot het klaar is.

Nu krijg je in het menu wel een “Recently Installed” keuze, met daarin
Gambas3 (Basic Development Environment 3)
Er is ook een menu “Development” bijgekomen (als je dat nog niet had), met daarin dezelfde keuze om Gambas te starten.

Update:
Direct na installatie: Oops!! Gambas3 start niet uit het menu!
Na een hele reeks updates (op 5/3/2012) waarin ik heel wat “Gambas” bestanden zag voorbijrollen op het scherm, start Gambas 3 perfect op, en het eerste beste voorbeeldprogramma dat erbij zat kon geopende worden in de IDE en gecompileerd/gestart worden.

Gambas 2

Optie: installeer daarnaast tevens Gambas2, ook via Yast, Software Management.

• Versie 2-2.23 is de (laatste?) stabiele versie van de 2.x tak (voor KDE3), terwijl de huidige distributies aan KDE4 toe zijn. (Bv mijn laatste installatie op openSUSE 11.3 was versie 2-2.21)

Nota: Daar haal je wel een hoop KDE3 mee binnen!
De installatie verloopt vlot (repositories zijn al voorzien, dus enkel kiezen uit de software).
Er komt een menu-item bij onder Development-Integrated Environment: Gambas2…
Gambas 2 start op met het bekende scherm, voorzien van voorbeeldprogramma’s.

Nota:
Later, op een andere installatie gebruikte ik een andere weg: Gambas 2 en Gambas 3 op OpenSUSE 12.1

Veel programmeer-plezier!

De orders worden er naartoe “gesleept” (vierkantje op schermafbeelding) en komen in de lijst als je ze loslaat boven de dag (maandag op schermafbeelding).

Als er meer orders in de listbox komen, moet hij “groeien”, dwz de hoogte van de listbox moet groter worden; en omgekeerd moet hij ook kunnen krimpen.

Bovendien: de Dag-Listbox moet meer kunnen dan een listbox, ik maak dus een afgeleide klasse bv myListbox, of zo. Beter: ik noemt die CPlanDay; het geeft de planning voor die dag weer.

VBox ordent een aantal van mijn Listboxes (objecten van CPlanDay) vertikaal tot een week.

Volgende vragen bleven me open toen dat gelukt was:

• Hoe maak ik een klasse die afgeleid is van een bestaande (Listbox)?
• Hoe maak ik de objecten van die klasse vanuit code; “on the run”?
• Hoe kan ik de extra mogelijkheden programmeren?
• Hoe bereik ik de bestaande mogelijkheden van de ouder-klasse Listbox?

Eerste poging:

De klasse:

' Gambas class file
INHERITS ListBox

STATIC PUBLIC lsbxMinHeight AS Integer = 40
STATIC PUBLIC lsbxMaxHeight AS Integer = 200

STATIC PUBLIC lsbxLineHeight AS Integer = 17
STATIC PUBLIC lsbxFontSize AS Integer = 9

STATIC PUBLIC iMonday AS Integer = 0
STATIC PUBLIC iTuesday AS Integer = 1
STATIC PUBLIC iWednesday AS Integer = 2
STATIC PUBLIC iThursday AS Integer = 3
STATIC PUBLIC iFriday AS Integer = 4
STATIC PUBLIC iSaturday AS Integer = 5
STATIC PUBLIC iSunday AS Integer = 6

PRIVATE iDay AS Integer = iMonday

PUBLIC SUB _new(OPTIONAL iDayNumber AS Integer)

  IF (iDayNumber)
    setDay(iDayNumber)
  ENDIF
  ME.Font.Size = lsbxFontSize
  ME.Add("I just got birth")

END

PUBLIC SUB test()

  Message.Info("hello")

END

PUBLIC SUB Drag()

  ME.Remove(ME.Index)
  ME.Height = ME.lsbxMinHeight + ME.Count * ME.lsbxLineHeight

END 

PUBLIC SUB Drop()

  ME.Add(Drag.Data)
  DEBUG ME.Height & "  " & ME.lsbxMaxHeight
  IF ME.Height < ME.lsbxMaxHeight
    ME.Height = ME.lsbxMinHeight + ME.Count * ME.lsbxLineHeight
  ENDIF 

END 

PUBLIC SUB Mousedrag()

  IF Mouse.Left THEN

    ME.Drag(ME[ME.Index].Text)

  ENDIF 

END

PUBLIC SUB setDay(iDayNumber AS Integer)

  IF iDayNumber >= 0
    IF iDayNumber <= 6
      iDay = iDayNumber
    ENDIF
  ENDIF 

END

PUBLIC SUB getDayNumber() AS Integer

  RETURN iDay

END

PUBLIC SUB getDayName() AS String

  SELECT iDay
    CASE iMonday
      RETURN "Monday"
    CASE iTuesday
      RETURN "Tuesday"
    CASE iWednesday
      RETURN "Wednesday"
    CASE iThursday
      RETURN "Thursday"
    CASE iFriday
      RETURN "Friday"
    CASE iSaturday
      RETURN "Saturday"
    CASE iSunday
      RETURN "Sunday"
  END SELECT 

END

De form waarin het gebruikt wordt:

...

 DIM lsbxItem AS ListBox
  DIM i AS Integer

  aLine2 = NEW Variant[5]

  FOR i = 0 TO 4
    aLine2[i] = NEW CPlanDay(i, VBox2)
    'aLine2[i].Test()
  NEXT
...

Dat werkt echter nog niet: de dagen worden wel getekend, maar de drag en drop werkt niet (of enkel van de dag weg).

• Drop is een eigenschap die aangezet moet worden.
• De hierarchie moet juist aangesproken worden: SUPER keyword voor de parentklasse
• STATIC moet juist gebruikt worden (zonder "ME" prefix)

Hieronder een uitbreiding:

De klasse CPlanDay:

' Gambas class file
INHERITS ListBox

STATIC PUBLIC lsbxMinHeight AS Integer = 40
STATIC PUBLIC lsbxMaxHeight AS Integer = 200

STATIC PUBLIC lsbxLineHeight AS Integer = 17
STATIC PUBLIC lsbxFontSize AS Integer = 9

STATIC PUBLIC iMonday AS Integer = 0
STATIC PUBLIC iTuesday AS Integer = 1
STATIC PUBLIC iWednesday AS Integer = 2
STATIC PUBLIC iThursday AS Integer = 3
STATIC PUBLIC iFriday AS Integer = 4
STATIC PUBLIC iSaturday AS Integer = 5
STATIC PUBLIC iSunday AS Integer = 6

PRIVATE iDay AS Integer = iMonday
PRIVATE $hObserver AS Observer
PRIVATE $hDropObserver AS Observer

PUBLIC SUB _new(OPTIONAL iDayNumber AS Integer)

  $hObserver = NEW Observer(ME) AS "Observer"
  $hDropObserver = NEW Observer(ME) AS "Dropserver"

  IF (iDayNumber)
    setDay(iDayNumber)
  ENDIF
  ME.Font.Size = lsbxFontSize
  ME.Drop = TRUE
  ME.Height = lsbxMinHeight
'  ME.Add(" - - - - " & ME.getDayName() & " - - - - - ")

END

PUBLIC SUB test()

  Message.Info("hello")

END

PUBLIC SUB Observer_Drag()

  ME.Remove(ME.Index)
  SUPER.Height = lsbxMinHeight + SUPER.Count * lsbxLineHeight

END 

PUBLIC SUB Observer_Drop()

  SUPER.Add(Drag.Data)
  DEBUG SUPER.Height & "  " & lsbxMaxHeight
  IF SUPER.Height < lsbxMaxHeight
    SUPER.Height = lsbxMinHeight + (ME.Count * lsbxLineHeight)
  ENDIF 

END 

PUBLIC SUB Observer_Mousedrag()

    ME.Drag(ME[ME.Index].Text)
    ME.Remove(ME.Index)

END

PUBLIC SUB setDay(iDayNumber AS Integer)

  IF iDayNumber >= 0
    IF iDayNumber <= 6
      iDay = iDayNumber
    ENDIF
  ENDIF 

END

PUBLIC SUB getDayNumber() AS Integer

  RETURN iDay

END

PUBLIC SUB getDayName() AS String

  SELECT iDay
    CASE iMonday
      RETURN ("Monday")
    CASE iTuesday
      RETURN ("Tuesday")
    CASE iWednesday
      RETURN ("Wednesday")
    CASE iThursday
      RETURN ("Thursday")
    CASE iFriday
      RETURN ("Friday")
    CASE iSaturday
      RETURN ("Saturday")
    CASE iSunday
      RETURN ("Sunday")
  END SELECT 

END

De implementatie in gebruik:

...
PUBLIC SUB Form_Open()

  DIM lsbxItem AS ListBox
  DIM i AS Integer
  DIM iWorkingDays AS Integer = 5

  aLine2 = NEW Variant[iWorkingDays]

  FOR i = 0 TO (iWorkingDays - 1)

    aLine2[i] = NEW CPlanDay(i, VBox2)

  NEXT 

...

• Gambas 3 (2.99.5) 2.99.6 na een online update op 6/1/2012
• Gambas 2 (2.23.1)
• Gambas 1 (1.0.19)

Je kan zowel kiezen voor de individuele paketten als voor de hele programmeeromgeving als voor de runtime.

Bij installatie van de programmeeromgeving krijg ik nadien een foutmelding in verband met KDE.

Bij het opstarten blijken de “Examples” niet mee geïnstalleerd te zijn.

Ook de “Help Files” zijn niet automatisch geïnstalleerd, maar kunnen eenvoudig na-geïnstalleerd worden: klik op optie-box en “Apply”! Voor Gambas2 is dat gelukt, gambas 3 blijven de voorbeelden leeg maar ik weet niet of dat aan de pre-release versie ligt (2.9 ipv 3.0)