Página 2 de 4

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 20 Feb 2015 06:35
por Dow Sher
Pues muy fácil, solo edita un poco el Script del proyecto y adáptalo a tus necesidades...
seguramente en ele ejemplo en algún boton o algo tiene que venir algo como...
Folder.Copy();
y eso debes de cambiarlo por
File.Open();

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 23 Feb 2015 06:40
por Patto_UY
Hola, cómo están? no sé si yo son muy torpe o esto es bastante difícil. Llevo días intentando lo mencionado pero no me deja, porque si altero parte del código no funciona nada y me da error.

Este es el botón Install: esto esta en On Clic
Paragraph.SetVisible("Paragraph1", false);

local tbChecks ={}
local tblNodes = {"1.1","1.2","2.1","2.2","3.1","3.2"}
n=1
--Debug.Clear()
if tbChecks then
	for i,Node in pairs	(tblNodes) do
		tNode =Tree.GetNode("Tree1",Node);
		if tNode.Checked == true then
			tbChecks[n]={Ind=Node,Data=tNode.Data}
			n=n+1
		end
	
	end
--#############################################################################
--Debug.ShowWindow(true);
	
		--for count=1,Table.Count(tbChecks) do
			--Debug.Print(tbChecks[count]["Ind"].."\r\n"..tbChecks[count]["Data"].."\r\n");
		--end

--###############################################################################

	for count=1,Table.Count(tbChecks) do
		Path = tbChecks[count]["Data"]
		File.Copy(Path, _DesktopFolder, false, true, false, false,FileCopyCallback);
		error = Application.GetLastError();
	    if (error ~= 0) then
	        Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
	        tbChecks=nil;
	    	break;
	   
	    	
		end
	end
end
y este es el Tree con Checkbox en On Check
tblProp = {};

-- Get the child count of 'Tree1'
ChildCount = Tree.GetChildCount("Tree1", "1");

-- Get the child count of 'Tree2'
ChildCount2 = Tree.GetChildCount("Tree1", "2");

-- Get the child count of 'Tree3'
ChildCount3 = Tree.GetChildCount("Tree1", "3");

-- Check if main index checked
if (e_NodeIndex == "1") and (e_Checked == true) then
for count = 1, ChildCount, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "1."..count, tblProp);
end

-- Check if main index not checked
elseif (e_NodeIndex == "1") and (e_Checked == false) then
for count = 1, ChildCount, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "1."..count, tblProp);
end
end


-- Check if second index checked
if (e_NodeIndex == "2") and (e_Checked == true) then
for count = 1, ChildCount2, 1 do
tblProp.Checked = true;
Tree.SetNode("Tree1", "2."..count, tblProp);
end

-- Check if second index not checked
elseif (e_NodeIndex == "2") and (e_Checked == false) then
for count = 1, ChildCount2, 1 do
tblProp.Checked = false;
Tree.SetNode("Tree1", "2."..count, tblProp);
end
end
Intente mil cosas pero ninguna me funciono. :SOS:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 24 Feb 2015 08:48
por anchobeta
Patto_UY escribió:...lo que dijiste es muy algo asi que lo acorto de este manera...
Colega, no entiendo, con lo facil de que es hacer un TEU, dime exactamente lo que quieres, y si deseas, sube a MEGA unos 5 de tus programas que los tienes ya listos para cuando se ejecuten se instalen, y te lo armo todo, te lo comento, y así aprenderás mejor. :friends:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 25 Feb 2015 01:16
por Patto_UY
Hola, como estas? Lo que quiero hacer es concretamente esto:

Imagen

Cualquier cosa me comentas.

Te subí 6 programitas, no te subí más porque no sé si quieres más y la descarga se te hace más pesada.

MEGA: https://mega.co.nz/#!0AECkbiY!i26iBn46e ... G8qiMSUbcI

