Differenze tra le versioni di "Watch"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Se con ''OPEN'' viene specificata la parola chiave | + | Se con ''OPEN'' viene specificata la parola-chiave '''WATCH''', allora il file viene così visto dall'interprete: |
| − | * Se almeno un byte può essere letto dal file, allora l'evento File_Read() viene chiamato; | + | * Se almeno un byte può essere letto dal file, allora l'evento "File_Read()" viene chiamato; |
| − | * Se almeno un byte può essere scritto nel file, allora l'evento File_Write() viene chiamato. | + | * Se almeno un byte può essere scritto nel file, allora l'evento "File_Write()" viene chiamato. |
| − | |||
Come esempio mostreremo il caso in cui viene aperto un file-device in lettura (''For Read'') ed osservato con specificando la parola ''Watch'': | Come esempio mostreremo il caso in cui viene aperto un file-device in lettura (''For Read'') ed osservato con specificando la parola ''Watch'': | ||
| − | + | Private varFile As File | |
| Riga 18: | Riga 17: | ||
'''Public''' Sub <FONT color=#B22222>File_Read()</font> | '''Public''' Sub <FONT color=#B22222>File_Read()</font> | ||
| − | Dim | + | Dim b As Byte |
| − | + | While Not Eof(varFile) <Font Color=gray>' ''Fin tanto che non è giunto alla fine del file...''</font> | |
| − | |||
<Font Color=gray>' ''...legge il file e carica un byte nella variabile "by"...''</font> | <Font Color=gray>' ''...legge il file e carica un byte nella variabile "by"...''</font> | ||
| − | + | Read #varFile, b | |
<Font Color=gray>' ''...e lo mostra in console:''</font> | <Font Color=gray>' ''...e lo mostra in console:''</font> | ||
| − | + | Print b | |
| − | + | Wend | |
'''End''' | '''End''' | ||
| Riga 33: | Riga 31: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
| − | + | varFile.Close | |
'''End''' | '''End''' | ||
| Riga 40: | Riga 38: | ||
==Lettura dei dati contemporaneamente da più file== | ==Lettura dei dati contemporaneamente da più file== | ||
Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il metodo ''Object.Attach'' per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento: | Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite ''Open... For Read Watch'' con il metodo ''Object.Attach'' per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento: | ||
| − | + | Private varFile1 As File | |
| − | + | Private varFile2 As File | |
| Riga 83: | Riga 81: | ||
oppure in modo analogo mediante ''Observer'': | oppure in modo analogo mediante ''Observer'': | ||
| − | + | Private varFile1 As File | |
| − | + | Private varFile2 As File | |
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
| − | + | Dim oss1 As Observer | |
| − | + | Dim oss2 As Observer | |
varFile1 = Open "''/percorso/del/primo/file''" For Read Watch | varFile1 = Open "''/percorso/del/primo/file''" For Read Watch | ||
| Riga 111: | Riga 109: | ||
Dim b1 As Byte | Dim b1 As Byte | ||
| − | + | Read #varFile1, b1 | |
| − | + | Print b1 | |
'''End''' | '''End''' | ||
| Riga 123: | Riga 121: | ||
Dim b2 As Byte | Dim b2 As Byte | ||
| − | + | Read #varFile2, b2 | |
| − | + | Print b2 | |
'''End''' | '''End''' | ||
Versione delle 17:33, 1 nov 2021
Se con OPEN viene specificata la parola-chiave WATCH, allora il file viene così visto dall'interprete:
- Se almeno un byte può essere letto dal file, allora l'evento "File_Read()" viene chiamato;
- Se almeno un byte può essere scritto nel file, allora l'evento "File_Write()" viene chiamato.
Come esempio mostreremo il caso in cui viene aperto un file-device in lettura (For Read) ed osservato con specificando la parola Watch:
Private varFile As File Public Sub Form_Open() varFile = Open "percorso/del/file" For Read Watch End Public Sub File_Read() Dim b As Byte While Not Eof(varFile) ' Fin tanto che non è giunto alla fine del file... ' ...legge il file e carica un byte nella variabile "by"... Read #varFile, b ' ...e lo mostra in console: Print b Wend End Public Sub Button1_Click() varFile.Close End
Lettura dei dati contemporaneamente da più file
Per la lettura contemporanea dei dati da più file aperti, sarà necessario coniugare l'apertura e l'osservazione del file tramite Open... For Read Watch con il metodo Object.Attach per gestire l'evento della ricezione dei dati Midi, associando l'oggetto file alla definizione dell'evento:
Private varFile1 As File Private varFile2 As File Public Sub Form_Open() varFile1 = Open "/percorso/del/primo/file" For Read Watch ' Viene associato l'oggetto File alla denominazione del proprio evento: Object.Attach(varFile1, FMain, "eventoMidi1") varFile2 = Open "/percorso/del/secondo/file" For Read Watch ' Viene associato l'oggetto File alla denominazione del proprio evento: Object.Attach(varFile2, FMain, "eventoMidi2") End ' Vengono intercettati i dati provenienti dal primo file: Public Sub eventoMidi1_Read() Dim b1 As Byte Read #varFile, b1 Print b1 End ' Vengono intercettati i dati provenienti dal secondo file: Public Sub eventoMidi2_Read() Dim b2 As Byte Read #varFile2, b2 Print b2 End
oppure in modo analogo mediante Observer:
Private varFile1 As File Private varFile2 As File Public Sub Form_Open() Dim oss1 As Observer Dim oss2 As Observer varFile1 = Open "/percorso/del/primo/file" For Read Watch ' Viene "osservato" l'oggetto File per l'evento: oss1 = New Observer(varFile1) As "eventoMidi1" varFile2 = Open "/percorso/del/secondo/file" For Read Watch ' Viene "osservato" l'oggetto File per l'evento: oss2 = New Observer(varFile2) As "eventoMidi2" End ' Vengono intercettati i dati provenienti dal primo file: Public Sub eventoMidi1_Read() Dim b1 As Byte Read #varFile1, b1 Print b1 End ' Vengono intercettati i dati provenienti dal secondo file: Public Sub eventoMidi2_Read() Dim b2 As Byte Read #varFile2, b2 Print b2 End
