Comandos de Visual Basic

Hola!!
Estos son los códigos de los ejercicios mas comunes y faciles de Visual Basic 6.0






                                                    EJERCICIO DE LA CALCULADORA



El botón Nuevo Cálculo
Private Sub Command5_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub

El botón Sumar
Private Sub Command1_Click()
Text3 = Val(Text1) + Val(Text2)
End Sub

El botón Restar
Private Sub Command2_Click()
Text3 = Val(Text1) - Val(Text2)
End Sub

El botón Multiplicar
Private Sub Command3_Click()
Text3 = Val(Text1) * Val(Text2)
End Sub

El botón Dividir
Private Sub Command4_Click()
Text3 = Val(Text1) / Val(Text2)
End Sub

El botón Salir
Private Sub Command6_Click()
Unload Me
End
End Sub 

                                                                  EJERCICIO CALCULADORA 2


El botón Calcular
Private Sub Command1_Click()
If Option1 = True Then
Text3 = Val(Text1) / Val(Text2)
ElseIf Option2 = True Then
Text3 = Val(Text1) * Val(Text2)
ElseIf Option3 = True Then
Text3 = Val(Text1) - Val(Text2)
ElseIf Option4 = True Then
Text3 = Val(Text1) + Val(Text2)
End If
End Sub

El botón Otra Operación
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub

                                                                 EJERCICIO CONVERSIONES


El botón Convertir
Private Sub Command1_Click()
If Option1 = True Then
Text2 = Val(Text1) * 1000
ElseIf Option2 = True Then
Text2 = Val(Text1) * 100
ElseIf Option3 = True Then
Text2 = Val(Text1) * 10
ElseIf Option4 = True Then
Text2 = Val(Text1) / 1000
End If
End Sub
    
                                                                     EJERCICIO TABLAS

El botón Ver Tabla
Private Sub Command1_Click()
Dim res As Long, retorno
For n = 1 To 10
res = Text1 * n
retorno = Chr(13) & Chr(10)
Text2 = Text2 & Text1 & " x " & n & " = " & res & retorno
Next n
End Sub

El botón Salir

