Comando para visual baisc 2010

Anghios

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

TheWark

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

Anghios

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

Hawkings

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

TheWark

@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

TheWark

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

TheWark

@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