Necesito ayuda urgente con Visual Basic porfavor!

[ruizelfiero]

pero ahora tengo este:

Código [Seleccionar] Expandir


x=0
do
msgbox "x contiene un " & x
loop while x >0
x=x+1


Y no se ke poner... AYUDA URGENTE PLZ

x inicia en 0 (cero)
entra al bucle y muestra una caja de texto "x contiene un 0"
Después dice que se repita mientras x sea mayor a cero.
como x=0 y no es mayor, sale de la estructura de repetición y luego al valor de x (cero) le incrementa 1 y x toma el valor "1".

No sirve de mucho este programa no se para que te lo hacen analizar pero bue..espero que esté bien mi solución y te ayude.

[elchiky77]

pero ahora tengo este:

Código [Seleccionar] Expandir


x=0
do



msgbox "x contiene un " & x
loop while x >0
x=x+1


Y no se ke poner... AYUDA URGENTE PLZ

x inicia en 0 (cero)
entra al bucle y muestra una caja de texto "x contiene un 0"
Después dice que se repita mientras x sea mayor a cero.
como x=0 y no es mayor, sale de la estructura de repetición y luego al valor de x (cero) le incrementa 1 y x toma el valor "1".

No sirve de mucho este programa no se para que te lo hacen analizar pero bue..espero que esté bien mi solución y te ayude.

joya muchas gracias

pero sigo con preguntas =(

Qué se obtiene en cada caso?

Código [Seleccionar] Expandir

num1=0: num2=10
do
  num1=num1+1
  num2=num2-1
  msgbox num1,num2
loop while num1<num2

Este lo hice sin problemas... es facil
pero el ke sigue no lo entendi ni ahi :S

Código [Seleccionar] Expandir

b)
n1=4:n2=80
do
n2/n1-6
if n2>n1 then
n2=n1+20
endif
loop while n2>=0
msgbox n1,n2



Ayuda nuevamente plz!

[elrosti]

code]b)
n1=4:n2=80
do
n2/n1-6
if n2>n1 then
   n2=n1+20
endif
loop while n2>=0
msgbox n1,n2
[/code]


Ayuda nuevamente plz!

Este supongo que no complará porque la linea:

n2/n1-6

supongo que tiene que dar un error, (o lo copiaste mal  ) porque no hay ninguna asignación (signo =).

[elchiky77]

code]b)
n1=4:n2=80
do
n2/n1-6
if n2>n1 then
   n2=n1+20
endif
loop while n2>=0
msgbox n1,n2
[/code]


Ayuda nuevamente plz!

Este supongo que no complará porque la linea:

n2/n1-6

supongo que tiene que dar un error, (o lo copiaste mal  ) porque no hay ninguna asignación (signo =).

lo copie bien, asi tal cual esta en el trabajo practico...

pero n2/n1-6 no se le asigna a ninguna variable... no le encuentro sentido al programa

[elrosti]

lo copie bien, asi tal cual esta en el trabajo practico...

pero n2/n1-6 no se le asigna a ninguna variable... no le encuentro sentido al programa

Yo tampoco, aunque este tipo de ejercicios  no los ponen para que tenga un sentido, lo hacen solo para que practiques las estructuras de control.

[ruizelfiero]

pero el ke sigue no lo entendi ni ahi :S

Código [Seleccionar] Expandir

b)
n1=4:n2=80
do
n2/n1-6
if n2>n1 then
n2=n1+20
endif
loop while n2>=0
msgbox n1,n2



Ayuda nuevamente plz!

Solución:

n1=4:n2=80 <------- Inicializa los valores n1 (en 4) y n2 (en 80)
do <---------------- Comienza el bucle de repetición
n2/n1-6 <----------- No hace nada, no le está dando valor a ninguna variable.
if n2>n1 then <------ si n2(80) > n1(4) entonces... <Efectivamente 80 es mayor a 4>
   n2=n1+20 <--- n2 toma el valor de n1(4) + 20, o sea n2=22
endif <-------------- fin de la condición
loop while n2>=0 <--- repetir mientras n2>=0 y n2=22 asi que vuelve al DO infinitamente pq n2 siempre va a tomar el valor "22" que es mayor a cero.
msgbox n1,n2 <------ Nunca se ejecuta ya que el programa nunca sale del bucle de repetición.

[elchiky77]

Joyaa! =)

la ultima cosaa porfavor, en 30 min tengo ke entregar este tp :S

9-   Analizar:
num =0: sum =0
do while sum < 100
   num = num +1
   sum = sum + num
loop
msgbox sum

Realizar:
a) qué hace el programa?
b) pasarlo a Do until. Analizar los resultados obtenidos
c) pasarlo a Do/ loop until. Analizar los resultados obtenidos
d) pasarlo a Do / loop while. Analizar los resultados obtenidos


ayuda porfaaa

[elrosti]

n2/n1-6 <----------- No hace nada, no le está dando valor a ninguna variable.

Te equivocas porque el programa nunca llega a comilar porque da un error de sintaxis en dicha inea.

[ruizelfiero]

a)
num =0: sum =0        <----- Inicializa num y sum en cero.
do while sum < 100    <----- mientras sum < 100.
   num = num +1        <----- Incrementa en "1" el valor de num (0 al principio).
   sum = sum + num    <----- acumula los valores de num.
loop                         <----- fin de la estructura de repetición.
msgbox sum               <----- muestra en una caja de texto el valor de sum

Lo que va a hacer el programa es ir sumando 1+2+3+4+5+...x mientras el resrultado sea menor a 100.

b)
num =0: sum =0
do until sum >= 100
   num = num +1
   sum = sum + num
loop
msgbox sum

c)
num =0: sum =0
do
   num = num +1
   sum = sum + num
loop  while sum <= 100
msgbox sum

d)
num =0: sum =0
do
   num = num +1
   sum = sum + num
loop until sum > 100
msgbox sum

Resultados obtenidos
num =16
sum=111

Lo hice demasiado rápido no se si está del todo bien.

n2/n1-6 <----------- No hace nada, no le está dando valor a ninguna variable.

Es verdad, pero supongo que esa no era la idea del ejercicio. Y algunos visual lo pasan por alto a esos errores.

[hardrocker]

No sirve de mucho este programa no se para que te lo hacen analizar pero bue..espero que esté bien mi solución y te ayude.

Es que asi se empieza, yo recuerdo que tambien comencé asi, analizando y haciendo cosas simples con bucles, booleanos, funciones, etc. Y recien despues, una vez que entiendo bien las cosas te mandan programas groxos para que tengas, guardes, archives y ordenes jaja.
Por eso es importante que sepa hacer estos, si los sabe hacer nunca va a tener problemas al respecto, salvo que sean de lógica.

[elchiky77]

Bue paso a agradecer a todos los ke ayudaron, ya ke pude terminar el tp y entregarlo... (aunq tube ke ir a los pedos a la facu ) jajaj

pero bueno

MUCHAS MUCHAS GRACIAS A TODOS!

AGUANTE ARGENTO! 

[hardrocker]

De nada loco, espero que el libro esté listo asi lo podes leer 

[elchiky77]

De nada loco, espero que el libro esté listo asi lo podes leer 

Si señor hoy me llego el libro y ya lo estoy leyendo... esta barbaro =)

[ruizelfiero]

Espero que apruebes sinó te mato  hacia un año que no agarraba Visual!!! 

[Jonyx4]

uhh
lo agarre tarde estoo sino te ayudaba pibe!! jeje

cualquier duda de visual
agregame al msn q no tengo problemas en ayudarte

saludosss