Ignis Heeelp........

[fearlex]

Ignis

Me siento muy mal pero por mas que traté no di cin la respuesta, no sé, estoy muy por debajo del nivel o que, creo que no tengo logica de programación ninguna, estoy desesperado pues me gustaria aprender con urgencia, pues de ello depende mi trabajo y mi estado de animo, no se que hacer, no encuentro la forma de hacerlo y se que es bien sencillo por favor dame una pista y lo intentaré, no sé algo,pliiiiiiiiiiiiiisss.




Un amigo decepcionado.

[RootK]

Hola... y ante todo ésto cual es tu duda..??? , dinos que necesitas y con mucho gusto te podremos ayudar..

Saludos

[fearlex]

:noHola

El problema es el siguiente, yo empiezo ahora con visual basic y conozco lo basico, basico te hablo de las primeras cositas que se hacen pero si hay muchos tutoriales y cosas pero cuando empiezo un al principio aprendo (lo basico de nuevo), pero despues empiezan a poner cosa apresuradas y no entiendo o sea no hacen algo para alguien con ejemplos explicados y asi poder ir aprendiendo, entre ejemplos y ejercicios pero no.

A mi me encanta esta pagina por que ayudan mucho, entonces
bla... bla.. bla....

Disculpa si empiezo a hablerte de ello me meto dos horas

Entonces Ignis me respondio un tema de ayuda que yo puse (se llama Alguien me ayude) y me dio un ejemplo a hacer pero no lo logré, por favor no pido la respuesta pero me siento mal muy mal por no haber podido hacerlo por eso llamaba a Ignis.
El me puso esto:

--------------------------------------------------------------------------
Q bien q quieras aprender...
Si vas empezando por que no agarras un librito de Vb ahi bienen muchos ejemplos y ejercicios, hasta en manuales.
yo te recomiendo este:

un programa que dependiendo de el numero introducido por el teclado dibuje un triangulo de asteriscos, por ejemplo si te dan 4 quedaria asi:

*******
*****
**
*
y asi, con este practicaras el bucle FOR y el WHILE, que son muy utiles. ahi te pongo mi mail por si lo quieres mandar.
nota: aqui en el mensaje salen aliniadas a la izquierda, es mas interesante que e triangulo quede centrado, ocupa la instruccion print del formulario.


---------------------------------------------------------------------------------

Disculpa si te molesto pero no se que hacer, ya no se que tutorial voy a hacer, no se.


De todos modos gracias por interesarte,¿que crees?

Un amigo Fearlex.

[RootK]

) y me dio un ejemplo a hacer pero no lo logré, por favor no pido la respuesta pero me siento mal muy mal por no haber podido hacerlo por eso llamaba a Ignis.

mira.. no hay problema... esos eso ejercicio son buenos para ir empezando a desarrollar la lógica, .. en fin.. antes que otra cosa.. ya haz utilizado ciclos for, while... etc..??? .

para que con ello puedas resolver el ejercicio., si es así lo que te puedo decir, es que para hacer la forma como de triángulo.. lo que puedes hacer es crear espacios en blanco dependiendo del tamaño desado e ir incrementando los asteriscos.

Para que te des una mejor idea te podría pasar un pequeño algoritmo que se me ocurre para solucionarlo.

1.- Leer la cantidad de asteriscos.
2.- Hacer un ciclo (A) que vaya desde 1 hasta el valor escrito
3.- Otro ciclo(B) dentro del mismo para dibujar los asteriscos
4.- Dentro del ciclo B escribir los espacios en blanco, para darle la forma
5.- Saliendo del ciclo B, saltar un espacio y ....te toca seguirle ... :


De todas formas si te das por vencido (que espero que no) te podría dar la solución..

Saludos y suerte

[fearlex]

Oye RooTK

Muchas gracias por la pista pero lo que me conmovio fue:
------------------------------------------------------------------------------
De todas formas si te das por vencido (que espero que no) te podría dar la solución..
------------------------------------------------------------------------------

No sabes cuanto te lo agradezco lo intentaré, lo prometo.

Un Amigo
Fearlex

[IGNIS]

Disculpa por no contestar, pero es que ste fin de semana no pude, mira lo que dice Rootk esta bien, ese ejercicio, es basico, pero ya no tanto, por que involucra el conocimiento de los bucles de repeticion, comentas que ya tienes manuales y cosas asi, te recomiendo que los estudies bien y los trates de entender mas que de aplicar, cuando comprendes eso, logras tener la logica, la codificacion se hace papa.

Este ejemplo se maneja como ya lo comentaron, y si quieres mandame lo que hayas hecho, y te lo reeenvio con correcciones o algo asi, para echarte la mano, y si quieres te mando el codigo, pero de preferencia mejor intentalo, nada sale a la primera, alomejor ni a la segunda, programar no es tan sencillo, practica mucho, sobre todo tienes interes q es lo mejor.

Aqui andaré y perdon por no contestar

NOTA: Recuerda que para depurar en Vb se presiona la tecla F8, lo que hace que se ejecute linea por linea, instruccion por instruccion lo que hayas programado, interactuando con la aplicacion al mismo tiempo, lo que hace notar errores de LÓGICA y CODIFICACION. Es muy importante depurar, no hay programa que no lo requiera.
Si realizas el problema que te mande notaras que los bucles se ejecutan una tras otra, tras otra ves. Cuando depures notaras el flujo de la logica que programaste, ya que si solo te enfocas a ver los resultados finales, no aprenderas nada, es importante ver la evolucion del codigo mejor mecallo, que cermon

