Foro de elhacker.net

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

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?

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

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.