Hier op openSUSE 11.0 en KDE 3.5

OpenSUSE vers geïnstalleerd, met updates, en packages (zie onderaan)

Download of via installer, zypper bv.add repository met naam gambasValor:

zypper ar http://download.opensuse.org/repositories/home:/gbvalor/openSUSE_11.0/x86_64 gambasValor

Geeft:

Adding repository ‘gambasValor’ [done]
Repository ‘gambasValor’ successfully added
Enabled: Yes
Autorefresh: No
URI: http://download.opensuse.org/repositories/home:/gbvalor/openSUSE_11.0/x86_64

Foutmelding bij gebruik; url was fout, laatste stuk moet eraf – gefixt via Yast, installatiebronnen.

– Yast, Software Management, search “gambas2”, select, all in this list + autocheck, accept
– 7 extra packages selected, continue
– ok, menu: Development, Gambas

Geïnstalleerde packages lijst: Continue reading →

Nog een gambas handleiding ontdekt:
Getting Started with Gambas Version 2: A Tutorial
Het werk is van Timothy Marshal-Nichols (aan e-mail adres vermoed ik Brits)

De gevonden versie dateert van 2006, lijkt gemaakt in openoffice.org/odt formaat en bestaat als pdf.
Ik heb maar weinig vermeldingen gevonden, nergens iets over een mogelijke uitgave als boek, en slechts 2 sites met een download:

• een arabische met de pdf (1.0/193)
• een heel commercieel uitziende met een zip van een pdf. (niet geprobeerd)

Het boek vertrekt van 3 projecten: SimpleEdit, ImageShow, Notations.

Een formulier met een veld waar getallen worden ingegeven, en na elk getal (enter) wordt het totaal berekend.

Toetsindrukken als “enter” kunnen gevolgd worden in het “log” schermdeel rechts.
Als de “tab” toets ingedrukt wordt, wordt het resultaat naar het Target veld gestuurd.

Hierbij het ontwerpscherm, de code (onderaan) en het aktieve programma.

Gemaakt in Gambas 2.8

PUBLIC SUB vlbxInput_KeyPress()

  SELECT Key.Code
    CASE Key.Enter
      lsbxLog.Add("enter : " & Key.Code)
      CalcResult()
    CASE Key.Return
      lsbxLog.Add("return : " & Key.Code)
      CalcResult()
    CASE Key.Tab
      TransferResult()
    CASE ELSE
      lsbxLog.Add("other : " & Key.Code)
  END SELECT 

END

PUBLIC SUB CalcResult()

  vlbxResult.Value += vlbxInput.Value
  vlbxInput.Value = vlbxResult.Value
  vlbxInput.Select()

END

PUBLIC SUB TransferResult()

  vlbxTarget.Value = vlbxInput.Value

END

De lijn met vlbxInput.Value = vlbxResult.Value afzetten geeft het resultaat alleen in het resultaatveld.

Hoewel heel het project vertaald is en volledig in het NL draait, is een deelvenster FEdit plots helemaal in het Engels. Het verschil met de andere Forms is dat de teksten op het scherm geschreven worden vanuit code :

txtlb.text=”Titel op scherm”

Wordt deze teksttoewijzing in code niet mee aangeboden bij het vertalen?

Upd 26/6: Om teksten in code in de vertaal-lijst te krijgen moet je ze voorzien van extra haakjes:

txtlb.text=("Titel op scherm")

Project, Translate geeft deze fout:

Over welke packages gaat het hier concreet?
Een zoek naar “gnu translation tools” levert geen resultaat in Yast.

Upd:
Raadpleging op web : het gaat waarschijnlijk over de gettext tools; ik selecteer in Yast2 dus

gettext-tools - Tools for Native Language Support (NLS)

Ok! (zie ook hier)

Ik las onlangs een commentaar van Benoit Minisini waarin hij (vertaald) zegt:

Doe nooit:

sql = "INSERT INTO klant (naam) VALUES ('" & TextBox1.Text & "')"
res = mDatabase.conn.Exec(sql)

maar doe:

res = mDatabase.conn.Exec("INSERT INTO klant (naam) VALUES (&1)", TextBox1.Text)


Voorbeeld met een nieuw project, graphical application met: DB access.

Table test bevat velden:

• naam: varchar30
• opm: varchar20
• tijd: timestamp

Ik vul de datum in vanuit een Gambas programma met een string sDocDate die de datum in het formaat “2008-07-31” bevat.

Als ik het record ophaal, eventueel wijzig en terug bewaar, krijg ik echter een lege datum in de databank, waarschijnlijk als gevolg van een foute invoer.

Als ik naar het formaat kijk waarin de datum weergegeven wordt zie ik al het probleem: een andere datumindeling: “07/31/2008”, dus eerst de maand, dan de dag en dan het jaar. (op het scherm met txbxDate.Text= $hInvoice.sInvDate)

Als diezelfde string terug bewaard wordt, of vervangen wordt door een andere onjuiste datum-vorm onstaat een probleem.
Oorzaak is waarschijnlijk de localisatie (US) van het systeem waar ik nu op werk.
Dat valt te voorkomen door de datumstring die je ophaalt om te zetten in een datum en daarna terug te formatteren als datum zoals je die wil:

txbxDate.Text = Format(CDate(FMain.$hInvoice.sInvDate), "yyyy-mm-dd")

Achtergrond: Continue reading →

Het leegmaken* van de eigenschappen van een object vanuit de classe kan met verwijzing
(* ik bedoel hiermee het op 0 zetten voor getallen en het “” zetten van een string)
naar zichzelf met “ME”:

' Class voorbeeld
PUBLIC LongName AS String
PUBLIC Amount AS Float
...
PUBLIC Empty
  WITH ME
  .LongName = ""
  .Amount = 0
  END WITH
...


In de . notatie komen de PROPERTY eigenschappen voor, je zou dus kunnen denken:


' Class voorbeeld
PUBLIC LongName AS String
PUBLIC Amount AS Float
 
PROPERTY Named AS String
PROPERTY READ Numbered AS Integer
...
PUBLIC Empty
  WITH ME
  .LongName = ""
  .Amount = 0
  .Named = ""
  .Numbered = 0
  END WITH
...

Je krijgt geen foutmelding voor .Named = “”
Je krijgt wel een foutmelding voor .Numbered = 0 (“is read only”)

Blijkbaar wordt dus de “automatische” _Write methode aangesproken, die niet bestaat voor het READ-only PROPERTY (enkel leesbaar).

Je moet in de plaats daarvan de eventueel intern gebruikte variabelen op nul zetten:


' Class voorbeeld
PUBLIC LongName AS String
PUBLIC Amount AS Float
 
PROPERTY Named AS String
PROPERTY READ Numbered AS Integer
 
PRIVATE $sNamed AS String
PRIVATE $iNumbered AS Integer
...
PUBLIC Empty
  WITH ME
  .LongName = ""
  .Amount = 0
  END WITH
  $sNamed = ""
  $iNumbered = 0
END
...
PRIVATE SUB Named_Write(Value AS String)
  $sNamed = Value
END