sep 22

Funciones para comprobar caracteres en cadenas. Visual Basic.

Visual Basic 1 Comentario »

Las siguientes funciones son para comprobar las cadenas de texto o numéricas en Visual Basic 6.

Primera función. Devuelve "True" si todos los caracteres de una cadena son alfabéticos, es decir, si son todos letras. Si no lo son o si la cadena de texto es de longitud 0 devuelve "False".

CLIC PARA VER TEXTO PLANO
Visual Basic:
  1. Public Function IsAlphaBetical(TestString As String) As Boolean
  2.     Dim sTemp As String
  3.     Dim iLen As Integer
  4.     Dim iCtr As Integer
  5.     Dim sChar As String
  6.    
  7.     sTemp = TestString
  8.     iLen = Len(sTemp)
  9.     If iLen> 0 Then
  10.         For iCtr = 1 To iLen
  11.             sChar = Mid(sTemp, iCtr, 1)
  12.             If Not sChar Like "[A-Za-z]" Then Exit Function
  13.         Next
  14.    
  15.     IsAlphaBetical = True
  16.     End If
  17. End Function

Segunda función. Devuelve "True" si todos los caracteres de una cadena son alfanumericos, es decir, si los elementos que componen la cadena son números o letras. Si no lo son o si la cadena de texto es de longitud 0 devuelve "False".

CLIC PARA VER TEXTO PLANO
Visual Basic:
  1. Public Function IsAlphaNumeric(TestString As String) As Boolean
  2.  
  3.     Dim sTemp As String
  4.     Dim iLen As Integer
  5.     Dim iCtr As Integer
  6.     Dim sChar As String
  7.    
  8.     sTemp = TestString
  9.     iLen = Len(sTemp)
  10.     If iLen> 0 Then
  11.         For iCtr = 1 To iLen
  12.             sChar = Mid(sTemp, iCtr, 1)
  13.             If Not sChar Like "[0-9A-Za-z]" Then Exit Function
  14.         Next
  15.    
  16.     IsAlphaNumeric = True
  17.     End If
  18.    
  19. End Function

Tercera función. Devuelve "True" si todos los caracteres de una cadena son numéricos, es decir, si los elementos que componen la cadena son números. Si no lo son o si la cadena de texto es de longitud 0 devuelve "False". Esta función se diferencia de IsNumeric() en que Isnumeric(30.45) devuelve "True" mientras que en esta función devolvería "False".

CLIC PARA VER TEXTO PLANO
Visual Basic:
  1. Public Function IsNumericOnly(TestString As String) As Boolean
  2.     Dim sTemp As String
  3.     Dim iLen As Integer
  4.     Dim iCtr As Integer
  5.     Dim sChar As String
  6.  
  7.     sTemp = TestString
  8.     iLen = Len(sTemp)
  9.     If iLen> 0 Then
  10.         For iCtr = 1 To iLen
  11.             sChar = Mid(sTemp, iCtr, 1)
  12.             If Not sChar Like "[0-9]" Then Exit Function
  13.         Next
  14.    
  15.     IsNumericOnly = True
  16.     End If
  17.    
  18. End Function

jul 15

Reduce de tamaño tus jpg con Visual Basic.

Herramientas, Visual Basic 11 Comentarios »

Esta es una pequeña aplicación que utilizo para ponerla a disposición de los inexpertos que permite reducir considerablemente el tamaño de las imágenes jpg.

Los resultados son sorprendentes y todo gracias a la librería DIjpg.dll.

El código de visual basic es el siguiente:
Lee el resto de esta entrada »

abr 10

Aplicacion Servidor WinSock de Visual Basic.

Visual Basic 3 Comentarios »

Si quieres comprobar que realmente tu aplicacion de Windows Sockets está funcionando necesitas el servidor para poder ver los mensajes.

Por supuesto has de ejecutarlo en otro pc y escoger un puerto que no esté siendo utilizado por windows, algo como 20145 o similar. Es importante que en el equipo que lo pongas abras ese puerto en el firewall o lo deshabilites momentaneamente durante las pruebas, de otra forma no te funcionará.

Para usarlo debes poner el puerto y pulsar "Escuchar".

Formato del formulario:

Los nombres de los controles son:

  • Command1 --> Botón enviar.
  • Command2 --> Botón escuchar.
  • Command3 --> Botón desconectar.
  • Text1 --> Ventana de datos recibidos y enviados.
  • Text2 --> Caja de texto para el mensaje a enviar.
  • Text3 --> Caja de texto para el puerto que utilizaremos.
  • Winsock1 --> control “Microsoft Winsock Control”.

Código para la aplicación:

Lee el resto de esta entrada »

abr 08

Aplicacion Cliente WinSock de Visual Basic.

Visual Basic 3 Comentarios »

Winsock es una interfaz de programación y el programa de apoyo que se encarga de las entradas / salidas de las solicitudes de las aplicaciones de Internet en un sistema operativo Windows. Se llama Winsock porque es una adaptación para Windows de la interfaz de sockets de Berkeley Unix. Sockets es un convenio para la conexión con el intercambio de datos y programas entre dos procesos dentro del mismo equipo o en una red.

Winsock funciona entre un programa de aplicación, como (por ejemplo) un navegador Firefox y el programa Internet en el ordenador que utiliza TCP / IP. A petición de las corrientes en el siguiente orden:

Navegador web o de otras aplicaciones
|
Winsock.dll
|
TCP / IP capas
|
Módem o tarjeta de red
|
El Internet y el destino

Winsock proporciona esta interfaz para diferentes versiones del sistema operativo Windows. A partir de Windows 95, Winsock llegó como parte del sistema operativo, pero en los anteriores sistemas, debía instalarse. Los sistemas basados en UNIX no requieren un equivalente porque Winsock TCP / IP y su uso de sockets fue diseñado para ejecutarse directamente con los programas de aplicación UNIX.

A continuación os expongo una simple aplicación que os ayudará a comprender como se maneja desde visual basic. Puedes crearte un formulario como el siguiente:

Los nombres de los controles son:

  • Command1 ---> botón enviar.
  • Command2 ---> botón conectar.
  • Command3 ---> botón desconectar.
  • Text1 ---> Ventana de datos recibidos y enviados.
  • Text2 ---> caja de texto con el mensaje a enviar.
  • Text3 ---> caja de texto del servidor.
  • Text4 ---> caja de texto para el puerto de conexión.
  • Winsock1 ---> control "Microsoft Winsock Control".
  • Las Label las ponéis a vuestro gusto.

Código para la aplicación: Lee el resto de esta entrada »

Entradas Anteriores Entradas Siguientes
WP Theme & Icons originales por N.Design Studio.
Aviso Legal Entradas RSS Comentarios RSS Acceder