• Internationalisation
• Database access
• Settings files management

Name: EmptyProject
Title: Empty Project

FMain: Menu met

• File: Quit
• Help: About, Changes, License

Form_Open: zet programma titel en versie.
doClose(): aangeroepen bij Menu/Quit (of scherm “Exit” button); kan afsluitende code aanroepen (wegschrijven toestand)

FAbout: About logo en tekst: naam plus versie.

FLicense: Toont License.txt
FChanges: Toont Changes.txt

Misschien nog een “test” menu-item dat alleen verschijnt als de conf file de een verwijzing bevat:

[Mode]
Developer=”TRUE”

Daaronder kunnen dat stukjes code getest worden die nog niet zijn vrijgegeven voor gebruik.

Om tabs bij te maken moet je de “teller” van de tabstrip verhogen:
“Count” staat op 1.

Zet op het gewenste aantal.

Dit kan natuurlijk ook vanuit je programma, bv:

TabStrip1.Count = 3

Daarna kan je de tabbladen aanspreken met

TabStrip1.Index = 2 ' aktief maken van tabblad 2; dwz het derde want er wordt geteld tab0 tab1 tab2.

Een tabblad kan ook verborgen worden:

TabStrip1.Current.Visible = FALSE ' verbergen van een tabblad, hier dus dat derde.
TabStrip1[0].Visible = FALSE ‘ of bepaal het tabblad met de index

TabStrip1.Hide ' verbergen van heel de tabstrip

Bij de eigenschappen rechts in het ontwerpscherm zie je nog meer mogelijkheden, als een pictogram opnemen enz.

Eerst moeten de dimensies opgegeven worden met Columns.Count.
Dan kunnen de titels ingevuld worden.
Dan kunnen lijnen bijgemaakt worden met een zelfgekozen sleutel waarmee een opvraging kan gebeuren.
Tenslotte kan
- genavigeerd worden met MoveTo,
- een waarde gewijzigd,
- of de waarde in een bij de lijn horende kolom ingevuld worden.

PUBLIC SUB btFillColView_Click()
'
cvTwoCols.Columns.Count = 2
'
cvTwoCols.Columns[0].Text = "code"
cvTwoCols.Columns[0].Width = 50
cvTwoCols.Columns[1].Text = "description"
cvTwoCols.Columns[1].Width = 100
'
cvTwoCols.Add("0", "test1")
cvTwoCols.Add("1", "test2")
'
' and now? How to add something to the second column?
cvTwoCols.MoveTo("0")
cvTwoCols.Current.Text = "Test1"
cvTwoCols.Item[1] = "TestItem"
'
END

update griddemo download/demo/GridDemo/

Maak een module met alle printonderdelen, en met bovenaan

PUBLIC bToPrint AS Boolean
‘
PRIVATE hFile AS File

schrijf een bestand

OPEN sFilename FOR WRITE CREATE AS #hFile
pushHeader(bToPrint)

dat je begint met een kop die zo gemaakt wordt:
( de < en > tekens moeten natuurlijk aansluiten zonder spaties in je code)


PUBLIC SUB pushHeader(bToPrinter AS Boolean)
'
PRINT #hFile, " < html > ”
PRINT #hFile, ” < head > < title > ” & Application.Name & ” - by ” & User.Name & ” < /title > < /head > ”
PRINT #hFile, ” < body topmargin='0' leftmargin='0' fontsize='1'"
'
IF (bToPrinter) THEN
DEBUG "To printer ..."
PRINT #hFile, " onload='window.print()'"
' only works when java is on
ENDIF
'
PRINT #hFile, " > ”
‘
END


Daarna stuur je alle gegevenslijnen, eventueel in de vorm van een tabel, en sluit je het af met een “footer”

PUBLIC SUB pushFooter()
'
PRINT #hFile, " < br > < font size='1' > ” & “FACS ” & Application.Version
PRINT #hFile, ” < i > via ” & MCommon.sReportDir & ” ”
PRINT #hFile, “by ” & User.Name & “.” & System.Host & ” at ” & CStr(Date(Now())) & ” - ” & Left$(CStr(Time(Now())), 5)
PRINT #hFile, ” < /i > ”
PRINT #hFile, ” < /font > ”
PRINT #hFile, ” < /body > ”
PRINT #hFile, ” < /html > ”
‘
END

Bestand afsluiten met CLOSE na het vullen:

…
pushTableHeadwSub(sTitle, arrColNames, sSql, arrColTotals)
pushTableLines(resCostcode, arrColTotals)
pushTableFooter()
pushFooter()
‘
CLOSE #hFile

Als de volledige bestandsnaam met het volledige pad in de variabele sFilename zit, bv:

sFilename = “/home/mijnnaam/Documents/ToPrint/test.html”

dan kan je de pagina openen in een browser:


EXEC ["konqueror", sFilename]
EXEC ["firefox", sFilename]


(dit is in de KDE omgeving uitgevoerd - Gnome heeft bv geen konqueror standaard geïnstalleerd)

• Het scherm toont een aantal knoppen om produkten te kiezen
• produkten komen uit databank
• aantal produkten ligt niet vast (dus aantal knoppen niet op voorhand bekend)
• hoeveel produkten op scherm tonen? Wijzigbaar aantal?
• - tonen per categorie; bovenaan reeks “indruk”-knoppen met produktcategoriën (naam); ingedrukt = lichter; geen ingedrukt= alle, ander indrukken = eerste uit of bijkomend?? dan is “alle” knop nodig (misschien [*])
• een knop per produkt, met produktnaam of afbeelding
• een display waar informatie over de selectie komt
• een methode om er een “aantal” selecties aan te koppelen?
• een aktie-log in de vorm van een “rolletje” vgl kassa’s?

