Monthly Archives: November 2012

Gambas 3 <> Gambas 2

Posted on by

Gambas2-Gambas3 incompatibiliteit
Gambas2 code is niet volledig compatibel met Gambas3 code, je kan die niet zomaar draaien. In de ontwikkeling van Gambas2 werd al aangegeven welke dingen zouden gaan verdwijnen (bv. “backcolor”).

Omzetten Gambas2-Gambas3
Bij het openen/importeren van een Gambas2 programma in Gambas3 zorgt de IDE voor het converteren van het Gambas2 naar een Gambas3 programma. Dat verloopt “redelijk” goed.

Behalve…
Volgende problemen heb ik gehad
normaal hebben ze te maken met het verschil tussen de twee versies, tenzij er toevallig echte bugs tussen zitten; zowel van de code als van de gambas-versie.

Voorbeelden:

backcolor, forecolor
De eigenschap van “BackColor” bestaat niet in Gambas3; te vervangen door “Background”.
Gridview_Cell.BackColor -> Gridview_Cell..Background
Gridview_Cell.ForeColor -> Gridview_Cell.Foreground
Hetzelfde voor ForeColor -> ForeGround

HSplit instellingen
Het bewaren en terug ophalen van waarde van een HSplit container.
(foutmelding op string: “Type mismatch: wanted Integer[], got String instead” bij ophalen Setting)
HSplit1.Settings = Settings[“Screen/Spitter”, “150,600,300,160”]
(dit effect verdween nadat de settings file gekopieerd werd naar deze computer – de fout zit dus in de alternatieve waarde-string; mogelijk bug van dit programma.)
Gevonden in een artikel op de mailinglist:
– bewaar:
Settings["Screen/HSplit1.Layout"] = HSplit1.Layout
– ophalen:
HSplit_Main.Layout = Settings["Screen/HSplit1.Layout"] = HSplit1.Layout
Dit werkte, en in de config file wordt het
Splitter.Layout=[0, 160, 780, 470, 470]
in plaats van:
Splitter="0, 160, 780, 470, 470"

Database connection open?
empty result set retrieving data from mysql/mariadb… “connection is not opened”
Opgelost met het toevoegen van een “TRY $hCon.Open”
(niet onderzocht waar het verschil tussen 2 en 3 hier zit).

Text cursor positie
Hier niet helemaal zeker van wat 2 betreft, maar ik ondervond dat ik de cursor zelf bovenaan moet zetten in 3.
TextArea1.Pos = 0

Gambas 2 op openSUSE 11.4

Posted on by

Door omstandigheden moet ik Gambas2 op een nieuwe openSUSE 11.4 installeren, op het randje (over eigenlijk) van de levensduur van deze distributie. Onmiddellijk duikt ook de vraag op hoe hier gambas2 op te krijgen, als de repositories niet meer beschikbaar zouden zijn.

http://software.opensuse.org/package/gambas2

levert twee mogelijkheden op voor openSUSE 11.4:

KDE:KDE3
2.24.0
32 Bit
64 Bit
Source
1 Click Install

home:swyear
2.20.2
Source
1 Click Install

Geluk?

(upd 2015-05) Versie 2.20
Ook nu een “nieuwe” opensuse 11.4 install waarvoor ik Gambas nodig heb. Ik plak de swyear URL in Yast Softwarebronnnen:
repositories/home:/swyear/openSUSE_11.4
Gambas2 kan daarna gestart worden in KDE, maar kreeg geen menu-item/icoon (zelfs niets in recent geïnstalleerd menu).
Bovendien

  • is dit (v. 2.20) niet de meest recente versie die bestaat van Gambas2 (v. 2.24)
  • zitten de voorbeelden er niet bij.

Een menu-item kan je zelf maken, het icoon vind je hier op https://build.opensuse.org/package/show/Education/gambas2
– (end upd 2015-05)

2.24
Ik kies de meest recente (bovenste), hoewel daar enkel gesproken wordt over de runtime.

Er wordt kort iets geïnstalleerd, maar in het menu komt Gambas niet voor nadien.

