[Tutorial] Basico Sobre Visual basic 6.0 !! By:Firex

Buenas aqui os voy a publicar todos mis tutoriales en 1 solo post

en exclusiva para Portal Hacker.

--
Aprende bucles:

Bucles! esto es lo que mas me gusta! Aprenderemos a generar bucles!

Bueno para empezar quiero decirles que los bucles es algo que me gusta mucho debido a que me gusta joder

a la gente que me cae mal

Bueno empezamos!

Creamos :

-1Commandbutton

Empezamos hces 2ble click en el commandbutton y añades el siguiente code

--
Dim a as string
For a = 1 to 20 'Hace todo 20 veces pero lo k esta entre el For y el next es lo k hace 20 veces!
Msgbox "Firex tutorial x20"
Next ' Cierre del For con Exit for o esto
--

Bueno espero que les guste envez de el msgbox pueden ahi meter lo k sea por ejemplo hay mucha gente que se cree
experta en esto como viene a ser Luisimlauer jajaj k no es nadie en la programacion xD! Es broma eres bueno man pero
mas malo k yo xD!

PD:Ahora Crearemos 20 archivos.txt con unas cuantas lineas de codigo!
Primero Doble click en Command1_butto n y añadimos el siguiente code

--
Private Sub Command1_Click()
Dim a As Long, c As String, f As Integer, e(1 To 20) As String ' Declaramos Variables y Array's
c = Text1.Text ' Damos el Valor de C al text1.text
For a = 1 To 20 ' Se genera el bucle de repetir 20 veces
f = FreeFile ' liberamos especio en f para k se pueda crear algo
Open a & ".txt" For Output As #f 'Abrimos a y la extension .txt y la guardamos
Print #f, c 'en cada documento creado se le colocara lo k haya en el text1.text
Close #f ' se cierra el documento ESTO ES MUY IMPORTANTE EN VB!
Next'Cerramos el bucle
End Sub
--
FIN BUCLES
--
Aprende Inputboxes

Otro Tutorial By : Firex!

Aprenderemos a usar los Inputboxes!

Buenas bueno como todos creo que yo que al ver los inputboxes siempre les gusta a la gente pues hoy por hoy

les enseñare a usarlos con su maximo esplendor!

Bueno empezemos con ejemplos practicos!:

--
Private Sub Command1_click()
Dim a As String, b As String ' Declaramos Variables
a = InputBox$("Te gustan los tutoriales Firex?") ' Convertimos el inputbox en una cadena en la cual al escribir algo se le dara el valor de "a"
Label1.Caption = a 'el valor o lo que sea k hayamos puesto en el inputbox se mostrara en el label1.caption
b = InputBox$("Te gusta kkchat?") 'Volvermos a convertir el inputbox en otra cadena en la cual al escribir algo se le dara el valor de "b"
Print a & b 'Mostramos la suma de a y b UNIDOS y lo mostramos en el Form si kieres sumarlos cambia el Print a & b por Print (a+b)
end sub
--
Fin inputboxes
--
Aprende variables

Necesitamos:

-Crear un Modulo
-Un Boton (en el form1)

Empezamos (por 2da vez empezamos xD!) Bueno en el Module1 escribimos lo siguiente
--
Type kekochat
Usuario As String * 20
Registrado As String * 30
Baneado As String * 30
Online As String * 50
End Type
--
Ahora vamos al Command Boton creado y metemos el siguiente Code

--
Private Sub Command1_Click()
Dim Venex As kekochat, Firex As kekochat, Tuska As kekochat, Alkon As kekochat
With Venex
.Baneado = "No esta baneado" 'declara lo k es venex.Baneado
.Online = "Si,si siempre esta online" 'declara lo k es venex.Online
.Registrado = "Claro que si! desde los inicios esta registrado"''declara lo k es venex.Registra do
.Usuario = "Usuario venex" 'declara lo k es venex.usuario
Print Venex.Baneado, Venex.Online, Venex.Registra do, Venex.Usuario 'Aqui imprime todo en el form1
End With ' Termina el with
End sub
--
Bueno ahora dale a F5 y dime te gusta Vdd...Esto de Crear Tus propias Variables es Demasiado util
Para la gente de nivel medio alto o Alto como el mio sirve Muchisisisimo! Debido a que..se acuerdan
de mi Tuto de e Bucle for? pues para k en los 20 documentos haya un distinto texto añadido!

PD:Enseñare otra forma de hacerlo mas sencilla...

