Oks pana que bien, pero eso ya seria otra cosa diferente a la programacion, claro que para las dos hay q usar logica pero siempre se diferencia en muchas cosas, nosotros tambien estamos trabajando con base de datos con access y a la vez realacionandolas con VBguti696 escribió:A mi me dieron en 9no diseño de base de datos con access, pero no me acuerdo un co... xD
) y siento que estoy mas quemado que el carajo xD, ya ni estoy seguro de como se declara una variable xD y hasta confundo instrucciones en C++ y VB xD
Oks mi pana aun no pruebo el codigo, pero tengo una pregunta para estos casos cuando son programas como este siempre hay q usar esto que declaras aca "Año1, Año2, AñosDif as integer" ? Acabo de probar el codigo y al parecer hay un pequeño error mi panaBigDro escribió:Ha pasado año y medio desde que deje de programar en VB (mi ultimo programa fue el de mi tesis de bachillerato
El programa podria ser asi en caso de que quieras poner el "año actual" como un año X que tu eligas (que seria ambiguo si se compara con el planteamiento)
private sub command1_click ()
Año1, Año2, AñosDif as integer
año1 = Val(Text1.Text)
año2 = Val(Text2.Text)
if año1 or año2 < 0 then
Msgbox ("Error, al menos uno de los años es negativo, ingrese solo valores positivos")
else
if año1 < año2 then
Msgbox ("Error, el año actual no puede ser menor que el otro año")
else
añosdif = año1 - año2
Text3.Text = añosdif
end if
end if
end sub
O bien podria ser asi en caso tal de que el "año actual" sea constante, en vez de usar 3 textbox usas 1 label ("año actual", y le das tu mismo el valor desde el panel de caracteristicas del objeto, y este no podria ser cambiado por el usuario al momento de ejecutar el programa) y 2 textbox (uno del otro año que el usuario ponga y el otro del resultado)
private sub command1_click ()
Año1, Año2, AñosDif as integer
año1 = Val(label1.text)
año2 = Val(Text2.Text)
if año2 < 0 then
Msgbox ("Error, introduzca un año positivo")
else
if año1 < año2 then
Msgbox ("Error, el año actual no puede ser menor que el otro año")
else
añosdif = año1 - año2
Text3.Text = añosdif
end if
end if
end sub
Se hace uso de condicionales if para darle robustez al programa (hacerlo menos propenso a errores), si bien no es necesario declarar variables para este programa porque se puede trabajar directamente sobre los objetos es recomendable declararlas porque? por una simple razon: Si yo declaro las variables como integer, obligo al programa a leerme solo numeros enteros (sin decimales), en cambio si no lo hago y el usuario mete por ejemplo 1589.888 al hacerse el calculo dara resultados con decimales cosa que seria erronea porque uno no habla de "tantos años con tanto" como si fuese dinero o algo asi
Hay 3000 formas mas de hacerlo, unas mas largas para darle mas robustez al programa y hacerlo mucho menos propenso a errores y otras mas cortas, pero estas que te di serian las estándar o básicas
Espero haberte ayudado
Si te refieres al signo de menor y mayot que, el pana en el codigo los coloco "<" Menor que yo los voltie ah mayor y sigue arrojando el mismo errorjose.panita escribió:debes tener invertidos los inputs, revisalos
no no, me refiero a los Inputs, los campos ps, revisa si no tienes los nombres invertidos, o alguna variable mal declaradakeldangelxD escribió:Si te refieres al signo de menor y mayot que, el pana en el codigo los coloco "<" Menor que yo los voltie ah mayor y sigue arrojando el mismo errorjose.panita escribió:debes tener invertidos los inputs, revisalos
BigDro escribió:ya corregi, el error esta en la linea que dice "if val(text1.text) or val(text2.text) < 0 then" cambiala por "if (val(text1.text) or val(text2.text)) < 0 then" se necesitan agregar ese par de parentesis porque sino se crea un error entre el "or" y el "<"
por cierto viejo, que te han dado de VB y en que año estas? porque es bastante extraño que no sepas cosas tan basicas como lo que significa "integer, double, string", como dimensionar (o declarar) una variable, y ese tipo de cosas, esas son cosas que cualquier buen profesor debe enseñar antes de mandarte a dar golpes con VB en una computadora, a menos claro que sea un profesor "coñ0 de madr3" (y disculpen la palabra) que le guste hacer aprender a los alumnos a los golpes
No se si me entiendes, no critico que no sepas esas cosas porque tu estas aprendiendo y es 1000% justificable que no lo sepas, critico a tu profesor que te quiere enseñar a sumar sin decirte ni siquiera que cosa es un número
keldangelxD escribió:BigDro escribió:ya corregi, el error esta en la linea que dice "if val(text1.text) or val(text2.text) < 0 then" cambiala por "if (val(text1.text) or val(text2.text)) < 0 then" se necesitan agregar ese par de parentesis porque sino se crea un error entre el "or" y el "<"
por cierto viejo, que te han dado de VB y en que año estas? porque es bastante extraño que no sepas cosas tan basicas como lo que significa "integer, double, string", como dimensionar (o declarar) una variable, y ese tipo de cosas, esas son cosas que cualquier buen profesor debe enseñar antes de mandarte a dar golpes con VB en una computadora, a menos claro que sea un profesor "coñ0 de madr3" (y disculpen la palabra) que le guste hacer aprender a los alumnos a los golpes
No se si me entiendes, no critico que no sepas esas cosas porque tu estas aprendiendo y es 1000% justificable que no lo sepas, critico a tu profesor que te quiere enseñar a sumar sin decirte ni siquiera que cosa es un número
Oks men, pues la verdad si habiamos declarado variables de esa forma pero nunca aviamos trabajado con el "Integer" y ahorita mismo estoy viendo el Lenguaje de programacion II con el VB, anterior mente aviamos trabajados con puros programas simples que si hacer una calculadora que si una suma que si una multiplicacion que si crear un menu contextual y cosas simples, bueno ahora pruebo el codigo nuevamente pon la parte que debo corregir y publico si me corre bien o no
Oks mi pana el codigo esta vez por lo menos correo, pero ahora apareciendo 2 errores ya eh corregido uno por lo que queda uno y es l siguiente:
private sub command1_click ()
if val(text1.text) or val(text2.text) < 0 then
Msgbox ("Error, al menos uno de los años es negativo, ingrese solo valores positivos")
else
if val(text1.text) < val(text2.text) then
Msgbox ("Error, el año actual no puede ser menor que el otro año")
else
text3.text = val(text1.text) - val(text2.text)
end if
end if
end sub
Los errores los mascare en el codigo en color rojo para que los vean.
1.) "<" Debia ir al lador mayor que ">"
2.) La ultima parte me imagino que es donde el programa me arojara el resultado de cuantos años faltan, como no tengo un tercer TexBox me arrojara un problema porque no tiene donde darme el resultado, cambie el tex por el Label y si me arroja el resultado claro mi celda que dejo para arrojar resultado es un "Label" ahora tengo una pregunta cuando probe el programa con el label me dio fino todo bien el resultado exelente pero como esta declarado el label en la programacion de esta forma "val(text1.text) - val(text2.text)" en el label el resultado me daba "-5" y quiero saber como hacer para quitarle ese " - " (menos) O sea que solo me de el numero ?
me auto quoteo, algun traductor PHP > VisualkeldangelxD escribió:Amigos hoy me entere de que el año cualquiera puede ser menor que en año actual, y con el codigo que me ayudaron no acepta que el año cualquiera sea menor que el actual, ayuda sigo enredado.
Saludos
:D
ese codigo trabaja para ambos casos, tanto el que sea mayor o menor el año introducido al actualjose.panita escribió: <?php
$año_actual = date("Y"); #esto me da la fecha actual
$año_input = (int)$_GET["year"]; #Con esto obtengo la fecha que me da el usuario.
if(isset($año_input)){ #esto es una comprovacion si el año que me da el usuario esta seteado
$result = $año_input - $año_actual; #resto el que dio el usuario con el actual
if($result < 0){ #si el resultado es negativo
print("Ya Han pasado ". sqrt(pow($result,2)). " años desde $año_input");
}else if($result == 0){
print("$result es la fecha Actual");
}
else{
print("Faltan $result años para $año_input");
}
}
?>
. Pude crear otro codigo que el cual me funciono para la dos formas (Siendo menor o mayor el año cualquiera) Luego de haber finalizado con el codigo surgio una pequeña duda que es la que menciono antes pero pude solucionarla, analizando un poco pude darme cuenta de algo y inverti una pequeña cosa que iso invertir de igual forma el resultado de esta manera:
