Para baltasar o sdemingo
de donde puedo sacar informacion para poder estudiar necesito saber esto-modulos: procedimiento, funciones, variables globaleso publicas.
funciones: public, alcance es si la funcion puede ser acesada de adentro o fuera.
function nombre de la funcion(byval o byref as tipo de parametro) as y el tipo de dato (interger).
procedimiento:public ó private sub nombre procedimiento(byvl o byref parametro as tipo de parametro)
public sub suma(byval op1 as double, byval op2 as double, byref resultado as double)
resultado = op1 + op2
end sub
public funtion suma(byval op1 as double, byval op2 as double)
suma = op1+op2
end function
public sub botonsuma_click()
dim resultadosuma as double
call suma(val(text1.text),val(text2.text),resultadosuma)
text3.text=resultadosuma
resultadosuma = suma(val(text1.text),val(text2.text))
text3.text=resultadosuma
end sub
-multiformularios
nombreformulario.show : mostrar y cargar formulario
nombreformulario.hide : hace ke desaparesca pero sigue cargado
nombreformulario.load : carga el formulario
unload me : carga y descarga
-menu
cliente compras
...nuevo ...nuevo
...eliminar ...eliminar
...modificar ...modificar
-ciclo for, while
for i= 0 to 100
sentencia
next i
end for
while i <= 100
sentencia
wend
-elementos graficos
-arreglos
dim arreglo (9) as double o el tipo de dato a guardar
dim x as double
x= arreglo(2)
kiero cargar el arreglo con valios valores
for i=0 to 9
arreglo(i)=i+2
next i
byval comparar por parametro
byref no permite comparar un valor
Necesito esto pero un pòco mas a fondo.
un saludo y muchas gracias.
funciones: public, alcance es si la funcion puede ser acesada de adentro o fuera.
function nombre de la funcion(byval o byref as tipo de parametro) as y el tipo de dato (interger).
procedimiento:public ó private sub nombre procedimiento(byvl o byref parametro as tipo de parametro)
public sub suma(byval op1 as double, byval op2 as double, byref resultado as double)
resultado = op1 + op2
end sub
public funtion suma(byval op1 as double, byval op2 as double)
suma = op1+op2
end function
public sub botonsuma_click()
dim resultadosuma as double
call suma(val(text1.text),val(text2.text),resultadosuma)
text3.text=resultadosuma
resultadosuma = suma(val(text1.text),val(text2.text))
text3.text=resultadosuma
end sub
-multiformularios
nombreformulario.show : mostrar y cargar formulario
nombreformulario.hide : hace ke desaparesca pero sigue cargado
nombreformulario.load : carga el formulario
unload me : carga y descarga
-menu
cliente compras
...nuevo ...nuevo
...eliminar ...eliminar
...modificar ...modificar
-ciclo for, while
for i= 0 to 100
sentencia
next i
end for
while i <= 100
sentencia
wend
-elementos graficos
-arreglos
dim arreglo (9) as double o el tipo de dato a guardar
dim x as double
x= arreglo(2)
kiero cargar el arreglo con valios valores
for i=0 to 9
arreglo(i)=i+2
next i
byval comparar por parametro
byref no permite comparar un valor
Necesito esto pero un pòco mas a fondo.
un saludo y muchas gracias.
Si te interesa lo que puedo hacer es prepararte una explicación a mi manera. Creo que te serviría para aprender, pero no para presentar en un trabajo.
