Creating a 'Beeper'

[BobiusMaximus]

I just got autoit, and I've been searching through files, looking at things etc.

Anyway, I found this thing which made a beepy noise, so I wrote this script with information I got from other scripts(very basic stuff):

MsgBox(0, "Beep", "This will play a beep with a frequency of 5000 for 1000 milliseconds, continue?")
Beep(5000, 1000)

It was fun, because I could annoy people, but if I wanted to make it higher frequency or longer I had to edit the script.

Anyway, that got me thinking, perhaps I could make it with 2 sliders, 1 for frequency, 1 for length of time.

Well, it went very bad, and I got stuck just trying to create it, so any help would be nice

-Bob

[Valuater]

Welcome to the forums

It was fun, because I could annoy people...

do you realize just how annoying that phrase is here at Autoit. its almost like you want to write malware, so why should we help you

8)

Edited November 21, 2006 by Valuater

[BobiusMaximus]

Welcome to the forums

do you realize just how annoying that phrase is here at Autoit. its almost like you want to write malware, so why should we help you

8)

People=My brother when he's trying to read, lol.

It's not as if I'm trying to delete files on someone elses computer or anything.

-Bob

[AutoChris]

I wrote a quick script for you so you can see how it is done:

GUICreate("Beeper", 200, 200)

GUICtrlCreateLabel("Frequency", 50, 10, 100, 20, 0x0001)
$freq = GUICtrlCreateSlider(10, 30, 180, 20)
GUICtrlSetLimit($freq, 1000, 10)

GUICtrlCreateLabel("Duration", 50, 60, 100, 20, 0x0001)
$dur = GUICtrlCreateSlider(10, 80, 180, 20)
GUICtrlSetLimit($dur, 1000, 10)

$btn = GUICtrlCreateButton("Beep", 75, 110, 50, 30)
$bye = GUICtrlCreateButton("Close", 75, 160, 50, 30)

GUISetState()

While 1
    $msg = GUIGetMsg()
    If $msg = $btn Then Beep(GUICtrlRead($freq), GUICtrlRead($dur))
    If $msg = $bye Then Exit
WEnd

[BobiusMaximus]

I wrote a quick script for you so you can see how it is done:

Thanks a lot.

I just want to check a few things.

GUICreate("Beeper", 200, 200) <-- That is the size of the window in pixels, right?

GUICtrlCreateLabel("Frequency", 50, 10, 100, 20, 0x0001) <-- This means it says frequency?

$freq = GUICtrlCreateSlider(10, 30, 180, 20) <-- If you need to refer to it you will type $freq?

GUICtrlSetLimit($freq, 1000, 10) <-- The max and min it can go to, right?

$btn = GUICtrlCreateButton("Beep", 75, 110, 50, 30) <-- A button titled 'Beep' at those coordinates? If you need to refer to it you type $btn?

$bye = GUICtrlCreateButton("Close", 75, 160, 50, 30) <-- The same but with 'Close' and 'bye'?

GUISetState() <-- No clue on this

While 1

$msg = GUIGetMsg()

If $msg = $btn Then Beep(GUICtrlRead($freq), GUICtrlRead($dur)) <-- If you click 'Beep' it will do the sound Beep, reffering to $freq and $dur?

If $msg = $bye Then Exit <-- Exits?

WEnd

-Bob

[AutoChris]

The best thing to do is to look in the help file for the functions. It will explain everything there. Most of your guesses are correct but if you are brave enough, you can copy the script and run it. That will also show you what it does.

[ConsultingJoe]

Looks like you got the code you needed, good luck