Run as a daemon or service: Difference between revisions
Run as a daemon or service en FreeBASIC
(Run as a daemon or service en FreeBASIC) |
|||
Line 9:
=={{header|BASIC}}==
==={{header|FreeBASIC}}===
{{trans|QB64}}
<lang freebasic>
ScreenLock()
Open "c:\Users\Default\Documents\myDaemon.log" For Append As #1
'Open "myDaemon.log" For Append As #1 'Ruta de archivo relativa para la salida
For i As Byte = 1 To 5 'Entonces esto no se ejecuta ad infinitum
Print #1, Time + " - Running" 'Imprime en el archivo previamente abierto la hora actual del sistema (hh:mm:ss) y una nota
Sleep 1000 'Espera 1 segundo
Next i
Close #1 'Cierra el archivo previamente abierto para escritura
ScreenUnlock()
End
</lang>
==={{header|QB64}}===
<lang
'' The following line is double commented ('') as some metacommands still execute even when singularly commented (')
''$Console 'Closes the console but does not close the main window, used for whole program run
|