5641
Programmazione / [RISOLTO] Pulire la coda degli eventi
« il: 18 Aprile 2012, 19:42:55 »
Quale istruzione per pulire la coda di un evento (ad esempio un _Enter() o un _MouseDown()) ?
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Public Sub Button1_Click()
Print InStr("aec", "c")
End
Public Sub Button1_Click()
Print InStr("aèc", "c") ' idem con: "aéc", "aàc", "aòc", "aùc"
End
bene bene.... adesso ti nominiamo ambasciatore della comunità italiana di gambas sula mailing list internazionale
Public Sub Button1_Click()
Dim aFl As File
Dim buff As New Byte[4]
Dim b As Byte
aFl = Open "/tmp/mio_file" For Write
Write #aFl, buff As Byte[]
aFl.Close
End
buff[4] As Byte
Public Sub Button1_Click()
Dim aFl As File
Dim b As Byte
aFl = Open "/tmp/mio_file" For Write
Write #aFl, buff As Byte[]
aFl.Close
End
Public Sub alibaba()
Dim obj As Object
For Each obj In FMain.Children
If obj.Name = "Button1" Then
Print "Il Button1 è presente nel Form !"
Endif
Next
End
Exec ["gksu", "file_ad_accesso_protetto"]
flPro As Process
Public Sub Form_Open()
Dim num As Byte
' riconosce se il programma è stato già lanciato nell'attuale
' sessione di sistema operativo. *Se non* è stato lanciato almeno
' una volta, fa inserire la password di root per impostare il setUID
' e consentire l'apertura del file protetto:
If Not Exist("/tmp/chmod.txt") Then
Exec ["gksu", "chmod 4777", "/dev/input/mouse0"] Wait
File.Save("/tmp/chmod.txt", "c'è")
Endif
' va a gestire il file-device:
flPro = Exec ["cat", "/dev/input/mouse0"] For Read As "flPro"
End
Public Sub flPro_Read()
Dim b As Byte
' legge i dati provenienti dal file-device del mouse...
Read #flPro, b
'...e li mostra in console:
Print b
End
Private fd As File
Public Sub ToggleButton1_Click()
If Last.value Then
' apro il file-device che mi interessa:
fd = Open "/dev/file-device_da_aprire" For Read Watch
Else
' chiudo il file-device:
Close #fd
Endif
End
Public Sub File_Read()
Dim b As Byte
Read #fd, b
' vedo in console i dati raccolti:
Print b
End
Public Sub Form_Open()
Dim sOutput As String
Exec ["pgrep", "-f", "-l", "NameOfYourProgram.gambas"] Wait To sOutput
If Split(Trim$(sOutput), gb.NewLine).Count > 1 Then
Quit
Endif
End