Visual basic 6.0 codigos probados

2011-08-22T15:26:00.002-07:00

Resistencias

Aproximación a las funciones

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Dim primerabanda As Double
Dim segundabanda As Double
Dim tercerabanda As Double

Private Sub Caida_Click()
Text7.Text = (Text4.Text - Text5.Text) / Text6.Text
End Sub

Private Sub Combo1_Click()
'Asigno los colores de la primera banda

If Combo1.ListIndex = 0 Then
Label1.BackColor = &H0&
primerabanda = 0
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo1.ListIndex = 1 Then
Label1.BackColor = &H40C0&
primerabanda = 10
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo1.ListIndex = 2 Then
Label1.BackColor = &HFF&
primerabanda = 20
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo1.ListIndex = 3 Then
Label1.BackColor = &H80FF&
primerabanda = 30
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo1.ListIndex = 4 Then
Label1.BackColor = &H80FFFF
primerabanda = 40
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo1.ListIndex = 5 Then
Label1.BackColor = &H8000&
primerabanda = 50
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo1.ListIndex = 6 Then
Label1.BackColor = &HC00000
primerabanda = 60
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo1.ListIndex = 7 Then
Label1.BackColor = &H800080
primerabanda = 70
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo1.ListIndex = 8 Then
Label1.BackColor = &HE0E0E0
primerabanda = 80
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo1.ListIndex = 9 Then
Label1.BackColor = &HFFFFFF
primerabanda = 90
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

End If
End Sub

Private Sub Command1_Click()
If Option1.Value = True Then
Text1.Text = Text3.Text / Text2.Text
ElseIf Option2.Value = True Then
Text2.Text = Text3.Text / Text1.Text
ElseIf Option3.Value = True Then
Text3.Text = Text1.Text * Text2.Text
End If
End Sub

Private Sub Command2_Click()
Label11.Caption = Val(Val(Text4.Text) - Val(Text5.Text)) / Val(Text6.Text)
End Sub

Private Sub help_Click()
acerca.Show
End Sub

Private Sub Form_Load()
ley.Checked = False
ban.Checked = False
caidaled.Checked = False
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = False
Option1.Value = True
'Asigno los valores a la combobox de la primera banda
Combo1.AddItem "Negro"
Combo1.AddItem "Marron"
Combo1.AddItem "Rojo"
Combo1.AddItem "Naranja"
Combo1.AddItem "Amarillo"
Combo1.AddItem "Verde"
Combo1.AddItem "Azul"
Combo1.AddItem "Violeta"
Combo1.AddItem "Gris"
Combo1.AddItem "Blanco"
'Asigno los valores a la combobox de la segunda banda
Combo2.AddItem "Negro"
Combo2.AddItem "Marron"
Combo2.AddItem "Rojo"
Combo2.AddItem "Naranja"
Combo2.AddItem "Amarillo"
Combo2.AddItem "Verde"
Combo2.AddItem "Azul"
Combo2.AddItem "Violeta"
Combo2.AddItem "Gris"
Combo2.AddItem "Blanco"
'Asigno los valores a la combobox de la tercera banda
Combo3.AddItem "Negro"
Combo3.AddItem "Marron"
Combo3.AddItem "Rojo"
Combo3.AddItem "Naranja"
Combo3.AddItem "Amarillo"
Combo3.AddItem "Verde"
Combo3.AddItem "Azul"
Combo3.AddItem "Violeta"
Combo3.AddItem "Plata"
'Asigno los valores a la combobox de la cuarta banda
Combo4.AddItem "Marron"
Combo4.AddItem "Rojo"
Combo4.AddItem "Dorado"
Combo4.AddItem "Plata"
Combo4.AddItem "Nada"
End Sub

Private Sub combo2_Click()

If Combo2.ListIndex = 0 Then
Label2.BackColor = &H0&
segundabanda = 0
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo2.ListIndex = 1 Then
Label2.BackColor = &H40C0&
segundabanda = 1
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo2.ListIndex = 2 Then
Label2.BackColor = &HFF&
segundabanda = 2
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo2.ListIndex = 3 Then
Label2.BackColor = &H80FF&
segundabanda = 3
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo2.ListIndex = 4 Then
Label2.BackColor = &H80FFFF
segundabanda = 4
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo2.ListIndex = 5 Then
Label2.BackColor = &H8000&
segundabanda = 5
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo2.ListIndex = 6 Then
Label2.BackColor = &HC00000
segundabanda = 6
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo2.ListIndex = 7 Then
Label2.BackColor = &H800080
segundabanda = 7
Label8.Caption = (primerabanda + segundabanda) * tercerabanda
ElseIf Combo2.ListIndex = 8 Then
Label2.BackColor = &HE0E0E0
segundabanda = 8
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo2.ListIndex = 9 Then
Label2.BackColor = &HFFFFFF
segundabanda = 9
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

