PureBoard

Verfasst: **09.08.2008 21:07**

HEY HO
ich würde gerne wissen, ob es möglich ist mit Purebasic(4.2) den kleinen Piper auf dem Motherboard an zu sprechen. Sprich irgentwie eine art Musik darüber laufen zu lassen ?
Wenn ja wie würde man das anstellen?

Gruß Zim

Verfasst: **09.08.2008 21:09**

Beep_()

Verfasst: **09.08.2008 21:11**

Code: Alles auswählen

Beep_()

parameter

Code: Alles auswählen

zeit.l
frequenz.l

oder umgekehrt ka lange nicht mehr benutzt

Verfasst: **09.08.2008 21:13**

Hm lolokey werd ich gleich mal testen Danke ^^

Verfasst: **09.08.2008 21:22**

Geht irgentwie nicht Oo

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

If OpenWindow(0,200,200,128,250,"")
If OpenWindowedScreen(WindowID(0),0,0,500,500, #False,0,0)

Beep_(700, 50) 

Repeat 

Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  
  GadgetID = EventGadget() ; Is it a gadget event?
  
  EventType = EventType() ; The event type

;Beep_(700, 50)

Until Event = #PB_Event_CloseWindow
EndIf

EndIf

oder fehlt da noch etwas ?

Verfasst: **09.08.2008 21:30**

was soll denn das?
wenn du fehlerhaften code drumrum packst, funktiert kein noch so gutes beispiel.

kopier mal das in die IDE und lass es laufen... NUR das:

Code: Alles auswählen

Delay(500)
For n=0 To 99
 Beep_(100+4*n, 10)
Next

Verfasst: **09.08.2008 21:31**

ich wuerds anders aufbauen:

Code: Alles auswählen

#Button=1

If OpenWindow(0,0,0,300,100,"Beep Test",#PB_Window_ScreenCenterd)
 If CreateGadgetList(WindowID(0))
  ButtonGadget(#Button,20,20,100,30,"Beep")
 EndIf
EndIf
Repeat
 Select WaitWindowEvent()
  Case #PB_Event_Gadget
   Select EventGadget()
    Case #Button
     Beep_(700,50)
   EndSelect
  Case #PB_Event_CloseWindow
   End
 EndSelect
ForEver

Verfasst: **09.08.2008 21:40**

@Knight_Rider_2000
Geht auch nicht

@Kaeru Gaman
Sry aber ich bin noch nicht lange dabei...
Und was ist denn IDE ? ^^

Gruß ZIM

Verfasst: **09.08.2008 21:42**

Rechtschreibfehler:

Code: Alles auswählen

If OpenWindow(0,0,0,300,100,"Beep Test",#PB_Window_ScreenCentered)

ersetzen und danach muesste es wie bei mir gehen

Verfasst: **09.08.2008 21:45**

Integrated Development Environment, die Integrierte Entwicklungsumgebung
= der PB-Editor, der dabei ist, da wo du den Code eingibst.

PureBoard

Computer Lautsprecher

Computer Lautsprecher