[fearlex]

Ignis
lo que no logro es capturar las teclas pues cuando aprieto el 1 el VB lo entiende por el 49 en keyascii y lo otro es que en el form las cosas se imprimen hacia abajo y no hace el cambio de linea para poder hacer el triangolo, no me digas la respuesta pues sigo intentandolo.
Pero lo mejor de esto es que al saber que hay personas dispuestas a ayudarte te dan deseos de hacer lo imposible.gracias

Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
Dim i As Integer
Dim j As Integer
Dim aster As String

If KeyAscii = 49 Then
j = 1
ElseIf KeyAscii = 50 Then
j = 2
ElseIf KeyAscii = 51 Then
j = 3
ElseIf KeyAscii = 52 Then
j = 4
ElseIf KeyAscii = 53 Then
j = 5
ElseIf KeyAscii = 54 Then
j = 6
ElseIf KeyAscii = 55 Then
j = 7
ElseIf KeyAscii = 56 Then
j = 8
ElseIf KeyAscii = 57 Then
j = 9
End If

aster = "*"

While j <> 0
For i = 1 To j
Print aster
Next
j = j - 1
Print Chr$(13)
Wend
End Sub

Se que he abusado del If Then Else...

Un amigo

Fearlex

[RootK]

pues cuando aprieto el 1 el VB lo entiende por el 49

lo que pasa es que en tu form estás utilizando el evento KeyPress que lo que está haciendo es recibir el valor de la tecla presionada, y por eso cuando tecleas el 1 te sale el 49... intenta utilizar en tu Form ... un cuadro de texto..(que es donde vas a colocar hasta que numero quieres que se formen los asteriscos..) y un boton para que se despliegue el resultado.

En tu boton... utiliza el evento click ... y ahi pones tu código.

P.D Una pista: No es necesario que utilices un while .. lo puedes hacer con un for

Suerte.

[IGNIS]

Rootk tiene razon, tal ves no fui muy claro al especificar la interfaz necesaria, buena idea eso de atrapar las teclas pulsadas, eso es util en otras situaciones, pero para simplificar el asunto puedes usar, como ya lo dijo rootk una caja de texto, con un command button, usando su evento mas comun, el click.


sigue trabajando, que bien, y si me llego tu mail. gracias

[IGNIS]

Hola, que bien que lo hayas hecho, mira acuerdate que con F8 depuras, asi veras q es lo que te causa el salto de linea, en primera para hacerlo mas comodo pon una pequeña caja de texto que es la que reciba el numero, un boton de comando que al activarse el evento click ejecute la impresion de los asteriscos, esto e evitara la serie de if's.Aunque resulta comodo solo presionar el numero, pero piensa que pasaria si es 10, o 20 o mas, ¿?.
Por otro lado la instruccion PRINT, cada ves que se ejecuta, automáticamente hace un retorno de carro (ENTER, como lo programaste tu Chr$(13) ) entonces cuando le dices que lo imprima una y otra ves el asterisco lo llea al siguiente renglon. Por que no haces una variable que se incremente, es decir, que en lugar de que imprimas los asteriscos se lo sumes a una variable, y al final, mandas a imprimir la variable con todos los asteriscos juntos.


Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
Dim i As Integer
Dim j As Integer
Dim aster As String

If KeyAscii = 49 Then
j = 1
ElseIf KeyAscii = 50 Then
j = 2
ElseIf KeyAscii = 51 Then
j = 3
ElseIf KeyAscii = 52 Then
j = 4
ElseIf KeyAscii = 53 Then
j = 5
ElseIf KeyAscii = 54 Then
j = 6
ElseIf KeyAscii = 55 Then
j = 7
ElseIf KeyAscii = 56 Then
j = 8
ElseIf KeyAscii = 57 Then
j = 9
End If

While j <> 0
For i = 1 To j
aster = aster + "*"
Next
Print aster
j = j - 1
Print Chr$(13)
Wend

Con esto no pretendo solucionarte el problema, y no lo hago, solo te soluciono lo de los asteriscos en la misma fila. hay que pulir un poco.
Tu soluciona lo demas, pero trata de comprenderlo, no es muy dificil.

[fearlex]

Hola:

Estoy muy emocionado por haberma ayudado voy ha hacerlo...
a ver luego se los muestro por favor vuelvan a mirar este tema para que lo vean..........ahahahahahahaha.........quiero gritar de alegria,gracias.

Pd:Que significa el $ delante del chr pues como cosa de dudilla ademas pienso que en el codigo que me pusistes ignis el Print Chr$(13) debe de quitarse asi el triangulo sale mas chiquito aunque boca abajo.gracias


Un amigote
Fearlex

[IGNIS]

$ indica una variable de cadena, una string

[fearlex]

Ooooooooohhhhhh

Ya entiendo pero es opcional ponerselo o obligatorio.

ademas por que el triangulo sale de cabeza.
------------------------
Ya se por qué, trabajo en ello..................

Fearlex

[RootK]

Ya entiendo pero es opcional ponerselo o obligatorio.

Es opcional, lo que pasa es que en versiones anteriores se identificaban con los signos de pesos, de admiracion.. etc, para saber de que tipo de datos era...

Saludos y echale ganas

[fearlex]

Gracias

Me he dado cuenta que puedo contar contigo pues cada vez que tengo una duda , me respondes (citando) Quiero agradecertelo.

Un amigo

Fearlex

PD:Mandame tu correo, porfis