Electronica

Páginas: 5 (1186 palabras) Publicado: 5 de octubre de 2010
If Text1.Text = "0" Then Text1.Text = ""
If a = True Then
Text1.Text = "1"
a = False
Else
Text1.Text = Text1.Text & "1"
End If
End Sub

Private Sub Command11_Click()
If a = True Then
Text1.Text = "0"
a = False
Else
Text1.Text = Text1.Text & "0"
End If
End Sub

Private Sub Command12_Click()
If a = True Then
Text1.Text = "00"
a = False
Else
Text1.Text = Text1.Text & "00"
EndIf
End Sub

Private Sub Command13_Click()
If tipo = "suma" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) + CDbl(can2)
can1 = Text1.Text
a = True
tipo = "suma"
ElseIf tipo = "resta" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) - CDbl(can2)
can1 = Text1.Text
a = True
tipo = "suma"
ElseIf tipo = "multi" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) * CDbl(can2)
can1 =Text1.Text
a = True
tipo = "suma"
ElseIf tipo = "divi" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) / CDbl(can2)
can1 = Text1.Text
a = True
tipo = "suma"
ElseIf tipo = "" Then
can1 = Text1.Text
a = True
tipo = "suma"
End If
End Sub

Private Sub Command14_Click()
If tipo = "suma" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) + CDbl(can2)
can1 = Text1.Text
a = True
tipo = "resta"ElseIf tipo = "resta" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) - CDbl(can2)
can1 = Text1.Text
a = True
tipo = "resta"
ElseIf tipo = "multi" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) * CDbl(can2)
can1 = Text1.Text
a = True
tipo = "resta"
ElseIf tipo = "divi" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) / CDbl(can2)
can1 = Text1.Text
a = True
tipo = "resta"
ElseIf tipo= "" Then
can1 = Text1.Text
a = True
tipo = "resta"
End If
End Sub

Private Sub Command15_Click()
If tipo = "suma" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) + CDbl(can2)
can1 = Text1.Text
a = True
tipo = "multi"
ElseIf tipo = "resta" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) - CDbl(can2)
can1 = Text1.Text
a = True
tipo = "multi"
ElseIf tipo = "multi" Then
can2 =Text1.Text
Text1.Text = CDbl(can1) * CDbl(can2)
can1 = Text1.Text
a = True
tipo = "multi"
ElseIf tipo = "divi" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) / CDbl(can2)
can1 = Text1.Text
a = True
tipo = "multi"
ElseIf tipo = "" Then
can1 = Text1.Text
a = True
tipo = "multi"
End If
End Sub

Private Sub Command16_Click()
If tipo = "suma" Then
can2 = Text1.Text
Text1.Text =CDbl(can1) + CDbl(can2)
can1 = Text1.Text
a = True
tipo = "divi"
ElseIf tipo = "resta" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) - CDbl(can2)
can1 = Text1.Text
a = True
tipo = "divi"
ElseIf tipo = "multi" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) * CDbl(can2)
can1 = Text1.Text
a = True
tipo = "divi"
ElseIf tipo = "divi" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) /CDbl(can2)
can1 = Text1.Text
a = True
tipo = "divi"
ElseIf tipo = "" Then
can1 = Text1.Text
a = True
tipo = "divi"
End If
End Sub

Private Sub Command17_Click()
If tipo = "suma" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) + CDbl(can2)
can1 = Text1.Text
a = True
tipo = ""
ElseIf tipo = "resta" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) - CDbl(can2)
can1 = Text1.Text
a = Truetipo = ""
ElseIf tipo = "multi" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) * CDbl(can2)
can1 = Text1.Text
a = True
tipo = ""
ElseIf tipo = "divi" Then
can2 = Text1.Text
Text1.Text = CDbl(can1) / CDbl(can2)
can1 = Text1.Text
a = True
tipo = ""
ElseIf tipo = "" Then
can1 = Text1.Text
a = True
tipo = ""
End If
End Sub

