Autoit.ES

En español. Descarga programas libres y Open-Source. Añade tu programa a la librería de Scripts en Autoit.es
http://autoit.es/

problema usando dos ventanas

http://autoit.es/viewtopic.php?t=1878

Página 1 de 1

problema usando dos ventanas

Publicado: 13 Dic 2009, 18:41
por xapu
haber... XD e empezado a hacer un vamdecum para almacenar datos sobre plantas, y mi problema es que e creado dos arxivos con dos gui y uno lo tengo en include del otro para poderlo llamar, lo k pasa eske al otro lo llamo con una funcion func tipobjeto() y dentro de esta funcion estan las funciones de la otra gui, pero de esa manera da error, y si saco las otras funciones de la func tipobjeto() al dalre a los botones no funciona... XDD no se si me abre explicado bien :smt009 , pero plix ayuda!!
asi es como da el error

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include "opciones.au3"
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("conexion", 210, 298, 571, 296)
$Input1 = GUICtrlCreateInput("", 40, 40, 129, 21)
$Input2 = GUICtrlCreateInput("", 40, 88, 129, 21)
$Input3 = GUICtrlCreateInput("", 40, 136, 129, 21)
$Input4 = GUICtrlCreateInput("", 40, 184, 129, 21)
$Label1 = GUICtrlCreateLabel("usuario", 88, 16, 38, 17)
$Label2 = GUICtrlCreateLabel("password", 80, 64, 49, 17)
$Label3 = GUICtrlCreateLabel("db", 95, 160, 44, 17)
$Button1 = GUICtrlCreateButton("ok", 24, 232, 161, 33, $WS_GROUP)
$Label4 = GUICtrlCreateLabel("servidor", 85, 112, 41, 17)

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUICtrlSetOnEvent($Button1, "Botton1Click")

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

;##############################
;#funciones del formulario    #
;##############################

Func Botton1Click()
	Dim $username = GUICtrlRead($Input1)
	Dim $Password = GUICtrlRead($Input2)
	Dim $Database = GUICtrlRead($Input4)
	Dim $MySQLServerName = GUICtrlRead($Input3)
	GUIDelete ( $Form1 )
	tipobjeto()
EndFunc   ;==>Botton1Click
Func Form1Close()
	Exit
EndFunc   ;==>Form1Close
y el opciones.au3

Código: Seleccionar todo

func tipobjeto()
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <mysql.au3>

	Opt("GUIOnEventMode", 1)
	#Region ### START Koda GUI section ### Form=
	$Form2 = GUICreate("vandecum", 231, 145, 192, 124)
	$Button100 = GUICtrlCreateButton("introducir planta", 24, 16, 185, 33, $WS_GROUP)
	$Button200 = GUICtrlCreateButton("borrar planta", 24, 56, 185, 33, $WS_GROUP)
	$Button300 = GUICtrlCreateButton("buscar plantas", 24, 96, 185, 33, $WS_GROUP)

	GUISetOnEvent($GUI_EVENT_CLOSE, "Form2Close")
	GUICtrlSetOnEvent($Button100, "Button100Click")
	GUICtrlSetOnEvent($Button200, "Button200Click")
	GUICtrlSetOnEvent($Button300, "Button300Click")
	GUISetState(@SW_SHOW)
	#EndRegion ### END Koda GUI section ###

	While 1
		Sleep(100)
	WEnd


;##############################
;#funciones del formulario    #
;##############################

Func Button100Click()

EndFunc
Func Button200Click()

EndFunc
Func Button300Click()

EndFunc
Func Form2Close()
	Exit
EndFunc
EndFunc

Re: problema usando dos ventanas

Publicado: 13 Dic 2009, 20:23
por Alastor
No puedo ayudar mucho sin mas datos...
pero aqui tienes:

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include "opciones.au3"

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("conexion", 210, 298, 571, 296)
$Input1 = GUICtrlCreateInput("", 40, 40, 129, 21)
$Input2 = GUICtrlCreateInput("", 40, 88, 129, 21)
$Input3 = GUICtrlCreateInput("", 40, 136, 129, 21)
$Input4 = GUICtrlCreateInput("", 40, 184, 129, 21)
$Label1 = GUICtrlCreateLabel("usuario", 88, 16, 38, 17)
$Label2 = GUICtrlCreateLabel("password", 80, 64, 49, 17)
$Label3 = GUICtrlCreateLabel("db", 95, 160, 44, 17)
$Button1 = GUICtrlCreateButton("ok", 24, 232, 161, 33, $WS_GROUP)
$Label4 = GUICtrlCreateLabel("servidor", 85, 112, 41, 17)


GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			Dim $username = GUICtrlRead($Input1)
			Dim $Password = GUICtrlRead($Input2)
			Dim $Database = GUICtrlRead($Input4)
			Dim $MySQLServerName = GUICtrlRead($Input3)
			GUIDelete($Form1)
			tipobjeto()

	EndSwitch
WEnd
opciones.au3:

Código: Seleccionar todo

