|
 Hola
Some parts of this message have been removed.
Learn more about Nabble's security policy.
Hola amigos:
Tengo hecha una aplicacion en gambas, por problemas del equipo en que estaba ejecutandose lo tuve que formatear e instalar todo, aprovechando eso instale xubuntu 8.04 antes tenia el xubuntu 6.04.
En el xubuntu 6.04 instale el gambas he hice una pequeña aplicacion, ahora que lo ejecute en el xubuntu 8.04 no corrio por lo que baje el gambas2 ya que no aparecia en los repositorios el gambas, y lo compile pero me sale el siguiente error:
Unknown identifier: $hProcess en linea 365 en Form1.class
la linea a que se refiere es la siguiente:
SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
Pero si tengo declarado el 4hProcess en la linea 3:
STATIC PRIVATE $hProcess AS Process
Me podrian ayudar por favor.
El programa es el siguiente:
' Gambas class file
STATIC PRIVATE $hProcess AS Process
PUBLIC SUB form_open()
txtPath.Text = system.Home & "/Radio/"
END
PUBLIC SUB Button1_Click()
Iniciar_Grabacion()
txtPath.Enabled = FALSE
button4.Enabled = FALSE
nomradio1.Enabled = FALSE
nomradio2.Enabled = FALSE
nomradio3.Enabled = FALSE
nomradio4.Enabled = FALSE
nomradio5.Enabled = FALSE
nomradio6.Enabled = FALSE
nomradio7.Enabled = FALSE
nomradio8.Enabled = FALSE
button1.Enabled = FALSE
button2.Enabled = TRUE
END
PUBLIC SUB Button2_Click()
Detener_Grabacion()
txtPath.Enabled = TRUE
button4.Enabled = TRUE
nomradio1.Enabled = TRUE
nomradio2.Enabled = TRUE
nomradio3.Enabled = TRUE
nomradio4.Enabled = TRUE
nomradio5.Enabled = TRUE
nomradio6.Enabled = TRUE
nomradio7.Enabled = TRUE
nomradio8.Enabled = TRUE
button1.Enabled = TRUE
button2.Enabled = FALSE
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button4_Click()
Dialog.Title = "Seleccione la Carpeta de Grabación"
Dialog.Path = txtPath.Text '& "Mis Documentos"
IF Dialog.SelectDirectory() THEN RETURN
txtPath.Text = Dialog.Path
END
PUBLIC SUB CheckBox1_Click()
IF checkbox1.Value = TRUE THEN
nomradio1.Enabled = TRUE
ELSE
nomradio1.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox2_Click()
IF checkbox2.Value = TRUE THEN
nomradio2.Enabled = TRUE
ELSE
nomradio2.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox3_Click()
IF checkbox3.Value = TRUE THEN
nomradio3.Enabled = TRUE
ELSE
nomradio3.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox4_Click()
IF checkbox4.Value = TRUE THEN
nomradio4.Enabled = TRUE
ELSE
nomradio4.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox5_Click()
IF checkbox5.Value = TRUE THEN
nomradio5.Enabled = TRUE
ELSE
nomradio5.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox6_Click()
IF checkbox6.Value = TRUE THEN
nomradio6.Enabled = TRUE
ELSE
nomradio6.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox7_Click()
IF checkbox7.Value = TRUE THEN
nomradio7.Enabled = TRUE
ELSE
nomradio7.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox8_Click()
IF checkbox8.Value = TRUE THEN
nomradio8.Enabled = TRUE
ELSE
nomradio8.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB activa_grabar()
IF checkbox1.Value = TRUE OR checkbox2.Value = TRUE OR
checkbox3.Value = TRUE OR checkbox4.value = TRUE OR
checkbox5.value = TRUE OR checkbox6.value = TRUE OR
checkbox7.value = TRUE OR checkbox8.value = TRUE THEN
button1.Enabled = TRUE
ELSE
button1.Enabled = FALSE
ENDIF
END
PUBLIC SUB Iniciar_Grabacion()
DIM stFormat AS String
DIM stChain AS String
DIM stInput AS String
DIM stCadena AS String
DIM stRadio1 AS String
DIM stRadio2 AS String
DIM stRadio3 AS String
DIM stRadio4 AS String
DIM stRadio5 AS String
DIM stRadio6 AS String
DIM stRadio7 AS String
DIM stRadio8 AS String
DIM stFecha AS String
DIM stHora AS String
DIM stCarpet AS String
stFormat = "-f:16,8,44100"
stChain = ""
stInput = "-i:alsa"
stCadena = ""
stRadio1 = ""
stRadio2 = ""
stRadio3 = ""
stRadio4 = ""
stRadio5 = ""
stRadio6 = ""
stRadio7 = ""
stRadio8 = ""
stFecha = Str(Year(Now)) & "-" & IIf(Month(Now) > 9, Str(Month(Now)), "0" & Str(Month(Now))) & "-" & IIf(Day(Now) > 9, Str(Day(Now)), "0" & Str(Day(Now)))
stHora = IIf(Hour(Now) > 9, Str(Hour(Now)), "0" & Str(Hour(Now))) & IIf(Minute(Now) > 9, Str(Minute(Now)), "0" & Str(Minute(Now))) & IIf(Second(Now) > 9, Str(Second(Now)), "0" & Str(Second(Now)))
stCarpet = txtPath.Text
IF checkbox1.Value = TRUE THEN
IF nomradio1.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 1", "Ok")
nomradio1.SetFocus
RETURN
ELSE
nomradio1.Text = UCase$(Replace$(nomradio1.text, " ", "-"))
stChain = "1"
stRadio1 = stCarpet & stFecha & "_" & nomradio1.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:1 -erc:1,1 -erc:1,2 -o:" & stRadio1
ENDIF
ENDIF
IF checkbox2.Value = TRUE THEN
IF nomradio2.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 2", "OK")
nomradio2.SetFocus
RETURN
ELSE
nomradio2.Text = UCase$(Replace$(nomradio2.text, " ", "-"))
IF stChain = "" THEN
stChain = "2"
ELSE
stChain = stChain & "," & "2"
ENDIF
stRadio2 = stCarpet & stFecha & "_" & nomradio2.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:2 -erc:2,1 -erc:2,2 -o:" & stRadio2
ENDIF
ENDIF
IF checkbox3.Value = TRUE THEN
IF nomradio3.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 3", "OK")
nomradio3.SetFocus
RETURN
ELSE
nomradio3.Text = UCase$(Replace$(nomradio3.text, " ", "-"))
IF stChain = "" THEN
stChain = "3"
ELSE
stChain = stChain & "," & "3"
ENDIF
stRadio3 = stCarpet & stFecha & "_" & nomradio3.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:3 -erc:3,1 -erc:3,2 -o:" & stRadio3
ENDIF
ENDIF
IF checkbox4.Value = TRUE THEN
IF nomradio4.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 4", "OK")
nomradio4.SetFocus
RETURN
ELSE
nomradio4.Text = UCase$(Replace$(nomradio4.text, " ", "-"))
IF stChain = "" THEN
stChain = "4"
ELSE
stChain = stChain & "," & "4"
ENDIF
stRadio4 = stCarpet & stFecha & "_" & nomradio4.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:4 -erc:4,1 -erc:4,2 -o:" & stRadio4
ENDIF
ENDIF
IF checkbox5.Value = TRUE THEN
IF nomradio5.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 5", "OK")
nomradio5.SetFocus
RETURN
ELSE
nomradio5.Text = UCase$(Replace$(nomradio5.text, " ", "-"))
IF stChain = "" THEN
stChain = "5"
ELSE
stChain = stChain & "," & "5"
ENDIF
stRadio5 = stCarpet & stFecha & "_" & nomradio5.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:5 -erc:5,1 -erc:5,2 -o:" & stRadio5
ENDIF
ENDIF
IF checkbox6.Value = TRUE THEN
IF nomradio6.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 6", "OK")
nomradio6.SetFocus
RETURN
ELSE
nomradio6.Text = UCase$(Replace$(nomradio6.text, " ", "-"))
IF stChain = "" THEN
stChain = "6"
ELSE
stChain = stChain & "," & "6"
ENDIF
stRadio6 = stCarpet & stFecha & "_" & nomradio6.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:6 -erc:6,1 -erc:6,2 -o:" & stRadio6
ENDIF
ENDIF
IF checkbox7.Value = TRUE THEN
IF nomradio7.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 7", "OK")
nomradio7.SetFocus
RETURN
ELSE
nomradio7.Text = UCase$(Replace$(nomradio7.Text, " ", "-"))
IF stChain = "" THEN
stChain = "7"
ELSE
stChain = stChain & "," & "7"
ENDIF
stRadio7 = stCarpet & stFecha & "_" & nomradio7.Text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:7 -erc:7,1 -erc:7,2 -o:" & stRadio7
ENDIF
ENDIF
IF checkbox8.Value = TRUE THEN
IF nomradio8.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 8", "OK")
nomradio8.SetFocus
RETURN
ELSE
nomradio8.Text = UCase$(Replace$(nomradio8.Text, " ", "-"))
IF stChain = "" THEN
stChain = "8"
ELSE
stChain = stChain & "," & "8"
ENDIF
stRadio8 = stCarpet & stFecha & "_" & nomradio8.Text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:8 -erc:8,1 -erc:8,2 -o:" & stRadio8
ENDIF
ENDIF
timer1.Delay = 3600000 - (((Minute(Now) * 60) + Second(Now)) * 1000)
timer1.Enabled = TRUE
SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
PRINT #$hProcess, "t"
END
PUBLIC SUB Detener_Grabacion()
timer1.Enabled = FALSE
PRINT #$hProcess, "s"
PRINT #$hProcess, "q"
END
PUBLIC SUB Timer1_Timer()
Detener_Grabacion()
Iniciar_Grabacion()
END
Explore the seven wonders of the world Learn more!
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es
|
|
Re: Hola
La sintaxis de exec y shell a cambiado en Gambas2, antes era: SHELL "ecasound -c " & stFormat & " -a " & stChain
& " " & stInput & " " & stCadena FOR WRITE AS $hProcess Ahora es hProcess=SHELL "ecasound -c " & stFormat & " -a " & stChain
& " " & stInput & " " & stCadena FOR WRITE Cambia eso allí donde lo tengas en tu programa salu2 2008/5/28 Henry Villavicencio < h_villavicencio@...>:
Hola amigos:
Tengo hecha una aplicacion en gambas, por problemas del equipo en que estaba ejecutandose lo tuve que formatear e instalar todo, aprovechando eso instale xubuntu 8.04 antes tenia el xubuntu 6.04.
En el xubuntu 6.04 instale el gambas he hice una pequeña aplicacion, ahora que lo ejecute en el xubuntu 8.04 no corrio por lo que baje el gambas2 ya que no aparecia en los repositorios el gambas, y lo compile pero me sale el siguiente error:
Unknown identifier: $hProcess en linea 365 en Form1.class
la linea a que se refiere es la siguiente:
SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
Pero si tengo declarado el 4hProcess en la linea 3:
STATIC PRIVATE $hProcess AS Process
Me podrian ayudar por favor.
El programa es el siguiente:
' Gambas class file
STATIC PRIVATE $hProcess AS Process
PUBLIC SUB form_open()
txtPath.Text = system.Home & "/Radio/"
END
PUBLIC SUB Button1_Click()
Iniciar_Grabacion()
txtPath.Enabled = FALSE
button4.Enabled = FALSE
nomradio1.Enabled = FALSE
nomradio2.Enabled = FALSE
nomradio3.Enabled = FALSE
nomradio4.Enabled = FALSE
nomradio5.Enabled = FALSE
nomradio6.Enabled = FALSE
nomradio7.Enabled = FALSE
nomradio8.Enabled = FALSE
button1.Enabled = FALSE
button2.Enabled = TRUE
END
PUBLIC SUB Button2_Click()
Detener_Grabacion()
txtPath.Enabled = TRUE
button4.Enabled = TRUE
nomradio1.Enabled = TRUE
nomradio2.Enabled = TRUE
nomradio3.Enabled = TRUE
nomradio4.Enabled = TRUE
nomradio5.Enabled = TRUE
nomradio6.Enabled = TRUE
nomradio7.Enabled = TRUE
nomradio8.Enabled = TRUE
button1.Enabled = TRUE
button2.Enabled = FALSE
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button4_Click()
Dialog.Title = "Seleccione la Carpeta de Grabación"
Dialog.Path = txtPath.Text '& "Mis Documentos"
IF Dialog.SelectDirectory() THEN RETURN
txtPath.Text = Dialog.Path
END
PUBLIC SUB CheckBox1_Click()
IF checkbox1.Value = TRUE THEN
nomradio1.Enabled = TRUE
ELSE
nomradio1.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox2_Click()
IF checkbox2.Value = TRUE THEN
nomradio2.Enabled = TRUE
ELSE
nomradio2.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox3_Click()
IF checkbox3.Value = TRUE THEN
nomradio3.Enabled = TRUE
ELSE
nomradio3.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox4_Click()
IF checkbox4.Value = TRUE THEN
nomradio4.Enabled = TRUE
ELSE
nomradio4.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox5_Click()
IF checkbox5.Value = TRUE THEN
nomradio5.Enabled = TRUE
ELSE
nomradio5.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox6_Click()
IF checkbox6.Value = TRUE THEN
nomradio6.Enabled = TRUE
ELSE
nomradio6.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox7_Click()
IF checkbox7.Value = TRUE THEN
nomradio7.Enabled = TRUE
ELSE
nomradio7.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox8_Click()
IF checkbox8.Value = TRUE THEN
nomradio8.Enabled = TRUE
ELSE
nomradio8.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB activa_grabar()
IF checkbox1.Value = TRUE OR checkbox2.Value = TRUE OR
checkbox3.Value = TRUE OR checkbox4.value = TRUE OR
checkbox5.value = TRUE OR checkbox6.value = TRUE OR
checkbox7.value = TRUE OR checkbox8.value = TRUE THEN
button1.Enabled = TRUE
ELSE
button1.Enabled = FALSE
ENDIF
END
PUBLIC SUB Iniciar_Grabacion()
DIM stFormat AS String
DIM stChain AS String
DIM stInput AS String
DIM stCadena AS String
DIM stRadio1 AS String
DIM stRadio2 AS String
DIM stRadio3 AS String
DIM stRadio4 AS String
DIM stRadio5 AS String
DIM stRadio6 AS String
DIM stRadio7 AS String
DIM stRadio8 AS String
DIM stFecha AS String
DIM stHora AS String
DIM stCarpet AS String
stFormat = "-f:16,8,44100"
stChain = ""
stInput = "-i:alsa"
stCadena = ""
stRadio1 = ""
stRadio2 = ""
stRadio3 = ""
stRadio4 = ""
stRadio5 = ""
stRadio6 = ""
stRadio7 = ""
stRadio8 = ""
stFecha = Str(Year(Now)) & "-" & IIf(Month(Now) > 9, Str(Month(Now)), "0" & Str(Month(Now))) & "-" & IIf(Day(Now) > 9, Str(Day(Now)), "0" & Str(Day(Now)))
stHora = IIf(Hour(Now) > 9, Str(Hour(Now)), "0" & Str(Hour(Now))) & IIf(Minute(Now) > 9, Str(Minute(Now)), "0" & Str(Minute(Now))) & IIf(Second(Now) > 9, Str(Second(Now)), "0" & Str(Second(Now)))
stCarpet = txtPath.Text
IF checkbox1.Value = TRUE THEN
IF nomradio1.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 1", "Ok")
nomradio1.SetFocus
RETURN
ELSE
nomradio1.Text = UCase$(Replace$(nomradio1.text, " ", "-"))
stChain = "1"
stRadio1 = stCarpet & stFecha & "_" & nomradio1.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:1 -erc:1,1 -erc:1,2 -o:" & stRadio1
ENDIF
ENDIF
IF checkbox2.Value = TRUE THEN
IF nomradio2.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 2", "OK")
nomradio2.SetFocus
RETURN
ELSE
nomradio2.Text = UCase$(Replace$(nomradio2.text, " ", "-"))
IF stChain = "" THEN
stChain = "2"
ELSE
stChain = stChain & "," & "2"
ENDIF
stRadio2 = stCarpet & stFecha & "_" & nomradio2.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:2 -erc:2,1 -erc:2,2 -o:" & stRadio2
ENDIF
ENDIF
IF checkbox3.Value = TRUE THEN
IF nomradio3.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 3", "OK")
nomradio3.SetFocus
RETURN
ELSE
nomradio3.Text = UCase$(Replace$(nomradio3.text, " ", "-"))
IF stChain = "" THEN
stChain = "3"
ELSE
stChain = stChain & "," & "3"
ENDIF
stRadio3 = stCarpet & stFecha & "_" & nomradio3.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:3 -erc:3,1 -erc:3,2 -o:" & stRadio3
ENDIF
ENDIF
IF checkbox4.Value = TRUE THEN
IF nomradio4.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 4", "OK")
nomradio4.SetFocus
RETURN
ELSE
nomradio4.Text = UCase$(Replace$(nomradio4.text, " ", "-"))
IF stChain = "" THEN
stChain = "4"
ELSE
stChain = stChain & "," & "4"
ENDIF
stRadio4 = stCarpet & stFecha & "_" & nomradio4.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:4 -erc:4,1 -erc:4,2 -o:" & stRadio4
ENDIF
ENDIF
IF checkbox5.Value = TRUE THEN
IF nomradio5.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 5", "OK")
nomradio5.SetFocus
RETURN
ELSE
nomradio5.Text = UCase$(Replace$(nomradio5.text, " ", "-"))
IF stChain = "" THEN
stChain = "5"
ELSE
stChain = stChain & "," & "5"
ENDIF
stRadio5 = stCarpet & stFecha & "_" & nomradio5.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:5 -erc:5,1 -erc:5,2 -o:" & stRadio5
ENDIF
ENDIF
IF checkbox6.Value = TRUE THEN
IF nomradio6.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 6", "OK")
nomradio6.SetFocus
RETURN
ELSE
nomradio6.Text = UCase$(Replace$(nomradio6.text, " ", "-"))
IF stChain = "" THEN
stChain = "6"
ELSE
stChain = stChain & "," & "6"
ENDIF
stRadio6 = stCarpet & stFecha & "_" & nomradio6.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:6 -erc:6,1 -erc:6,2 -o:" & stRadio6
ENDIF
ENDIF
IF checkbox7.Value = TRUE THEN
IF nomradio7.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 7", "OK")
nomradio7.SetFocus
RETURN
ELSE
nomradio7.Text = UCase$(Replace$(nomradio7.Text, " ", "-"))
IF stChain = "" THEN
stChain = "7"
ELSE
stChain = stChain & "," & "7"
ENDIF
stRadio7 = stCarpet & stFecha & "_" & nomradio7.Text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:7 -erc:7,1 -erc:7,2 -o:" & stRadio7
ENDIF
ENDIF
IF checkbox8.Value = TRUE THEN
IF nomradio8.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 8", "OK")
nomradio8.SetFocus
RETURN
ELSE
nomradio8.Text = UCase$(Replace$(nomradio8.Text, " ", "-"))
IF stChain = "" THEN
stChain = "8"
ELSE
stChain = stChain & "," & "8"
ENDIF
stRadio8 = stCarpet & stFecha & "_" & nomradio8.Text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:8 -erc:8,1 -erc:8,2 -o:" & stRadio8
ENDIF
ENDIF
timer1.Delay = 3600000 - (((Minute(Now) * 60) + Second(Now)) * 1000)
timer1.Enabled = TRUE
SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
PRINT #$hProcess, "t"
END
PUBLIC SUB Detener_Grabacion()
timer1.Enabled = FALSE
PRINT #$hProcess, "s"
PRINT #$hProcess, "q"
END
PUBLIC SUB Timer1_Timer()
Detener_Grabacion()
Iniciar_Grabacion()
END
Explore the seven wonders of the world Learn more!
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es
|
|
Re: Hola
Some parts of this message have been removed.
Learn more about Nabble's security policy.
Muchas gracias.
Date: Wed, 28 May 2008 16:50:05 +0200
From: dcamposf@...
To: gambas-user-es@...
Subject: Re: [Gambas-user-es] Hola
La sintaxis de exec y shell a cambiado en Gambas2, antes era:
SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
Ahora es
hProcess=SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE
Cambia eso allí donde lo tengas en tu programa
salu2
2008/5/28 Henry Villavicencio < h_villavicencio@...>:
Hola amigos:
Tengo hecha una aplicacion en gambas, por problemas del equipo en que estaba ejecutandose lo tuve que formatear e instalar todo, aprovechando eso instale xubuntu 8.04 antes tenia el xubuntu 6.04.
En el xubuntu 6.04 instale el gambas he hice una pequeña aplicacion, ahora que lo ejecute en el xubuntu 8.04 no corrio por lo que baje el gambas2 ya que no aparecia en los repositorios el gambas, y lo compile pero me sale el siguiente error:
Unknown identifier: $hProcess en linea 365 en Form1.class
la linea a que se refiere es la siguiente:
SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
Pero si tengo declarado el 4hProcess en la linea 3:
STATIC PRIVATE $hProcess AS Process
Me podrian ayudar por favor.
El programa es el siguiente:
' Gambas class file
STATIC PRIVATE $hProcess AS Process
PUBLIC SUB form_open()
txtPath.Text = system.Home & "/Radio/"
END
PUBLIC SUB Button1_Click()
Iniciar_Grabacion()
txtPath.Enabled = FALSE
button4.Enabled = FALSE
nomradio1.Enabled = FALSE
nomradio2.Enabled = FALSE
nomradio3.Enabled = FALSE
nomradio4.Enabled = FALSE
nomradio5.Enabled = FALSE
nomradio6.Enabled = FALSE
nomradio7.Enabled = FALSE
nomradio8.Enabled = FALSE
button1.Enabled = FALSE
button2.Enabled = TRUE
END
PUBLIC SUB Button2_Click()
Detener_Grabacion()
txtPath.Enabled = TRUE
button4.Enabled = TRUE
nomradio1.Enabled = TRUE
nomradio2.Enabled = TRUE
nomradio3.Enabled = TRUE
nomradio4.Enabled = TRUE
nomradio5.Enabled = TRUE
nomradio6.Enabled = TRUE
nomradio7.Enabled = TRUE
nomradio8.Enabled = TRUE
button1.Enabled = TRUE
button2.Enabled = FALSE
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button4_Click()
Dialog.Title = "Seleccione la Carpeta de Grabación"
Dialog.Path = txtPath.Text '& "Mis Documentos"
IF Dialog.SelectDirectory() THEN RETURN
txtPath.Text = Dialog.Path
END
PUBLIC SUB CheckBox1_Click()
IF checkbox1.Value = TRUE THEN
nomradio1.Enabled = TRUE
ELSE
nomradio1.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox2_Click()
IF checkbox2.Value = TRUE THEN
nomradio2.Enabled = TRUE
ELSE
nomradio2.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox3_Click()
IF checkbox3.Value = TRUE THEN
nomradio3.Enabled = TRUE
ELSE
nomradio3.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox4_Click()
IF checkbox4.Value = TRUE THEN
nomradio4.Enabled = TRUE
ELSE
nomradio4.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox5_Click()
IF checkbox5.Value = TRUE THEN
nomradio5.Enabled = TRUE
ELSE
nomradio5.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox6_Click()
IF checkbox6.Value = TRUE THEN
nomradio6.Enabled = TRUE
ELSE
nomradio6.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox7_Click()
IF checkbox7.Value = TRUE THEN
nomradio7.Enabled = TRUE
ELSE
nomradio7.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox8_Click()
IF checkbox8.Value = TRUE THEN
nomradio8.Enabled = TRUE
ELSE
nomradio8.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB activa_grabar()
IF checkbox1.Value = TRUE OR checkbox2.Value = TRUE OR
checkbox3.Value = TRUE OR checkbox4.value = TRUE OR
checkbox5.value = TRUE OR checkbox6.value = TRUE OR
checkbox7.value = TRUE OR checkbox8.value = TRUE THEN
button1.Enabled = TRUE
ELSE
button1.Enabled = FALSE
ENDIF
END
PUBLIC SUB Iniciar_Grabacion()
DIM stFormat AS String
DIM stChain AS String
DIM stInput AS String
DIM stCadena AS String
DIM stRadio1 AS String
DIM stRadio2 AS String
DIM stRadio3 AS String
DIM stRadio4 AS String
DIM stRadio5 AS String
DIM stRadio6 AS String
DIM stRadio7 AS String
DIM stRadio8 AS String
DIM stFecha AS String
DIM stHora AS String
DIM stCarpet AS String
stFormat = "-f:16,8,44100"
stChain = ""
stInput = "-i:alsa"
stCadena = ""
stRadio1 = ""
stRadio2 = ""
stRadio3 = ""
stRadio4 = ""
stRadio5 = ""
stRadio6 = ""
stRadio7 = ""
stRadio8 = ""
stFecha = Str(Year(Now)) & "-" & IIf(Month(Now) > 9, Str(Month(Now)), "0" & Str(Month(Now))) & "-" & IIf(Day(Now) > 9, Str(Day(Now)), "0" & Str(Day(Now)))
stHora = IIf(Hour(Now) > 9, Str(Hour(Now)), "0" & Str(Hour(Now))) & IIf(Minute(Now) > 9, Str(Minute(Now)), "0" & Str(Minute(Now))) & IIf(Second(Now) > 9, Str(Second(Now)), "0" & Str(Second(Now)))
stCarpet = txtPath.Text
IF checkbox1.Value = TRUE THEN
IF nomradio1.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 1", "Ok")
nomradio1.SetFocus
RETURN
ELSE
nomradio1.Text = UCase$(Replace$(nomradio1.text, " ", "-"))
stChain = "1"
stRadio1 = stCarpet & stFecha & "_" & nomradio1.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:1 -erc:1,1 -erc:1,2 -o:" & stRadio1
ENDIF
ENDIF
IF checkbox2.Value = TRUE THEN
IF nomradio2.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 2", "OK")
nomradio2.SetFocus
RETURN
ELSE
nomradio2.Text = UCase$(Replace$(nomradio2.text, " ", "-"))
IF stChain = "" THEN
stChain = "2"
ELSE
stChain = stChain & "," & "2"
ENDIF
stRadio2 = stCarpet & stFecha & "_" & nomradio2.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:2 -erc:2,1 -erc:2,2 -o:" & stRadio2
ENDIF
ENDIF
IF checkbox3.Value = TRUE THEN
IF nomradio3.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 3", "OK")
nomradio3.SetFocus
RETURN
ELSE
nomradio3.Text = UCase$(Replace$(nomradio3.text, " ", "-"))
IF stChain = "" THEN
stChain = "3"
ELSE
stChain = stChain & "," & "3"
ENDIF
stRadio3 = stCarpet & stFecha & "_" & nomradio3.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:3 -erc:3,1 -erc:3,2 -o:" & stRadio3
ENDIF
ENDIF
IF checkbox4.Value = TRUE THEN
IF nomradio4.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 4", "OK")
nomradio4.SetFocus
RETURN
ELSE
nomradio4.Text = UCase$(Replace$(nomradio4.text, " ", "-"))
IF stChain = "" THEN
stChain = "4"
ELSE
stChain = stChain & "," & "4"
ENDIF
stRadio4 = stCarpet & stFecha & "_" & nomradio4.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:4 -erc:4,1 -erc:4,2 -o:" & stRadio4
ENDIF
ENDIF
IF checkbox5.Value = TRUE THEN
IF nomradio5.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 5", "OK")
nomradio5.SetFocus
RETURN
ELSE
nomradio5.Text = UCase$(Replace$(nomradio5.text, " ", "-"))
IF stChain = "" THEN
stChain = "5"
ELSE
stChain = stChain & "," & "5"
ENDIF
stRadio5 = stCarpet & stFecha & "_" & nomradio5.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:5 -erc:5,1 -erc:5,2 -o:" & stRadio5
ENDIF
ENDIF
IF checkbox6.Value = TRUE THEN
IF nomradio6.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 6", "OK")
nomradio6.SetFocus
RETURN
ELSE
nomradio6.Text = UCase$(Replace$(nomradio6.text, " ", "-"))
IF stChain = "" THEN
stChain = "6"
ELSE
stChain = stChain & "," & "6"
ENDIF
stRadio6 = stCarpet & stFecha & "_" & nomradio6.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:6 -erc:6,1 -erc:6,2 -o:" & stRadio6
ENDIF
ENDIF
IF checkbox7.Value = TRUE THEN
IF nomradio7.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 7", "OK")
nomradio7.SetFocus
RETURN
ELSE
nomradio7.Text = UCase$(Replace$(nomradio7.Text, " ", "-"))
IF stChain = "" THEN
stChain = "7"
ELSE
stChain = stChain & "," & "7"
ENDIF
stRadio7 = stCarpet & stFecha & "_" & nomradio7.Text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:7 -erc:7,1 -erc:7,2 -o:" & stRadio7
ENDIF
ENDIF
IF checkbox8.Value = TRUE THEN
IF nomradio8.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 8", "OK")
nomradio8.SetFocus
RETURN
ELSE
nomradio8.Text = UCase$(Replace$(nomradio8.Text, " ", "-"))
IF stChain = "" THEN
stChain = "8"
ELSE
stChain = stChain & "," & "8"
ENDIF
stRadio8 = stCarpet & stFecha & "_" & nomradio8.Text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:8 -erc:8,1 -erc:8,2 -o:" & stRadio8
ENDIF
ENDIF
timer1.Delay = 3600000 - (((Minute(Now) * 60) + Second(Now)) * 1000)
timer1.Enabled = TRUE
SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
PRINT #$hProcess, "t"
END
PUBLIC SUB Detener_Grabacion()
timer1.Enabled = FALSE
PRINT #$hProcess, "s"
PRINT #$hProcess, "q"
END
PUBLIC SUB Timer1_Timer()
Detener_Grabacion()
Iniciar_Grabacion()
END
Explore the seven wonders of the world Learn more!
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es
Discover the new Windows Vista Learn more!
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es
|
|
Re: Hola
hola reenviamela para para ver si puedo arreglarlo. 2008/5/28 Henry Villavicencio < h_villavicencio@...>:
Muchas gracias.
Date: Wed, 28 May 2008 16:50:05 +0200
From: dcamposf@...
To: gambas-user-es@...
Subject: Re: [Gambas-user-es] HolaLa sintaxis de exec y shell a cambiado en Gambas2, antes era: SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
Ahora es hProcess=SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE Cambia eso allí donde lo tengas en tu programa
salu2
2008/5/28 Henry Villavicencio < h_villavicencio@...>:
Hola amigos:
Tengo hecha una aplicacion en gambas, por problemas del equipo en que estaba ejecutandose lo tuve que formatear e instalar todo, aprovechando eso instale xubuntu 8.04 antes tenia el xubuntu 6.04.
En el xubuntu 6.04 instale el gambas he hice una pequeña aplicacion, ahora que lo ejecute en el xubuntu 8.04 no corrio por lo que baje el gambas2 ya que no aparecia en los repositorios el gambas, y lo compile pero me sale el siguiente error:
Unknown identifier: $hProcess en linea 365 en Form1.class
la linea a que se refiere es la siguiente:
SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
Pero si tengo declarado el 4hProcess en la linea 3:
STATIC PRIVATE $hProcess AS Process
Me podrian ayudar por favor.
El programa es el siguiente:
' Gambas class file
STATIC PRIVATE $hProcess AS Process
PUBLIC SUB form_open()
txtPath.Text = system.Home & "/Radio/"
END
PUBLIC SUB Button1_Click()
Iniciar_Grabacion()
txtPath.Enabled = FALSE
button4.Enabled = FALSE
nomradio1.Enabled = FALSE
nomradio2.Enabled = FALSE
nomradio3.Enabled = FALSE
nomradio4.Enabled = FALSE
nomradio5.Enabled = FALSE
nomradio6.Enabled = FALSE
nomradio7.Enabled = FALSE
nomradio8.Enabled = FALSE
button1.Enabled = FALSE
button2.Enabled = TRUE
END
PUBLIC SUB Button2_Click()
Detener_Grabacion()
txtPath.Enabled = TRUE
button4.Enabled = TRUE
nomradio1.Enabled = TRUE
nomradio2.Enabled = TRUE
nomradio3.Enabled = TRUE
nomradio4.Enabled = TRUE
nomradio5.Enabled = TRUE
nomradio6.Enabled = TRUE
nomradio7.Enabled = TRUE
nomradio8.Enabled = TRUE
button1.Enabled = TRUE
button2.Enabled = FALSE
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button4_Click()
Dialog.Title = "Seleccione la Carpeta de Grabación"
Dialog.Path = txtPath.Text '& "Mis Documentos"
IF Dialog.SelectDirectory() THEN RETURN
txtPath.Text = Dialog.Path
END
PUBLIC SUB CheckBox1_Click()
IF checkbox1.Value = TRUE THEN
nomradio1.Enabled = TRUE
ELSE
nomradio1.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox2_Click()
IF checkbox2.Value = TRUE THEN
nomradio2.Enabled = TRUE
ELSE
nomradio2.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox3_Click()
IF checkbox3.Value = TRUE THEN
nomradio3.Enabled = TRUE
ELSE
nomradio3.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox4_Click()
IF checkbox4.Value = TRUE THEN
nomradio4.Enabled = TRUE
ELSE
nomradio4.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox5_Click()
IF checkbox5.Value = TRUE THEN
nomradio5.Enabled = TRUE
ELSE
nomradio5.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox6_Click()
IF checkbox6.Value = TRUE THEN
nomradio6.Enabled = TRUE
ELSE
nomradio6.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox7_Click()
IF checkbox7.Value = TRUE THEN
nomradio7.Enabled = TRUE
ELSE
nomradio7.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB CheckBox8_Click()
IF checkbox8.Value = TRUE THEN
nomradio8.Enabled = TRUE
ELSE
nomradio8.Enabled = FALSE
ENDIF
activa_grabar()
END
PUBLIC SUB activa_grabar()
IF checkbox1.Value = TRUE OR checkbox2.Value = TRUE OR
checkbox3.Value = TRUE OR checkbox4.value = TRUE OR
checkbox5.value = TRUE OR checkbox6.value = TRUE OR
checkbox7.value = TRUE OR checkbox8.value = TRUE THEN
button1.Enabled = TRUE
ELSE
button1.Enabled = FALSE
ENDIF
END
PUBLIC SUB Iniciar_Grabacion()
DIM stFormat AS String
DIM stChain AS String
DIM stInput AS String
DIM stCadena AS String
DIM stRadio1 AS String
DIM stRadio2 AS String
DIM stRadio3 AS String
DIM stRadio4 AS String
DIM stRadio5 AS String
DIM stRadio6 AS String
DIM stRadio7 AS String
DIM stRadio8 AS String
DIM stFecha AS String
DIM stHora AS String
DIM stCarpet AS String
stFormat = "-f:16,8,44100"
stChain = ""
stInput = "-i:alsa"
stCadena = ""
stRadio1 = ""
stRadio2 = ""
stRadio3 = ""
stRadio4 = ""
stRadio5 = ""
stRadio6 = ""
stRadio7 = ""
stRadio8 = ""
stFecha = Str(Year(Now)) & "-" & IIf(Month(Now) > 9, Str(Month(Now)), "0" & Str(Month(Now))) & "-" & IIf(Day(Now) > 9, Str(Day(Now)), "0" & Str(Day(Now)))
stHora = IIf(Hour(Now) > 9, Str(Hour(Now)), "0" & Str(Hour(Now))) & IIf(Minute(Now) > 9, Str(Minute(Now)), "0" & Str(Minute(Now))) & IIf(Second(Now) > 9, Str(Second(Now)), "0" & Str(Second(Now)))
stCarpet = txtPath.Text
IF checkbox1.Value = TRUE THEN
IF nomradio1.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 1", "Ok")
nomradio1.SetFocus
RETURN
ELSE
nomradio1.Text = UCase$(Replace$(nomradio1.text, " ", "-"))
stChain = "1"
stRadio1 = stCarpet & stFecha & "_" & nomradio1.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:1 -erc:1,1 -erc:1,2 -o:" & stRadio1
ENDIF
ENDIF
IF checkbox2.Value = TRUE THEN
IF nomradio2.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 2", "OK")
nomradio2.SetFocus
RETURN
ELSE
nomradio2.Text = UCase$(Replace$(nomradio2.text, " ", "-"))
IF stChain = "" THEN
stChain = "2"
ELSE
stChain = stChain & "," & "2"
ENDIF
stRadio2 = stCarpet & stFecha & "_" & nomradio2.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:2 -erc:2,1 -erc:2,2 -o:" & stRadio2
ENDIF
ENDIF
IF checkbox3.Value = TRUE THEN
IF nomradio3.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 3", "OK")
nomradio3.SetFocus
RETURN
ELSE
nomradio3.Text = UCase$(Replace$(nomradio3.text, " ", "-"))
IF stChain = "" THEN
stChain = "3"
ELSE
stChain = stChain & "," & "3"
ENDIF
stRadio3 = stCarpet & stFecha & "_" & nomradio3.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:3 -erc:3,1 -erc:3,2 -o:" & stRadio3
ENDIF
ENDIF
IF checkbox4.Value = TRUE THEN
IF nomradio4.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 4", "OK")
nomradio4.SetFocus
RETURN
ELSE
nomradio4.Text = UCase$(Replace$(nomradio4.text, " ", "-"))
IF stChain = "" THEN
stChain = "4"
ELSE
stChain = stChain & "," & "4"
ENDIF
stRadio4 = stCarpet & stFecha & "_" & nomradio4.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:4 -erc:4,1 -erc:4,2 -o:" & stRadio4
ENDIF
ENDIF
IF checkbox5.Value = TRUE THEN
IF nomradio5.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 5", "OK")
nomradio5.SetFocus
RETURN
ELSE
nomradio5.Text = UCase$(Replace$(nomradio5.text, " ", "-"))
IF stChain = "" THEN
stChain = "5"
ELSE
stChain = stChain & "," & "5"
ENDIF
stRadio5 = stCarpet & stFecha & "_" & nomradio5.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:5 -erc:5,1 -erc:5,2 -o:" & stRadio5
ENDIF
ENDIF
IF checkbox6.Value = TRUE THEN
IF nomradio6.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 6", "OK")
nomradio6.SetFocus
RETURN
ELSE
nomradio6.Text = UCase$(Replace$(nomradio6.text, " ", "-"))
IF stChain = "" THEN
stChain = "6"
ELSE
stChain = stChain & "," & "6"
ENDIF
stRadio6 = stCarpet & stFecha & "_" & nomradio6.text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:6 -erc:6,1 -erc:6,2 -o:" & stRadio6
ENDIF
ENDIF
IF checkbox7.Value = TRUE THEN
IF nomradio7.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 7", "OK")
nomradio7.SetFocus
RETURN
ELSE
nomradio7.Text = UCase$(Replace$(nomradio7.Text, " ", "-"))
IF stChain = "" THEN
stChain = "7"
ELSE
stChain = stChain & "," & "7"
ENDIF
stRadio7 = stCarpet & stFecha & "_" & nomradio7.Text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:7 -erc:7,1 -erc:7,2 -o:" & stRadio7
ENDIF
ENDIF
IF checkbox8.Value = TRUE THEN
IF nomradio8.Text = "" THEN
Message.Info("No ha ingresado el nombre de la radio # 8", "OK")
nomradio8.SetFocus
RETURN
ELSE
nomradio8.Text = UCase$(Replace$(nomradio8.Text, " ", "-"))
IF stChain = "" THEN
stChain = "8"
ELSE
stChain = stChain & "," & "8"
ENDIF
stRadio8 = stCarpet & stFecha & "_" & nomradio8.Text & "_" & stHora & ".mp3 "
stCadena = stCadena & "-a:8 -erc:8,1 -erc:8,2 -o:" & stRadio8
ENDIF
ENDIF
timer1.Delay = 3600000 - (((Minute(Now) * 60) + Second(Now)) * 1000)
timer1.Enabled = TRUE
SHELL "ecasound -c " & stFormat & " -a " & stChain & " " & stInput & " " & stCadena FOR WRITE AS $hProcess
PRINT #$hProcess, "t"
END
PUBLIC SUB Detener_Grabacion()
timer1.Enabled = FALSE
PRINT #$hProcess, "s"
PRINT #$hProcess, "q"
END
PUBLIC SUB Timer1_Timer()
Detener_Grabacion()
Iniciar_Grabacion()
END
Explore the seven wonders of the world Learn more!
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es
-- La plenitud no está en lograr todo lo que quieres, sino en valorar lo mucho que tienes...
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/_______________________________________________
Gambas-user-es mailing list
Gambas-user-es@...
https://lists.sourceforge.net/lists/listinfo/gambas-user-es
|
