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

Function Visual basic

Por: Marx Para hacer funciones en visual basic, tendremos que escribir la palabra Function y en seguida el nombre de la función abriendo y cerrando paréntesis, así seria la forma mas sencilla. Para llamar una función con solo escribir el nombre de la función estaremos ejecutando. Dibujar 2 cuadros de texto, 1 label para el resultado, 1 cuadro de comando. Private Sub Command1_Click() 'Aquí estamos ejecutando la función de nombre suma y el resultado quedara en label1 Label1 = suma End Sub 'creación de la función suma Function suma() 'valor guardado en la variable suma ' los val convierten en valor el contenido de los cuadros de texto suma = Val(Text1) + Val(Text2) End Function El nombre de la función es la que nosotros al escribir el programa designemos, recuerda cerrar el Function con su respectivo End Function Si quieres mas artículos como este, Subscribete al blog por email...es gratis!
Leer más

ESTRUCTURA Y FORMATO Lenguaje C

Imagen
Por:marx ESTRUCTURA Y FORMATO DEL PROGRAMA. PANORAMA GENERAL. • El formato de escritura • Los comentarios • Las sentencias para el pre-procesador • Las funciones. Definición de una función • Las declaraciones • Reglas de alcance • Las expresiones • Las sentencias • La sentencia "if-else" • La sentencia "for" • La función "printf" • La función "scanf" Los programas se construyen con: Comentarios. Ordenes para el preprocesador de macros. Definiciones de funciones. Expresiones formadas con constantes, variables, funciones y operadores. Sentencias. EL FORMATO DE ESCRITURA ES MUY FLEXIBLE: Las constantes, identificadores y palabras clave deben separarse; pero ello puede hacerse con : - espacios en blanco - marcas de tabulador - marcas de salto de linea - comentarios LOS COMENTARIOS Son lineas que ignora el compilador pero sirven para documentar los programas: Empiezan con: /* terminan con: */ pueden abarcar varias lineas no se pueden anidar /* ej1.c ...
Leer más