Visual Basic 6.0 Algunos Comandos

***Abrir Modulo para determinar las Variables para cualquier parte con GLOBAL

***Llamar a los otros formularios atreves de botones o pestañas, se coloca

(FRM ------ . Show 1)

***Para agregar las Pestañas arriba, uno debe colocarse en la planilla y apretar “click” derecho y abrir “Editor de Menus..”

Y todos los archivos que agregue tienen que ir con “mnu-------“

***Botones Volver = Unload Me

PARA QUE LOS VALORES QUEDEN GUARDADOS

Private Sub cmdActualizar_Click()

If (txtLocal.Text) <> Empty Then

If IsNumeric(txtLocal.Text) Then

ValorLocal = Val(txtLocal.Text)

Else

Call MsgBox("Debe Indicar un Numero", , "Llamada Local")

txtLocal.Text = Empty

txtLocal.SetFocus

End If

Else

Call MsgBox("Debe Indicar un Valor", , "Llamada Local")

txtLocal.Text = Empty

txtLocal.SetFocus

End If

If (txtInternacional.Text) <> Empty Then

If IsNumeric(txtInternacional.Text) Then

ValorInternacional = Val(txtInternacional.Text)

Else

Call MsgBox("Debe Indicar un Numero", , "Llamada Internacional")

txtInternacional.Text = Empty

txtInternacional.SetFocus

End If

Else

Call MsgBox("Debe Indicar un Valor", , "Llamada Internacional")

txtInternacional.Text = Empty

txtInternacional.SetFocus

End If

If (txtMensaje.Text) <> Empty Then

If IsNumeric(txtMensaje.Text) Then

ValorMensaje = Val(txtMensaje.Text)

Else

Call MsgBox("Debe Indicar un Numero", , "Mensaje")

txtMensaje.Text = Empty

txtMensaje.SetFocus

End If

Else

Call MsgBox("Debe Indicar un Valor", , "Mensaje")

txtMensaje.Text = Empty

txtMensaje.SetFocus

End If

End Sub

Private Sub Form_Load()

txtLocal.Text = ValorLocal

txtInternacional.Text = ValorInternacional

txtMensaje.Text = ValorMensaje

End Sub

Option Explicit

Dim MinutoLocal As Long

Dim MinutoInternacional As Long

Dim CantidadMensaje As Long

Dim Total As Long

Private Sub cmdCalcular_Click()

If (txtLocal.Text) <> Empty Then

If IsNumeric(txtLocal.Text) Then

MinutoLocal = Val(txtLocal.Text)

If (txtInternacional.Text) <> Empty Then

If IsNumeric(txtInternacional.Text) Then

MinutoInternacional = Val(txtInternacional.Text)

If (txtMensaje.Text) <> Empty Then

If IsNumeric(txtMensaje.Text) Then

CantidadMensaje = Val(txtMensaje.Text)

'-------------------------

Calcular

'-------------------------

Else

Call MsgBox("Debe Indicar un Numero", , "Minuto Local")

txtLocal.Text = Empty

txtLocal.SetFocus

End If

Else

Call MsgBox("Debe Indicar un Valor", , "Minuto Local")

txtLocal.Text = Empty

txtLocal.SetFocus

End If

Else

Call MsgBox("Debe Indicar un Numero", , "Minuto Internacional")

txtInternacional.Text = Empty

txtInternacional.SetFocus

End If

Else

Call MsgBox("Debe Indicar un Valor", , "Minuto Internacional")

txtInternacional.Text = Empty

txtInternacional.SetFocus

End If

Else

Call MsgBox("Debe Indicar un Numero", , "Mensaje")

txtMensaje.Text = Empty

txtMensaje.SetFocus

End If

Else

Call MsgBox("Debe Indicar un Valor", , "Mensaje")

txtMensaje.Text = Empty

txtMensaje.SetFocus

End If

End Sub

Private Sub Calcular()

Total = (MinutoLocal * ValorLocal) + (MinutoInternacional * ValorInternacional) +

(CantidadMensaje * ValorMensaje)

lblCalcular.Caption = Str(Total)

End Sub

Option Explicit

Dim Consumo As Long

Dim PrecioLitro As Long

Dim Costo As Long

Dim Anterior As Long

Dim Actual As Long

Private Sub cmdCalcular_Click()

Anterior = Val(txtAnterior.Text)

Actual = Val(txtActual.Text)

Consumo = Actual - Anterior

If Consumo > 0 And Consumo <= 60 Then

PrecioLitro = ValorA

End If

If Consumo >= 61 And Consumo <= 180 Then

PrecioLitro = ValorB

End If

If Consumo >= 181 Then

PrecioLitro = ValorC

End If

Costo = PrecioLitro * Consumo

txtMonto.Text = Str(Costo)

End Sub

Private Sub cmdActualizar_Click()

If (txtValorA.Text <> Empty) And IsNumeric(txtValorA.Text) Then

ValorA = Val(txtValorA.Text)

Else

Call MsgBox("Debe indicar el Valor del Tramo A", , ("Tramo A"))

End If

If (txtValorB.Text <> Empty) And IsNumeric(txtValorB.Text) Then

ValorB = Val(txtValorB.Text)

Else

Call MsgBox("Debe indicar el Valor del Tramo B", , ("Tramo B"))

End If

If (txtValorC.Text <> Empty) And IsNumeric(txtValorC.Text) Then

ValorC = Val(txtValorC.Text)

Else

Call MsgBox("Debe indicar el Valor del Tramo C", , ("Tramo C"))

End If

End Sub

Private Sub Form_Load()

txtValorA.Text = ValorA

txtValorB.Text = ValorB

txtValorC.Text = ValorC

End Sub

Private Sub cmdGrabar_Click()

Apellidos = txtApellido.Text

Nombres = txtNombres.Text

Correo = txtMail.Text

Celular = Val(txtCelular.Text)

Nacimiento = CDate(txtNacimiento.Text)

Open App.Path & "\Agenda.txt" For Append As #1

Write #1, Apellidos, Nombres, Correo, Celular, Nacimiento

Close

Call MsgBox("Contacto Regristado", , ("Exito"))

End Sub

Option Explicit

Dim MesBuscado As Integer

Dim HayCarrete As Boolean

Public Sub CargarMeses()

cboMeses.AddItem ("")

cboMeses.AddItem ("Enero")

cboMeses.AddItem ("Febrero")

cboMeses.AddItem ("Marzo")

cboMeses.AddItem ("Abril")

cboMeses.AddItem ("Mayo")

cboMeses.AddItem ("Junio")

cboMeses.AddItem ("Julio")

cboMeses.AddItem ("Agosto")

cboMeses.AddItem ("Septiembre")

cboMeses.AddItem ("Octubre")

cboMeses.AddItem ("Noviembre")

cboMeses.AddItem ("Diciembre")

End Sub

Private Sub cmdLimpiar_Click()

cboMeses.ListIndex = 0

txtEncontrado.Text = Empty

End Sub

Private Sub cmdMostrar_Click()

MesBuscado = cboMeses.ListIndex

HayCarrete = False

Open App.Path & "\Agenda.txt" For Input As #1

While Not EOF(1)

Input #1, Apellidos, Nombres, Correo, Celular, Nacimiento

If Month(Nacimiento) = MesBuscado Then

txtEncontrado.Text = txtEncontrado.Text & vbNewLine & Apellidos & " " & Nombres & " " & Correo & " " & Celular

HayCarrete = True

End If

Wend

Close #1

If Not HayCarrete Then

MsgBox "No Hay Cumpleaños en el Mes", , "Mensaje"

End If

End Sub

...