_ispressed Function Error

[Paulie]

i am writing a code for a beep keyboard, though there is really no "notes" per say, when you push the keyborad buttons on your actual keyboard, they beep. however, my "ispressed function is giving me this error wen i try to do the "j" key

my code for j key:

If _IsPressed(4A) then;j
   $default = 1
   $freq = 2700
   Beep($freq, $delay)
Endif

the error message i get

//////////////////////////////////////////////////////////////////////

Line 150: If _IsPressed(4A) then;j

Line 150: If _IsPressed(^ERROR

Error:Unable to Parse line.

/////////////////////////////////////////////////////////////////////

Anyone know why?

[Valuater]

your code is not correct

1

you need "" around the "4A"

2

Beep($freq, $default)

or

Beep($freq, $delay)

#Include <Misc.au3>


While 1
    
If _IsPressed("4A") then;j
   $default = 1
   $freq = 2700
   Beep($freq, $default)
Endif

WEnd

8)

[RazerM]

you need quotes around 4A

valuater beat me to it

Edited May 7, 2006 by RazerM

[Xenobiologist]

HI,

take a look at and you'll see what you are missing.

#include <Misc.au3>

$dll = DllOpen("user32.dll")

While 1
    Sleep ( 250 )
    If _IsPressed("23", $dll) Then
        MsgBox(0,"_IsPressed", "End Key Pressed")
        ExitLoop
    EndIf
WEnd
DllClose($dll)

So long,

Mega

[Paulie]

Thanx all, it threw me off because you only need quotes around ones with letters :">

[Valuater]

Thanx all, it threw me off because you only need quotes around ones with letters :">

not true either... see the last post by meger ( the preferred way per help anyways )

8)

Edited May 7, 2006 by Valuater

[Paulie]

not true either... see the last post by meger ( the preferred way per help anyways )

8)

Weird, then why does this code work?

expandcollapse popup

$delay=500

If _IsPressed(47) then;g
   $default = 1
   $freq = 2500
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(48) then;h
   $default = 1
   $freq = 2600
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(49) then;i
   $default = 1
   $freq = 1800
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("4A") then;j
   $default = 1
   $freq = 2700
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("4B") then;k
   $default = 1
   $freq = 2800
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("4C") then;l
   $default = 1
   $freq = 2900
   Beep($freq, $delay)
Endif

[Valuater]

again

the preferred way per help anyways

8)

[Paulie]

the preferred way per help anyways

Oh ok, missed that

I got one more question

right now, i have delay just set to 500 at the top of my script, how could i make it be as long as a key is pressed, and is there a way to do it without re-writing my entire code? If not, here is my whole code.

expandcollapse popup

hotkeyset('{esc}', 'halt')
func halt()
    exit
endFunc
;----------------------Variables------------------------------------
#cs
Total Keys:
36
#ce
Global $freq
Global $delay=500
;---------------------------Setting delay------------------------------
;----------------------------Default-----------------------------------
Run(notepad.exe)
;---------------------------_IsPressed Function----------------------------
Func _IsPressed($hexKey)
; $hexKey must be the value of one of the keys.
; _IsPressed will return 0 if the key is not pressed, 1 if it is.
; $hexKey should entered as a string, don't forget the quotes!
; (yeah, layer. This is for you)
 
  Local $aR, $bO
 
  $hexKey = '0x' & $hexKey
  $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
  If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then
     $bO = 1
  Else
     $bO = 0
  EndIf
 
  Return $bO
EndFunc ;==>_IsPressed
;----------------------------What The Whole script is------------------
While 1
WinActivate(Untitled - NotePad)
;~~~Numbers
If _IsPressed(30) then;0
   $freq = 1000
   Beep($freq, $delay)
Endif
If _IsPressed(31) then;1
   $freq = 100
   Beep($freq, $delay)
Endif
If _IsPressed(32) then;2
   $freq = 200
   Beep($freq, $delay)
Endif
If _IsPressed(33) then;3
   $freq = 300
   Beep($freq, $delay)
Endif
If _IsPressed(34) then;4
   $freq = 400
   Beep($freq, $delay)
Endif
If _IsPressed(35) then;5
   $freq = 500
   Beep($freq, $delay)
Endif
If _IsPressed(36) then;6
   $freq = 600
   Beep($freq, $delay)
Endif
If _IsPressed(37) then;7
   $freq = 700
   Beep($freq, $delay)
Endif
If _IsPressed(38) then;8
   $freq = 800
   Beep($freq, $delay)
Endif
If _IsPressed(39) then;9
   $freq = 900
   Beep($freq, $delay)
Endif
;~~~Letters----------------------------------

If _IsPressed(41) then;a
   $freq = 2100
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(42) then;b
   $freq = 3400
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(43) then;c
   $freq = 3200
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(44) then;d
   $freq = 2300
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(45) then;e
   $freq = 1300
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(46) then;f
   $freq = 2400
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(47) then;g
   $freq = 2500
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(48) then;h
   $freq = 2600
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(49) then;i
   $freq = 1800
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("4A") then;j
   $freq = 2700
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("4B") then;k
   $freq = 2800
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("4C") then;l
   $freq = 2900
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("4D") then;m
   $freq = 3600
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("4E") then;n
   $freq = 3500
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("4F") then;o
   $default = 1
   $freq = 1900
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(50) then;p
   $freq = 2000
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(51) then;q
   $freq = 1100
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(52) then;r
   $freq = 1400
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(53) then;s
   $freq = 2200
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(54) then;t
   $freq = 1500
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(55) then;u
   $freq = 1700
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(56) then;v
   $freq = 3300
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(57) then;w
   $freq = 1200
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(58) then;x
   $freq = 3100
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed(59) then;y
   $freq = 1600
   Beep($freq, $delay)
Endif
;~~~~~~
If _IsPressed("5A") then;z
   $freq = 3000
   Beep($freq, $delay)
Endif
;~~~~~~

Wend

Note Defaults werent doing anything

[Valuater]

maybe

If _IsPressed(30) then;0
   $freq = 1000
   While _IsPressed(30)
   Beep($freq, $delay)
   WEnd
Endif

8)

[Valuater]

or... for no sound

If _IsPressed(30) then;0
   $freq = 1000
   Beep($freq, $delay)
   While _IsPressed(30)
   Sleep(10)
   WEnd
Endif

8)

Edited May 7, 2006 by Valuater

[Paulie]

Thanks all

when im done ill put it in scripts and scraps