In Yast, Software Management, zoek “gambas”, krijg je wel een uitgebreide keuze aan gambas op het menu: het zijn alle aparte onderdelen; de Gambas2 Runtime Environment blijkt al aanwezig te zijn. Ik selecteer nu de “Gambas IDE” : (dan komt de rest van de componenten mee)

gambas2-ide – The Gambas Development Enviroment.

Nadien is Gambas 2.24 geïnstalleerd, en ook vanuit het menu bereikbaar (niet zo fraai benoemd*):

Menu Recently Installed/Gambas2

Menu Development (nieuw bijgekomen) / “Integrated Envir. (Basic Development Environment) *
Je kan die bescrhijving veranderen met de menu editor: Menu, “programma’s bewerken”, Development openklikken en daar blijkt dat de oorzaak KDE is: Als er maar 1 item voorkomt in het menu krijgt het menu geen submenu’s om dat item te starten, maar telt het menu zelf, hier “Integrated Environment”. Dat werkt goed als je een menu hebt dat “Spreadsheet” heet, en dan bevolkt wordt door 1 of meer spreadsheet programma’s, maar hier is het onduidelijk. Maak eventueel een nieuw submenu op hoofdniveau aan (bv “Snel” met icoon van hartje of rode bol of iets zeer herkenbaars) en zet het daarin (kopieer of sleep).

Upd: Of pech?
Later lukte het niet meer op deze manier, maar eind oktober 2014 installeerde ik zo:
– Yast, Softwarebronnen, toevoegen (URL opgeven).
– plak daar:
http://download.opensuse.org/repositories/KDE:/KDE3/openSUSE_11.4/
Bevestigen en in het softwarbeheer gaan kijken.
Zoek, “gambas2”; kies de gambasIDE en alles wat nodig is wordt mee geselecteerd.

Upd nov 2014
Andere situatie: nieuwe opensuse 2014 installatie met alleen de runtime: ook van http://software.opensuse.org/package/gambas2, dan onder “unsupported distributions” openen, en dan
KDE:KDE3 – 2.24.0 32 Bit
En bevestigen; er begint een download die redelijk wat extra paketten ook afhaalt.
Nadien is de gambas runtime geïnstalleerd:

gambas2 – Runtime Environment for Gambas

/usr/bin/gambas2
/usr/bin/gambas2-database-manager.gambas
/usr/bin/gambas2.gambas

3 files total

Volgende vraag: hoe gebruiken? Ik heb de runtime geïnstalleerd en ik heb een programma dat in de gambas IDE gecompileerd werd tot een .gambas bestand. Bij pogingen het programma te draaien krijg ik altijd foutmeldingen, bv

/usr/bin/env: gbr2: No such file or directory

gbr is een link naar gbx (zag ik op een systeem met de hele Gambas2 IDE); gbr en gbx bestaan niet hier. Maar zelfs als ze even geleend worden van het andere systeem werkt het hier niet mee.

Ik doe nog eens het ommetje langs de opensuse website en kies nog eens de install van de 32bit versie uit de KDE3 repository:
http://software.opensuse.org/package/gambas2
En na wachtwoord vraag begint packagekit weer iets te installeren. Een hele lijst zelfs, waarin ik zie voorbijkomen:
waarin ook gambas2, en verder: samba, gimp-help, libreoffice converter en extentions, enz… om te eindigen in “File was installed successfully”.
Maar ik zie verder niet veel verschil, behalve dat mijn harddisk nu voor 4.4 Gb vol is ipv 3.9.

Ik voeg dus nog de KDE3 repository toe, manueel, want de community optie werkt niet in mijn huidige 11.4:
http://download.opensuse.org/repositories/KDE:/KDE3/openSUSE_11.4/

Daarna is er veel meer Gambas2 in Yast/Software management.
Ik zie nu alle afzonderlijke componenten, en kies de gambas2-gb-gui alleen uit. Die vereist dan nog een paar extra componenten, zoals de “runtime”- die zal daarmee vervangen worden veronderstel ik.
Ik zit nu aan 4.5 Gb ruimtegebruik.
Ik mis nu gb.form, die in het package management eruitziet als:
gambas2-gb-form - The control component for both GTK+ and qt
(Dat moet je weten als je zypper wil gebruiken). Install.
Zelfde voor:
gb.db: zypper install gambas2-gb-db
gb.db.form: zypper install gambas2-gb-db-form
gb.settings: zypper install gambas2-gb-settings
gb.qt: (dit zijn er een paar meer):
zypper install gambas2-gb-qt

