Bienvenido: ( Identificarse | Registrarse )      
Foros de Trucos Windows
1 2 3 4 5 6 7 8 
 Reply to this topicStart new topicStart Poll

Outline · [ Estándar ] · Lineal+

> Dudas Ejercicios Visual Basic, Y demas lenguajes

JaCk_ZgZ
post Aug 24 2006, 07:51 PM
Publicado: #31


Unregistered
clap.gif Muchas gracias¡¡¡ ya lo he entendido todo perfectamente.

Un saludo.

A por el tercero.

Ole, clap.gif yaahooo.gif



Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 24 2006, 08:33 PM
Publicado: #32


Unregistered
Al final se me ha ocurrido dejar el code así:

CODE


Private Sub cmdAceptar_Click()
TxtResultado.Text = "El área del cuadrado es: " & Val(TextLado) * Val(TextLado)
TxtResultado2.Text = "El perímetro del cuadrado es: " & Val(TextLado) * 4
End Sub



Se puede poner en un mismo TextBox el área y el perímetro verdad?

he probado con el ";" pero me dice k es un error de sintexis...

Un saludo

Edito. Sere tonto¡¡¡ tonto tonto tonto, si k se puede, no contesten.
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 24 2006, 09:07 PM
Publicado: #33


Unregistered
CODE


Private Sub Cmdcalculo_Click()
TxtResultado.Text = "El área del cuadrado es: " & Val(TextLado) * Val(TextLado) & " El perímetro del cuadrado es: " & Val(TextLado) * 4
End Sub



Como hacer k kede así?

El área del cuadrado es: 4
El perímetro del cuadrado es: 8

Ordenadito y en columna.

Un saludo.


Go to the top of the page
+Quote Post
Mr.X
post Aug 24 2006, 09:39 PM
Publicado: #34


Unregistered
Hola pues ya habia terminado el primer ejercisio pero nu savia como postearlo... y me dijeron que posteara eñl codigo!!! aqui esta... me quedo diferente al de los otros pero bueno me quedo jajaja....
corriganme si hay algo mal!!

CODE
Private Sub Command1_Click()
Label1.Caption = "Nombre"
Label2.Caption = "Edad"
Label3.Caption = "Hola " & Text1.Text + ", tienes " & Text2.Text + " años. Bienvenido a la programación de VisualBasic 6.0"
End Sub

Private Sub Form_Load()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text2_Change()

End Sub


perdon que ocupe mucho lugar pero quiero ver si todo esta bien!
Go to the top of the page
+Quote Post
rob1104
post Aug 24 2006, 09:57 PM
Publicado: #35


Xbox Live... The best thing ever happened around videogames
Group Icon

Grupo: Moderadores
Mensajes: 1.621
Registrado: 7-March 05
Desde: Matamoros, Tamaulipas, Mexico
Miembro nº: 93.342
QUOTE(JaCk_ZgZ @ Aug 24 2006, 03:07 PM)
CODE


Private Sub Cmdcalculo_Click()
TxtResultado.Text = "El área del cuadrado es: " & Val(TextLado) * Val(TextLado) & " El perímetro del cuadrado es: " & Val(TextLado) * 4
End Sub



Como hacer  k kede así?

El área del cuadrado es: 4
El perímetro del cuadrado es: 8

Ordenadito y en columna.

Un saludo.
*



Para ello tienes que usar una constante de visual basic que simboliza el salto de linea, la constante es: vbCrLf, simplemete cuando termine una cadena o variable o caja de texto la añades con el operador &, ejemplo
CODE
txtHola="Hola" & vbCrLf & "Mundo"

Eso imprimira en la caja de texto
Hola
Mundo

Nota: Recuerda cambiar en la caja de texto la propiedad MultiLine a True

Saludos thumbsup.gif

PD: Mr.X podrias subir el proyecto a RapidShare ya zipeado en el topic de ejercicios o si no postea el code ahi para lleavr un control de quienes ya solucionaron los 3 ejercicios y asi poner otros nuevos
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Mr.X
post Aug 24 2006, 10:13 PM
Publicado: #36


Unregistered
ok ya lo subo... tengo otra duda con el segundo ejercisio... mira lo estaba haciendo y en la parte para hayar el perimetro EL RESULTADO ES SIEMPRE 0.. mi codigo es este ...

CODE

Private Sub Boton_Click()
Lado_Cuadrado.Caption = "Lado del Cuadrado:"
Resultados.Text = "El perimetro del cuadrado es: " & Val(Resultados.Text) * 4


por ahora es solo el perimetro... ya subo el 1er ejercicio!!!
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 24 2006, 10:43 PM
Publicado: #37


Unregistered
Ya termine los tres ejercicios, tengo una pequeña duda, yo guardo un proyecto y algo mas, luego si kiero modificar el diseño o el codigo, como lo hago?.

Edito.
Se como ver el codigo, el truco es pulsar f5, se ejecuta y me sale a la derecha un panel en el que puedo cambiar el codigo si pincho dos veces en el nombre.
Pero como puedo hacer para ver el diseño? Para poder modificarlo,etc.

Un saludo
Go to the top of the page
+Quote Post
Mr.X
post Aug 24 2006, 10:59 PM
Publicado: #38


