Home •  Forum •  FAQ •  Search •  Recent Topics •  Memberlist •  Register •  Log in 
Forum » Gambas » Aplicaciones/Fragmentos de Código

"Ayudame" ( Programa De Consola O Terminal)

Reply to topic

Goto page 1, 2  Next

v3ctor
Quote
Posts: 1786 Location: Uruguay
Wednesday, 11 May 2016, 21:34
Subject: "Ayudame" ( Programa De Consola O Terminal)
buenas...

mi nuevo y único proyecto de consola se llama "Ayudame"

terminal_1462998852_201852

el proyecto esta en la granja para descargar estoy en las primeras pruebas del proyecto.

http://novatocodegambas.blogspot.co...de-consola.html


Objetivos de esta aplicación de consola.

1- ver que comandos tenemos disponibles para tareas X
2-ejemplos sencillos de uso de esos comandos.

Last edited by v3ctor on Thursday, 12 May 2016, 17:43; edited 1 time in total
Profile PM   Website
jousseph
Quote
Posts: 434 Location: Tachira
Thursday, 12 May 2016, 07:50
Subject: Re: "Ayudame" ( Programa De Consola O Terminal)
Hola V3ctor aqui te muestro una terminal mejorada la que llevo en fase casi terminada llamada gestor-((jou)) que es un gestor de operaciones:

Video fase viejito
https://foro.gambas-es.org/viewtopi...ighlight=gestor


Link


Aqui casi perfecta:
https://foro.gambas-es.org/viewtopi...hlight=terminal

gestor_de_operaciones_modifcado1_1463035209_504913

Te invito a que la pruebes.

Saludos

Last edited by jousseph on Thursday, 12 May 2016, 07:54; edited 2 times in total
Profile PM   YIM MSN
v3ctor
Quote
Posts: 1786 Location: Uruguay
Thursday, 12 May 2016, 17:41
Subject: Re: "Ayudame" ( Programa De Consola O Terminal)
el código fuente?

Profile PM   Website
v3ctor
Quote
Posts: 1786 Location: Uruguay
Thursday, 12 May 2016, 18:23
Subject: Re: "Ayudame" ( Programa De Consola O Terminal)
alguien sabe como limpiar la pantalla en la terminal misma donde esta funcionando el programa?

ejemplo hay un menú en pantalla y quiera limpiar la pantalla para mostrar otro menú.

Profile PM   Website
shordi
Quote
Posts: 4982 Location: Albacete
Thursday, 12 May 2016, 18:40
Subject: Re: "Ayudame" ( Programa De Consola O Terminal)
Prueba con el comando "clear" del sistema operativo. Ejecutado con exec no con shell.

Profile PM  
v3ctor
Quote
Posts: 1786 Location: Uruguay
Thursday, 12 May 2016, 20:20
Subject: Re: "Ayudame" ( Programa De Consola O Terminal)
shordi escribió: [Ver mensaje]
Prueba con el comando "clear" del sistema operativo. Ejecutado con exec no con shell.


no funciona me tira esto: TERM environment variable not set.

Profile PM   Website
jousseph
Quote
Posts: 434 Location: Tachira
Thursday, 12 May 2016, 21:46
Subject: Re: "Ayudame" ( Programa De Consola O Terminal)
v3ctor escribió: [Ver mensaje]
shordi escribió: [Ver mensaje]
Prueba con el comando "clear" del sistema operativo. Ejecutado con exec no con shell.


no funciona me tira esto: TERM environment variable not set.


V3ctor deberias de experimentar con los ejemplos que trae gambas de consola, yo me esforze en hacerle todas las respectivas funciones y los codigos estan en todos lados.

Con respecto a lo tuyo yo utilizo es un textarea para mostrar la lectura del bash asi solo hago un clear o "" para borrar la misma, a mi me salio muchisimo mejor desarrollandolo de esta manera y me ayuda a gestionar las operaciones eficientemente del SO.

Last edited by jousseph on Thursday, 12 May 2016, 21:59; edited 1 time in total
Profile PM   YIM MSN
v3ctor
Quote
Posts: 1786 Location: Uruguay
Thursday, 12 May 2016, 21:57
Subject: Re: "Ayudame" ( Programa De Consola O Terminal)
jousseph escribió: [Ver mensaje]
experimentar con los ejemplos de consola en gambas.


no tengo claro cuales son...

podrías enumerarlos acá?