End If
End Sub

Private Sub combo3_Click()

If Combo3.ListIndex = 0 Then
Label3.BackColor = &H0&
Label9.Caption = "Ohms"
tercerabanda = 1
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo3.ListIndex = 1 Then
Label3.BackColor = &H40C0&
Label9.Caption = "Ohms"
tercerabanda = 10
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo3.ListIndex = 2 Then
Label3.BackColor = &HFF&
Label9.Caption = "KiloOhms"
tercerabanda = 0.1
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo3.ListIndex = 3 Then
Label3.BackColor = &H80FF&
Label9.Caption = "KiloOhms"
tercerabanda = 1
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo3.ListIndex = 4 Then
Label3.BackColor = &H80FFFF
Label9.Caption = "KiloOhms"
tercerabanda = 10
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo3.ListIndex = 5 Then
Label3.BackColor = &H8000&
Label9.Caption = "MegaOhms"
tercerabanda = 0.1
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo3.ListIndex = 6 Then
Label3.BackColor = &HC00000
Label9.Caption = "MegaOhms"
tercerabanda = 1
Label8.Caption = (primerabanda + segundabanda) * tercerabanda

ElseIf Combo3.ListIndex = 7 Then
Label3.BackColor = &H800080
Label9.Caption = "Ohms"
tercerabanda = 1
Label8.Caption = (primerabanda + segundabanda) * tercerabanda
ElseIf Combo3.ListIndex = 8 Then
Label3.BackColor = &HC0C0C0
Label9.Caption = "Ohms"
tercerabanda = 1
Label8.Caption = (primerabanda + segundabanda) * tercerabanda
End If
End Sub

Private Sub combo4_Click()

If Combo4.ListIndex = 0 Then
Label4.BackColor = &H40C0&
Label7.Caption = "±1%"

ElseIf Combo4.ListIndex = 1 Then
Label4.BackColor = &HFF&
Label7.Caption = "±2%"

ElseIf Combo4.ListIndex = 2 Then
Label4.BackColor = &HC0C0&
Label7.Caption = "±5%"

ElseIf Combo4.ListIndex = 3 Then
Label4.BackColor = &HC0C0C0
Label7.Caption = "±10%"

ElseIf Combo4.ListIndex = 4 Then
Label4.Visible = False
Label7.Caption = "±20%"
Else
End If
End Sub

Private Sub ley_Click()
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
ley.Checked = True
ban.Checked = False
caidaled.Checked = False
End Sub

Private Sub ban_Click()
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
ban.Checked = True
ley.Checked = False
caidaled.Checked = False
End Sub

Private Sub caidaled_Click()
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = True
ban.Checked = False
ley.Checked = False
caidaled.Checked = True
End Sub

Private Sub sal_Click()
End
End Sub

Private Sub Form_Activate()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

-------------------------------------------------------------------------------------------------------------

'Ejemplos de keypress
Private Sub form_KeyPress(KeyAscii As Integer)
If KeyAscii = [tecla] Then
'evento
End If
End Sub
'Poner un textbox
'lovglomas software Horacio A. Ramírez
'codigo
Private Sub text1_KeyPress(KeyAscii As Integer)
If MsgBox("Codigo de la tecla: " & KeyAscii & " La Tecla presionada es: " & Chr$(KeyAscii), vbInformation, "Teclas") = vbOK Then
Text1.Text = "Codigo de la tecla: " & KeyAscii & " La Tecla presionada es: " & Chr$(KeyAscii)
Form1.SetFocus
End If
End Sub

Simple visor de imagenes
'incluir en el formulario
'Command1
'Command2
'Text1
'Commondialog1
'Image1

'texto del formulario

Private Sub Command1_Click()
CommonDialog1.Filter = "Imagen.jpg| *.jpg"
CommonDialog1.ShowOpen
If commondialog1.filename = "" then
Exit sub
Else
Text1.Text = CommonDialog1.FileName
End if
Picture1.Picture = LoadPicture(Text1.Text)
End Sub
Private Sub Command2_Click()
Picture1.Picture = LoadPicture()
End Sub

Private sub form_load()
Form1.BorderStyle = 1
Command1.Caption = "Abrir"
Command2.caption = "Vaciar"
Text1.text = ""
Form1.Caption = "Visor jpg"
end sub

Simple, pero se pueden agregar mas detalles y mas formatos

Los codigos del Visual basic 6.0

Visual basic 6.0 codigos probados

Resistencias