hola gente de T!,hoy les traigo para los que empiezan una Programar en Visual Basic 6.0 ALGUNAS Funciones Que les pueden resultar explicaciones de Utilidad Con CADA UNO ES de subs SUS / functiones

Funciones de Visual Basic 6.0

Función Pública StrNull (Texto As String) As Boolean
- Ej.: Si StrNull (Texto1) y luego
"Si sustituye un Trim (Text1) =" "y luego
StrNull = Trim (Texto) = vbNullString
End Function

Programacion

Función Pública StrIgual (Cadena1 As String, Cadena2 As String, HacerTrim opcional As Boolean = True) As Boolean
- Compara dos cadenas de texto y Devueve Iguales hijo si VERDADERO
"Sí se Pasa HacerTrim = Falso comparará Also Los Espacios laterales
StrIgual = IIf (HacerTrim, Trim (Cadena1) = Trim (Cadena2), Cadena1 Cadena2 =)
End Function

visual

Función Pública StrFrom (Cadena As String, Posicion As Integer) As String
- Devuelve Una subcadena DESDE posicion Hasta finales de la Cadena de El
Si <= 0 Then Posicion
StrFrom = Cadena
Posicion ElseIf> Len (Cadena) Luego
StrFrom = vbNullString
Más
StrFrom = Mid (Cadena, Posicion, Len (Cadena) - Posicion + 1)
End If
End Function

6.0

Función Pública StrCapitalize (Cadena As String) As String
- Pone en mayúsculas Las Primeras letras
"ESTO ES Ejemplo Es ésto un = Un Ejemplo
Dim pos As Integer
Dim Temp As String
Dim Caracter C Como String 'evaluar si un teléfono móvil de sí en Mayúsculas
Dim L As Integer 'Longitud de la Cadena

Temp = LCase ("" & Cadena) '- Añadimos las Naciones Unidas Espacio Que luego! Quitaremos
L = Len (Temp)