Profile PM   Website
jousseph
Quote
Posts: 434 Location: Tachira
Thursday, 12 May 2016, 22:06
Subject: Re: "Ayudame" ( Programa De Consola O Terminal)
v3ctor escribió: [Ver mensaje]
jousseph escribió: [Ver mensaje]
experimentar con los ejemplos de consola en gambas.


no tengo claro cuales son..
podrías enumerarlos acá?


V3ctor mi consola la desarrolle desde el gambas 3.1 y ahorita noto que el gambas moderno trae las cosas diferentes busca en la famosa granja si esta la consola de comandos si no te perdiste algo valioso.

Profile PM   YIM MSN
v3ctor
Quote
Posts: 1786 Location: Uruguay
Thursday, 12 May 2016, 22:30
Subject: Re: "Ayudame" ( Programa De Consola O Terminal)
jousseph escribió: [Ver mensaje]
v3ctor escribió: [Ver mensaje]
jousseph escribió: [Ver mensaje]
experimentar con los ejemplos de consola en gambas.


no tengo claro cuales son..
podrías enumerarlos acá?


V3ctor mi consola la desarrolle desde el gambas 3.1 y ahorita noto que el gambas moderno trae las cosas diferentes busca en la famosa granja si esta la consola de comandos si no te perdiste algo valioso.


lo he recuperado primero descargar los ejemplos viejos ver imagen
888
segundo ir a ver imagen

999


' gambas class file


Private $hProcess As Process
Private $sText As String

Static Public Sub Main()

Dim hForm As Form

hForm = New FConsole
hForm.Show

End


Public Sub _new()

$hProcess = Exec ["bash", "--noediting"] For Input Output As "Process"

End


Public Sub Form_Close()

$hProcess.Kill

End


Public Sub Process_Read()

Dim sStr As String

'Debug Eof(Last);; Lof(Last);;
'While Not sStr
Read #$hProcess, sStr, -256
'Wend
'Error sStr
$sText = $sText & sStr
'Debug Quote(sStr)
UpdateConsole

End


Public Sub Process_Error(sStr As String)

$sText = $sText & sStr
UpdateConsole

End

Private Sub UpdateConsole()

Dim iPos As Integer
Dim sStr As String

While Len($sText)

iPos = InStr($sText, "\n")
If iPos = 0 Then iPos = Len($sText)

sStr = Normalize(Left$($sText, iPos))
'Debug sStr
$sText = Mid$($sText, iPos + 1)

txtConsole.Pos = txtConsole.Length
txtConsole.Insert(sStr)

Wend

End



Public Sub Process_Kill()

'hProcess = NULL
Try Me.Close

End



Public Sub txtCommand_Activate()

Dim sLig As String

sLig = txtCommand.Text & gb.NewLine

'txtConsole.Pos = txtConsole.Length
'txtConsole.Insert("# " & sLig)
txtCommand.Clear

sLig = Conv$(sLig, Desktop.Charset, System.Charset)

Print #$hProcess, sLig;

End


Static Private Function Normalize(sStr As String) As String

Dim sNorm As String
Dim iInd As Integer
Dim iCar As Integer
Dim bEsc As Boolean

' For iInd = 1 To Len(sStr)
'
' iCar = Asc(sStr, iInd)
'
' If iCar = 27 Then
' bEsc = True
' Continue
' Endif
'
' If bEsc Then
' If iCar < 32 Then bEsc = False
' Continue
' Endif
'
' If iCar < 32 And iCar <> 10 Then iCar = 32
'
' sNorm = sNorm & Chr$(iCar)
'
' Next

sNorm = sStr

If System.Charset = Desktop.Charset Then
Return sNorm
Else
Return Conv$(sNorm, System.Charset, Desktop.Charset)
Endif

End

Public Sub Form_Open()

txtCommand.SetFocus

End

Public Sub btnCtrlC_Click()

Print #$hProcess, Chr$(3);

End

Public Sub btnCtrlD_Click()

Print #$hProcess, Chr$(4);

End

Public Sub btnCtrlZ_Click()

Print #$hProcess, Chr$(26);

End

Last edited by v3ctor on Thursday, 12 May 2016, 22:41; edited 1 time in total
Profile PM   Website
Reply to topic
Goto page 1, 2  Next

Page 1 of 2


  
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Generation Time: 0.1493s (PHP: 8% SQL: 92%)
SQL queries: 27 - Debug Off - GZIP Enabled