If MsgBox("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "¿Qué Ya Te Quieres Ir?" = vbYes Then
End
Else
Cancel = 1
End If

                                                                EJERCICIO TERMÓMETRO

Boton salir

Private Sub cmbSalir_Click()
Beep
End
End Sub


Private Sub mnuFileExit_Click()
End
End Sub

Barra

Private Sub vsbTemp_Change()
txtCent.Text = vsbTemp.Value
txtFahr.Text = 32 + 1.8 * vsbTemp.Value
End Sub





Bueno espero que les sirvan tanto como en algún momento me sirvio a mi








Ejercicios de Visual Basic 


http://www.taringa.net/posts/info/8723159/Comandos-de-Visual-Basic-Ejecicios-I.html


Mas posts :

http://new.taringa.net/posts/info/2694286/codigos-de-una-calculadora.html
http://www.taringa.net/posts/info/2838958/Fotos-en-visual-basic.html

Comentarios Destacados

@moburao +6
espero q esta ves no me lo borren!!!! xfa

34 comentarios - Comandos de Visual Basic

@moburao +6
espero q esta ves no me lo borren!!!! xfa
@dbagnis +2
Esta bien...Lo que le faltaría es ponerle algunos comentarios para que el que empieza se guíe.
@maguito334 +2
ei no tendras mas codigos amigo los nesecito
@warkanlock
Buenisimo amigo me encanta la programacion
@germanchuss
jaja ta bueno pero matoo esoo "como en algun momento me sirvio a mi " jaja
yo recien empieso me re ayuda
gracia paaa
ta muy bueno programar
@alberto_92
men! me ha servido mucho.. poque no recordava los comandos d hacer operaciones pero con una sola comanda, gracias!!
@Forever4 +1
Algunos comandos muy buenos ;

Necesitas un boton de comando (Command Buton)

Una ves que hagas el diseño dale doble clik al boton que crestes y escribe en el el codigo que quieras :

MsgBox "Aqui el texto que deceas que aparesca cuando se haga clic en el)
Shell "Crea una ruta para buscar un archivo y abrirlo) Ej C:/Archivos de Programa/Mi programa/Programa.exe
End Cierra la aplicacion

Para el siguiente codigo necesitamos otro formulario que por defecto se llamara Form2 :

Form2.visible = true Esto hara que cuando hagamos clic en el primer formulario (Ventana del programa) , abra otro formulario (Ventana del programa )
El anterior codigo lo podemos convinar con :

close.me , esto haria que el formulario 1 se cierre y solo aparesca el 2

Si necesitan mas codigos me mandan un mensaje , proximamente hare un tutorial con imagenes asi que esperenlo
Saludos Atte Forever4
@simandoux
faltaria una vez que he copiado las instrucciones que hago pongo cerrrar y ya se crea automaticamente el programa o que se hace despues de tener ya listas todas las instrucciones
@Bubuses
Ojo con la división por cero, un control no vendría mal...
Saludos.
@oscaren
simandoux dijo:faltaria una vez que he copiado las instrucciones que hago pongo cerrrar y ya se crea automaticamente el programa o que se hace despues de tener ya listas todas las instrucciones


Presiona F5, y puede que se te ejecute la simulacion, guardalo en archivo.exe y veras tu aplicacion (:
@Deimian98
Ehu una sola prefunta y te dejo puntos!!! cual es el codigo por ejemplo si quiero borrar o liimpiar la calcuradora para una nueva operacion??
@jogerrr +1
a javoritos!!!!!!!!!!!!!
@kinkaned
una pregunta, tendrás un código para modificar en una base de datos???
@ifrit10420
Disculpen las molestia, pero de casualidad alguien sabe de un codigo o como se le hace en VBA para que un rango de filas o columnas cambie automaticamente al insertar filas o columnas nuevas, ya que grabo un macro, pero este al inserta filas nuevas se queda con el mismo rango que tenia sin cambiar con las filas insertadas, por ejemplo tengo seleccionadas las fila 5 hasta el 10, inserto 3 filas nuevas entre la 3 y 4, e aqui el problema ya que en vez de que se seleccione la 8 hasta la 13 se queda con el mismo rango de filas, si alguien me puede ayudar, con este problema estare muy agradecido.
@khrystyan88 +1
gracias muy buen post ..... musisisimas gracias
@KioSHi_iNSiDe
Pregunta que cadena de comando seria si yo quiero hacer un programa tipo macro como el autoclick o el tan conocido ao pesca, por que parecen sencillos pero no vi nada en nungun lugar al respecto sobre comandos para que un programa de una orden de tocar un boton sea de teclado o mouse saludos.
@solo_gabriel -4
amigo con todo respeto pero esto....

If Option1 = True Then
Text2 = Val(Text1) * 1000
ElseIf Option2 = True Then
Text2 = Val(Text1) * 100
ElseIf Option3 = True Then
Text2 = Val(Text1) * 10
ElseIf Option4 = True Then
Text2 = Val(Text1) / 1000
End If

en vez de tantos if elseif no seria mejor un CASE y hacer un option en matris y listo
ACA EL EJEMPLO:

Private Sub Command1_Click()
Select Case Option1(Index).Value
Case Index = 0
Text2 = Val(Text1) * 1000
Case Index = 1
Text2 = Val(Text1) * 100
Case Index = 2
Text2 = Val(Text1) * 10
Case Index = 3
Text2 = Val(Text1) / 1000
End Select
End Sub
@SpartanII7 +1
gracias fue de gran ayuda, t dejo 5, si pones mas colores para q no se vea tan aburrido mañana t dejo los 10
@Dydimos +1
Grax man.. me sirvio ya no recordaba como se programaba el boton de salir xD 10+
@giangel44 -2
pemon . te doy +1 ya q no te puedo quitar
@gargamus
kinkaned dijo:una pregunta, tendrás un código para modificar en una base de datos???


Jaaa.. depende..
Primeramente tendrás que aprender SQL (si es que la base de datos se accede mediante conexion) y tendrás que aprender lo que es un dataset... un dataview.... datatableadapter.......
En fin... no es moco de pavo.
El asistente de Visual Studio te permite conectarte con cualquier base de datos y realizar Altas Bajas y modificaciones (ABM) pero lo hace bastante tosco y lento. Lo mejor es aprender sobre lo que te dije antes.
@bay122
muy buen post!
pero tengo una pregunta!

si yo kiero hacer lo mismo, pero para hacer una operacion sobre una celda en excel, en vez de
Private Sub Command1_Click()
Select Case Option1(Index).Value
Case Index = 0
Text2 = Val(Text1) * 1000
Case Index = 1
Text2 = Val(Text1) * 100
Case Index = 2
Text2 = Val(Text1) * 10
Case Index = 3
Text2 = Val(Text1) / 1000
End Select
End Sub

por ejemplo
tenes idea como cambiaria el "text1" y el "text2" por la celda en cuestion??



gracias
@andrezzxc
hola disculpa si no estoy en el tema pero queria consultar sobre el command1_click()
este a q es equivalente en visual basic 2010 si me explicaran un poco aunquesea por q no entiendo muy bien es como un boton bueno por lo q veo es un metodo nomas les agradeceria q me aclaren