gambafeliz 18-09-2020, 17:35
Hola
He visto que en Debian 10 se puede hibernar desde la consola de esta forma:
Instalo hibernate
$ sudo apt-get install hibernate
Después desde la consola hago esto: (Esto siempre funciona muy bien desde la consola, cuando uno lo necesite)
$ su -
Contraseña:
$ sudo hibernate
hibernate:Warning: Tuxonice binary signature file not found.
Ahora yo me voy a crear un atajo de teclado y todo bien pero cuando pongo en este atajo de teclado el comando y escribo sudo hibernate y hago la acción de teclado elegida no funciona, cambio el comando por ejemplo por nautilus y funciona.
Se me ocurrió hacer un Shell (sh) pero no funciona o no se como hacerlo funcionar desde el atajo de teclado.
Por favor, ¿Alguien me dice como puedo hacer el sudo hibernate desde el comando del atajo de teclado?
Gracias.
He visto que en Debian 10 se puede hibernar desde la consola de esta forma:
Instalo hibernate
$ sudo apt-get install hibernate
Después desde la consola hago esto: (Esto siempre funciona muy bien desde la consola, cuando uno lo necesite)
$ su -
Contraseña:
$ sudo hibernate
hibernate:Warning: Tuxonice binary signature file not found.
Ahora yo me voy a crear un atajo de teclado y todo bien pero cuando pongo en este atajo de teclado el comando y escribo sudo hibernate y hago la acción de teclado elegida no funciona, cambio el comando por ejemplo por nautilus y funciona.
Se me ocurrió hacer un Shell (sh) pero no funciona o no se como hacerlo funcionar desde el atajo de teclado.
Por favor, ¿Alguien me dice como puedo hacer el sudo hibernate desde el comando del atajo de teclado?
Gracias.
vuott 16-09-2020, 03:01
Os dejo un Metronomo para console muy muy sencillo: 
Código:
Private Const METRONOMO As String = "|------||------|"
Public Sub Main()
Dim t, d, bpm As Short
Dim mtr As String
bpm = 90
t = 1
Print
Do
d += Sgn(Sin(2 * Pi(1) * (t / 32)))
mtr = METRONOMO
Mid(mtr, d, 1) = "\e[31m\e[1mO\e[0m"
Write #File.Out, "\r" & mtr & " = " & CStr(bpm) & " bpm "
Flush #File.Out
If t == 31 Then t = 1
Wait (60 / bpm) / 16
Inc t
Loop
End
vuott 15-09-2020, 18:11
Os dejo este simple codigo para dibujar la Espiral de Arquímedes:
Código:
Private DrAr As DrawingArea
Private Const A As Float = 4.0
Private Const B As Float = 4.0
Private Const KYKLOS As Float = 26.0
Private Const PASOS As Integer = 200
Private incr As Float = 1.0 / PASOS
Public Sub Form_Open()
With Me
.W = Screen.AvailableWidth
.H = Screen.AvailableHeight
.Center
End With
With DrAr = New DrawingArea(Me) As "DrAr"
.X = 0
.Y = 0
.W = Me.W
.H = Me.H
.Background = Color.White
End With
End
Public Sub DrAr_Draw()
Dim x, y As Integer
Dim i As Float
x = DrAr.W / 2
y = DrAr.H / 2
With Paint
While i <= KYKLOS * Pi
.FillRect(x + (A + B * i) * Cos(i), y + (A + B * i) * Sin(i), 2, 2, Color.Red)
i += incr
Wend
.End
End With
End
Bienvenido, Invitado
Últimos temas
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: Shordi, Hace 10 horas
Respuestas: 3 - Vistas: 71
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,527
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,323
FACTURA POR REPORT GAMBAS...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 15:03
Respuestas: 0 - Vistas: 80
Ordenando las carpetas
Foro: Programación en otros lenguajesÚltimo mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 102