Gambas-it.org - Wikipedia - Contributi dell'utente [it]

Definizione ed uso dei Memory Stream

2013-02-18T10:01:11Z

89.97.195.138:

La classe '''Memory-Stream''' crea flussi che utilizzano la memoria, anziché un disco o una connessione di rete. Pertanto, i "''Memory-Stream''" sono dei ''flussi di dati in memoria''.

Con Gambas-3 non è più possibile usare un puntatore (''Pointer'') in uno stream. Si deve invece utilizzare uno stream di memoria con l'istruzione ''MEMORY''.

Sintassi:
Flusso = MEMORY ''Puntatore'' FOR [ READ ] [ WRITE ]

* Se la parola chiave ''READ'' viene specificata, allora è permessa la lettura.
* Se la parola chiave ''WRITE'' viene specificata, allora è permessa la scrittura.

==Memory Stream in modalità "For Write"==
La modalità in "Scrittura" (''For Write'') risulta utile nel caso si debbano scrivere dei valori all'interno di un'area di memoria riservata, allocata. Si può quindi scrivere nella variabile ''Stream'' con l'istruzione "''Write''" o anche con l'istruzione "''Print''".

Per esempio, se si intende creare una sequenza di byte &h80, &h81, &h82, &h83, lo si può fare con i chr(); oppure si può scrivere:
'''Public''' Sub Button1_Click()

Dim p As Pointer
Dim sW As Stream
Dim bW As Byte

p = Alloc(4) ''' riserviamo 4 byte da qualche parte in memoria''

sW = Memory p For Write ''' questa memoria sarà un flusso (stream) che creeremo appositamente, e...''

' ''...nel quale andiamo a scrivere i 4 valori byte.''
' ''Ogni valore byte occuperà la dimensione di 1 byte, quindi copriranno esattamente i 4 byte allocati:''
For bW = 80 to 83
Write #sW, bW As Byte
Next

'''End'''

Secondo esempio - scriviamo nello ''Stream'' un testo, poi lo recuperiamo leggendo lo ''Stream'':
'''Public''' Sub Button1_Click()

Dim p As Pointer
Dim st As Stream
Dim s, ss As String
Dim j As Byte

p = Alloc(4)

st = Memory p For Read Write

s = "testo qualsiasi"

' ''Scriviamo la stringa nella variabile di tipo "Stream":''
Print #st, s

''''''''''''''''''''

' ''Leggiamo nella variabile di tipo "Stream":''
Seek #st, 0
Line Input #st, ss

Print "Contenuto dello stream: "; ss

' ''Liberiamo la parte di memoria precedentemente allocata:''
Free(p)

'''End'''

Terzo esempio - leggiamo con l'istruzione ''Shell'' congiunta al comando bash "''ls''" nella cartella "''/proc''", e riportiamo in una ''TextArea'' il contenuto ivi letto distinguendo ciascuna sub-cartella o file mediante ''Line Input'':
'''Public''' Sub Button1_Click()

Dim s, ss As String
Dim p As Pointer
Dim m As Stream
Dim j As Integer

Shell "ls /proc" To s

' ''Allochiamo sufficiente memoria,''
' ''e vi puntiamo con una variabile di tipo "puntatore":''
p = Alloc(2048)

' ''Creiamo la variabile "m" di tipo "Stream":''
m = Memory p For Read Write

' ''Scriviamo nella variabile "m" il contenuto della variabile stringa "s":''
Print #m, s

While Not Eof(m)
' ''Guidiamo la lettura nella variabile "m" mediante il comando "Seek":''
Seek #m, j
Line Input #m, ss

' ''Se non vi sono più dati relativi a caratteri alfanumerici, allora si esce dal ciclo:''
If ss = "" Then Exit

TextArea1.Text = TextArea1.Text & ss & Chr(10)

' ''Si dà il valore al comando "Seek per far cominciare"''
' ''la lettura dal byte corrispondente nella variabile "s" ad ogni inizio riga:''
j = j + Len(ss) + 1

Wend

'''End'''

==Memory Stream in modalità "For Read"==
In modalità "''For Read''" i Memory-Stream possono essere usati per [[Variabili_di_tipo_Puntatore_e_loro_dereferenziazione|dereferenziare i puntatori]].

Abbiamo visto nell'esempio del paragrafo precedente, relativo alla modalità in "''scrittura''" dei Memory-Stream, che quattro valori numerici sono stati memorizzati in un area riservata, pumtata dalla variabile puntatore "p".

Ora procediamo a dereferenziare quella variabile di tipo ''pointer'', e ad estrarre i valori contenuti nell'aera riservata di memoria:
'''Public''' Sub Button2_Click()

Dim p As Pointer
Dim sR As Stream
Dim j, bR As Byte

sR = Memory p For Read

For j = 0 To 3
' ''Il puntatore nello Stream avanzerà di un byte per volta coerentemente con l'area della memoria allocata:''
Read #sR, bR

' ''A fini didattici, mostriamo il valore in console''
Print "---> ", bR
Next

===In modalità "Lettura" per dereferenziare i puntatori passati da funzioni esterne===
Si procederà ugualmente per dereferenziare i puntatori passati da funzioni esterne.

'''Public''' Sub Button1_Click()

Dim pEst As Pointer
Dim pS As Stream
Dim by As Byte