Gracias por contestar! Un saludo. :rofl:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 03 Mar 2015 00:27
por Patto_UY
Hola! Alguien tiene alguna idea? Creo que tendré que buscar otra alternativa. :pc:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 11 Mar 2015 01:26
por Patto_UY
Hola, como están? Se entendió lo que quiero hacer? Me quedo todo estancado por el maldito código. Saludos!!! :sorry:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 11 Mar 2015 10:45
por rafaxplayer
Busca en AMSFiles un ejemplo llamado Tree install packages , creo que es lo que quieres hacer.

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 11 Mar 2015 21:55
por Patto_UY
rafaxplayer escribió:Busca en AMSFiles un ejemplo llamado Tree install packages , creo que es lo que quieres hacer.
Hola, como estas?. Si lo es y ya lo había descargado, es el código que está más arriba, copia archivos al escritorio y tengo que cambiar lo de copiar por ejecutar los .exe. Un usuario me dijo que cambiara "Folder.Copy();" por "
File.Open();[lua]" pero no solo no se encuentra Folder.Copy() en el codigo y [lua]File.Open();[lua] no funciono.

Gracias por contestar, espero ansioso tu respuesta. 
Un Saludo! :friends:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 13 Mar 2015 05:05
por Patto_UY
Hola, desistí con el "Tree con checkbox" ya que llevo semanas y el maldito cartel de error no para de salirme y no conseguí el plugin.

Ahora estoy intentando con ListBox pero si lo marco o no se inicia igual.

Aquí está el código:

if ListBox.GetItemText("ListBox1", 2) then
File.Run("AutoPlay\\Docs\\CCleaner.exe", "", "", SW_SHOWNORMAL, true);
end

Gracias!!! :waiting-1417756997:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 13 Mar 2015 08:26
por rafaxplayer
:hypno: :hypno: :hypno: :hypno:
Esto que es?
if ListBox.GetItemText("ListBox1", 2) then
esa funcion te retorna el texto del item no un booleano .

seria con:

ListBox.GetItemCheck

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 14 Mar 2015 00:59
por Patto_UY
rafaxplayer escribió::hypno: :hypno: :hypno: :hypno:
Esto que es?
if ListBox.GetItemText("ListBox1", 2) then
esa funcion te retorna el texto del item no un booleano .

seria con:

ListBox.GetItemCheck


Hola, el ejemplo de Autoplay no lo entendí, me he recorrido todo el archivo de ayuda y nada.

Intento con esto pero me da error:

nChecked = ListBox.GetItemCheck("ListBox1", 2);
File.Run("AutoPlay\\Docs\\CCleaner.exe", "", "", SW_SHOWNORMAL,true);
end

No puedo creer que sea tan difícil.
Un saludo! :cerrado:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 14 Mar 2015 09:35
por rafaxplayer
No es que sea dificil , es que no ne tiendes lo basico en programacion como por ejemplo los tipos que pueden retornar cada funcion , ayuda te lo dice , pero veo que no sabes tratarlos ni de lejos.

El tema seria algo asi;
if ListBox.GetItemCheck("ListBox1", 2) then
--Instala el programa que esta enel item 2
File.Run("AutoPlay\\Docs\\CCleaner.exe", "", "", SW_SHOWNORMAL,true);
elseif ListBox.GetItemCheck("ListBox1", 3) then
File.Run("AutoPlay\\Docs\\Photoshop.exe", "", "", SW_SHOWNORMAL,true);
elseif.. --y asi sucesivamente y en el ultimo pones end al final

end

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 14 Mar 2015 20:59
por Dow Sher
:wat-1414024905: No entiendo porque este tema se esta alargando tanto si lo que el usuario busca no es tan complicado :wat-1414024905:

Bueno, parece ser que no comprendes muy bien como funciona el código de programación y por ello te resulta difícil crear el código para lo que necesitas. Cualquier línea de código que no comprendas, lee la ayuda de AMS ahí esta todo (si no sabes ingles usa el traductor google xD).

Pero bueno, para no hacerte el cuento largo aquí te dejo este ejemplillo que acabo de hacer para ti.
HIDE: ON
Hidebb Message Hidden Description

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 16 Mar 2015 01:16
por serot
:penguin: observando gracias

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 17 Mar 2015 03:25
por Patto_UY
dowsher escribió::wat-1414024905: No entiendo porque este tema se esta alargando tanto si lo que el usuario busca no es tan complicado :wat-1414024905:

Bueno, parece ser que no comprendes muy bien como funciona el código de programación y por ello te resulta difícil crear el código para lo que necesitas. Cualquier línea de código que no comprendas, lee la ayuda de AMS ahí esta todo (si no sabes ingles usa el traductor google xD).

Pero bueno, para no hacerte el cuento largo aquí te dejo este ejemplillo que acabo de hacer para ti.
HIDE: ON
Hidebb Message Hidden Description