#include <mysql.au3>

Func tipobjeto()

	$Form2 = GUICreate("vandecum", 231, 145, 192, 124)
	$Button100 = GUICtrlCreateButton("introducir planta", 24, 16, 185, 33, $WS_GROUP)
	$Button200 = GUICtrlCreateButton("borrar planta", 24, 56, 185, 33, $WS_GROUP)
	$Button300 = GUICtrlCreateButton("buscar plantas", 24, 96, 185, 33, $WS_GROUP)
	GUISetState(@SW_SHOW)

	While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case $GUI_EVENT_CLOSE
				ExitLoop

			Case $Button100


			Case $Button200


			Case $Button300

		EndSwitch
	WEnd
EndFunc   ;==>tipobjeto
espero que te sirva...

Re: problema usando dos ventanas

Publicado: 13 Dic 2009, 23:22
por xapu
gracias.. pero sige sin funcionar..
si saves k puede ser dimelo.

Re: problema usando dos ventanas

Publicado: 13 Dic 2009, 23:37
por Alastor
el que no te funciona exactamente?
a mi me funcionan 100% los que te he puesto o.O

Re: problema usando dos ventanas

Publicado: 15 Dic 2009, 19:07
por xapu
Alastor escribió:el que no te funciona exactamente?
a mi me funcionan 100% los que te he puesto o.O
lo k no me funcionan son los botones del segundo formulario..
pero a ti te van los botones?o solo te aparece el form?.
ami sige sin irme.. bueno de todos modos gracias.

Re: problema usando dos ventanas

Publicado: 15 Dic 2009, 23:05
por Alastor
hombre, los botones claro q no te iran, si no les he puesto ninguna funcion :smt005
les tienes q poner las funciones tu xD

Re: problema usando dos ventanas

Publicado: 16 Dic 2009, 10:25
por xapu
¬¬
claro que e puesto funciones..
pero no van los puos botones mierdaaaa!!!

Re: problema usando dos ventanas

Publicado: 16 Dic 2009, 10:35
por xapu
siii!!!!! :smt003
c´est fini!!
ya esta muchas gracias... menuda jilipollez...
estaba declarando las funciones dentro de otra funcion.. entonces no me iva pero ya esta..XDD

Re: problema usando dos ventanas

Publicado: 16 Dic 2009, 14:16
por Ximorro
Xapu, ya te estás disculpando con los botones, que no se merecían esos insultos :smt003

Recuerda, "el ordenador no hace lo que quieres que haga, hace lo que le dices que haga". Y más programando.

Programando, cuando la cosa no funciona normalmente la culpa es nuestra, otra cosa es cuando chocas con errores en el propio sistema, ya sea hardware o algún soft sobre el que trabajas (S.O., compilador, sistema de desarrollo), entonces sí que es para tirarse de los pelos porque revisas lo tuyo un millón de veces y resulta que lo tienes bien...

Pero este no era el caso, pobres botoncitos...

Re: problema usando dos ventanas

Publicado: 16 Dic 2009, 20:23
por xapu
tienes razon...me e pasado kn ellos. :smt010
eske era la primera vez k me encontraba kon esa situacion i no savia k no se pueden meter funciones dentro de otras funciones...
bueno pues muxas gracias :smt002
XD

Re: problema usando dos ventanas

Publicado: 17 Dic 2009, 21:03
por xapu
si eske no se k ago!!! :smt022
otra vez k no va...
por favor ponme un ejemplo usando las funciones k no lo guarde.. si eske.
lo tenia k haber guardao...

Re: problema usando dos ventanas

Publicado: 18 Dic 2009, 22:07
por xapu
lol!
en un ordenador me va i en otro no.
me descargo otra vez el autoit i ya esta no?

Re: problema usando dos ventanas

Publicado: 19 Dic 2009, 12:14
por Alastor
lol
como q en uno si y en otro no? xD
no sera que no lo has compilado con los includes incluidos?...

Re: problema usando dos ventanas

Publicado: 20 Dic 2009, 01:00
por xapu
ya se cual era el problema... y es que no me va algun comando en dos de los ordenadores que lo he provado, pero de todos modos lo e exo de otra manera i ya esta
este es el comando que no me va

Código: Seleccionar todo

    While 1
           $nMsg = GUIGetMsg()
           Switch $nMsg
              Case $GUI_EVENT_CLOSE
                 Exit
           EndSwitch
        WEnd

Re: problema usando dos ventanas

Publicado: 21 Dic 2009, 09:32
por Ximorro
Esta pregunta la has pasado a otro tema ¿verdad?

Una cuestión ¿cómo compilas? ¿usas Scite?

Un compañero tuvo muchos problemas porque cuando se invoca el compilador con el menú contextual (con el botón derecho en un explorador de archivos) no comprobaba bien la sintaxis, y compilaba con errores y todo, y luego no iba, claro.

Piensa que aunque hayas escrito bien el código, si tienes problemas como esos puede ser por ejemplo que se te haya olvidado un include o cosas así.
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España