Varias dudas de principiante

[nhaalclkiemr]

Weno, me estoy iniciando en VB6.0, me he leído algunos manuales y ya se hacer algunos programas como calculadoras o programas sencillos...

Pues en este post pondré las dudas k vaya teniendo:

-¿Como puedo restringir que solo se puedan escribir numeros o letras por ejemplo, o un cierto numero de caracteres (k no te deje escribir mas) en una caja de texto (TxtBox)?

-¿En un control "CommonDialog" como puedo establecer k pongo "guardar como" en vez de "abrir"?

-¿Hay alguna manera de k las variables Boolean devuelvan valores "1" y "0" en vez de "True" o "False"?

-¿Como puedo kedarme con solo una parte de la variable?
Por ejemplo si la variable "a" tiene el valor "hola que tal", komo podría kedarme con todos los caracteres menos el primero (h), el ultimo (l) y el septimo (u) de manera k kede una variable "b" con valor "ola qe ta"
Esto es por poner un ejemplo...me refiero a todo este tipo de operaciones para kedarse con una parte de una variable...

-¿Como puedo konseguir los diferentes bit de un byte de un archivo? (El archivo está abierto como Binary)
Por ejemplo, con la funcion "get, n, variable" si "variable" es del tipo "Byte" conseguiré el byte en valor decimal del byte en posición "n"
En resumen, que consigo extraer el valor decimal del byte k kiera pero yo en vez de una variable con el valor decimal quiero 8 variables cada una con el valor de cada uno de los bit del byte

-¿Como puedo saber el numero de bytes de un archivo (esto es el tamaño en bytes)?

Weno, perdonad si hay preguntas tontas o algo...pero es k soy novato en esto de VB6

Saludos

[vivachapas]

Weno, perdonad si hay preguntas tontas o algo...pero es k soy novato en esto de VB6

preguntas tontas no... sino q poca busqueda XD

GOOGLE...

de todos modos...

-¿Como puedo restringir que solo se puedan escribir numeros o letras por ejemplo, o un cierto numero de caracteres (k no te deje escribir mas) en una caja de texto (TxtBox)?

para q solo se puedan escribir numeros o letras... no se si habra alguna funcion yo la ves q lo tuve q usar lo hice con las keyascii... q solo dejaba entrar numeros...
para q deje meter un cierto numero de caracteres pon en la propiedad MaxLength del text la cant de caracteres q quieres q se puedan poner..... 0 = infinito... hasta q no entren mas XD

-¿En un control "CommonDialog" como puedo establecer k pongo "guardar como" en vez de "abrir"?

Código [Seleccionar] Expandir

CommonDialog1.ShowSave

-¿Hay alguna manera de k las variables Boolean devuelvan valores "1" y "0" en vez de "True" o "False"

es lo mismo... hace de cuenta q true es 1 y false 0 y listo..

-¿Como puedo kedarme con solo una parte de la variable?

bueno para separar una variable.. era Len creo pero no uso mucho esta funcino lo q puedes hacer es separarla asi

|h|ola qu|e| ta|l|

y luego haces esto

Código [Seleccionar] Expandir

dim a as string
dim b() as string
a = text1.text
b=split(text1.text,"|")

'aca podes hacer un select depende q quieras hacer con los datos

eso te daria esto...
b(0)=""
b(1)="h"
b(2)="ola qu"
...

y asi...

-¿Como puedo konseguir los diferentes bit de un byte de un archivo? (El archivo está abierto como Binary)

ni idea...

-¿Como puedo saber el numero de bytes de un archivo (esto es el tamaño en bytes)?

bueno evidentemente no buscaste mucho... ya q esto aparece en la mayoria de troyanos... (todos los q mandan archivos)

supongamos q la varible Archivo tiene al archivo
y la variable Tamaños va a tener el tamaño

Código [Seleccionar] Expandir

dim Archivo as string
dim Tamaño as long

tamaño = len(Archivo)

bueno.. son preugntas muy sencillas...

(menos la q no pude responder XD)

deberias buscar mas

[Mad Antrax]

-¿Como puedo restringir que solo se puedan escribir numeros o letras por ejemplo, o un cierto numero de caracteres (k no te deje escribir mas) en una caja de texto (TxtBox)?

Aqui lo tienes:

Código [Seleccionar] Expandir

Private Sub Text1_Change()
    If IsNumeric(Text1.Text) = False Then
        If Text1.Text = "" Then Exit Sub
        MsgBox "Solo puedes poner caracteres numéricos"
        Text1.Text = ""
    End If
End Sub


Para evitar que escriban más de 10 caracteres:

Código [Seleccionar] Expandir

Text1.MaxLength = 10

-¿Hay alguna manera de k las variables Boolean devuelvan valores "1" y "0" en vez de "True" o "False"?

En todos los lenguajes de programación TRUE = 1 y FALSE = 0 por ejemplo

Código [Seleccionar] Expandir

A = True

If A Then MsgBox "Hola"
If A = 1 Then MsgBox "Hola"

En los 2 casos aparecerá el mensaje HOLA

-¿Como puedo kedarme con solo una parte de la variable?
Por ejemplo si la variable "a" tiene el valor "hola que tal", komo podría kedarme con todos los caracteres menos el primero (h), el ultimo (l) y el septimo (u) de manera k kede una variable "b" con valor "ola qe ta"

Con las funciones MID, LEFT y RIGTH. MID te posiciona dentro de un string, y LEFT y RIGTH te devuelven todos los caracteres empezando por la derecha o izquierda. Estas funciones son algo complejas de usar, y al menos a mi me cuesta emplearlas y tardo como 3 minutos hasta que consigo obtener lo que busco.

-¿Como puedo konseguir los diferentes bit de un byte de un archivo? (El archivo está abierto como Binary)
Por ejemplo, con la funcion "get, n, variable" si "variable" es del tipo "Byte" conseguiré el byte en valor decimal del byte en posición "n"
En resumen, que consigo extraer el valor decimal del byte k kiera pero yo en vez de una variable con el valor decimal quiero 8 variables cada una con el valor de cada uno de los bit del byte

Con la función Seek, ahora mismo no puedo ponerte ejemplos, usa Google xD

-¿Como puedo saber el numero de bytes de un archivo (esto es el tamaño en bytes)?

Aqui te lo han dicho mal, LEN devuelve la longitud de caracteres de un String, ejemplo:

Código [Seleccionar] Expandir

A = "Madantrax"
LEN(A) 'Esto devuelve 9

Para obtner el tamaño de un archivo usa: FileLen(), ejemplo:

Código [Seleccionar] Expandir

MsgBox FileLen("C:\boot.ini")

Saludos!!

[nhaalclkiemr]

Muchas gracias
La verdad es k no buské mucho...pero había cosas k si k buské como lo de extrer bit a bit un archivo...Sobre las variables Boolean yo sabía k True era 1 y False era 0, pero no sabía k por ejemplo "1 + True" fuese 2...y pensaba k con valores True y False solo podría hacer operaciones lógicas...

Saludos