1
Programmazione / Re: APPLICAZIONE A RIGA DI COMANDO (IN CONSOLE)
« il: 08 Maggio 2014, 19:40:34 »Sei davvero in gamba.hai qualche altra idea su come posizionare il cursore del mouse in una qualunque posizione dello schermo, e se non è troppo difficile anche quello del mouse.A mio avviso si tratta di utilizzare risorse "al di là" di Gambas considerato in senso stretto.
Ad ogni modo, sono per ora riuscito a fare solo questo (è necessario espandere a schermo intero la finestra del terminale):Codice: gambas [Seleziona]Public Sub Main()
Dim aa As Integer
Dim s As String
Dim fl As File
s = "aaa bbb cccc ddd eee ffff gggg hhhh iiii llll mmmm nnnn oooo pppp qqqq rrr ssss tttt vvvvv uuuu zzz " &
"aaa bbb cccc ddd eee ffff gggg hhhh iiii llll mmmm nnnn oooo pppp qqqq rrr ssss tttt vvvvv uuuu zzz " &
"aaa bbb cccc ddd eee ffff gggg hhhhh"
' Shell "export TERM=xterm"
fl = Open "/dev/stdout" For Write
Write #fl, s
Wait 3
' Sposta il cursore 100 caratteri a sinistra lungo la riga:
For aa = 1 To 100
Write #fl, "\x08"
Next
Wait 3
' Salta di 8 caratteri alla volta a destra x 10 volte lungo la riga:
For aa = 1 To 10
Write #fl, "\x09"
Wait 0.3
Next
Wait 2
' Si sposta (ora più lentamente) di 150 caratteri a sinistra lungo la riga:
For aa = 1 To 150
Write #fl, "\x08"
Wait 0.05
Next
fl.Close
Wait 4
' Pulisce la finestra del terminale, perché.... è una cosa allucinante operare così !!!
Shell "clear"
End
Che San Midi mi protegga !
Ti ringrazio per le informazioni, vorrei ancora chiederti se esiste un libro di testo che deschive
le funzioni da te esposte in modo da poter provare e imparare.
Su internet cercando nelle varie case editrici ho trvato poco e niente di soddisfacente.
Ciao