Ik drop de testversie voorlopig hier: upload.noxqs.org/ProductSelect
(more…)

- Start Software installation (van yast)
Menu “Configuration”: Repositories.

Voeg toe met “Add”, Specify URL …

Geef een voor jezelf begrijpbare naam als “Gambas gbvalor”, en plak daaronder bij “URL”:

http://download.opensuse.org/repositories/home:/gbvalor/openSUSE_11.2/

Bevestigen. (Ik kan hier nog geen gambas vinden met de zoek functie in Yast).
Blijkbaar is gambas (nog) niet aanwezig. Als je via de browser gaat kijken zie je dat gambas2 niet in de opgegeven directory maar wel in /repositories/home:/gbvalor/openSUSE_Factory/i586
staat. Je kan een “edit” doen op de bestaande en daar
openSUSE_Factory zetten ipv openSUSE_11.2. Daarna verschijnt in de zoek wel gambas2 2.17 bij yast software install.

Ofwel:
Start Yast, kies “Package Search”, tik “gb”, klik “Search”. Hier krijg je een andere repositorie aangeboden voor gambas:

Repository URL: http://packman.iu-bremen.de/suse/11.2

Of ook: zoek “gambas” dan krijg je:

http://download.opensuse.org/repositories/Education/openSUSE_11.2
(deze laatste gambas versie 2.17)

Bij de zoek naar “gambas” krijg je een hele reeks gambas2 paketten aangeboden; selecteer ze allemaal.

Ik kreeg alleen een foutmelding op gambas2-gb-corba, wat ik uitschakelde.

Bevestig de extra paketten die yast voorstelt (zoals unixobdc enz).

Je hebt nu gambas 2.17 van oktober 2009, terwijl 3 in ontwikkeling is bestaat ook een recentere 2.18 sinds november 2009.

In het menu is Gambas nog niet te vinden waar ik het verwacht (bij Development, IDE), dus zelf toevoegen maar. Opstarten gaat met “gambas2″.

Update 9/12/2009

Wel automatische menu-integratie
In een andere installatie van openSUSE 11.2 vertrok ik van de live KDE image om te installeren. Ik deed een zoek op Gambas2 en installeerde met automatische toevoeging van de “educational” repository, ook Gambas 2.17 trouwens, net als hierboven.

Verschillen:

1) In de ongewijzigde menu-struktuur komt onder

• Applications
• - Development
• - - “Basic Development Environment” te staan, met als mouseover: “integrated Environment (Gambas2)”

2) De “corba” component geeft geen probleem, wordt gewoon mee geïnstalleerd.

Bv: het getal : 487768695 zou op het moment van bewaren het het aantal seconden voorstellen dat verstreken is sinds Foxpro’s referentietijd, een soort seconde nul in het begin van 1980.

Seconden naar minuten -> uren -> dagen: getal / (60 x 60 x 24)

Hier komen de Visual Basic Compatibility functies goed van pas. Je moet dan eerst bij Project, Properties, tab Components gb.vb aankruisen!

De component gb.vb bevat maar een paar functies, niet toevallig met datumfuncties, en meer bepaald om tijd bij te tellen of af te trekken van een datum:

DateAdd DateDiff Left Mid Right Round Str Val

DateAdd vereist de aard van wat erbij geteld wordt (dag), bij te tellen getal, begindatum:

vb.DateAdd("d", Round(db.fldTimestamp / (3600 * 24), 0), Date(1980, 1,1)

Ik probeerde het eerst met seconden maar daar moet ik iets gemist hebben, want dat gaf niet het juiste resultaat:

txlbUpdated.Text=Str$(vb.DateAdd("s", db.fldTimestamp, Date(1980, 1,1))

om weer te geven op het scherm in een programma.

http://download.opensuse.org/repositories/home:/gbvalor/openSUSE_11.1/i586/

Toevoegen in het pakketbeheer (repository) in Yast2: in 1 keer plakken werkte niet (mogelijk vanwege de : in de url) dus opdelen ongeveer zo:

• protocol http
• server download.opensuse.org
• directory repositories/home:/gbvalor/openSUSE_11.1/i586/

Bevestig de digitale sleutel van dit repository.

Zoeken naar software in Yast:

Zoek : “gambas2″

Een hele lijst met gambas2 onderdelen verschijnt. Klik rechts, select all.

Installeer; bevestig de afhankelijkheden (dependencies).

Resultaat:
Software menu, Development, gambas2 start Gambas 2.14

Update mei 2010:
* Aangezien dit de laatste openSuse versie is met de KDE 3.5 zou je voor deze versie kunnen kiezen, bv door een installatie van een net-install iso die je alsnog afhaalt van de opensuse site.
Als je na installatie in de repositories de “openSuse-Education” repository kiest, krijg je gambas versie 2.13 geïnstalleerd.

* Recenter: gbvalor
Ofwel de gbvalor repository toevoegen die ondertussen gambas versie 2.18 heeft:
http://download.opensuse.org/repositories/home:/gbvalor/openSUSE_11.1
en import de key.
Software management, zoek “gambas2″, de-installeer eventueel oudere versies; selecteer gambas2 nieuwe versie.

http://www.ohloh.net/tags/gambas