' ''Prendiamo da una funzione esterna un valore di tipo puntatore:''
funzione_esterna_che_passa_un puntatore(pEst)

' ''Usiamo i Memory Stream in modalità di "lettura":''
pS = Memory pEst For Read

'Andiamo a dereferenziare e, quindi, a leggere il dato:''
Read #pS, by

' ''Ora, a fini didattici, mostriamo il valore in console:''
Print by

'''End'''

Stampare il testo presente in oggetti di testo

2013-02-13T12:50:32Z

89.97.195.138:

Per poter stampare il testo presente in oggetti di testo, come ad esempio ''Textabel'', ''Label'', ''TextArea'', etc, possiamo utilizzare la procedura con la Classe ''Printer'', oppure utilizzare il codice HTML.

=Uso della Classe ''Printer''=
L'uso della Classe ''Printer'' permette di stampare con le sole risorse di Gambas. Potremo adottare il seguente codice:
'''Public''' Sub Button1_Click()

With Printer1
.Configure
.Orientation = 0
.Paper = 2
.Resolution = Desktop.Resolution
.Print
End With

'''End'''

'''Public''' Sub Printer1_Draw()

Dim o As Object

With Paint

For Each o In FMain.Children

' ''Impostiamo lo spessore dei caratteri:''
.LineWidth = 0.01
' ''Individuiamo ed impostiamo lo spazio ove far stampare i caratteri:''
.Text(o.Text, o.X, o.Y, o.W, o.H)
.Fill

Next

End With

'''End'''
Questo algoritmo, ad ogni modo, consente di stampare anche il testo assegnato alle proprietà ''.Text'' e ''.RichText'' di qualsiasi oggetto che le possegga.

=Uso del codice HTML=
L'uso del codice HTML determinerà l'apertura contestuale del browser predefinito nel sistema, dove sarà visualizzato il contenuto da stampare, e della consueta finestra di dialogo per la stampa. Potremo adottare, ad esempio, il seguente codice:
'''Private''' preHtml As String

'''Public''' Sub Form_Open()

' ''Questo è il codice HTML essenziale per stampare automaticamente:''
preHtml = "<HTML>\n<BODY onload = \"self.print()\">"

'''End'''

'''Public''' Sub Button1_Click()

