> Private fl As File
>
>
> Public Sub Form_Open()
>
> Desktop.RunAsRoot("cat /dev/ttyUSB1 > /tmp/a")
>
> fl = Open "/tmp/a" For Read Watch
>
> End
>
>
> Public Sub File_Read()
>
> Dim s As String
>
> s = File.Load("/tmp/a")
>
> TextEdit1.Text = s
>
> End
>
This is good idea, but instead of "/tmp/a", I would use Temp$():
Private fl As File
Private sFile As String
Public Sub Form_Open()
sFile = Temp$()
Desktop.RunAsRoot("cat /dev/ttyUSB1 > " & sFile)
fl = Open sFile For Read Watch
End
Public Sub File_Read()
Dim s As String
s = File.Load(sFile)
TextEdit1.Text = s
End
Jussi
------------------------------------------------------------------------------
Everyone hates slow websites. So do we.
Make your web apps faster with AppDynamics
Download AppDynamics Lite for free today:
http://ad.doubleclick.net/clk;258768047;13503038;j?
http://info.appdynamics.com/FreeJavaPerformanceDownload.html
_______________________________________________
Gambas-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/gambas-user
