Iniziare a programmare per entrambi i linguaggi (2a parte ) Questa è solo una buona occasione per chiarirmi le idee su ciò che sto Iniziare a program.1
facendo. La cosa migliore e sintetizzare qui il codice per realizzare una Iniziare a program.3
vera applicazione.
Se scrivete su la vostra unità CE (palmare in questo caso) le poche linee
di codice che trovate alla fine della 1a parte, da eseguire con NSbasic,
dovreste vedere sullo schermo una immagine come questa:
Gli oggetti ancora mancanti richiedono per essere creati
alcune linee aggiuntive di codice diverso dalle precedenti.
NSbasic supporta li objects' array potete ottenere così di usare le stesse
funzioni che oggetti simili offrono usando Visual Basic.
Potete scegliere due modi per creare il codice necessario. Cercare sul
manuale NSbasic che presenta un esempio relativo a Option Buttons o
potete usare NSassist che scriverà il codice richiesto per voi.
Se nessuno dei due modi vi soddisfa potete vedere qui il codice richiesto:
Dim Vc,Oc
Vc=20:Oc=0
Dim I,Alabel(4)
For I = 0 to UBOUND(Alabel)
ADDOBJECT "Label","Alabel" & I,0+ ( I * Oc ),84+ ( I * Vc ),50,18
EXECUTE("SET Alabel(" & I & ") = Alabel" & I)
EXECUTE("SUB Alabel"& I &"_Click" _
& vbCrLf & "Alabel_Click("& I &")" _
& vbCrLf &"END SUB")
Alabel( I ).BackColor = vbRed
Alabel( I ).FontBold = True
Alabel( I ).BorderStyle=1
Alabel( I ).Caption=""
Next
Potrete poi modificare Alabel( I ).Caption per attribuire un testo a ogni
label. Ovviiamente con lo stesso codice potrete usare oggetti diversi come
TextBox, CommandButtons, Option or CheckBox. Il solo problema usando
detto codice è che otterrete solo oggetti allineati verticalmente o in
orizzontale inoltre gli oggetti avranno tutti le stesse dimensioni.
<<< Tips Index
Questa è solo una buona occasione per chiarirmi le idee su ciò che sto Iniziare a program.1
facendo. La cosa migliore e sintetizzare qui il codice per realizzare una Iniziare a program.3
vera applicazione.
Se scrivete su la vostra unità CE (palmare in questo caso) le poche linee
di codice che trovate alla fine della 1a parte, da eseguire con NSbasic,
dovreste vedere sullo schermo una immagine come questa:
Gli oggetti ancora mancanti richiedono per essere creati
alcune linee aggiuntive di codice diverso dalle precedenti.
NSbasic supporta li objects' array potete ottenere così di usare le stesse
funzioni che oggetti simili offrono usando Visual Basic.
Potete scegliere due modi per creare il codice necessario. Cercare sul
manuale NSbasic che presenta un esempio relativo a Option Buttons o
potete usare NSassist che scriverà il codice richiesto per voi.
Se nessuno dei due modi vi soddisfa potete vedere qui il codice richiesto:
Dim Vc,Oc
Vc=20:Oc=0
Dim I,Alabel(4)
For I = 0 to UBOUND(Alabel)
ADDOBJECT "Label","Alabel" & I,0+ ( I * Oc ),84+ ( I * Vc ),50,18
EXECUTE("SET Alabel(" & I & ") = Alabel" & I)
EXECUTE("SUB Alabel"& I &"_Click" _
& vbCrLf & "Alabel_Click("& I &")" _
& vbCrLf &"END SUB")
Alabel( I ).BackColor = vbRed
Alabel( I ).FontBold = True
Alabel( I ).BorderStyle=1
Alabel( I ).Caption=""
Next
Potrete poi modificare Alabel( I ).Caption per attribuire un testo a ogni
label. Ovviiamente con lo stesso codice potrete usare oggetti diversi come
TextBox, CommandButtons, Option or CheckBox. Il solo problema usando
detto codice è che otterrete solo oggetti allineati verticalmente o in
orizzontale inoltre gli oggetti avranno tutti le stesse dimensioni.
<<< Tips Index