INÍCIAte
PIO9.COM
pio9.com
 | Mapa del sitioChat | Correo | Tú preguntas | Foro | Blog | Léeme |    
 Recuperar  Reparar XP
 Convierte tu  ordenador en  un Osciloscopio
 Controla  totalmente XP
 Cambiar la  Apariencia
 Crackear mi  programa
 Recuperar las  contraseñas de  los usuarios
 Recuperar los  Permisos de los  usuarios NTFS
 Pasa tus discos  y cassettes a  CDROM
 De MID a WAV  de WAV a MID
 Conecta dos  ordenadors por  puerto paralelo
 MACROS en  Word
 Nociones de  Internet
 Recuperar  información de  un disquete o  disco duro
 Hacer un Disco  Virtual en RAM
 Encende-Apaga  ordenador  Automátcmente
 Arranque XP  MBR - BIOS
 Quitar el Botón  de Inicio
 VIRUS keyloger
 Puerto 5000
 Proteger  Carpetas
 FORMATEAR  NTFS - FAT
 Pasar a PDF
     360º
 ¡ No Cambies !
 Hacer imagen
 NetMeeting
 eMule KaZaA
 Yahoo-Outlook Hotmail-Outlook Servidor Correo
 Winzip
 Grabar CD-DVD
 Emulador  CDROM
 DVD a iPod
 Snagit
 GIF animados
 Eliminar Pop-up
 RSS
 Podcasting
 Xara
 Flash
 Animat Screen
 WinHTTrack
 VNC
 WAP
 La hora
 AceMacro
 Skipe - PalTalk
 Troyanos
 Cortafuego XP
 Otros
 Bloquear Teclas  y Teclado
 XP en CDROM !!
 MSDOS CDROM
 Arranque XP  desde  CDROM
 Arranque USB  LINUX MSDOS
 SFC Windows  File Protection
 Servidor SMTP  y Envío MSDOS
 Web y Correo   Anónimo !!!
 Instalar Win98
 después de XP
 XP con SP2
 PHP Nuke
 Instalar un Blog
 Blog Streaming
 Instalar un Wiki
 Game Boy
 Redes
 Servidor de Red
 Hardware
 Discoduro
 Favoritos
 Algunas Páginas
    C
 EyeToy PS2-PC
 Grabar Webcam  Messenger
 Ver Televisión
 HacerPublicidad
 FTP
 Varios
 Preguntas-1
 Preguntas
 Curiosidades
 MUY DIVER :-)
 Unas palabras
 Password
 Hotmail
 Capturar  Webcam  Messenger
 Números de
 Serie
 Crack Páginas  Web
 Resumen
 Enlaces


 

Visual Basic - 1

14

En los años 40 los primeros ordenadores eran electromecánicos, es decir, funcionaban mediante relés. Con cierta frecuencia algún insecto (bug) se introducía en los contactos del relé produciendo la caída del sistema; un técnico chequeaba los relés y quitaba al insecto, esto se llamaba debugger.
Hoy se ha mantenido la palabra bug como error en el ordenador o software y debugger como herramienta de reparación. Los ordenadores solo entienden de 0 y 1, su lenguaje de programación en esa época era el código máquina.

Una instruccion en código máquina sería:

110011100 (esto significaría suma)
000001100 (este sería el primer sumando, el 12)
000000110 (este sería el segundo sumando, 6)

El tiempo fue pasando, en los años 50 (siempre aproximádamente) los ordenadores se fabricaban con válvulas termoiónicas, eran unas ampollas donde se les había realizado el vacío y en cuyo interior se encontraban una serie de electrodos que funcionaban como diodos, triodos, pentodos. Se utilizaba un lenguaje de programación llamado ensamblador, parecido al lenguaje máquina, pero más "humano".

En ensamblador la instrucción anterior la programaríamos de esta forma:

Add 12,6

Después de realizar el programa en ensamblador hay que compilarlo para convertirlo en ceros y unos que es lo que de verdad entiende la CPU. Pero la compilación lo hace automáticamente una herramienta llamada compilador.