Do '-> Buscamos la letra de Los Siguiente una CADA Espacio -------------------->
Pos = InStr (Pos + 1, la temperatura ","
C = Mid (Temp, Pos + 1, 1)
Si C <> "" Y pos <> 0 Y Pos L <Luego Mid (Temp, Pos + 1, 1) = UCase (C)
Loop Hasta Pos = 0 O Pos'<--------------------------------------- L ----<

Temp = LTrim (Temp)
StrCapitalize = Temp
End Function

VB

Función Pública StrMove (Cadena As String, Izquierda opcional As Boolean = True) As String
- Devuelve Una Cadena Que realiza El Efecto de Desplazamiento
Estática TempOrig As String
Estática Temp As String

Si TempOrig <Cadena> Luego Temp = Cadena
TempOrig = Cadena

Si Izquierda Then '- Mover Hacia la izquierda, Cadena <<<<--·
Temp = StrFrom (Temp 2) e izquierda (Temp 1)
Else '- Mover Hacia la Derecha Cadena ·-->>>>
Temp = Right (Temp 1) e izquierda (Temp, Len (Temp) - 1)
End If

StrMove = Temp
End Function

funciones

Función Pública StrSub (Cadena As String, PosIni As Integer, PosFin As Integer) As String
- Como medio () Pero sí indica la posicion Inicio y Fin, en Vez de Inicio y Longitud
Lon Dim As Integer
'** Calculo de truncar la párr Longitud media
Si (PosFin> PosIni) y 0> Luego PosIni
Lon = PosFin - PosIni
StrSub = Mid (Cadena, PosIni, Lon)
End If
End Function

básico

Función Pública StrCount (Cadena As String, Caracter As String) As Integer
- Devuelve cuantos heno Caracter en Cadena
Dim Temp As Integer
Dim C as long
Para C = 1 To Len (Cadena)
Si Mid (Cadena, C, 1) = Caracter Luego Temp = Temp + 1
Siguiente C
Cadena Si = Caracter Entonces
StrCount = 1
Más
StrCount = Temp
End If
End Function

programadores

Función Pública strpos (Cadena As String, Caracter As String, NumCaracter As Integer) As Integer
- Devuelve la posicion Dentro de Cadena del NumCaracter-avo Caracter
"Strpos (" - xx --- x - x - xx-xx-"," x ", 7) / / devuelve 17
Dim pos As Integer
Dim Temp As Integer
Dim C as long
Si Caracter = "" Y Cadena <> "" Then Exit Function
Para C = 1 Para NumCaracter
Pos = InStr (Pos + 1, Cadena, Caracter)
Siguiente C
Pos = strpos
End Function

formulario

Función Pública StrDel (Cadena As String, Posicion As Integer, NumCaracteres opcional As Integer = 1) As String
- Elimina DE UNA Cadena Desde El caracter especificado Por posicion y borrará Tantos CARACTERES Como NumCaracteres
Si <0 = O Posicion NumCaracteres <0 Then
StrDel = Cadena
Más
StrDel = Left (Cadena, posicion - 1) y StrFrom (Cadena, Posicion + NumCaracteres)
End If
End Function

practicar

Función Pública StrEncode (Cadena As String) As String
- Una Cadena codificación de texto un contexto Otra El Doble de Longitud
"CADA caracter ASCII Convertmos una sy en Hex y devolvemos
'La Cadena resultante invertida
Dim Temp As String
Dim L As String * 1

Para C = 1 To Len (Cadena)
L = Mid (Cadena, C, 1)
'Nos devuelve Si las Naciones Unidas Hex Un Solo lo pasamos un Número 2 CARACTERES
"El Espacio sustituyendo Por Un 0
Temp = StrChange (Formato (Hex (Asc (L)), "@ @", "", "0" Y Temp
Siguiente C
StrEncode = Temp
End Function

Funciones de Visual Basic 6.0

Función Pública StrDecode (Cadena As String) As String
- Decodifica Una Cadena Codificada Con StrEnCode
Dim Temp As String
Dim L As String * 2
Dim V AS LONG

Para C = 1 To Len (Cadena) Paso 2
L = Mid (Cadena, C, 2)
V = Val ("&" H & L)
Temp = Chr (V) y temperatura

Siguiente C
StrDecode = Temp
End Function

Programacion

Función Pública StrBetween (Cadena As String, SubCadena1 As String, Subcadena2 As String) As String
- Devuelve la subcadena Que ESTÁ comprendida Subcadena2 Entre Subcadena1 y en Cadena
-No hace Diferencia Entre liebre mayúsculas minúsculas y
Dim pos1 As Integer, POS2 As Integer

Pos1 = InStr (UCase (Cadena), UCase (SubCadena1))
POS2 = InStr (UCase (Cadena), UCase (Subcadena2))

Si pos1 <> 0 Y POS2 <> 0 Then
StrBetween = StrSub (Cadena, pos1 + Len (SubCadena1), POS2)
End If
End Function

visual

Función Pública StrAdd (Cadena As String, SubCadena As String, Posicion As Integer) As String
- Inserta Una subcadena de texto en la posicion indicada la cara anterior
'(La subcadena Pásara una ESTAR en la posicion indicada)
Si <= 0 Then Posicion
StrAdd = Cadena
Más
StrAdd = Left (Cadena, posicion - 1) & & SubCadena StrFrom (Cadena, Posicion)
End If
End Function

6.0

Función Pública StrChange (Cadena As String, Change to As String, Por As String) As String
- Cambia las Naciones Unidas caracter Sólo en la Cadena, Por El Otro nuevo
"Por vbNullString heno Si sustituir Que sin caracter sin ira disminuyendo la Cadena de
"Tamaño, Por El parche de ESO [Si X> Len (Temp) A continuación, Exit For]
Dim C As String * 1
Dim X As Integer
Dim Temp As String

Temp = Cadena

Para X = 1 To Len (Temp)
Si X> Len (Temp) A continuación, Exit For
C = Mid (Temp, X, 1)
Si C = Izquierda (Change to, 1) Luego
Temp = StrAdd (Temp, Izquierda (Por, 1), X) 'Añadimos El Nuevo y luego! Le quitamos el Viejo
Por si = "" Then '<- Por Que Si heno sustituir "un"
Temp = StrDel (Temp, X)
X = X - 1
Más
Temp = StrDel (Temp, X + 1)
End If
End If
Siguiente X
StrChange = Temp
End Function

VB

Función Pública StrLineNum (ByVal Bloque As String, numLinea As Integer) As String
- Bloque de las Naciones Unidas de texto de Varias lineas devuelve la linea numLinea ava-
Si <= 1 Then numLinea
StrLineNum = StrSub (Bloque, 1, strpos (Bloque, Chr (13), 1))
ElseIf numLinea> = StrCount (Bloque, Chr (13)) + 1 entonces
"StrLineNum = strpos (Bloque, Chr (13), StrCount (Bloque, Chr (13)) + 1)
StrLineNum = StrFrom (Bloque, strpos (Bloque, Chr (13), StrCount (Bloque, Chr (13))) + 1)
Más
StrLineNum = StrSub (Bloque, strpos (Bloque, Chr (13), numLinea - 1) + 2, strpos (Bloque, Chr (13), numLinea))
End If

End Function

funciones

Función Pública StrLimited (ByVal Cadena As String, posCar As Integer, ByVal Limitadores) As String
- Devuelve la El texto Que Se encuentra Entre UNO de los CARACTERES de Limite

Dim sLimit As String
Dim c As String
lCont Dim, rCont As Integer

sLimit = Limitadores
lCont = posCar
rCont posCar = + 1

Hacer
Diciembre lCont
ST = Mid (Cadena, lCont, 1)
Loop Hasta InStr (sLimit, ST)> 0 = 1 O lCont

Hacer
INC rCont
ST = Mid (Cadena, rCont, 1)
Loop Hasta InStr (sLimit, ST)> 0 O rCont> = Len (Cadena)

StrLimited = StrSub (Cadena, lCont + 1, rCont)

End Function

básico

Public Sub INC (variable ByRef, Incremento Opcional = 1)
- Una variable Icrementa Tipo ensamblador INC X,
(Por defecto El Incremento SERA DE UNA unidad)
'** Util párr Evitar variable = variable + 1
Variable = Variable + Incremento
End Sub

programadores

Public Sub diciembre (ByRef variable, opcional Incremento = 1)
- Una variable Decrementa Tipo ensamblador diciembre X,
(Por defecto El decremento SERA DE UNA unidad)
'** Util párr Evitar variable = variable + 1
Variable = Variable - Incremento
End Sub

formulario

Public Sub MOV (variable ByRef, Valor)
- Pasa El Contenido de Valor de una variable
Variable = Valor
End Sub

practicar

Public Sub SUM (variable ByRef, Valor)
- Suma + Variable Valor Y El Contenido sí guarda en variable
Variable = Variable + Valor
End Sub

Funciones de Visual Basic 6.0

Función de Medios Públicos (ByRef Valores ())
- Media aritmética de los Valores Contenidos en la Matriz
"(Se descartan los SEE Posiciones de memoria" Que contengan las Naciones Unidas 0)
Dim numValores As Integer
Dim Suma As Double
Dim x As largo

Para X = 0 To UBound (Valores) - 1
Si Valores (X) <> 0 Then
Suma SUM, Valores (X)
INC numValores
End If
Siguiente X

Si numValores> 0 Then Media = Suma / numValores
End Function

Programacion

Sumatorio la Función Pública (Valores () As Long)
- Calcula El sumatorio de Los Elementos Contenidos en Una Matriz
Dim Temp
Dim x As largo

Para X = 0 To UBound (Valores) - 1
Temp SUM, Valores (X)
Siguiente X

Sumatorio = Temp
End Function

visual

Función Pública SumatorioDBL (Valores () As Double)
- Calcula El sumatorio de Los Elementos Contenidos en Una Matriz
"Sí se PASAN Datos DOBLE
Dim Temp
Dim x As largo

Para X = 0 To UBound (Valores) - 1
Temp SUM, Valores (X)
Siguiente X

SumatorioDBL = Temp
End Function

6.0

Función Pública IsPar (Numero Como Long) As Boolean
- Devuelve Verdadero si El Numero Pasado par es
IsPar = ((-1) ^ Numero> 0)
End Function

VB

Raiz la Función Pública (Numero Como Indice doble, opcional As Integer = 2)
- Devuelve la raiz de Número de la ONU, Por defecto es la raiz Cuadrada
Si> Indice = 2 A continuación,
Raiz = Numero ^ (1 / Indice)
Más
Raiz = Numero
End If
End Function

funciones

esto es para programadores que recien empiezan le pueden sacar algo de jugo PARA HACER lindo programa de las Naciones Unidas o guiarse por paga.
Proximamente posteo de las Naciones Unidas Sistema de Partículas en ABIERTO Con GL y DirectDrawn


Forma de entrenarse un Diario:
5 series de 100 de Si
Serie 5 de ventas de 100
5 series de finales de 100, si tira error sino acuerdensen y Latina ESTO lo mesclan Con Select Case
un abrazo Taringeros

básico