Differenze tra le versioni di "Apertura e chiusura di un processo mediante Process"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: ''<Font Color= #006400>' Gambas class file''</font> Private hpro As Process '''Public''' Sub Button1_Click() ''<Font Color= #006400>' parte l'applicazione, per esempio ...) |
|||
| Riga 1: | Riga 1: | ||
| − | + | Esempio con programma in ambiente grafico: | |
| − | |||
| − | |||
Private hpro As Process | Private hpro As Process | ||
| Riga 7: | Riga 5: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
| − | + | <Font Color=gray>' ''Parte l'applicazione, per esempio “ Gedit “:''</font> | |
hpro = Exec ["gedit"] As "processo" | hpro = Exec ["gedit"] As "processo" | ||
| − | + | <Font Color=gray>' ''oppure si può usare "Shell":'' | |
| − | hpro = Shell "gedit" As "processo"</font> | + | '''hpro = Shell "gedit" As "processo"'''</font> |
'''End''' | '''End''' | ||
| Riga 18: | Riga 16: | ||
'''Public''' Sub button2_Click() | '''Public''' Sub button2_Click() | ||
| − | + | <Font Color=gray>' ''Elimina il processo dell'applicazione:''</font> | |
hpro.kill | hpro.kill | ||
| Riga 24: | Riga 22: | ||
| − | '''Public''' Sub processo_Kill() ''<Font Color= | + | '''Public''' Sub processo_Kill() ''<Font Color=gray>' ''Questo evento viene sollevato alla chiusura del programma gestito da "Process"''</font> |
| + | |||
| + | Print "Il processo è stato terminato !" | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | Esempio con programma ''a riga di comando'': | ||
| + | Private pr As Process | ||
| − | |||
| + | '''Public''' Sub Main() | ||
| + | |||
| + | pr = Shell "cvlc /tmp/automatisches_licht_AN.mp3" As "Processo" | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | '''Public''' Sub Application_Read() <Font Color=gray>' ''Basta premere il tasto "Invia" per sollevare questo evento.''</font> | ||
| + | |||
| + | <Font Color=gray>' ''Elimina il processo dell'applicazione:''</font> | ||
| + | pr.Kill | ||
| + | |||
| + | <Font Color=gray>' ''Chiude l'applicazione:''</font> | ||
| + | Quit | ||
| + | |||
'''End''' | '''End''' | ||
Versione delle 13:00, 24 apr 2020
Esempio con programma in ambiente grafico:
Private hpro As Process Public Sub Button1_Click() ' Parte l'applicazione, per esempio “ Gedit “: hpro = Exec ["gedit"] As "processo" ' oppure si può usare "Shell": hpro = Shell "gedit" As "processo" End Public Sub button2_Click() ' Elimina il processo dell'applicazione: hpro.kill End Public Sub processo_Kill() ' Questo evento viene sollevato alla chiusura del programma gestito da "Process" Print "Il processo è stato terminato !" End
Esempio con programma a riga di comando:
Private pr As Process Public Sub Main() pr = Shell "cvlc /tmp/automatisches_licht_AN.mp3" As "Processo" End Public Sub Application_Read() ' Basta premere il tasto "Invia" per sollevare questo evento. ' Elimina il processo dell'applicazione: pr.Kill ' Chiude l'applicazione: Quit End
