Mostrar Mensajes
1
Visual Basic / [MEGA Tutorial] Basico Sobre Visual basic 6.0 !! By:Firex !! INCREIBLE !!
« en: 06 de Julio de 2008, 23:49:51 pm »Exclusivo Mundonet
Creador 100% Firex
--
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_button 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.Registrado
.Usuario = "Usuario venex" 'declara lo k es venex.usuario
Print Venex.Baneado, Venex.Online, Venex.Registrado, 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_button()
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_button()
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 automaticamente 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