Ich habe es geahnt, zu viel Internetkram

Hier kann alles mögliche diskutiert werden. Themen zu Purebasic sind hier erwünscht.
Flames und Spam kommen ungefragt in den Mülleimer.
Antworten
Benutzeravatar
rolaf
Beiträge: 3843
Registriert: 10.03.2005 14:01

Beitrag von rolaf »

hardfalcon hat geschrieben:"Schatz, hol mir mal bitte die Fahradpumpe"...

SCNR :mrgreen:
Oder: "Schatz, hol mir mal bitte die Heliumflasche"... :lol:
Hat einen weiteren Vorteil. :mrgreen:
:::: WIN 10 :: PB 5.73 :: (x64) ::::
Nach oben
Benutzeravatar
ZeHa
Beiträge: 4760
Registriert: 15.09.2004 23:57
Wohnort: Friedrichshafen
Kontaktdaten:
Kontaktdaten von ZeHa

Beitrag von ZeHa »

"SCNR" macht jeden Witz kaputt
Bild     Bild

ZeHa hat bisher kein Danke erhalten.
Klicke hier, wenn Du wissen möchtest, woran ihm das vorbeigeht.
Nach oben
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:
Kontaktdaten von bobobo

Beitrag von bobobo »

damit das ganze hier wenigsten etwas mit pb zu tun hat

Code: Alles auswählen

;
;
Enumeration
  #Window_0
EndEnumeration
Enumeration
  #Image_0
  #Image_1
  #Button_Bounce
  #Button_1
