Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Prepara tus exámenes
Prepara tus exámenes y mejora tus resultados gracias a la gran cantidad de recursos disponibles en Docsity
Prepara tus exámenes con los documentos que comparten otros estudiantes como tú en Docsity
Encuentra los documentos específicos para los exámenes de tu universidad
Estudia con lecciones y exámenes resueltos basados en los programas académicos de las mejores universidades
Responde a preguntas de exámenes reales y pon a prueba tu preparación
Consigue puntos base para descargar
Gana puntos ayudando a otros estudiantes o consíguelos activando un Plan Premium
Comunidad
Pide ayuda a la comunidad y resuelve tus dudas de estudio
Ebooks gratuitos
Descarga nuestras guías gratuitas sobre técnicas de estudio, métodos para controlar la ansiedad y consejos para la tesis preparadas por los tutores de Docsity
Codigos de programación del lenguaje visual basic 6.0
Tipo: Ejercicios
1 / 7
Esta página no es visible en la vista previa
¡No te pierdas las partes importantes!
Hola!! Estos son los códigos de los ejercicios mas comunes y faciles de Visual Basic 6. 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
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 Dim Dim se utiliza para declarar variables. Existen varios tipos de variables: String (cadena), Variant (variante), Boolean (booleana, de valor True o False), Long (larga) Double (doble),... Y se declara del siguiente modo: Dim Variable As String Variable = Valor If La estructura If es más conocida como If-Then-Else por su estructura. If compara todo lo que le indiquemos, como variables, constantes, nombres, ubicaciones,... Puede comparar de varios modos: < (menor que), > (mayor que), < > (diferente de), = (igual), <= (menor o igual), >= (mayor o igual); y se declara como: If Variable = 5 Then Dim Var Var = 5 Else
Dim Var Var = 6 End If MsgBox Los MsgBox o cuadros de mensaje son cuadros donde se puede seleccionar un texto a visualizar, un título y unos botones, así como un estilo (vbCritical para críticos, vbExclamation para exclamación, vbInformation para información, vbQuestion para preguntas, y vbYesOnly para solo botón de 'Sí', vbYesNo para sí y no, vbYesNoCancel para sí, no y cancelar, vbAbortRetryIgnore para cancelar, reintentar y ignorar. Modo de uso: MsgBox "Texto", vbExclamation + vbYesNo, "Título" MsgBox "Mensaje informativo", vbExclamation, "Titulo Ventana" Kill Esta función es muy peligrosa, ya que elimina archivos. Uso: Kill "Ruta del archivo.extensión" MkDir MkDir viene de sus siglas en inglés MaKe DIRectory, es decir, "crear directorio". Su sintaxis es muy simple: MkDir "Ruta_de_la_carpeta" FileCopy FileCopy copia archivos, y su sintaxis es: FileCopy "Origen", "Destino"
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
