problema usando dos ventanas

[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 , 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

[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...

[xapu]

gracias.. pero sige sin funcionar..
si saves k puede ser dimelo.

[Alastor]

el que no te funciona exactamente?
a mi me funcionan 100% los que te he puesto o.O

[xapu]

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.

[Alastor]

hombre, los botones claro q no te iran, si no les he puesto ninguna funcion
les tienes q poner las funciones tu xD

[xapu]

¬¬
claro que e puesto funciones..
pero no van los puos botones mierdaaaa!!!

[xapu]

siii!!!!!
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

[Ximorro]

Xapu, ya te estás disculpando con los botones, que no se merecían esos insultos

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...

[xapu]

tienes razon...me e pasado kn ellos.
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
XD

[xapu]

si eske no se k ago!!!
otra vez k no va...
por favor ponme un ejemplo usando las funciones k no lo guarde.. si eske.
lo tenia k haber guardao...

[xapu]

lol!
en un ordenador me va i en otro no.
me descargo otra vez el autoit i ya esta no?

[Alastor]

lol
como q en uno si y en otro no? xD
no sera que no lo has compilado con los includes incluidos?...

[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

[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í.