Private Sub Command18_Click()
a = False
Text1.Text = ""can1 = "0"
can2 = "0"
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command11.Enabled = False
Command12.Enabled = False
Command13.Enabled = False
Command14.Enabled = False
Command15.Enabled = False...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • Electronica

    ...CURSO DE MICROCONTROLADORES PIC18 EN LENGUAJE C Victronics Ltda y LogoAcción les invita a participar en el Curso de programación en lenguaje C de Microcontroladores PIC18 orientado a especialistas, técnicos e ingenieros en electrónica digital. El curso tiene carácter teórico y práctico y se concentrará en la confección de programas en lenguaje C para procesadores PIC18. El curso NO contempla detalles de la arquitectura de los procesadores ni del lenguaje, y asume que el...

    Leer más
    589 Palabras 3 Páginas
  • Electron

    ...La electrónica es la rama de la física y especialización de la ingeniería, que estudia y emplea sistemas cuyo funcionamiento se basa en la conducción y el control del flujo microscópico de los electrones u otras partículas cargadas eléctricamente. Utiliza una gran variedad de conocimientos, materiales y dispositivos, desde los semiconductores hasta las válvulas termoiónicas. El diseño y la construcción de circuitos electrónicos para resolver...

    Leer más
    1447 Palabras 6 Páginas
  • Electronica

    ...Bobinas de deflexión (yugo). Para que el haz de electrones no sea un punto en el centro de la pantalla, necesitaremos que los electrones se desplacen hacia el punto correcto. Existen dos formas de conseguir esto: Deflexión electroestática: este sistema lo utilizan los osciloscopios y se basa en dos placas conductoras con cargas eléctricas opuestas las cuales nos permiten mover los electrones. Deflexión magnética: en este caso la desviación del haz...

    Leer más
    777 Palabras 4 Páginas
  • Electronica

    ...Válvula de 2/2 vías (2 conexiones, 2 posiciones de conmutación para 2 dos sentidos de flujo), accionamiento mediante presión, reposición por muelle, posición normal cerrada. [pic] |Válvula de 3/2 vías, accionamiento por rodillo, reposición por muelle, posición normal cerrada.       [pic] |Válvula de 3/2 vías, accionamiento mediante palanca con rodillo en un sentido, reposición por muelle, posición normal cerrada.     [pic] |Válvula de 5/2 vías, accionamiento con presión, con...

    Leer más
    567 Palabras 3 Páginas
  • Electronica

    ...SALESIANOS INSTITUTO TECNICO RICALDONE DEPARTAMENTO DE CIENCIAS FISICAS BACHILLERATO CAÍDA LIBRE PROFESOR: Nelcy Vicky Flamenco INTEGRANTES: RODRIGUEZ MARTINEZ, GABRIELA STEFANY ECA I LOPEZ PALACIOS, KATHERINE ROXANA ECA I LOPEZ ARDON, LIDIA YASSIR DISEÑO I DOMINGUEZ ZAVALETA, JUAN JOSE...

    Leer más
    892 Palabras 4 Páginas
  • Electronica

    ...Laboratorio de Electrónica de Potencia Laboratorio: Disparo de un SCR con un DIAC. Presentado por: Ángela Cañón Sergio Sachica Jaisson Villamil Fecha de la Práctica: Septiembre 22 de 2009. OBJETIVOS: * Diseñar in circuito de control de fase usando un Diac, y llevarlo a la practica por medio del montaje respectivo. * Observar el comportamiento del circuito y la aplicacion que tiene en la electrónica. * Medir y comprobar los datos...

    Leer más
    649 Palabras 3 Páginas
  • Electronica

    ...Small Optical Encoder Modules Technical Data HEDS-9700 Series Features • Small Size • Low Cost • Multiple Mounting Options • Wide Resolution Range • Linear and Rotary Options Available • No Signal Adjustment Required • Insensitive to Radial and Axial Play • -40°C to +85°C Operating Temperature • Two Channel Quadrature Output • TTL Compatible • Single 5V Supply • Wave Solderable Description The HEDS-9700 series is a high performance, low cost, optical incremental encoder module....

    Leer más
    1724 Palabras 7 Páginas
  • Electrones

    ...electrones de valencia  Los electrones de valencia son los electrones que se encuentran en los mayores niveles de energía del átomo, siendo estos los responsables de la interacción entre átomos de distintas especies o entre los átomos de una misma. Los electrones en los niveles de energía externos son aquellos que serán utilizados en la formación de compuestos y a los cuales se les denomina como electrones de valencia....

    Leer más
    564 Palabras 3 Páginas

OTRAS TAREAS POPULARES

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS