Use case:

1. Text entry in TextBox field
2. Validation of entry
3. Creation of object from entry
4. Creation of item list that represents object

The objects themselves are stored in an array of objects: hArrObjcets AS NEW Object[]
The presentation happens with the name as string sName in a listbox lsbxObjects

Text entry

• Jump to text box if appropiate; sequence of use in application; content has to be cleared or maintained to make a variation?
• Text box must be writable (readonly=FALSE) and look like (writable) “entry” field; i.e. same format allover the application (e.g. “lightbackground”, or white if other layout colored)
• Pre-fill when usefull, at least give example in tooltip.
• Make TAB jump to next relevant field, button or other screen object.

Validation

• Event: _KeyPress makes you check for the enter key: Key.Code = Key.Enter OR Key.Code = Key.Return
• If so, start the validation procedure
• If successfull, check duplicate entry (if applies): IF lsbxObjects.Find(sName) = -1
• If ok, start procedure to add an object

Object creation

• DIM newObject AS NEW ClassObect
• newObject.propertyN = …; newObjectSet(…)
• hArrObjects.Add(newObject, …)

Nadien kon in Gambas niet meer gebruiken; foutmeldingen zoals hieronder:

(more…)

DEBUG Now()

Toekennen aan een variabele:

PRIVATE dStartuptime AS Date
dStartuptime = Now()
DEBUG Format$(dStartuptime, “hh:nn:ss”)

De debug regelt toont de variabele weergegeven in opgegeven patroon, waarbij “n” staat voor minuten (omdat de m al staat voor maand in het dagpatroon: yy-mm-dd).

Rekenen met tijd of opgeslagen tijd gaat niet zo:
DEBUG Now() - dStartuptime
Dat geeft immers ofwel direct 0, ofwel na acht seconden 9.055575355887E-5 en waarschijnlijk wil je een leesbaar getal, als een aantal minuten.

Hiervoor gebruik je de functie DateDiff met parameters oude tijd, nieuwe tijd, gecombineerd met uitvoerpatroon:

DEBUG DateDiff(dStartuptime, Now(), gb.Minute)
DEBUG DateDiff(dStartuptime, Now(), gb.Minute)
DEBUG DateDiff(dStartuptime, Now(), gb.Minute)

Bij start is het resultaat:

0
0
0

Na 8 seconden is het resultaat:

8
0
0

En na 121 seconden is het:

121
2
0

Dus je hoeft niet zelf (het aantal minuten x 60 ) plus de seconden te doen; de seconden tellen door en kunnen gebruikt worden, of als je slechts de nauwkeurigheid van minuten nodig hebt kan je rechtstreeks met minuten werken.
Na meer dan een hele dag wordt het, uitgedrukt in gb.Minute, gb.Hour, gb.Day:

1547
25
2

De eerste twee, minuten in uren:
Van minuten naar uren: 1547/60 is 25.7833.. dus de uren worden “afgekapt”
Maar de laatste in “dagen” telt een begonnen dag als een dag: hoewel het maar goed 25 uren zijn wordt 2 dagen aangegeven!

Een aantal op het scherm gezet en gevuld met een eenvouidig text veld:

Ziet er zo uit als programma draait:

Volledige beelden onder elkaar: (more…)

PUBLIC SUB Form_Open()

  initTableView()

END

Je moet dan een procedure daarvoor maken:

PUBLIC SUB initTableView()

Daarin moet je zeker bepalen wat de grootte van de tabel is, m.a.w. hoeveel cellen horizontaal en hoeveel vertikaal. Daarvoor “zet” je de eigenschap van de kolom en rij-teller door er een waarde of de waarde van een bestaande variabele aan toe te kennen:

  tbvwFill.Columns.Count = 3
  tbvwFill.Rows.Count = iDefinedRows

Je kan het aantal natuurlijk laten bepalen door een globale variabele die je elders reeds gevuld had:

  tbvwFill.Rows.Count = FMain.$hMonth.GrdTotRows()

• FMain: het hoofdscherm van waaruit het huidig scherm (Form1) wordt opgeroepen
• $hMonth is een object dat een maand voorstelt, daar een aantal eigenschappen over heeft, en gedefinieerd werd in FMain.
• GrTotRows is een eigenschap van object $hMonth, de waarde is al toegekend in FMain; of hier is het eigenlijk een functie van het object $hMonth die deze waarde berekent op basis van andere eigenschappen en teruggeeft als waarde.

Op deze manier kan het aantal rijen van tabellen in verschillende forms gestuurd worden uit 1 variabele.

Een waarde toekennen aan de twee cellen of velden van de bovenste rij in de tabel:

  tbvwFill[0, 0].Text = "ID"
  tbvwFill[0, 1].Text = "Naam"
  iRowStartEmployees = 1

Procedure natuurlijk altijd afsluiten met

END

Het vullen van de tabel kan o.a. met een FOR EACH loop, bv met waarden uit een resultset - hier $hResEmployees - die op voorhand gevuld werd met waarden uit een databank.

  FOR EACH $hResEmployees
    tbvwFill[$hResEmployees.Index + iRowStartEmployees, 0].Text = $hResEmployees!emp_id
    tbvwFill[$hResEmployees.Index + iRowStartEmployees, 1].Text = $hResEmployees!emp_name
  NEXT

De eerste twee kolommen (kolom 0 en kolom 1) worden gevuld met een de velden id en name uit de database.
De eerste rij wordt hier niet gebruikt (rij 0) omdat daar de titel in staat.

Dan moet ervoor gezorgd worden dat als je op de tabel klikt, je de waarde van de cel kan wijzigen:

PUBLIC SUB tbvwFill_Click()

  tbvwFill.Edit()

END

En tenslotte moet je ervoor zorgen dat die ingevulde waarde ook behouden blijft in de cel:
Daarvoor moet je de methode _Save van de tabel zelf aanvullen met code:

PUBLIC SUB tbvwFill_Save(x AS Integer, y AS Integer, sText AS String)

  tbvwFill[x, y].Text = sText

END

Je kan hier natuurlijk binnen deze code controles op uitvoeren enz.

- NB: - - (more…)

Start eender welke computer met de DVD, download je broncode, werk er verder aan, upload het resultaat. Al is het maar om wat vertalingswerk te doen, want een databank installeren op een live distro is natuurlijk al wat omslachtiger.

Dank u, Ubuntu!

• 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)