Unregistered
ya termine el 3 ahora lo posteo pero sigo con el 2 creo q ya se q le pasa!!!
Go to the top of the page
+Quote Post
Mr.X
post Aug 24 2006, 11:19 PM
Publicado: #39


Unregistered
Tengo una duda en el ejercicico 2!!!!

lo q no me sale es eso de que quede el perimetro en una line y el are en otra... mi codigo es este:

CODE
Private Sub Command1_Click()
Text2.Text = "El perimetro del cuadrado es de: " & Val(Text1.Text) * 4 & vbCrLf & "El área del cuadrado es de: " & Val(Text1.Text) * Val(Text1.Text)
End Sub

alguin me explica porque ago exactamente lo q dice arriba (eso del codig & vbCrLf &)
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 25 2006, 12:24 AM
Publicado: #40


Unregistered
QUOTE(robbie110487 @ Aug 24 2006, 09:57 PM)


Nota: Recuerda cambiar en la caja de texto la propiedad MultiLinea True



Lo hiciste? Cojes el text donde te saldra lo del perimetro y el area, en la caja de texto (propiedades), busca MultiLine por defecto estara en False, cambialo a True.

Un saludo.
Go to the top of the page
+Quote Post
Mr.X
post Aug 25 2006, 12:42 AM
Publicado: #41


Unregistered
ok voy a probar..... (despues de 5 segundos): ya me quedo bien era ese defecto jajajajajajajaja xD

haro lo voy a subir y lo voy a postear!!!

GRCIAS
Go to the top of the page
+Quote Post
omarsito_flow3rs
post Aug 25 2006, 04:50 AM
Publicado: #42


Maestro
*****

Grupo: Members
Mensajes: 396
Registrado: 28-December 05
Miembro nº: 155.576
una duda en los ejercicios se tienen q mostrar asi como estan en las imagenes o pueden ser en varias kasillas x ejemplo asi:

imagen externa
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
ZeroFinished
post Aug 25 2006, 05:06 AM
Publicado: #43


Estudiante Otra Vez
******

Grupo: Miembros Vitalicios
Mensajes: 534
Registrado: 28-September 04
Desde: Copiapó - Chile
Miembro nº: 21.706
Tu puedes ir jugando con las herramientas desde ya, asi como veo que estás jugando con el msgbox. La idea es no matar la creatividad sino al contrario: incentivarlos a ser creativos.

Puedes postear el ejercicio del foro junto con el ejercicio tuyo modificado. Sería una buena opción.

Saludos y suerte.
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
omarsito_flow3rs
post Aug 25 2006, 10:35 PM
Publicado: #44


Maestro
*****

Grupo: Members
Mensajes: 396
Registrado: 28-December 05
Miembro nº: 155.576
weno aki los kodigos

ejercicio 1

CODE
Private Sub Command1_Click()
msj.Caption = "Hola " & uno.Text & "tienes" & dos.Text & "años bienvenido a TW"
End Sub

Private Sub Command2_Click()
a = MsgBox("realizado por omar flores", vbExclamation, "Ejercicio 1")

End



End Sub



ejercicio 2

CODE
Private Sub Command1_Click()
Dim a, b, c As Currency
a = Val(uno)
b = Val(dos)
c = Val(tres)
d = a * 2
e = a * 4
dos = Format$(d)
tres = Format$(e)

msj.Caption = "el area es " & dos.Text & "y su perimetro es" & tres.Text
End Sub

Private Sub Command2_Click()
uno = InputBox("introduce el lado", "introduce")
a = Val(uno)
b = Val(dos)
c = Val(tres)
d = a * 2
e = a * 4
dos = Format$(d)
tres = Format$(e)

msj.Caption = "el area es " & dos.Text & "y su perimetro es" & tres.Text

End Sub


ejercicio 3

CODE
Private Sub Command1_Click()
Dim a, b, c As Currency
a = Val(uno)
b = Val(dos)
c = Val(tres)
d = a * b
tres = Format$(d)


End Sub


pues io digo q estan bien xD

weno salu2
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
JaCk_ZgZ
post Aug 25 2006, 11:42 PM
Publicado: #45


Unregistered
No es por molestar eh, pero creo que una parte de calculo esta mal.

Ejercicio del cuadrado:

Si te das cuenta, el área de un cuadrado es lado por lado, no lado por dos.

Acuerdate que no es lo mismo tres elevado a 3 que 3 * 3.

Un saludo.
Go to the top of the page
+Quote Post
 

 
1 2 3 4 5 6 7 8
 Reply to this topicTopic OptionsStart new topic

Collapse

> Topicos similares

Titulo Autor visitas Respuestas Ultimo post
como validar informacion en visual basic? joseblanco6663 18 0 Hoy, 01:32 AM
By: joseblanco6663
visual basic programacion crack15 73 6 Ayer, 07:29 PM
By: crack15
Visual Basic 6 ( ayuda en programacion ) FranGK 474 20 Jul 3 2008, 06:15 AM
By: FranGK
Programacion visual franciscoytoto 73 2 Jun 26 2008, 04:35 AM
By: strangerst

Google
Web www.trucoswindows.net
Invision Power Board v2.0.4 © 2008  IPS, Inc. Licensed to: ©trucoswindows.net