Loading repository data…
Warning: Repository ‘openSUSE-11.4-Update’ appears to outdated. Consider using a different mirror or server.
Reading installed packages…
Resolving package dependencies…

The following NEW packages are going to be installed:
gambas2-gb-qt kdelibs3-default-style qt3

The following recommended package was automatically selected:
kdelibs3-default-style

3 new packages to install.
Overall download size: 3.1 MiB. After the operation, additional 10.2 MiB will be used.
Continue? [y/n/?] (y):
Retrieving package qt3-3.3.8c-219.1.i586 (1/3), 2.8 MiB (9.1 MiB unpacked)
Retrieving: qt3-3.3.8c-219.1.i586.rpm [done (377.9 KiB/s)]
Retrieving package kdelibs3-default-style-3.5.10-232.1.i586 (2/3), 128.0 KiB (381.0 KiB unpacked)
Retrieving: kdelibs3-default-style-3.5.10-232.1.i586.rpm [done (0 B/s)]
Retrieving package gambas2-gb-qt-2.24.0-22.1.i586 (3/3), 190.0 KiB (696.0 KiB unpacked)
Retrieving: gambas2-gb-qt-2.24.0-22.1.i586.rpm [done]
Installing: qt3-3.3.8c-219.1 [done]
Installing: kdelibs3-default-style-3.5.10-232.1 [done]
Installing: gambas2-gb-qt-2.24.0-22.1 [done]

Maar daarna draait de applicatie perfect! En zonder de Gambas2-IDE.

Eens de meestgebruikte componenten geïnstalleerd zijn toekomstige programma’s minder omslachtig te installeren, tenzij ze weer een nieuwe component nodig hebben.
Dit soort afhankelijkheden wordt waarschijnlijk opgevangen als je vanuit Gambas installatie-packages maakt.

Upd 2016-01-19: toevoegen repo gaat niet in Yast, wel zo:
zypper ar http://download.opensuse.org/repositories/KDE:/KDE3/openSUSE_11.4 gambasKDE3

Door de bestanden in een map lopen (files in directory)

Posted on by

Hier een stukje code waar door een map (directory) wordt gelopen en alle bestanden uit die directory worden weergegeven.

  • De directory komt hier uit een object ($hCardGame.sLocation), maar het is een gewone string met het volledige pad in, je kan het als test vervangen door de home directory zoals in de commentaar van de code wordt gesuggereerd.
  • Set1 is de subdirectory die doorlopen wordt.
  • De selectie van de files is hier een aantal grafische bestanden: png, jpg, jpeg; die worden eerst in een array gestoken.
  • Dan wordt de array uitgelezen met een FOR EACH / NEXT lus
  • Binnen die lus gebeurt een test, hier om te kijken of de lijst met namen niet te lang wordt
  • De uitvoer gaat naar een listbox, hier lsbxLog genaamd.

Dus behalve onderstaande code heb je daarbuiten de listbox en het object met eigenschap sLocation nodig (of vervang het door een parameter in de procedure).

PUBLIC SUB listImages()
  
  DIM sDirectory AS String
  DIM aFiles AS String[]
  DIM sFileName AS String
  DIM sList AS String 
  
'  Directory = System.User.Home
  sDirectory = $hCardGame.sLocation &/ "Set1"
  lsbxLog.Add(sDirectory, 0)
  aFiles = Dir(sDirectory, "*.png")
  aFiles.Insert(Dir(sDirectory, "*.jpg"))
  aFiles.Insert(Dir(sDirectory, "*.jpeg"))
  
  sList = ""
  FOR EACH sFileName IN aFiles
    sList &= ";" & sFileName
    IF Len(sList) > 80
      lsbxLog.Add(sList, 0) ' buffer full, show current part
      sList = ""
    ENDIF 
  NEXT
  lsbxLog.Add(sList, 0) ' final part
  
END