single (Dual Argument) string
Posted: Thu Jul 07, 2005 9:54 pm
Code updated for 5.20+
the window to call the dll
the dll
the window to call the dll
Code: Select all
If OpenWindow(0, 100, 100, 200, 200, "System Beep", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
If OpenLibrary(0, "beep.dll")
CallFunction(0, "systembeep", @"1500, 1000")
CloseLibrary(0)
EndIf
EndIf
EndCode: Select all
ProcedureDLL.s systembeep(getArgs$)
getCommaPos = FindString(getArgs$, ",", 1)
Arg1$ = RSet(getArgs$, getCommaPos -1)
Arg2$ = RemoveString(getArgs$, Arg1$ + ",")
hertz = Val(Arg1$)
milliseconds = Val(Arg2$)
Beep_(hertz , milliseconds)
ProcedureReturn
EndProcedure