Hola, como estas? Mil gracias!!! :rofl:
Es totalmente diferente a lo que yo estaba haciendo, esto lee las carpetas y los archivos sin necesidad de ponerlos manualmente.
Ahora viene la parte más difícil como que cuente los que hay, los que se instalaran, la barra de progreso...

También lo de los preestablecidos, en ListBox los hacía por ejemplo así:


los_checkeados = ListBox.GetChecked("ListBox1", BST_CHECKED);
if los_checkeados ~= nil then
for c in pairs(los_checkeados) do
itemch = ListBox.GetItemCheck("ListBox1", los_checkeados[c]);
if itemch == 1 then
ListBox.SetItemCheck("ListBox1", los_checkeados[c], BST_UNCHECKED);
end
end
end
ListBox.SetItemCheck("ListBox1", 2, BST_CHECKED);
ListBox.SetItemCheck("ListBox1", 4, BST_CHECKED);
ListBox.SetItemCheck("ListBox1", 8, BST_CHECKED);

Es fascinante lo que se puede llegar a hacer con los conocimientos adecuados. Lo difícil es empezar, uno se desmoraliza al errar tanto y pasar horas sin tener idea de lo que está haciendo. No sé dónde aprender todo esto, crees que con el archivo ayuda se pueda aprender a dominar este tema?

Voy a tratar de tirar del archivo de ayuda de AMS y traducirlo.

Otra vez, gracias por ayudarme!!! Un saludo. :friends:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 17 Mar 2015 03:44
por Patto_UY
rafaxplayer escribió:No es que sea dificil , es que no ne tiendes lo basico en programacion como por ejemplo los tipos que pueden retornar cada funcion , ayuda te lo dice , pero veo que no sabes tratarlos ni de lejos.

El tema seria algo asi;
if ListBox.GetItemCheck("ListBox1", 2) then
--Instala el programa que esta enel item 2
File.Run("AutoPlay\\Docs\\CCleaner.exe", "", "", SW_SHOWNORMAL,true);
elseif ListBox.GetItemCheck("ListBox1", 3) then
File.Run("AutoPlay\\Docs\\Photoshop.exe", "", "", SW_SHOWNORMAL,true);
elseif.. --y asi sucesivamente y en el ultimo pones end al final

end
Hola, gracias!!! Me sirvió a la perfección.

Un Saludo! :rofl:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 17 Mar 2015 05:06
por Dow Sher
Patto_UY escribió:Es totalmente diferente a lo que yo estaba haciendo, esto lee las carpetas y los archivos sin necesidad de ponerlos manualmente.
Ahora viene la parte más difícil como que cuente los que hay, los que se instalaran, la barra de progreso...
:content-1414023392: No es tan difícil lo de la barra de progreso y lo de llevar la cuenta de los programas instalados y los que faltan. ahora no tengo tiempo pero si no te urge mucho podria decirte como hacerlo.

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 17 Mar 2015 05:21
por Patto_UY
dowsher escribió:
Patto_UY escribió:Es totalmente diferente a lo que yo estaba haciendo, esto lee las carpetas y los archivos sin necesidad de ponerlos manualmente.
Ahora viene la parte más difícil como que cuente los que hay, los que se instalaran, la barra de progreso...
:content-1414023392: No es tan difícil lo de la barra de progreso y lo de llevar la cuenta de los programas instalados y los que faltan. ahora no tengo tiempo pero si no te urge mucho podria decirte como hacerlo.

Hola, como estas? Por supuesto que puedo esperar!
La posibilidad de aprender me entusiasma muchísimo, igual sin ayuda dudo que pueda hacer lo de la barra y lo demás…
Un saludo y gracias nuevamente.
:rofl:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 08 May 2015 16:34
por Patto_UY
Hola, hay alguien que me pueda echar un cable para terminar el proyecto? Gracias!!! :SOS:

Re: Ayuda con herramienta "CHECKBOX", instalar varios progra

Publicado: 09 May 2015 20:28
por Dow Sher
Patto_UY escribió:Hola, hay alguien que me pueda echar un cable para terminar el proyecto? Gracias!!! :SOS:
Aquí tiene usted, mi ejemplo terminado. Perdón por no haberlo hecho antes pero no me había dado tiempo :sorry:
HIDE: ON
Hidebb Message Hidden Description