For en visual basic

Por: Marx

Cuando se conoce el numero de veces que hay que repetir instrucciones se utiliza el comando For
en este ejemplo utiliza 1 cuadro de comando, 4 label, 2 cajas de texto.

En la caja de texto1 escribe tu nombre separado por espacios en el texto2 indica si tu nombre esta compuesto por 2 nombres o solo 1, ejecuta y el programa lo dividira deacuerdo a lo que indicaste.

Private Sub Command1_Click()

Dim nombre, nuevo As String
Dim x, i, z, nz As Integer
x = Len(Text1)

'cadena,inicio,cantidad a tomar)
z = Val(Text2.Text)
nz = 0
For i = 1 To x
nuevo = Mid(Text1.Text, i, 1)
If nuevo <> " " Then
nombre = nombre + nuevo
Else
nz = nz + 1
If nz = z Then
Exit For
Else
nombre = nombre + " "
End If
End If
Next i
Label1 = nombre
tope = i + 1
nombre = ""
For i = tope To x
nuevo = Mid(Text1.Text, i, 1)
If nuevo <> " " Then
nombre = nombre + nuevo
Else
Exit For
End If
Next i
Label2 = nombre

tope = i + 1
nombre = ""
For i = tope To x
nuevo = Mid(Text1.Text, i, 1)
If nuevo <> " " Then
nombre = nombre + nuevo
Else
Exit For
End If
Next i
Label3 = nombre
End Sub

Si quieres mas articulos como este, Subscribete al blog por email...es gratis!

Comentarios

Publicar un comentario

Entradas populares de este blog

Evento Lostfocus Visual basic

Por: Marx El evento lost focus se activa cuando el foco o cursor deja de estar en el objeto, utilizaremos este evento en el text 1, ingresar una fecha escribiendo -(guiones) entre el dia -mes-año, el programa verifica que sea una fecha valida, de ser lo hará una resta regresando el numero de días que restan del año. Ingrese en el formulario 1 cuadro de texto, 1 label y 1 botón de comando Este es el codigo : Option Explicit Private Sub Command 1_ Click () ' envia el focus al text 1 Text 1_ LostFocus End Sub Private Sub Text 1_ LostFocus () 'evento focus Dim AFecha , Ndias 'Verifica que sea una fecha valida If IsDate ( Text 1. Text ) Then 'convierte el contenido del text 1 en fecha AFecha = CDate ( Text 1. Text ) 'resta los dias que hay hasta fin de año Ndias = DateSerial ( Year ( AFecha ) + 1, 1, 1) - AFecha Label 1. Caption = "Quedan " & Ndi...
Leer más

Estructuras de Control visual basic

Por: Cruz Estructuras de Control Las estructuras de control le permiten controlar el flujo de ejecución del programa. Tenemos dos tipos de estructuras de control: • Estructuras de decisión • Estructuras de bucle Estructuras de Decisión Los procedimientos de Visual Basic pueden probar condiciones y, dependiendo de los resultados, realizar diferentes operaciones. Entre las estructuras de decisión que acepta Visual Basic se incluyen las siguientes: • If...Then • If...Then...Else • Select Case Select Case Visual Basic proporciona la estructura Select Case como alternativa a If...Then...Else para ejecutar selectivamente un bloque de sentencias entre varios bloques. La sentencia Select Case ofrece posibilidades similares a la instrucción If...Then...Else, pero hace que el código sea más legible cuando hay varias opciones. La estructura Select Case funciona con una única expresión de prueba que se evalúa una vez solamente, al principio de la estructura. Visual Basic co...
Leer más

Formato a numeros mascara Visual Basic

Por: Marx Como aplicar la mascara a numero para desplegarlo en un cuadro de texto. Ingresa un cuadro de texto en las propiedades, escribe en (Nombre) Valor Ingresa el siguiente código Private Sub Form _Load() Valor = 1936 Valor = Format (Valor, "##,#0.00") End Sub Si quieres mas artículos como este, Subscribete al blog por email ...es gratis!
Leer más