Bienvenido: ( Identificarse | Registrarse )      
Foros de Trucos Windows
1 2 
Reply to this topicStart new topicStart Poll

Outline · [ Estándar ] · Lineal+

> Ejercicios, Tercera Ronda (Principiante-Intermedio)

Net
post Nov 6 2007, 06:27 PM
Publicado: #16


Miembro Elite
****

Grupo: Members
Mensajes: 192
Registrado: 25-June 07
Miembro nº: 204.354



Yo me uno tarde. Voy a colgar aqui el codigo de los tres primeros, vamos los de la primera ronda, espero que no molesten. Haber que os parecen.

Primero.

Private Sub Form_Load()
Show
Text1 = ""
Text2 = ""
End Sub

Private Sub Command1_Click()
Show
Label3 = "Saludos " & UCase(Text1) & ". Que viejo te veo, con " & Text2 & " años, ya no te conservas."
End Sub


Segundo. Perimetro y area de un cuadrado.

Private Sub Form_Load()
Text1 = ""

End Sub

Private Sub Command1_Click()
suma = Text1 * 4
X2 = Text1 * Text1
Label2 = "Perimetro es igual a: " & suma & " y el area es igual a: " & X2

End Sub

Tercero. El del precio de la gasolina.

Private Sub Command1_Click()
Label4 = Text1 * Text2 & "€"
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub


Bueno, pues ha hi estan, seguire con los demás.


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
rob1104
post Dec 27 2007, 10:51 PM
Publicado: #17


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



Vamos amigos, hay que darle mas vida a este foro de programación, que presiento que es el mas apagado de todo trucoswindows.net sad.gif .

Los invito a los que quieran seguir haciendo pequeños ejercicios de programación en el lenguaje que sea, ya sea para practicar o para diversión, con la unica condición de que NO SEAN TAREAS ESCOLARES..

Aqui pueden ir dejando dudas sobre los ejercicios:
http://www.trucoswindows.net/foro/topico-5...sual-basic.html

thumbsup.gif


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
_chepo_
post Dec 28 2007, 06:05 AM
Publicado: #18


Chepo
*****

Grupo: Members
Mensajes: 300
Registrado: 13-December 06
Desde: El 5to infierno
Miembro nº: 188.511



apoyo a robbie, esto esta muy apagado.

Hay que hacer algo para que esto se ponga mas entretenido y no sea tan "awitado"
ANIMO!!

que propones para hacer robbie tongue.gif, digo, si quieres biggrin20jy.gif


User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Net
post Dec 28 2007, 04:13 PM
Publicado: #19


Miembro Elite
****

Grupo: Members
Mensajes: 192
Registrado: 25-June 07
Miembro nº: 204.354



Chepo, asi me gusta, responsabilidades para otras. henga robbie, que dices? xD

Tendré que vovler a empezar ya no me acuerdo de na de lo poco que sabia. Me pondre a ello, pero revidtalicen el foro.!!
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
PC_MAC
post Feb 2 2008, 06:18 AM
Publicado: #20


Miembro Elite
****

Grupo: Members
Mensajes: 113
Registrado: 11-November 07
Miembro nº: 217.125



Estaria buena la cuarta ronda, la esperare...

Saludos
User is offlineProfile CardPM
Go to the top of the page
+Quote Post
Net
post Apr 19 2008, 03:29 PM
Publicado: #21


Miembro Elite
****

Grupo: Members
Mensajes: 192
Registrado: 25-June 07
Miembro nº: 204.354



De la segunda ronda, el primer ejercicio. Haber que les parece y que mejoras se le puede aplicar.

CODE
Option Explicit

Private Sub Form_Load()
crearnombre = ""
crearcontraseña = ""
nombre = ""
contraseña = ""
End Sub

Private Sub Command1_Click()
Dim crearnombre As Variant
Dim crearcontraseña As Variant
End Sub

Private Sub Command2_Click()
Label3 = "No"
If crearnombre = nombre Then
If crearcontraseña = contraseña Then
Label3 = "Si"
End If: End If
End Sub


Si así no es como deberia colgarlo, me avisan y ya busco la forma de ponerlo de otra forma.

EDITO: Aqui esta el enlace, haber que opinan.
http://www.megaupload.com/es/?d=HIDVXD70
User is offlineProfile CardPM
Go to the top of the page
+Quote Post

 
1 2
Reply to this topicTopic OptionsStart new topic

Collapse

> Topicos similares

Dudas Ejercicios Visual Basic rob1104 16.730 114 Jul 1 2008, 09:08 AM
By: FranGK
Ejercicios Visual Basic 6.0 Mr.X 4.480 8 Dec 7 2006, 09:11 PM
By: rob1104
ejercicios bidimensionales tyburon 535 2 Nov 21 2006, 04:40 AM
By: tyburon
Ejercicios rob1104 964 8 Sep 8 2006, 07:01 PM
By: rob1104
Ejercicios rob1104 2.935 45 Aug 28 2006, 10:12 PM
By: rob1104

Google
Web www.trucoswindows.net