Test Foro de elhacker.net SMF 2.1

Hola a todos de nuevo yo :D

bueno aqui me tienen de nuevo con una duda, estoy realizando un sistema de oficina ya ven de esos tediosos...

mi pregunta es, que les parece este codigo:

Aqui el MDIForm1
Contiene: Command1, Command2, Label1 y Timer1
Option Explicit

Private Sub MDIForm_Load()
SaveSetting "Probando", "Prueba", "Numero", ""
Form1.Show
Form2.Show
Form2.Show
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
DeleteSetting "Probando", "Prueba"
End Sub


Aqui del Form1 (Child)
Contiene: Command1, Command2, Label1 y Timer1
Option Explicit

Private Sub Command1_Click()
Do While GetSetting("Probando", "Prueba", "Numero") <> ""
  DoEvents
Loop
SaveSetting "Probando", "Prueba", "Numero", "1"
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
SaveSetting "Probando", "Prueba", "Numero", ""
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Y aca del form2 (Child)
Contiene: Command1, Command2, Label1 y Timer1
Option Explicit

Private Sub Command1_Click()
Do While GetSetting("Probando", "Prueba", "Numero") <> ""
  DoEvents
Loop
SaveSetting "Probando", "Prueba", "Numero", "1"
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
SaveSetting "Probando", "Prueba", "Numero", ""
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Si se fijan el Form1 y Form2 tienen el mismo codigo.

Espero sus opiniones, el uso de esto es que para que haga un
procedimiento X lo haga hasta que se termine en otro o cuando
se de clic o termine una funcion, ejemplo si en ambos codigos quiero usar el

Open Archivo as append #1

Se que puedo usar el FREEFILE pero solo que no lo quiero usar.

Open Archivo For Append As #1

:/ Cual es la idea de esto?....

Cita de: cobein en  1 Mayo 2008, 12:54 PM
Open Archivo For Append As #1

:/ Cual es la idea de esto?....

es por poner un ejemplo

no es que precisamente tenga que ir ello, sino que quiero que una funcion
se detenga, hasta qe la otra haya terminado, algo asi como un semaforo
que continue hasta que la otra termine

algo asi

Public Funcion Numero as integer
Do While GetSetting("Probando", "Prueba", "Numero") <> ""
  DoEvents
Loop
SaveSetting "Probando", "Prueba", "Numero", "1"
Dim Consecutivo  as integer
Consecutivo = val(Getsetting("Probando", "Prueba", "Consecutivo"))
SaveSetting "Probando", "Prueba", "Consecutivo", cstr(consecutivo+1)
SaveSetting "Probando", "Prueba", "Numero", ""
Numero = Consecutivo
End Sub

para que no se repita el mismo numero por si es solicitado al mismo
tiempo determinado numero de veces.

Sigo sin estar completamente seguro pero no seria mas facil usar una variable publica?

Cita de: cobein en  1 Mayo 2008, 13:20 PM
Sigo sin estar completamente seguro pero no seria mas facil usar una variable publica?

en vez de usar el GetSetting

algo asi...

Dim Pasa as Integer

Public Funcion Numero as integer
Do While Pasa <> 1
  DoEvents
Loop
Pasa = 1
Dim Consecutivo  as integer
Consecutivo = val(Getsetting("Probando", "Prueba", "Consecutivo"))
SaveSetting "Probando", "Prueba", "Consecutivo", cstr(consecutivo+1)
Pasa = 0
Numero = Consecutivo
End Sub

Citar

Código (vb) [Seleccionar] Expandir

Private Sub MDIForm_Load()
SaveSetting "Probando", "Prueba", "Numero", ""
Form1.Show
Form2.Show
Form2.Show
End Sub


mmm cargas dos veces el form2 :S

el resto para mi es chino... no entiendo q quieres hacer... :P

SALUDOS

Hola,desde el primer post no entiendo que queres hacer,si queres que te analizemos el programa que estas haciendo ,es mejor que lo subas asi lo vemos mejor,porque asi poniendo el codigo ,tenemos que crearlo nosotros a ver como funciona,y eso es perdida de tiempo...

saludos.