' ''Al codice HTML essenziale per stampare''
' ''aggiungiamo il testo da stampare:''
preHtml &= TextEdit1.RichText & "</body>\n</html>\n" |[[#Note|1]]| |[[#Note|2]]|

' ''Salviamo il nuovo codice, comprensivo del testo da stampare,''
' ''in un file "HTML":''
File.Save("/tmp/prova.html", preHtml)

' ''Richiamiamo ed apriamo il file HTML con il metodo "Desktop.Open"
' ''(è necessario attivare il componente "gb.desktop"):''
Desktop.Open("/tmp/prova.html")

'''End'''
Se non si vuole ottenenere una stampa automatica di quanto presente nell'oggetto di testo, si potrà far comparire un tasto virtuale, sul quale premere per far mostrare la finestra di dialogo della stampa. Si sostiuirà la variabile globale ''preHtml'' del precedente codice con la seguente:
Private preHtml As String = "<HTML>\n<BODY><button class=\" no_stampa \" onclick=\" window.print()\">S T A M P A</button>"

=Note=
[1] Si ricorda che la ''TextEdit'' è capace mediante il codice HTML di caricare e mostrare anche una immagine. In tal modo, questo oggetto consentirà di stampare sia testo che immagini.

[2] Nell'esempio si è fatto uso della ''TextEdit'', ma ovviamente si potrà utilizzare ogni altro oggetto di testo.

Alsa e Gambas: L'evento Eco

2012-06-18T12:00:16Z

89.97.195.138:

Nella progettazione del nostro sequencer può risultare utile verificare il punto di esecuzione dell'applicativo, come ad esempio conoscere quando il programma sta eseguendo degli eventi Midi. Per sapere ciò che in quel momento sta facendo il nostro client-sequencer, dobbiamo inviare un particolare tipo di evento: l'''Eco''.
 Il sequencer riceve l'evento ''eco'' anch'esso temporizzato, e ce lo restituirà nel momento stabilito dal proprio ''timestamp''. Quando il programma ci ritorna l'''eco'', che noi abbiamo precedentemente inviato, siamo in grado di individuare il punto del processo in cui si trova il sequencer.

L'invio dell'evento "''Eco''" può essere una soluzione per poter inviare ad Alsa i dati Midi in maniera costante, ricorrente e nel momento opportuno. Infatti, Alsa non è in grado di gestire una quantità elevata di dati: non è possibile inviarle molte centinaia di dati relativi agli eventi Midi ed ai relativi Tempi Delta contenuti in un file Midi. Pertanto, se ne dovrà inviare una quantità adeguata, e comunque tale che Alsa non ne rimanga mai priva, fintanto che l'esecuzione del file Midi non è terminata. Se avvenisse l'interruzione del flusso di dati, vi sarebbe irrimediabilmente una spiacevole interruzione dell'esecuzione del brano. Allora, il sequencer dovrà "sapere" il momento opportuno per inviare ad Alsa un altro gruppo di dati, perché siano gestiti. L'importante, per la corretta e coerente esecuzione del brano Midi, è non causare interruzioni nel flusso di dati Midi da inviare ad Alsa. Riportando quanto sottolineato da Clemens Ladisch all'interno del codice sorgente del suo programma ''Aplaymidi'', esistono tre possibilità su come far attendere il sequencer sino all'invio di un altro gruppo di dati Midi ad Alsa. Esse sono:
* 1) inviare ad Alsa un evento ''Eco'', ed attendere che esso torni al sequencer;
* 2) attendere un avviso di EVENT_STOP per ''coda'' degli eventi che viene inviato dalla porta Timer di sistema (questa richiederebbe una ''sottoscrizione'');
* 3) attendere che il pool di uscita sia vuoto (in questo caso si utilizzerebbe la funzione: snd_seq_sync_output_queue(snd_seq_t *seq, size_t size), la quale attende sino a che tutti gli eventi sono stati processati.

Fra le tre possibilità qui mostreremo la prima, quella dell'invio di un evento "Eco".

====Scrittura in Gambas====

Poiché l'''Eco'' è un evento come qualsiasi altro, e tale è definito e riconosciuto da ALSA, in Gambas lo invieremo utilizzando le medesime modalità (''Memory Stream'' oppure ''Strutture'') che noi conosciamo per inviare un qualsiasi tipo di evento. Avremo solo l'accortezza di indicare il sequencer stesso come destinatario dell'evento ''Eco''. Per fare ciò, dopo aver individuato il numero identificativo e la porta del nostro sequencer-applicativo, dovremo inserire tali valori nella funzione esterna di ALSA: ''err = snd_seq_connect_to(handle, outport, '''dclient''', '''dport''')''.
Dunque, tenendo conto del modello di codice riportato agli inizi della nostra guida, scriveremo così:

Const SND_SEQ_EVENT_ECHO As Integer = 50 ' ''Questa costante di ALSA individua il "tipo" di evento: un'Eco.''

'''Public''' Sub invioEco(timestamp As Integer)

Dim err As Integer

prepareev(SND_SEQ_EVENT_ECHO, timestamp) ' ''chiama la routine di preparazione di un evento.''

Seek #pStream, 16
WRITE #pStream, 254 as Byte ' ''Identificativo del destinatario: il sequencer invia l'Eco a se stesso.''

WRITE #pStream, 253 as Byte ' ''Porta del destinatario.''

err = snd_seq_event_output_buffer(handle, ev)

printerr("Eco", err) ' ''Consueta gestione dell'errore.''

'''End'''

L'evento ''Eco'' verrà, poi, intercettato come qualsiasi altro evento con le funzioni che già conosciamo per ricevere gli eventi Midi.

Strutture: dichiarazione ed uso

2012-05-16T09:01:59Z

89.97.195.138:

La '''Struttura''' similmente all'Array aggrega due o più elementi. Però, mentre l'Array aggrega elementi del medesimo tipo (per esempio tutti valori di tipo ''Integer'', o di tipo ''Byte'', etc), la ''Struttura'' aggrega ''solitamente'' (ma non necessariamente) elementi di tipo diverso.

Dichiariamo una Struttura con dei campi, che dovranno essere riempiti con dei valori. Tale Struttura avrà un proprio nome e farà da ''modello'' alle particolari variabili strutture che saranno effettivamente utilizzate per contenere valori.

'''PUBLIC''' Struct NomeStruttura ''' ''definisco i campi della Struttura "modello"''

''' ''Questa Struttura si riserverà, occupandola, 9 byte di memoria in tutto:''
valore1 As Integer ''' dal byte n° 0 al n° 3''
valore2 As Integer ''' dal byte n° 4 al n° 7''
valore3 as Byte ''' il byte n° 8''
'''END''' Struct

''' dichiaro una variabile di tipo Struttura (composta a perfetta immagine della Struttura modello):''
Private nuovaStruttura As New NomeStruttura

''' E' possibile anche usare la parola "'''Struct"''' invece di New:''
Private nuovaStruttura As '''Struct''' NomeStruttura

'''Public''' Sub Form_Open()

Dim variabValor as Byte

variabValor = Inputbox("Immetto un valore per \"riempire\" il campo \"variabile\" di \"nuovaStruttura\": valore3 .")

' ''attribuisco un valore a ciascun campo variabile della variabile di tipo Struttura''
' ''(qui i valori sono due "costanti" ed uno "variabile" che immetto io con InputBox):''
nuovaStruttura.valore1 = 3
nuovaStruttura.valore2 = 6
nuovaStruttura.valore3 = variabValor

'''End'''

'''Public''' Sub Button1_Click()

' ''quindi opero con i valori contenuti dalla variabile "nuovaStruttura",''
' ''per esempio li faccio mostrare in console:
With nuovaStruttura
Print .valore1
Print .valore2
Print .valore3
End With

'''End'''

=Strutture contenenti Array e Matrici=
Le Strutture possono essere costituite da campi di variabili Array e Matrici.

Esempio:

'''PUBLIC''' Struct StrutturaModello
arB[10] As Byte ' ''array monodimensionale definito''
arI As Integer[] ' ''array monodimensionale non definito''
mt$[10, 4] As String ' ''matrice''
'''End''' Struct

Private strutturaVariabile As New StrutturaModello

'''PUBLIC''' Sub Form_Open()

Dim a, m As Byte

strutturaVariabile.arI = New Integer[]

For a = 0 To 9
With strutturaVariabile
.arB[a] = a
.arI.Add(a + a)
For m = 0 To 3
.mt$[a, m] = Chr(strutturaVariabile.arI[a] + 70)
Next
End With
Next

'''End'''

'''PUBLIC''' Sub Button1_Click()

Dim a, m As Byte

For a = 0 To 9
With strutturaVariabile
Print .arB[a]
Print .arI[a]
For m = 0 To 3
Print .mt$[a, m]
Next
End With
Next

'''End'''

=Strutture che contengono altre Strutture=
Le Strutture possono contenere, come proprio elemento, altre Strutture.
Da tenere presente che è necessario dichiarare e definire la Struttura, che sarà contenuta nella Struttura principale, prima della dichiarazione della Struttura principale contenente.

Esempio:

' ''va dichiarata e definita innanzitutto la Struttura''
' ''che sarà contenuta nella Struttura principale:''
Public Struct strutturaInterna
sb As Byte
sI As Integer
s$ As String
End Struct

Private internaStru As New strutturaInterna

' ''...quindi la Struttura principale:''
PUBLIC Struct StrutturaPrincipale
prB As Byte
prI As Integer
internaStru As Struct strutturaInterna
End Struct

Private struttVariab As New StrutturaPrincipale

'''Public''' Sub Form_Open()

Dim a As Byte

a = 1

' ''Assegnamo i valori alle variabili contenute nei campi della variabile Struttura principale:''
With struttVariab
.prB = 10
.prI = 1000
.internaStru.sb = a
.internaStru.sI = struttVariab.prI + a
.internaStru.s$ = "prova " & Str(a)
End With

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

a = 1

With struttVariab
Print .prB
Print .prI
Print .internaStru.sb
Print .internaStru.sI
Print .internaStru.s$
End With

'''End'''

Il risultato in console sarà:
 10
 1000
 1
 1001
 prova 1

=Variabili array di tipo "Struttura"=
E' infine possibile realizzare variabili array di tipo "Struttura".

====Esempio '''1''' (variabili Strutture array con numero di elementi definito)====

Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct

' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''
' ''Sarà necessario inserire dopo "As" la parola "'''Struct'''":''
Private strutturaVariabile[10] As '''Struct''' StrutturaModello

'''Public''' Sub Form_Open()

Dim a As Byte

' ''Assegnamo i valori agli elementi della variabile array di tipo Struttura:''
For a = 0 To 9
With strutturaVariabile[a]
.prB = a
.prI = 1000 + a
End With
Next

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

For a = 0 To 9
With strutturaVariabile[a]
Print .prB
Print .prI
End With
Next

'''End'''

====Esempio '''2''' (variabili Strutture array con numero di elementi definito)====

Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct

' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''
' ''In questo caso sarà necessario inserire dopo "As" la parola "'''New'''":''
Private strutturaVariabile As '''New''' StrutturaModello[10]

'''Public''' Sub Form_Open()

Dim a As Byte

' ''Assegnamo i valori agli elementi della variabile array di tipo Struttura:''
For a = 0 To 9

strutturaVariabile[a] = New StrutturaModello

With strutturaVariabile[a]
.prB = a
.prI = 1000 + a
End With

Next

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

For a = 0 To 9
With strutturaVariabile[a]
Print .prB
Print .prI
End With
Next

'''End'''

====Esempio '''3''' (variabili Strutture array con numero di elementi indefinito)====

Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct

' ''Dichiariamo la variabile della Struttura come array con numero di elementi indefinito.''
' ''In questo caso sarà necessario inserire dopo "As" la parola "'''New'''":''
Private prima As '''New''' StrutturaModello[]

' ''Dichiariamo un'altra variabile del tipo della Struttura modello:''
Private seconda As New StrutturaModello

'''Public''' Sub Form_Open()

Dim a As Byte

prima = New StrutturaModello[]

' ''Assegnamo i valori agli elementi della variabile array di tipo Struttura:''
For a = 0 To 9

seconda = New StrutturaModello

With seconda
.prB = a
.prI = 1000 + a
End With

' ''La variabile Struttura array vuole una variabile Struttura - non array - del tipo "StrutturaModello":''
prima.Add(seconda)

Next

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

For a = 0 To 9
With prima[a]
Print .prB
Print .prI
End With
Next

'''End'''

Strutture: dichiarazione ed uso

2012-05-16T08:55:03Z

89.97.195.138:

La '''Struttura''' similmente all'Array aggrega due o più elementi. Però, mentre l'Array aggrega elementi del medesimo tipo (per esempio tutti valori di tipo ''Integer'', o di tipo ''Byte'', etc), la ''Struttura'' aggrega ''solitamente'' (ma non necessariamente) elementi di tipo diverso.

Dichiariamo una Struttura con dei campi, che dovranno essere riempiti con dei valori. Tale Struttura avrà un proprio nome e farà da ''modello'' alle particolari variabili strutture che saranno effettivamente utilizzate per contenere valori.

'''PUBLIC''' Struct NomeStruttura ''' ''definisco i campi della Struttura "modello"''

''' ''Questa Struttura si riserverà, occupandola, 9 byte di memoria in tutto:''
valore1 As Integer ''' dal byte n° 0 al n° 3''
valore2 As Integer ''' dal byte n° 4 al n° 7''
valore3 as Byte ''' il byte n° 8''
'''END''' Struct

''' creo una struttura "reale" composta a perfetta immagine di quella modello:''
Private nuovaStruttura As New NomeStruttura

''' E' possibile anche usare la parola "'''Struct"''' invece di New:''
Private nuovaStruttura As '''Struct''' NomeStruttura

'''Public''' Sub Form_Open()

Dim variabValor as Byte

variabValor = Inputbox("Immetto un valore per \"riempire\" il campo \"variabile\" di \"nuovaStruttura\": valore3 .")

' ''attribuisco un valore a ciascun campo variabile della variabile di tipo Struttura''
' ''(qui i valori sono due "costanti" ed uno "variabile" che immetto io con InputBox):''
nuovaStruttura.valore1 = 3
nuovaStruttura.valore2 = 6
nuovaStruttura.valore3 = variabValor

'''End'''

'''Public''' Sub Button1_Click()

' ''quindi opero con i valori contenuti dalla variabile "nuovaStruttura",''
' ''per esempio li faccio mostrare in console:
With nuovaStruttura
Print .valore1
Print .valore2
Print .valore3
End With

'''End'''

=Strutture contenenti Array e Matrici=
Le Strutture possono essere costituite da campi di variabili Array e Matrici.

Esempio:

'''PUBLIC''' Struct StrutturaModello
arB[10] As Byte ' ''array monodimensionale definito''
arI As Integer[] ' ''array monodimensionale non definito''
mt$[10, 4] As String ' ''matrice''
'''End''' Struct

Private strutturaVariabile As New StrutturaModello

'''PUBLIC''' Sub Form_Open()

Dim a, m As Byte

strutturaVariabile.arI = New Integer[]

For a = 0 To 9
With strutturaVariabile
.arB[a] = a
.arI.Add(a + a)
For m = 0 To 3
.mt$[a, m] = Chr(strutturaVariabile.arI[a] + 70)
Next
End With
Next

'''End'''

'''PUBLIC''' Sub Button1_Click()

Dim a, m As Byte

For a = 0 To 9
With strutturaVariabile
Print .arB[a]
Print .arI[a]
For m = 0 To 3
Print .mt$[a, m]
Next
End With
Next

'''End'''

=Strutture che contengono altre Strutture=
Le Strutture possono contenere, come proprio elemento, altre Strutture.
Da tenere presente che è necessario dichiarare e definire la Struttura, che sarà contenuta nella Struttura principale, prima della dichiarazione della Struttura principale contenente.

Esempio:

' ''va dichiarata e definita innanzitutto la Struttura''
' ''che sarà contenuta nella Struttura principale:''
Public Struct strutturaInterna
sb As Byte
sI As Integer
s$ As String
End Struct

Private internaStru As New strutturaInterna

' ''...quindi la Struttura principale:''
PUBLIC Struct StrutturaPrincipale
prB As Byte
prI As Integer
internaStru As Struct strutturaInterna
End Struct

Private struttVariab As New StrutturaPrincipale

'''Public''' Sub Form_Open()

Dim a As Byte

a = 1

' ''Assegnamo i valori alle variabili contenute nei campi della Struttura principale:''
With struttVariab
.prB = 10
.prI = 1000
.internaStru.sb = a
.internaStru.sI = struttVariab.prI + a
.internaStru.s$ = "prova " & Str(a)
End With

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

a = 1

With struttVariab
Print .prB
Print .prI
Print .internaStru.sb
Print .internaStru.sI
Print .internaStru.s$
End With

'''End'''

Il risultato in console sarà:
 10
 1000
 1
 1001
 prova 1

=Variabili array di tipo "Struttura"=
E' infine possibile realizzare variabili array di tipo "Struttura".

====Esempio '''1''' (variabili Strutture array con numero di elementi definito)====

Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct

' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''
' ''Sarà necessario inserire dopo "As" la parola "'''Struct'''":''
Private strutturaVariabile[10] As '''Struct''' StrutturaModello

'''Public''' Sub Form_Open()

Dim a As Byte

' ''Assegnamo i valori agli elementi della Struttura-Array:''
For a = 0 To 9
With strutturaVariabile[a]
.prB = a
.prI = 1000 + a
End With
Next

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

For a = 0 To 9
With strutturaVariabile[a]
Print .prB
Print .prI
End With
Next

'''End'''

====Esempio '''2''' (variabili Strutture array con numero di elementi definito)====

Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct

' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''
' ''In questo caso sarà necessario inserire dopo "As" la parola "'''New'''":''
Private strutturaVariabile As '''New''' StrutturaModello[10]

'''Public''' Sub Form_Open()

Dim a As Byte

' ''Assegnamo i valori agli elementi della Struttura-Array:''
For a = 0 To 9

strutturaVariabile[a] = New StrutturaModello

With strutturaVariabile[a]
.prB = a
.prI = 1000 + a
End With

Next

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

For a = 0 To 9
With strutturaVariabile[a]
Print .prB
Print .prI
End With
Next

'''End'''

====Esempio '''3''' (variabili Strutture array con numero di elementi indefinito)====

Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct

' ''Dichiariamo la variabile della Struttura come array con numero di elementi indefinito.''
' ''In questo caso sarà necessario inserire dopo "As" la parola "'''New'''":''
Private prima As '''New''' StrutturaModello[]

' ''Dichiariamo un'altra variabile simile alla Struttura modello:''
Private seconda As New StrutturaModello

'''Public''' Sub Form_Open()

Dim a As Byte

prima = New StrutturaModello[]

' ''Assegnamo i valori agli elementi della Struttura-Array:''
For a = 0 To 9

seconda = New StrutturaModello

With seconda
.prB = a
.prI = 1000 + a
End With

' ''La variabile Struttura array vuole una variabile Struttura - non array - del tipo "StrutturaModello":''
prima.Add(seconda)

Next

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

For a = 0 To 9
With prima[a]
Print .prB
Print .prI
End With
Next

'''End'''

Strutture: dichiarazione ed uso

2012-05-16T08:53:36Z

89.97.195.138:

La '''Struttura''' similmente all'Array aggrega due o più elementi. Però, mentre l'Array aggrega elementi del medesimo tipo (per esempio tutti valori di tipo ''Integer'', o di tipo ''Byte'', etc), la ''Struttura'' aggrega ''solitamente'' (ma non necessariamente) elementi di tipo diverso.

Dichiariamo una Struttura con dei campi, che dovranno essere riempiti con dei valori. Tale Struttura avrà un proprio nome e farà da ''modello'' alle particolari variabili strutture che saranno effettivamente utilizzate per contenere valori.

'''PUBLIC''' Struct NomeStruttura ''' ''definisco i campi della Struttura "modello"''

''' ''Questa Struttura si riserverà, occupandola, 9 byte di memoria in tutto:''
valore1 As Integer ''' dal byte n° 0 al n° 3''
valore2 As Integer ''' dal byte n° 4 al n° 7''
valore3 as Byte ''' il byte n° 8''
'''END''' Struct

''' creo una struttura "reale" composta a perfetta immagine di quella modello:''
Private nuovaStruttura As New NomeStruttura

''' E' possibile anche usare la parola "'''Struct"''' invece di New:''
Private nuovaStruttura As '''Struct''' NomeStruttura

'''Public''' Sub Form_Open()

Dim variabValor as Byte

variabValor = Inputbox("Immetto un valore per \"riempire\" il campo \"variabile\" di \"nuovaStruttura\": valore3 .")

' ''attribuisco un valore a ciascun campo variabile della variabile di tipo Struttura''
' ''(qui i valori sono due "costanti" ed uno "variabile" che immetto io con InputBox):''
nuovaStruttura.valore1 = 3
nuovaStruttura.valore2 = 6
nuovaStruttura.valore3 = variabValor

'''End'''

'''Public''' Sub Button1_Click()

' ''quindi opero con i valori contenuti da "nuovaStruttura",''
' ''per esempio li faccio mostrare in console:
With nuovaStruttura
Print .valore1
Print .valore2
Print .valore3
End With

'''End'''

=Strutture contenenti Array e Matrici=
Le Strutture possono essere costituite da campi di variabili Array e Matrici.

Esempio:

'''PUBLIC''' Struct StrutturaModello
arB[10] As Byte ' ''array monodimensionale definito''
arI As Integer[] ' ''array monodimensionale non definito''
mt$[10, 4] As String ' ''matrice''
'''End''' Struct

Private strutturaVariabile As New StrutturaModello

'''PUBLIC''' Sub Form_Open()

Dim a, m As Byte

strutturaVariabile.arI = New Integer[]

For a = 0 To 9
With strutturaVariabile
.arB[a] = a
.arI.Add(a + a)
For m = 0 To 3
.mt$[a, m] = Chr(strutturaVariabile.arI[a] + 70)
Next
End With
Next

'''End'''

'''PUBLIC''' Sub Button1_Click()

Dim a, m As Byte

For a = 0 To 9
With strutturaVariabile
Print .arB[a]
Print .arI[a]
For m = 0 To 3
Print .mt$[a, m]
Next
End With
Next

'''End'''

=Strutture che contengono altre Strutture=
Le Strutture possono contenere, come proprio elemento, altre Strutture.
Da tenere presente che è necessario dichiarare e definire la Struttura, che sarà contenuta nella Struttura principale, prima della dichiarazione della Struttura principale contenente.

Esempio:

' ''va dichiarata e definita innanzitutto la Struttura''
' ''che sarà contenuta nella Struttura principale:''
Public Struct strutturaInterna
sb As Byte
sI As Integer
s$ As String
End Struct

Private internaStru As New strutturaInterna

' ''...quindi la Struttura principale:''
PUBLIC Struct StrutturaPrincipale
prB As Byte
prI As Integer
internaStru As Struct strutturaInterna
End Struct

Private struttVariab As New StrutturaPrincipale

'''Public''' Sub Form_Open()

Dim a As Byte

a = 1

' ''Assegnamo i valori alle variabili contenute nei campi della Struttura principale:''
With struttVariab
.prB = 10
.prI = 1000
.internaStru.sb = a
.internaStru.sI = struttVariab.prI + a
.internaStru.s$ = "prova " & Str(a)
End With

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

a = 1

With struttVariab
Print .prB
Print .prI
Print .internaStru.sb
Print .internaStru.sI
Print .internaStru.s$
End With

'''End'''

Il risultato in console sarà:
 10
 1000
 1
 1001
 prova 1

=Variabili array di tipo "Struttura"=
E' infine possibile realizzare variabili array di tipo "Struttura".

====Esempio '''1''' (variabili Strutture array con numero di elementi definito)====

Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct

' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''
' ''Sarà necessario inserire dopo "As" la parola "'''Struct'''":''
Private strutturaVariabile[10] As '''Struct''' StrutturaModello

'''Public''' Sub Form_Open()

Dim a As Byte

' ''Assegnamo i valori agli elementi della Struttura-Array:''
For a = 0 To 9
With strutturaVariabile[a]
.prB = a
.prI = 1000 + a
End With
Next

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

For a = 0 To 9
With strutturaVariabile[a]
Print .prB
Print .prI
End With
Next

'''End'''

====Esempio '''2''' (variabili Strutture array con numero di elementi definito)====

Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct

' ''Dichiariamo la variabile della Struttura come array con numero di elementi definito.''
' ''In questo caso sarà necessario inserire dopo "As" la parola "'''New'''":''
Private strutturaVariabile As '''New''' StrutturaModello[10]

'''Public''' Sub Form_Open()

Dim a As Byte

' ''Assegnamo i valori agli elementi della Struttura-Array:''
For a = 0 To 9

strutturaVariabile[a] = New StrutturaModello

With strutturaVariabile[a]
.prB = a
.prI = 1000 + a
End With

Next

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

For a = 0 To 9
With strutturaVariabile[a]
Print .prB
Print .prI
End With
Next

'''End'''

====Esempio '''3''' (variabili Strutture array con numero di elementi indefinito)====

Public Struct strutturaModello
prB As Byte
prI As Integer
End Struct

' ''Dichiariamo la variabile della Struttura come array con numero di elementi indefinito.''
' ''In questo caso sarà necessario inserire dopo "As" la parola "'''New'''":''
Private prima As '''New''' StrutturaModello[]

' ''Dichiariamo un'altra variabile simile alla Struttura modello:''
Private seconda As New StrutturaModello

'''Public''' Sub Form_Open()

Dim a As Byte

prima = New StrutturaModello[]

' ''Assegnamo i valori agli elementi della Struttura-Array:''
For a = 0 To 9

seconda = New StrutturaModello

With seconda
.prB = a
.prI = 1000 + a
End With

' ''La variabile Struttura array vuole una variabile Struttura - non array - del tipo "StrutturaModello":''
prima.Add(seconda)

Next

'''End'''

' ''Andiamo a mostrare i risultati in console:''
'''Public''' Sub Button1_Click()

Dim a As Byte

For a = 0 To 9
With prima[a]
Print .prB
Print .prI
End With
Next

'''End'''

Uso di Unicode con gli oggetti di testo

2011-12-05T15:40:57Z

89.97.195.138: /* Utilizzo di Unicode in Gambas */

==Cosa è Unicode==
'''''[http://www.unicode.org/standard/translations/italian.html Unicode]''''' assegna un numero univoco a ogni carattere, indipendentemente dalla piattaforma, indipendentemente dall'applicazione, indipendentemente dalla lingua''.
Esso è un codice universale, adottato da molte aziende del settore informatico, che abbina ad ogni numero un carattere.

==Utilizzo di Unicode in Gambas==
L'utilizzo di ''Unicode'' in Gambas può risultare comodo per fruire di caratteri particolari e speciali, consentendo così di evitare all'utente - quando possibile - l'installazione di specifi font.
''Unicode'' può essere utilizzato con tutti gli oggetti che supportano e mostrano testo. In particolare, si potrà mostrare un carattere mediante la funzione: '''String.chr(&'''''num_codice_Unicode''''')''' .

Esempio: TextArea1.Text = String.chr(&25CC) ' mostra un cerchio tratteggiato.

 Con gli oggetti e le finestre, che supportano anche il codice HTML, sarà possibile all'interno delle virgolette contenenti il testo richiamare ''Unicode'' anche inserendo il numero decimale del carattere preceduto da &# e seguito alla fine dal ''punto e virgola''.
Esempio: '''&#'''9830''';'''

==Note==
[1] La [http://www.unicode.org/charts/ tabella dei caratteri] di Unicode.

Alsa e Gambas: Salvataggio dei dati

2011-11-23T10:30:49Z

89.97.195.138: Nuova pagina: Come per la registrazione dei dati Midi anche per il salvataggio di tali dati in un file Midi potremmo prevedere l'utilizzo di un programma di supporto, scritto in C (come per esempio ...

Come per la registrazione dei dati Midi anche per il salvataggio di tali dati in un file Midi potremmo prevedere l'utilizzo di un programma di supporto, scritto in C (come per esempio ''arecordmidi'') oppure approntare un nostro programma in linguaggio Gambas.

Gestione del MIDI con ALSA

2011-10-20T10:10:31Z

89.97.195.138: /* Alsa e Gambas: Il Client come Sequencer Midi */

====Indice:====

==[[Cosa è A.L.S.A.]]==
==ALSA e Gambas==
====[[ALSA_e_Gambas:_Introduzione|Alsa e Gambas: Introduzione]]====
==Alsa e Gambas: Gestione dei dati Midi in "Invio dati"==
====[[Alsa e Gambas: Creazione del Client e delle sue porte|Creazione del Client e delle sue porte]]====
====[[Alsa e Gambas: Uso dei Memory Stream|Invio dati con l'uso dei Memory Stream]]====
====[[Alsa e Gambas: Uso delle Strutture|Invio dati con l'uso delle Strutture]]====

==Alsa e Gambas: Gestione dei dati Midi in "Ricezione dati"==
====[[Alsa_e_Gambas:_Gestione_dei_dati_Midi_in_Ricezione|Introduzione]]====
====[[Alsa_e_Gambas:_Client_e_porte_in_Ricezione|Client e porte in Ricezione]]====
====[[Alsa_e_Gambas:_Ricezione_con_l'uso_dei_File_Descriptors|Ricezione con l'uso dei File Descriptor]]====
====[[Alsa_e_Gambas:_Ricezione_con_un_ciclo_mediante_Timer|Ricezione con un ciclo e con Timer]]====
====[[Alsa_e_Gambas:_Ricezione_con_un_programma_esterno_di_supporto|Ricezione con un programma esterno di supporto]]====
====[[Alsa_e_Gambas:_Ricezione_senza_funzioni_ALSA|Ricezione senza funzioni ALSA]]====

==Alsa e Gambas: Il Client come ''Sequencer'' Midi==
====[[Il_sequencer_Midi_Introduzione|Introduzione]]====
====[[Alsa_e_Gambas:_Il_Timestamp|La marcatura temporale degli eventi: il ''Timestamp'']]====
====[[Alsa_e_Gambas:_Accodamento_di_eventi|L'accodamento degli eventi]]====
====[[Alsa_e_Gambas:_Il_Tempo_della_coda|Il Tempo della coda]]====
====[[Alsa_e_Gambas:_L'evento_Eco|Inviarsi una Eco nel futuro]]====

==Alsa e Gambas: Salvare i dati in uno Standard Midi File==
====[[Alsa_e_Gambas:_Cosa_è_un_SMF|Cosa è uno ''Standard Midi File'']]====
====[[Alsa_e_Gambas:_Registrare_messaggi_Midi|Registrare messaggi Midi]]====
====[[Alsa_e_Gambas:_Salvataggio_dei_dati|Il salvataggio dei dati Midi]]====

 
 
----

====Ringraziamenti====

Un grazie senza fine all'amico Doriano Blengino per la preziosissima consulenza tecnica ed i suggerimenti che hanno reso concretamente possibile la stesura di questa guida.

Gestione del MIDI con ALSA

2011-09-07T14:14:25Z

89.97.195.138:

Guide della comunità

2010-08-27T10:57:47Z

89.97.195.138: /* Gestione del MIDI */

Raccolta di guide sui componenti, sui metodi e sugli algoritmi del linguaggio Gambas scritti e mantenuti dalla comunità italiana Gambas-it

== Extern ==

* [[Documento originale (Inglese)]]
* [[Traduzione della comunità di Gambas-it]]

== Pdfwriter ==

*[[Guida ai report]]

== Gestione del MIDI ==

*[[Gestione del MIDI con O.S.S.]]

*[[Gestione del MIDI con ALSA]]

== Gridbox ==

*[[Introduzione]]
*[[Installazione]]
*[[Guida a Gridbox]]

Guide della comunità

2010-08-27T10:57:13Z

89.97.195.138: /* Gestione del MIDI */

Raccolta di guide sui componenti, sui metodi e sugli algoritmi del linguaggio Gambas scritti e mantenuti dalla comunità italiana Gambas-it

== Extern ==

* [[Documento originale (Inglese)]]
* [[Traduzione della comunità di Gambas-it]]

== Pdfwriter ==

*[[Guida ai report]]

== Gestione del MIDI ==

*[[Gestione del MIDI con OSS]]

*[[Gestione del MIDI con ALSA]]

== Gridbox ==

*[[Introduzione]]
*[[Installazione]]
*[[Guida a Gridbox]]

Gestione del MIDI con ALSA

2010-08-27T09:28:33Z

89.97.195.138:

Nelle more della redazione di una guida specifica e dettagliata sulla gestione del MIDI con ALSA, si suggerisce di dare una prima occhiata al capitolo " EXTERN ", presente nell'area "Guide della Comunità", ove sarà possibile avere le informazioni basilari necessarie per la gestione delle API di ALSA. Lì, tra l'altro, sono anche presenti proprio esempi esplicativi della funzione Extern relativi alla gestione di ALSA con Gambas.

Si precisa che la conoscenza della funzione Extern, relativa appunto, alle dichiarazioni esterne in Gambas sono comunque presupposto necessario ed imprescindibile per la gestione in Gambas del Midi con ALSA.

Gestione del MIDI con ALSA

2010-08-27T09:24:52Z

89.97.195.138:

Gestione del MIDI con ALSA

2010-08-27T09:23:08Z

89.97.195.138: Nuova pagina: Nelle more della redazione di una guida specifica e dettagliata sulla gestione del MIDI con ALSA, si suggerisce di dare una prima occhiata al capitolo " EXTERN ", presente nell'area "G...