Comando para visual baisc 2010

Topic created · 7 Mensajes · 943 Visitas
  • Variables generales.
    Dim encendido as boolean = true
    Código
    If encendido then
    msgbox("Está encendido, voy a apagarlo")
    encendido = false
    elseif not encendido then
    msgbox("Está apagado, voy a encenderlo")
    encendido = true
    end if

    Ese te debería ir porque lo he probado yo y me funciona xD

  • Alguien me puede decir como hago lo siguiente:

    Un boton por ejemplo F10 con doble funcion por ejmplo cunado teclo 1 vez el F10 desactive algo y cunado teclo otra vez que lo activo y depues desde el principio
    Que quede asi activar/desactivar/activar/desactivar .... :T.T:
    Ayuda plizzzzz
    El algo es un autoclik xd

  • Variables globales:

    dim encendido as boolean = true
    dim apagado as boolean = false
    

    code al pulsar un botón cualquiera

    Botón_f10()
    if encendido = true then
    msgbox("encendido")
    encendido = false
    apagado = true
    elseif apagado = true then
    msgbox("apagado")
    encendido = true
    apagado = false
    end if
    end sub
  • Haré como que no te he visto usar dos variables booleanas. Lo que quería decir realmente Anghios es esto xD:

    dim encendido as boolean = true
    Botón_f10()
    if encendido = true then
    msgbox("esta encendido, apagando...")
    encendido = false
    else
    msgbox("esta apagado, encendiendo...")
    encendido = true
    end if
    end sub

  • @Anghios said:

    Variables globales:

    dim encendido as boolean = true
    dim apagado as boolean = false
    

    code al pulsar un botón cualquiera

    Botón_f10()
    if encendido = true then
    msgbox("encendido")
    encendido = false
    apagado = true
    elseif apagado = true then
    msgbox("apagado")
    encendido = true
    apagado = false
    end if
    end sub
    

    ahora pruebo si puedo adaptarlo a mi aplicacion xD
    doy las gracias luego ¬¬ xD

  • No lo consigo :T.T:

    Quero adaptarlo a esto :

    Dim hotkey1 As Boolean
    hotkey1 = GetAsyncKeyState(Keys.F10)
    If hotkey1 = True Then Timer1.Start()
    Dim hotkey As Boolean
    hotkey = GetAsyncKeyState(Keys.F10)
    If hotkey = True Then Timer1.Stop()

    If encendido = True Then
    MsgBox("encendido")
    encendido = False
    apagado = True
    ElseIf apagado = True Then
    MsgBox("apagado")
    encendido = True
    apagado = False
    End If

  • @Hawkings said:

    Haré como que no te he visto usar dos variables booleanas. Lo que quería decir realmente Anghios es esto xD:

    dim encendido as boolean = true
    Botón_f10()
    if encendido = true then
    msgbox("esta encendido, apagando...")
    encendido = false
    else
    msgbox("esta apagado, encendiendo...")
    encendido = true
    end if
    end sub

    no me funciona ayudame pliz ;((((((((( poravorrrrrrr