Ponen lo del modulo ..pero lo del contenido el Command1.Click () lo borran y meten esto:
--
Private Sub Command1_Click()
Dim kekochateros(1 To 5) As kekochat
For a = 1 To 5
With kekochateros(a)
kekochateros(1).Baneado = "25 baneados Actualmente"
kekochateros(1).Online = "45 Online"
kekochateros(1).Usuario = "kekochat user's"
kekochateros(1).Registrado = "1100 Registrados"
kekochateros(2).Baneado = "15 baneados"
kekochateros(2).Online = "25 online"
kekochateros(2).Usuario = "1120 online"
kekochateros(2).Registrado = "1200 registrados"
kekochateros(3).Baneado = "115 baneados"
kekochateros(3).Online = "28 online"
kekochateros(3).Usuario = "35 usuarios"
kekochateros(3).Registrado = "135 registrados"
kekochateros(4).Baneado = "145 baneados"
kekochateros(4).Online = "67 online"
kekochateros(4).Usuario = "23 Usuarios"
kekochateros(4).Registrado = "1300 registrados"
kekochateros(5).Baneado = "1millon de Baneados"
kekochateros(5).Online = "2 online"
kekochateros(5).Usuario = "20 usuarios"
kekochateros(5).Registrado = "100 registrados"

End With
Print kekochateros(a).Baneado
Print kekochateros(a).Online
Print kekochateros(a).Registrado
Print kekochateros(a).Usuario

Next
End Sub
--
Fin Variables
--
Aprende a manejar archivos

Aprenderemos:

-Abrir ,Cerrar,Modificar,leer archivos

Bueno empezamos!

Crea lo siguiente:

-1textbox
-1 commandbutton

En el commandbutton coloca el siguiente codigo:

--
Private Sub Command1_click()
Dim a as string,x as integer ' declaramos Variables
A = text1.text ' Declaramos k a es ahora text1.text
x = freefile ' declaramos k x es un archivo libre
open "Tutorial Firex" & ".txt" for output as #x 'Hubicamos en donde queremos tener el archivo
print #x,a ' Imprimos el contenido en el archivo
Close #x ' cerramos Archivo
end sub
--
Bueno esta forma para krear un archivo llamado Tutorial Firex.txt y k en su interior este escrito lo k hay en el text1.text
(RECUERDA) Si usas el Output sustituira sin avisar cualquier tipo de archivo k haya con el mismo nombre!!
Pero si lo que quieres es añadir un texto a un archivo ya existente pues has lo siguiente codigo

--
Private Sub Command1_click()
Dim a as string,x as integer ' declaramos Variables
A = text1.text ' Declaramos k a es ahora text1.text
x = freefile ' declaramos k x es un archivo libre
open "Tutorial Firex" & ".txt" for Append as #x 'Hubicamos en donde queremos tener el archivo
print #x,a ' Imprimos el contenido en el archivo
Close #x ' cerramos Archivo
end sub
--
Esto lo que hace es añadir lo que haya en el text1.text a el archivo llamado Tutorial Firex.txt
Bueno ahora si lo k kieres es guardar el archivo con el nombre que quieras deberas crear un 2do textbox
-
Private Sub Command1_click()
Dim a as string,x as integer ' declaramos Variables
A = text1.text ' Declaramos k a es ahora text1.text
x = freefile ' declaramos k x es un archivo libre
open text2.text & ".txt" for output as #x 'Hubicamos en donde queremos tener el archivo
print #x,a ' Imprimos el contenido en el archivo
Close #x ' cerramos Archivo
end sub
-
Bueno eso lo que hace es lo que dije guardar el arcivo con el nombre que quieras

Bueno si ahora lo k kieres es leer archivos haz lo siguiente:

--
Private Sub Command1_Click()
Dim a As String, x As Integer 'Declara variables
Open "text2.text" & ".txt" For Input As 1 'Abrimos el archivo con el nombre k keramos k hayamos puesto en el text2
Input #1, a 'Abrimos el archivo y lo declaramos como la variable a
Close #1 ' cerramos el archivo
Text1.Text = a 'Declaramos k el text1.text es igual a a
End Sub
--
Fin Manejar archivos
--
Aprende if & else

Aprenderemos If & else!

Si,si bueno miren esto es muy sencillo saben ustedes muy bien que con el ingles soy como un gringo xD!

Bueno empezamos!

If = Si..
Else = sino se ciumple ..
end if = Cierra la sentencia If

Ejemplo:
--
Private Sub Command1_Click ()
If text1.text = "Firex es mi dios y me enseña a .ll:" then ' Seria si en el text1.text dice eso pues pasaria la sguiente linea
msgbox "Juas es cierto querido amigo" 'Si se cumple k en text1.text dice exactamente lo de Firex es mi..pues diria esto
else 'Sino se cumple k en el text1.text diga eso pues ocurrira lo siguiente
Msgbox "Juas eso no tenias k escribir ahi NOBATO" 'Esto ocurre si escribes otra kosa en el text1.text
End if
End sub
--

Vez esto es muy importante espero que lo hayas entendido
--
Fin if & else
--
Aprende Right & left

Bueno para empezar!

La funcion Right hce que se empieze por la derecha

y la funciona Left por la izq.

PD:Ni yo me entiendo

Bueno ok..oy algo cabezota asi que espero que lo entiendan de esta manera con un ejemplo !

Ok empezamos el code!
--
Private Sub Command1_Click()
Msgbox Right$("Hola Baby",4) 'muestra los ultimos 4 letras empezando por la derecha
End sub

--

Bueno lo k hace ese Codigo es Enviar un mensaje "Msgbox" empezando por las 4 primeras osea el resultado seria este
"Baby" diria baby.
Bueno ahora lo que haremos sera lo siguiente..
--
Private Sub Command1_Click()
Msgbox left$("Hola Baby",4) 'muestra los ultimos 4 letras empezando por la izq
End sub
--
lo que hara ese cod3 sera mandar un mensaje "Msgbox" desde la 4 ta palabra osea dira "Hola" el baby no se le vera siquiera!

PD: Quieres saber manejar todo esto que explico? Atiende
--
$ = String

("...", ?¿) los ?? son los caracteres a mostrar puedes modificarlo a tu gusto!
--
Bueno espero que te haya gustado!

--
Fin Right & left
--
Aprende listboxes

Firex Tuto! Aprenderemos a manejar los listboxes!

Bueno amigos! Quiero que hagan lo siguiente para empezar ..
Crearan :

-list1
-2 command Button (1 command button llamado osea su caption llamado: Añadir y otro Borrar)
-1 textbox

Bueno hacemos doble click el boton llamado Añadir y le añadimos el siguiente codigo

--
Private Sub Command1_butto n()
dim a as string 'Se declara la variable a como una cadena
Ucase (Text1.text) ' Convertimos lo que diga en el text1.text su primera letra en mayuscula
a = text1.text 'la variable a se convierte en text1.text osea en el contenido del text1
list1.additem a 'Añade la variable a k viene a ser el text1 a nuestra lista
End sub
--

Ahora hacemos doble click sobre el boton llamado Borrar y le ponemos el siguiente code:

--
Private Sub Command2_butto n()
List1.clear
Msgbox ("Lista 1 del tutorial de Firex borrado")
end sub
--
Fin listboxes
--
Aprende Len

Firex Tutorial!

Aprenderemos a leer cuantos caracteres tiene Algo y mostrarlo en el Form!

Esto sinceramente es muy simple de echo creo que es de lo mas simple

Empezamos!

Crea:

-1 textbox
-1 command boton

Ok ahora haz doble click en el command button y añade esto

--
Private Sub Command1_Click()
Print Len(Text1.Text) & " " & "Caracteres tiene el text1.text)" 'la opcion len sirve para saber los caracteres
End Sub
--
Fin Len
--
Aprende LCase

Firex Tutorial!

Aprenderemos a:

-Seguir con la sentencia If
-Aprender a Poner en Mayuscula y Minuscula automaticament e con VB

Empezemos!
Crea lo siguiente:

1 checkbox
1 command button
1 textbox

ok en el command button mete el siguiente code:
--
Private Sub Command1_Click()

Dim a As String, x As String 'Declaramos Variables
If Check1.Value = 1 Then 'Declaramos sentencia If
a = UCase(Text1.Text) 'Convertirmos a Minusculas
MsgBox a 'mensaje con la palabra en minuscula
Else 'Sino ocurre la sentencia de k el check1 esta clikeado ocurrira lo siguiente
x = LCase(Text1.Text) 'x se convierte en mayuscula osea el text1.text
MsgBox x 'mostramos el mensaje de x con mayuscula
End If' 'Cerrmos sentencia if

end sub
--
Fin tutoriales

Creador tutorial 100% Firex

-

Un saludo y Pongan sticked este post porfavor que es MUY UTIL.