EndEnumeration
Image0=CreateImage(#PB_Any,130,260)
Image1=CreateImage(#PB_Any,130,260)
Macro ball(cx,cy)
  Circle(cx,cy,50,RGB(255,222,192))
EndMacro
Macro courtyard(cx,cy)
  Circle(cx,cy,20,RGB(255,192,192))
EndMacro
Macro proboscis(cx,cy)
  Circle(cx,cy,10,RGB(255,125,125))
EndMacro
Macro bball(bbx,bby,Im)
  StartDrawing(ImageOutput(Im))
    BackColor(#Magenta)
    Box(0,0,260,260,#Magenta)
    DrawingMode(#PB_2DDrawing_Transparent)
    by=bby
    ball(bbx,by)
    by+10
    courtyard(bbx,by)
    proboscis(bbx,by)
  StopDrawing()
EndMacro
bball(65,130,Image0)
bball(65,130,Image1)
If OpenWindow(#Window_0, 237, 45, 600, 300, "Bouncing  Balls",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
  If CreateGadgetList(WindowID(#Window_0))
    ImageGadget(#Image_0, 0, 0, 130, 260, ImageID(Image0))
    ImageGadget(#Image_1, 130, 0, 130, 260, ImageID(Image1))
    ButtonGadget(#Button_Bounce, 310, 50, 200, 20, "let's bounce",#PB_Button_Toggle)
    ButtonGadget(#Button_1, 310, 80, 200, 20, "got enough")
  EndIf
EndIf
x1=Random(360)
x2=Random(360)
Repeat
  Event = WaitWindowEvent(50)
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
  If Event = #PB_Event_Gadget
    If GadgetID = #Image_0
    ElseIf GadgetID = #Button_Bounce
      Debug "p"
      Select GetGadgetState(#Button_bounce)
          Case 1:SetGadgetText(#Button_bounce,"bouncing")
          Case 0:SetGadgetText(#Button_bounce,"let's bounce")
      EndSelect
    ElseIf GadgetID = #Button_1
      End
    EndIf
  EndIf
  If GetGadgetState(#Button_Bounce)
    x1+1
    x2+1
    bball(65,Sin(x1)*15+130,Image0)
    bball(65,Sin(x2)*15+130,Image1)
    SetGadgetState(#image_0,ImageID(Image0))
    SetGadgetState(#image_1,ImageID(Image1))
    If x2>360
      x2=0
    EndIf
    If x1>360
      x1=0
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow
End
‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Nach oben
Benutzeravatar
rolaf
Beiträge: 3843
Registriert: 10.03.2005 14:01

Beitrag von rolaf »

@bobobo
Wenn man mit der Maus wackelt kommen die aber ganz schön ins schleudern. :lol:
:::: WIN 10 :: PB 5.73 :: (x64) ::::
Nach oben
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:
Kontaktdaten von bobobo

Beitrag von bobobo »

dann lass es doch einfach :mrgreen:
‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Nach oben
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:
Kontaktdaten von bobobo

Beitrag von bobobo »

bessere MausUnterstützung :mrgreen:

Code: Alles auswählen

;
;
Enumeration
  #Window_0
EndEnumeration
Enumeration
  #Image_0
  #Image_1
  #Button_Bounce
  #Button_1
EndEnumeration
Image0=CreateImage(#PB_Any,130,260)
Image1=CreateImage(#PB_Any,130,260)
Macro ball(cx,cy)
  Circle(cx,cy,50,RGB(255,222,192))
EndMacro
Macro courtyard(cx,cy)
  Circle(cx,cy,20,RGB(255,192,192))
EndMacro
Macro proboscis(cx,cy)
  Circle(cx,cy,10,RGB(255,125,125))
EndMacro
Macro bball(bbx,bby,Im)
  StartDrawing(ImageOutput(Im))
    ;BackColor(#Magenta)
    Box(0,0,260,260,#Magenta)
    DrawingMode(#PB_2DDrawing_Transparent)
    by=bby
    ball(bbx,by)
    by+10
    courtyard(bbx,by)
    proboscis(bbx,by)
  StopDrawing()
EndMacro
bball(65,130,Image0)
bball(65,130,Image1)
If OpenWindow(#Window_0, 237, 45, 600, 300, "Bouncing  Balls",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
  If CreateGadgetList(WindowID(#Window_0))
    ImageGadget(#Image_0, 0, 0, 130, 260, ImageID(Image0))
    ImageGadget(#Image_1, 130, 0, 130, 260, ImageID(Image1))
    ButtonGadget(#Button_Bounce, 310, 50, 200, 20, "let's bounce",#PB_Button_Toggle)
    ButtonGadget(#Button_1, 310, 80, 200, 20, "got enough")
  EndIf
EndIf
x1=Random(360)
x2=Random(360)
Repeat
  Event = WaitWindowEvent(50)
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
  Debug event
  
  If Event = #PB_Event_Gadget
    If GadgetID = #Image_0
    ElseIf GadgetID = #Button_Bounce
      Debug "p"
      Select GetGadgetState(#Button_bounce)
          Case 1:SetGadgetText(#Button_bounce,"bouncing")
          Case 0:SetGadgetText(#Button_bounce,"let's bounce")
      EndSelect
    ElseIf GadgetID = #Button_1
      End
    EndIf
  EndIf
  If GetGadgetState(#Button_Bounce)
    If event<>512
      x1+1
      x2+1
      x1p=Sin(x1)*2+130
      x2p=Sin(x2)*2+130
      bball(65,x1p,Image0)
      bball(65,x2p,Image1)
      SetGadgetState(#image_0,ImageID(Image0))
      SetGadgetState(#image_1,ImageID(Image1))
      If x2>360
        x2=0
      EndIf
      If x1>360
        x1=0
      EndIf
    EndIf
    If event=512
      x1+1
      x2+1
      bball(Sin(x1)*2+65,x1p,Image0)
      bball(Sin(x2)*2+65,x2p,Image1)
      SetGadgetState(#image_0,ImageID(Image0))
      SetGadgetState(#image_1,ImageID(Image1))
      If x2>360
        x2=0
      EndIf
      If x1>360
        x1=0
      EndIf
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow
End
‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Nach oben
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:
Kontaktdaten von bobobo

Beitrag von bobobo »

leichte anatomische korrekturen

Code: Alles auswählen

;
;
Enumeration
  #Window_0
EndEnumeration
Enumeration
  #Image_0
  #Image_1
  #Button_Bounce
  #Button_1
EndEnumeration
Image0=CreateImage(#PB_Any,130,260)
Image1=CreateImage(#PB_Any,130,260)
Macro ball(cx,cy)
  Circle(cx,cy,50,RGB(255,222,192))
EndMacro
Macro courtyard(cx,cy)
  Circle(cx,cy,20,RGB(255,192,192))
EndMacro
Macro proboscis(cx,cy)
  Circle(cx,cy,10,RGB(255,125,125))
EndMacro
Macro bball(bbx,bby,Im,v)
  StartDrawing(ImageOutput(Im))
    ;BackColor(#Magenta)
    Box(0,0,260,260,#Magenta)
    DrawingMode(#PB_2DDrawing_Transparent)
    by=bby
    ball(bbx,by)
    by+10
    courtyard(bbx+v*8,by)
    proboscis(bbx+v*9,by)
  StopDrawing()
EndMacro
bball(65,130,Image0,-1)
bball(65,130,Image1,1)
If OpenWindow(#Window_0, 237, 45, 600, 300, "Bouncing  Balls",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
  If CreateGadgetList(WindowID(#Window_0))
    ImageGadget(#Image_0, 0, 0, 130, 260, ImageID(Image0))
    ImageGadget(#Image_1, 130, 0, 130, 260, ImageID(Image1))
    ButtonGadget(#Button_Bounce, 310, 50, 200, 20, "let's bounce",#PB_Button_Toggle)
    ButtonGadget(#Button_1, 310, 80, 200, 20, "got enough")
  EndIf
EndIf
x1=Random(360)
x2=Random(360)
Repeat
  Event = WaitWindowEvent(50)
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
  Debug event
  
  If Event = #PB_Event_Gadget
    If GadgetID = #Image_0
    ElseIf GadgetID = #Button_Bounce
      Debug "p"
      Select GetGadgetState(#Button_bounce)
          Case 1:SetGadgetText(#Button_bounce,"bouncing")
          Case 0:SetGadgetText(#Button_bounce,"let's bounce")
      EndSelect
    ElseIf GadgetID = #Button_1
      End
    EndIf
  EndIf
  If GetGadgetState(#Button_Bounce)
    If event<>512
      x1+1
      x2+1
      x1p=Sin(x1)*5+130
      x2p=Sin(x2)*5+130
      bball(65,x1p,Image0,-1)
      bball(65,x2p,Image1,1)
      SetGadgetState(#image_0,ImageID(Image0))
      SetGadgetState(#image_1,ImageID(Image1))
      If x2>360
        x2=0
      EndIf
      If x1>360
        x1=0
      EndIf
    EndIf
    If event=512
      x1+1
      x2+1
      bball(Sin(x1)*5+65,x1p,Image0,-1)
      bball(Sin(x2)*5+65,x2p,Image1,1)
      SetGadgetState(#image_0,ImageID(Image0))
      SetGadgetState(#image_1,ImageID(Image1))
      If x2>360
        x2=0
      EndIf
      If x1>360
        x1=0
      EndIf
    EndIf
  EndIf
Until Event = #PB_Event_CloseWindow
End
‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Nach oben
Benutzeravatar
rolaf
Beiträge: 3843
Registriert: 10.03.2005 14:01

Beitrag von rolaf »

Wow, schielende Vibro-Möpse. Kannst dich gleich in Flensburg als Produktentwickler melden. :mrgreen:
:::: WIN 10 :: PB 5.73 :: (x64) ::::
Nach oben
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:
Kontaktdaten von bobobo

Beitrag von bobobo »

wo sind da möpse ? bin ich tierquäler ?

ich hab nur kreise gemalt und bin ganz unschuldig .. :mrgreen:

der rest liegt im auge des betrachters

remember : Ceci n’est pas une pipe
‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Nach oben
Antworten

Zurück zu „Offtopic“