Het juiste venster/de goede handler

[Gesp]

Omdat ik van plan ben libertyBasic aan te schaffen, ben ik aan het proefdraaien met de trial-versie. Ik ben redelijk goed thuis in het ouderwetse MS-BASIC, dus ik verwacht straks geen problemen met "moeilijke" zaken als meervoudige arrays, random-files, etc.
Tot mijn schrik loop ik echter nu al vast, bij het "makkelijke" allereerste begin, het openings-scherm.

In onderstaand programmaatje wil ik de tekst "Nautafin" in een veel groter en vet lettertype printen, en bovendien gecentreerd. Zoeken in handleidingen en op dit forum hebben me allerlei "oplossingen" laten zien, maar mij lukt het niet. Er gaat steeds iets niet goed. Ik kan kennelijk niet de diverse soorten windows combineren met de juiste bijbehorende handles?
Zou iemand dat Nautafin-regeltje voor me willen verbeteren? Van dat voorbeeld leer ik dan wel weer het nodige!

Bij voorbaat dank,
Gesp


[Start]
nomainwin
UpperLeftX = int((DisplayWidth- 376)/2) 'Horizontale midden
UpperLeftY = int((DisplayHeight- 200)/2) 'Verticale midden
BackgroundColor$ = "blue"
ForegroundColor$ = "white"
TextboxColor$ = "white"
WindowWidth = 376
WindowHeight = 200

statictext #venster.statictext0, "Nautafin", 22, 5, 48, 20 'Dit is een foute handle (denk ik), maar anders kan ik die tekst helemaal niet laten zien.
statictext #venster.statictext1, "Naam:", 22, 46, 40, 20
statictext #venster.statictext2, "Wachtwoord:", 22, 76, 64, 20
textbox #venster.textbox1, 102, 36, 248, 25
textbox #venster.textbox2, 102, 66, 248, 25
button #venster.button, "OK", [knop], UL, 294, 130, 58, 25

open "Nautafin" for window as #venster

'Wachten op aanklikken knop
wait

[knop]
close #venster

[glpape]

[Gesp]

Hi George,

In de eerste plaats: dank voor je reactie. Ik zou nooit op het idee gekomen zijn "achteraf" (dus na het OPEN-statement) nog iets aan te vullen op wat vóór dat statement staat!
Naar aanleiding daarvan een vraag: op de BL-site wordt een aantal boeken genoemd die als basis voor het programmeren kunnen dienen. Kun jij één van die boeken aanbevelen? Ik zoek een "ouderwets degelijk" leerboek.

Groetjes,
Gesp

[Gordon]

Hi Gesp,

Je zou misschien ook de statictext ruimte alleen kunnen reserveren.
statictext #venster.statictext0, "", 22, 5, 68, 20

Nadat het venster geopend is kun je de tekst nog invoeren:
#venster.statictext0 "Nautafin"

Let op: Gewoon alleen de handler oproepen. Ook de komma weglaten.

Trouwens het tekstvlak kun je achteraf nog verplaatsen met het locate commando.
De kleur van de tekst, grootte enz, kun je allemaal achteraf nog wijzigen.
Windows is veelzijdig en LB gebruikt alle interne code (API) van Windows.

Gordon

[glpape]

Gesp hallo,

Boeken:

Zelf heb ik ooit "Beginning Programming for Dummies" doorgewerkt. Erg langdradig, maar het was in elk geval een begin: als je eenmaal een begin hebt wordt het veel makkelijker om verder te leren. Ik had een oude editie gekocht via Internet, die zijn helemaal op Liberty gebaseerd; vanaf de 4de druk is dat niet meer zo.

Beste is vermoed ik "Beginning Programming with Liberty Basic" van Carl Gundel himself, maar zelf ken ik het boek niet.
http://libertybasic.conforums.com/index ... 1260074077 .

Heel mooi, nogal uitgebreid, is Alyce Watson's "Liberty Basic 4 Companion Guide". Volgens mij: moet je kopen. Alyce noemt haar website een restaurant, dus
google naar alycesrestaurant.com. Het is een e-book.