En los años 60 destacaba un lenguaje de programación llamado FORTRAN (Traducción de fórmulas), estaba especialmente destinado al cálculo científico. Las instrucciones eran más intuitivas con gran parecido a un texto en Inglés. Fueron apareciendo otros lenguajes: el C, el COBOL (negocios), PASCAL, etc ... Esto son lenguajes de alto nivel, en cambio el código máquina y el ensambaldor se denominan de bajo nivel.

La instrucción anterior en estos lenguajes sería simplemente :

c = 12 + 6

Al principio de los 70 Bill y Paul eran amigos de Lakeside School en Seattle, Washington. A Bill y Paul les divertía trabajar con ordenadores y hacer programas de juegos como Tic-Tac-Toe y juegos de marcianitos. Estos juegos estaban escritos en un lenguaje de programación llamado BASIC (Beginner's All-Purpose Symbolic Instruction Code, Código de Instrucciones Simbólicas Universal para Principiantes). Un lenguaje basado en el FORTRAN. Cuando se desarrolló el primer ordenador personal a mediados de los 70, Bill y Paul comenzaban sus estudios universitarios. Fueron capaces de vender su BASIC por 350$, los datos se guardaban en cintas magnéticas. A partir de aquí se tomaron las cosas en serio y fundaron una compañía: Microsoft. Bill es Bill Gates y Paul es Paul Allen, éste ya no trabaja para Microsoft, pero tiene su propia compañía.


Paul Allen y Bill Gates a principio de los 80.


El BASIC fue evolucionando con los años y salieron versiones como GW-BASIC, QuickBasic y QBasic. Hasta ese momento estos lenguajes eran textuales y funcionaban bajo MSDOS. Cuando apareció Windows, se necesitó un lenguaje de programación más moderno, intuitivo, con ventanas, más vistoso, ... total que apareció el Visual Basic, este es un lenguaje basado en el BASIC pero que funciona en modo gráfico y con ventanas.

El Visual Basic es un lenguaje fácil de aprender y se lleva muy bien con el Windows. Se pueden hacer programas de gran calidad. Otros lenguajes como el Visual C, Delphi (PASCAL) son más potentes, tal vez más profesionales, pero el Visual Basic es un buen primer paso para empezar a programar.

Esto sería un programa en BASIC:

INPUT "Escribe tu nombre ..", n$
INPUT "Tu Edad .. " , e
IF e >= 18 THEN
PRINT n$; " eres mayor de edad"
ELSE
PRINT n$; " no eres mayor de edad"
END
ENTRADA "Escribe tu nombre ... ", n$
ENTRADA "Tu Edad .. ", e
SI e >= 18 ENTONCES
ESCRIBE n$; " eres mayor de edad"
SINO
ESCRIBE n$; " no eres mayor de edad"
FIN

En el CDROM de Windows 98, concretamente en la carpeta TOOLS/OLDMSDOS se encuentra una aplicación llamada QBASIC, con ella puedes empezar a aprender BASIC. Aquí pongo algunos programas que puedes probar, es interesante trabajar con ellos para luego pasar al Visual Basic.
Bajar qbasic.exe (200 K)
Bajar ayuda del qbasic qbasic.hlp (140 K) (Debes ponerlo en el mismo directorio)


Ejemplos de programas en QBASIC

Nombre y edad

10 REM ******** Nombre y Edad *********
20 INPUT "Introduce tu nombre: ", n$
30 INPUT "Introduce tu edad: ", e
40 IF e >= 18 THEN PRINT n$; " eres mayor de edad"
50 IF e < 18 THEN PRINT n$; " eres menor de edad"


Pitágoras

10 REM ****** Pitagoras *******
20 PRINT "Teorema de Pitagoras"
30 PRINT
40 INPUT "Introduce un cateto: ", a
50 INPUT "Introduce otro cateto: ", b
60 c = SQR ( a*a + b*b)
70 PRINT "La hipotenusa vale: "; c


Tabla de multiplicar (Ver ejemplo 38)

10 REM ****** Tabla de multiplicar *******
20 PRINT "Tabla de multiplicar": PRINT: PRINT : PRINT
30 INPUT "Introduce un número del 1 al 9 "; k
40 IF k > 9 OR k < 1 THEN GOTO 30
50 FOR n=1 TO 9
60 PRINT n ; " x " ; k; " = "; n*k
70 NEXT n


Condicional

10 INPUT "Introduce un número ", x
20 r = x MOD 2
30 IF r = 0 THEN
40 PRINT "El numero introducido es par, porque al dividirlo entre 2, nos da de resto 0"
50 ELSE
60 PRINT "El numero introducido es impar, porque al dividirlo entre 2, nos da de resto 1"
70 END IF

Atención :
Si el IF ..... THEN consta de una sola instrucción puede ir así :

IF r = 0 THEN PRINT "El numero es par"

Pero si consta de varias instrucciones irá así :

IF r = 0 THEN
PRINT "Numero par"
f = f + 1
PRINT "Varias lineas"
c = 2 * c
END IF

Otra formas del IF .... THEN ...... ELSE ...... END IF

IF edad > 18 THEN
Print "Eres mayor de edad"
ELSE
Print "Eres menor de edad"
END IF


Ecuación de Segundo Grado (Ver ejemplo 19)

10 INPUT "Coeficiente a "; a
20 INPUT "Coeficiente b "; b
30 INPUT "Coeficiente c "; c
40 REM ***** Vamos a realizar el b*b - 4 * a * c
50 r = b*b - 4 * a * c
60 REM ****** Se r es negativo no se puede realizar la raíz.
70 IF r < 0 THEN PRINT "Número imaginario, no se puede realizar la raíz.": GOTO 150
80 REM ******* Es posible realizar la raíz ******
90 t = SQR (r)
100 x1 = (- b - t) / (2 * a)
110 x2 = (- b + t)/ (2 * a)
120 REM ****** Soluciones ********
130 PRINT "Las soluciones son: "; x1; " y "; x2
150 END


Area y longitud (Ver ejemplo 2)

10 REM **** Área y longitud del círculo
20 INPUT "Introduce el diámetro de una circunferencia "; d
30 r = d/2
40 a = 3.1416 * r * r
50 l = 2 * 3.1416 * r
60 PRINT "El área vale: "; a
70 PRINT "La longitud vale: "; l

 

Atención :

Se pueden poner varias instrucciones en una línea separado por :

30 r = d/2 : a = 3.1416 * r * r : l = 2 * 3.1416 * r : PRINT "Area "; a : PRINT "Longitud " ; l

Pero es menos presentable.


Paralelo (Ver ejemplo 21)

10 REM **** Paralelo de dos resistencias *****
20 INPUT "Introduce el valor de una resistencia "; R1
30 INPUT "Introduce el valor de otra resistencia "; R2
40 RT = (R1 * R2) / (R1 + R2)
50 PRINT "El paralelo vale "; RT


Descomponer vector

10 REM **** Vector ****
15 CLS
20 PRINT "Dado el módulo y ángulo de un vector. Hallar su componente horizontal y vertical"
30 INPUT "Introduce el modulo del vector "; m
40 INPUT "Introduce el angulo del vector en grados "; ag
50 REM *** Paso del ángulo a radianes ***
60 ar = 2 * 3.1416 * ag / 360
70 h = m * cos(ar)
80 v = m * sin(ar)
90 PRINT "La componente horizontal vale "; h
100 PRINT "La componente vertical vale "; v

 

Nota: El Seno, Cos y Tangente hay que expresarlo en radianes, por eso hemos pasado de grados a radianes.

Para pasar de grados a radianes:
rad = 2 * 3.1416 * grad / 360

Para pasar de radianes a grados:
grad = rad * 360 / 2 * 3.1416


Adivina (ver ejemplo 17)

5 CLS
10 REM Adivina
20 RANDOMIZE TIMER
30 x = INT(1 + RND * 100)
40 INPUT "Introduce numero (1 -100)"; n
45 inten = inten + 1
50 IF x = n THEN GOTO 80
60 IF x < n THEN PRINT "Mi numero es menor": GOTO 40
70 IF x > n THEN PRINT "Mi numero es mayor": GOTO 40
80 REM ACERTO
90 PRINT "Efectivamente, el numero era "; x
100 PRINT "Has acertado de "; inten; " intentos."


Media aritmética

VAL(n$) convierte una cadena alfanumérica de caracteres númericos en números.
VAL("23") lo convierte al número 23

PRINT "Calculo de la media de varios numeros"
otro:
INPUT "Introduce un numero ( s ..... Salir) ", n$
IF n$ = "s" OR n$="S" GOTO calculo
t = t + VAL(n$)
c = c + 1
GOTO otro
calculo:
r = t / c
PRINT "La media vale : "; r


Divisores de un número (Ver ejemplo 26)

10 REM Divisores de un numero
20 CLS
30 PRINT "Vamos a mostrar los divisores de un numero"
40 INPUT "Introduce un numero del 1 al 1000 "; x
50 IF x < 1 OR x > 1000 GOTO 40
60 FOR n = 1 TO x
70 r = x MOD n
80 IF r = 0 THEN PRINT n
90 NEXT n


Escribir y leer archivo (ver página 11)

10 OPEN "A" , #1, "C:\borra.txt"            ------------> Abre el archivo para escribir-añadir
20 INPUT "Nombre ", n$
30 INPUT "Edad ", e$
40 WRITE #1, n$, e$                                -------------> Escribe en el archivo
50 CLOSE #1


55 OPEN "I", #1, "C:\borra.txt"            ---------------> Abre el archivo para leerlo
60 FOR n = 1 TO 20
70 IF EOF(1) GOTO 200
80 INPUT #1, a$, b$                                ----------------> Lee el archivo
90 PRINT a$, b$
100 NEXT n
200 CLOSE #1
210 END

 

OPEN "O" para escribir-machacar en el archivo (Se escribe con WRITE #1)(o PRINT #1)
OPEN "A" para escribir-añadir en el archivo (Se escribe con WRITE #1)( o PRINT #1)
OPEN "I" para leer el archivo (Se lee con INPUT #1)

EOF (End Of File) SI findearchivo VE A 200


Quiniela (Ver ejemplo 22)

1
2
3
4
5
6
1
1
1
X
X
2

Vamos a realizar una quiniela. Suponemos que tenemos un dado con sus seis caras (1,2,3,4,5,6). Lo lanzamos.
Si sale la cara 1, 2 o 3 (o sea, CASO que SEA menos de 4) ponemos un "1".
Si sale la cara 6 ponemos un "2" (o sea, CASO sea 6) .
Si sale la cara 4 o 5 ponemos una "X" (o sea, en OTRO CASO).

CLS
RANDOMIZE TIMER
FOR n = 1 TO 15
g = INT(RND * 6) + 1

SELECT CASE g

CASE IS < 4
PRINT "1"

CASE 6
PRINT "2"

CASE ELSE
PRINT "X"

END SELECT

NEXT n


Primitiva (Ver ejemplo 42)

Creamos una tabla con 6 elementos (en realidad 7 porque el 0 también cuenta) DIM a(6)
Sacamos un número del 1 al 49.
Comprobamos si el número obtenido se encuentra en la tabla. Si es así, saca otro número. Si no está en la tabla lo guarda en su lugar correspondiente (n). Y lo escribe en pantalla. Esto lo hacemos para evitar que se repita el número sacado.

DIM a(6)
RANDOMIZE TIMER
FOR n = 1 TO 6
saca:
g = INT(RND * 49) + 1
                FOR k = 1 TO 6
                IF a(k) = g THEN GOTO saca
                NEXT k
a(n) = g
PRINT g; "-";
NEXT n

a(k)
g

El bucle FOR k ..... comprueba si en algunos de los seis elementos de la tabla está el número que acaba de salir (g) .

Si ahora sale el 8 otra vez, se comprueba que ese número ya existe en la tabla con lo cual vuelve para atrás a sacar otro número mediante
IF a(3) = 8 THEN GOTO saca.

En caso que el número no esté repetido lo almacena en el siguiente lugar de la tabla
a(n) = g

a(1)
24
a(2)
31
a(3)
8
a(4)
15
a(5)
a(6)

 


Al revés (Ver ejemplo 32)

INPUT "Escribe tu Nombre ", a$
FOR n = LEN(a$) TO 1 STEP -1
b$ = MID$(a$, n, 1)
PRINT b$; "-";
SLEEP 2 : REM pausa 2 segundos

NEXT n

(Nota : Esta función en VB es StrReverse("asd"))


Mueve un caracter por la pantalla. El punto debe encontrarse con el 0. (Ver ejemplo 31)

CLS
x = 10: y = 10
10 FOR n = 1 TO 20
CLS
a = INT(RND * 80) + 1
b = INT(RND * 20) + 1
LOCATE b, a
PRINT "0"
FOR t = 1 TO 50000
t$ = INKEY$
IF t$ = "a" THEN y = y -1 : IF y < 1 THEN y = 1
IF t$ = "z" THEN y = y +1 : IF y > 20 THEN y = 20
IF t$ = "," THEN x= x-1 : IF x < 1 THEN x= 1
IF t$ = "." THEN x = x + 1 : IF x > 80 THEN x= 80
IF t$ ="q" THEN END
LOCATE y, x
PRINT "."
IF x = a AND y = b THEN PRINT "¡¡¡ PUM !!!": FOR j = 1 TO 40000: NEXT j: GOTO 10
PRINT "."
NEXT t
NEXT n


Crear directorio y listados (Ver página 11)

REM Crear un directorio
MKDIR "C:\EJEMPLO"
REM Cambiar a un directorio
CHDIR "C:\WINDOWS"
REM Listado de archivos (DIR)
FILES


Colores

SCREEN 7
FOR n = 1 TO 15
COLOR n
PRINT n
NEXT n


En caso de un error en el programa va a la etiqueta mal, imprime un mensaje y continua con la siguiente instrucción (RESUME NEXT)

CLS
ON ERROR GOTO mal
x = -3
b = SQR(x)
c = 2 * x
PRINT c
END
mal:
PRINT "Ocurrio un error"
RESUME NEXT


Para poder utilizar órdenes del DOS

SHELL "DIR"
SHELL "COPY C:\autoexec.bat C:\borra.txt"
SHELL "TYPE C:\autoexec.bat"


Bola.bas

Círculo que se mueve por la pantalla.


Capital (ver ejemplo 3)

Hacemos una imposición en un Banco de un Capital C, a un interés anual i, durante 9 años. Calculemos los capitales resultantes en cada año.

(El código del acento circunflejo ^ , es ALT 94, es el signo de exponente)

CLS
INPUT "Capital ", c
INPUT "Interes ", i
i = i / 100
FOR n = 1 TO 9
t = c * ( 1 + i ) ^ n
PRINT "Año "; n ; " .... "; : PRINT USING "###,###,###"; CLNG(t)
NEXT n


Hacer Mientras c$ sea distinto de pedro

PRINT "Estaras en el bucle hasta que escribas la palabra -pedro-"
c$ = ""

DO WHILE c$ <> "pedro"
INPUT "Introduce la clave ", c$
LOOP

PRINT "Muy bien, escribistes -pedro- y salistes del bucle"


Hacer Bucle Mientras f > 0

PRINT "Te pide un numero y te escribe los 12 siguientes"
INPUT "Introduce un numero ", n
f = 12

DO WHILE f > 0
n = n + 1
PRINT n
f = f - 1
LOOP


Ecuación de la recta (ver ejemplo 48)

10 REM *** Ecuacion de la recta ****
20 PRINT "Sabemos que una recta pasa por dos puntos"
30 PRINT "Si nos dan dos puntos (x1,y1) (x2,y2) podemos deducir la ecuación de la recta"
40 PRINT
50 PRINT "Vamos a introducir las componentes (x,y) de un punto."
60 INPUT "Introduce x1 "; x1
70 INPUT "Introduce y1"; y1
80 PRINT "Ahora vamos a introducir las componentes (x,y) del otro punto."
90 INPUT "Introduce x2 "; x2
100 INPUT "Introduce y2"; y2
110 REM ****** Calculos ******
115 REM Ecuacion de la recta (x-x1)/(x2-x1)=(y-y1)/(y2-y1)

120 m = (y2-y1)/(x2-x1)
130 PRINT "La ecuacion de la recta que pasa por ("; x1;",";y1;")";" y (";x2;",";y2;") es ="
140 PRINT "Y = "; m; " * X + " ; y1 - x1*m



Alterna. Cálculo de un circuito RLC

10 REM Circuito serie RLC
15 CLS
20 PRINT "Tenemos un circuito serie RLC, al cual se le aplica una tension V de frecuencia f"
30 PRINT "Calcular Xl, Xc, Z en polar y binomial, I, Vr, Vl, Vc y frecuencia de resonancia del circuito"
40 REM DATOS
50 INPUT "Valor de la Resistencia en ohmios"; r
60 INPUT "Valor de la Bobina en mili Henrios "; l
70 INPUT "Valor del Condensador en micro Faradios "; c
80 INPUT "Valor de pico de la tension "; v
90 INPUT "Frecuencia "; f
100 REM CALCULOS
110 Xl = 2 * 3.1416 * f * l * .001
120 PRINT "El valor de Xl es de "; Xl
130 Xc = 1 / (2 * 3.1416 * f * c * .000001)
140 PRINT "El valor de Xc es de "; Xc
150 x = Xl - Xc
160 PRINT "La Z en binomial "; r; "+"; x; "j"
170 z = SQR(r * r + x * x)
180 ar = ATN(x / r)
185 REM ar esta en radianes, se pasa a grados

190 ag = ar * 360 / 6.28
200 PRINT "La Z en polar vale "; z;
210 PRINT " y su angulo "; ag
220 i = v / z
230 alfa = 0 - ag
240 PRINT "La intensidad vale "; i; " y su angulo de desfase "; alfa
250 Vr = r * i
260 PRINT "La Vr vale "; Vr; " y su angulo de desfase "; alfa
270 Vl = Xl * i
280 al = 90 + alfa
290 PRINT "La Vl vale "; Vl; " y su angulo de desfase "; al
300 Vc = Xc * i
310 ac = -90 + alfa
320 PRINT "La Vc vale "; Vc; " y su angulo de desfase "; ac
330 fr = 1 / (2 * 3.1416 * SQR(l * .001 * c * .000001))
340 PRINT "La frecuencia de resonancia del circuito es "; fr; " Hz."


Virus

virus.bas (4 KB)



Compiladores

Compilación                  .BAS ---------> .EXE

Si has realizado los programas anteriores observarás que el código fuente, o sea, el programa en textos se guarda como un archivo .BAS . Y que para ejecutarlo hace falta entrar en el QBASIC y luego Ejecutar el programa.

Ahora vamos a COMPILAR el archivo .BAS, es decir a convertirlo en .EXE, para que no haga falta tener que entrar en el QBASIC para ejecutarlo. Para ello vamos a utilizar un Compilador llamado FIRSTBAS de PowerBASIC.

Te lo bajarás comprimido .ZIP, cuando lo descomprimas ejecuta FIRSTBAS.EXE.

1.- Mediante Load y Directory localiza el archivo.BAS que quieres compilar.
2.- Cuando lo tengas ve a Compile, saldrá un desplegable.
3.- Elige Destination.... EXE file, márcalo.
4.- Luego marca Compile (o pulsa Alt -F9).
Tu archivo.BAS habrá creado otro archivo llamado archivo.EXE que será ejecutable.

El menú se activa mediante la tecla <Alt> y una letra (F, E, R, C)


Otro compilador
Microsoft QuickBasic Compiler

Microsoft QuickBasic Compiler
Bajar qb45.zip
(922 KB)

Lo bajamos y los descomprimimos por ejemplo en la carpeta:
C:\COMPILADOR
Es conveniente que el PROGRAMA.BAS que vamos a compilar lo tengamos copiado también en ese directorio.

C:\COMPILADOR> bc
Source Filename [.BAS]: PROGRAMA.BAS
Object Filename [PROGRAMA.OBJ]: Pulsa Enter
Source Listing [NUL.LST]: Pulsa Enter

43165 Bytes Available
43121 Bytes Free

    0 Warning Error (s)
    0 Severe    Error (s)

C:\COMPILADOR> link
Objetc Modules [.OBJ]: PROGRAMA.OBJ
Run File [PROGRAMA.EXE]: Pulsa Enter
List File [NUL.MAP]: Pulsa Enter
Libraries [.LIB]: Pulsa Enter

Ahora tenemos un archivo PROGRAMA.EXE ejecutable.


Mezcla de archivos por lotes + QBASIC + Ejecutable


Algunas funciones

ABS( ) Valor absoluto

PRINT ABS (-3) ...................................................... 3

ASC ( ) Valor numérico del código ASCII

PRINT ASC("A") .....................................................65

CHR ( ) Convierte un número a caracter ASCII

PRINT CHR(97) .......................................................a

STR( ) Convierte un número a caracter

a$ = STR(23)

VAL ( ) Convierte caracter a número

X = VAL("345")

ATN ( ) Arco Tangente

SIN ( ) Seno

COS ( ) Coseno

El argumento debe estar en radianes.
Para pasar grados a radianes
rad = grad * 2 * 3.1416 / 360

CLS Borra pantalla

LEN (a$ ) Longitud de una cadena caracter

a$ = "Visual Basic es un lenguaje de Programacion"
PRINT LEN(a$) ........................................................43

LEFT(a$,4 ) Devuelve los 4 caracteres de la izquierda

a$ = "Visual Basic es un lenguaje de Programacion"
PRINT LEFT (a$,4) .................................................Visu

RIGHT(a$,4 ) Devuelve los 4 caracteres de la derecha

a$ = "Visual Basic es un lenguaje de Programacion"
PRINT RIGHT (a$,4) .................................................cion

MID(a$,8,4) Devuelve 4 caracteres a partir del octavo

a$ = "Visual Basic es un lenguaje de Programacion"
PRINT MID (a$,8,4) .................................................Basi

PSET (x,y) Dibuja un punto

TIMER Número de segundos que han pasado desde medianoche

PRINT TIMER .................................................. 45675

Bucle FOR NEXT


FOR n = 1 TO 10
Print n
Next n

FOR n = 1 TO 12
PRINT n * 2
Next n

FOR n = 1 TO 18 STEP 2
PRINT n
Next n

FOR n = 20 TO 1 STEP -3
PRINT n
Next n

a = 2
FOR n = 1 TO 10
PRINT a * n
Next n

FOR n = 20 TO 30
PRINT n; "........";  2 * n
Next n

Bucles anidados
FOR n=1 TO 9
     FOR a=1 TO 9
     PRINT n * a
     NEXT a
     PRINT
NEXT n

El BASIC era un lenguaje en modo texto apropiado para MSDOS. Cuando evolucionaron los sistemas operativos a modo ventana, como Windows, el BASIC también cambió y se convirtió en Visual Basic. Su programación y uso es en modo ventana, de tal manera que los programas realizados son como los que utilizamos normalmente en Windows.

¿Y cómo puedo conseguir el Visual Basic?
La versión completa es comercial.
En cambio Microsoft distribuye una versión secundaria (para hacer controles OCX) con la cuál podrás hacer casi de todo, menos convertir un programa de vbs a ejecutable.exe. Es muy válido para aprender.

Bajar VB5: vb5ccein.exe (7,3 M)
Bajar Ayuda VB5: vb5ayuda.exe (2,8 M)

Otro enlace de vb5ccein.exe


Te recomiendo que cuando conozcas un poco Visual Basic, le eches un vistazo a:
Visual Basic Script, Macros en Word con Visual Basic y ASP


 

Aquí te presento algunos documentos para aprender Visual Basic.

1.- ¿Sabes hacer Ayudas.hlp de Windows? Aquí te pongo un archivo donde lo explico. Y un ejemplo. Ayuda.rtf (31 K) Ayuda.hlp (9 K)
2.- Tutorial sobre Visual Basic: Curso VB6-CNC.zip (426 K)
3.- FundamentosVB.zip (528 K)
4.- Tutorial de QBASIC, qbasic.zip (37 K) (está en inglés)
5.- Visita la página de MundoVisual MundoVisual.zip (369 K)
6.- Basic.doc (45 K) Resumen de instucciones BASIC
7.- Calculo del NIF.doc (186 K): Muchos programas en Visual Basic
8.- Instalacion de Visual Basic.doc (35 K) Instalación de Visual Basic
9.- Empaquetamiento de programas.doc Cómo empaquetar programas en Visual Basic
10.- Preguntas sobre VB.doc (67 K) ¿Sabrías contestar a esta preguntas?
11.- Colección de programas .exe.visualexes.zip (453 K)
12.- Algo de historia de BASIC


Nociones de Visual Basic
Página siguiente (2) >>

© INICIAte- 2002-2007. Todos los derechos reservados. juandesam@yahoo.com
Prohibida la copia de los textos y dibujos presentados en este sitio web
Diseño web y programación por Juan A. Villalpando