En dan nog, geen boek, maar nu nog dit : bel of e-mail Gordon Rahman. Hij is binnen de BASIC groep van de Hobby Computer Club de man voor Liberty Basic. Als je in de buurt woont: een keer elke maand komt Gordon, zwaar beladen met zijn beamer en een grote tas vol documentatie naar Amstelveen en demonstreert daar Liberty Basic code. Leerzaam, maar er gaat ook veel stimulans van uit als je meedoet in een groep. Het niveau is gemiddeld, met jouw Nautafin venster kun je het makkelijk bijhouden.
Ooit had Gordon ook Liberty Basic licenties met korting, weet niet of dat nog zo is.

Je Nautafin venster oogt mooi, maar : heb je al text ingetypt in de textbox ?

Vr groet,

George Pape.

[Gesp]

Hallo George,

Ja ik heb wel al geprobeerd tekst in te typen en daar wat zinnigs mee te doen, maar dat gaat helemaal mis. Ik heb duidelijk nog geen flauwe notie van de juiste syntax binnen de window-structuur. Ik ga dus op zoek naar een boek.
Dat "restaurant" van Alice heb ik al overwogen, maar het stuit me een beetje tegen de borst om allerlei gegevens (naam, adres, telefoonnummer) te moeten verstrekken voor een eenvoudige online-aankoop waar ze geen enkel risico op niet-betalen mee lopen. Ik ben een beetje dwarsig in die dingen , maar misschien zal ik wel moeten.
Ik denk dat ik ook nog even op Marktplaats naar die Dummy ga zoeken, en de lessen van Gordon zijn ook zeker het overwegen waard.

Ik moet alles nog maar eens goed op een rijtje zetten!

Groeten,
Gesp

[Gesp]

Onderstaand mijn "topprestatie" tot op dit moment.
T.z.t. moet een gebruiker natuurlijk de eerste keer zijn wachtwoord zelf kiezen, maar eerst moet ik de syntax etc. van de windows onder de knie zien te krijgen voor ik verder kan

nomainwin
UpperLeftX = int((DisplayWidth- 376)/2)
UpperLeftY = int((DisplayHeight- 260)/2)
BackgroundColor$ = "blue"
ForegroundColor$ = "black"
TextboxColor$ = "white"
WindowWidth = 376
WindowHeight = 260

statictext #venster.statictext0, "Nautafin", 125, 5, 130, 40
statictext #venster.statictext00, "versie 6.01", 165, 48, 60, 20
statictext #venster.statictext1, "Naam:", 22, 86, 40, 20
statictext #venster.statictext2, "Wachtwoord:", 22, 116, 64, 20
textbox #venster.textbox1, 102, 76, 248, 25
textbox #venster.textbox2, 102, 106, 248, 25
button #venster.button, "OK", [knop], UL, 290, 170, 58, 25

open "Nautafin" for window as #venster
#venster "trapclose [knop]" ' trapclose

#venster.statictext0 "!font edwardian_script_ITC 30 bold" ' font
wait

[knop]
print #venster.textbox1, "!contents? naam$"
print #venster.textbox2, "!contents? ww$"

[controle]
if naam$ = "Pietje" and ww$= "Puk" then [notice]
notice "Dit is een foute ingave. Verbeter s.v.p."
print #venster.textbox1, ""
print #venster.textbox2, ""
wait
goto [knop]


[einde]
close #venster
End

[notice]
notice "OK. Ga verder."
goto [einde]

[glpape]

[Gordon]

[Gordon]

[Gesp]

Hallo Gordon,

Dank voor je uitvoerige reactie.
Ik heb net een nieuwe computer "gekregen" (gebouwd door een deskundig vriendje), maar het inrichten daarvan blijkt meer tijd te kosten dan voorzien. LibertyBasic is dus tijdelijk even naar de achtergrond verdwenen, ook al omdat delen van de broncode van m'n oude MS-Basic programma niet meer toegankelijk blijken. En dáár was het nou net allemaal om begonnen: dat programma vertalen naar LibertyBasic.

Ik zal dus voorlopig een tijdje wegblijven van dit forum