Spielerei - Koordinatensystem

[winduff]

Nabend :-P

Nichts besonderes, und nichts würdig einer Kritik aussetzen zu müssen

Naja hier der PB4 Code ^^

Code: Alles auswählen

Procedure draw(xStart,yStart,xEnd,yEnd)
  If StartDrawing(WindowOutput(0))
    Line(xStart, yStart, xEnd, yEnd,#Red)
    StopDrawing()
  EndIf
EndProcedure

gap = 7 ; Abstand zw. linien

Width  = 500
Height = 250
xStart = 250
yStart = 0
xEnd = 0
yEnd = 250

If OpenWindow(0, 0, 0, Width, Height, "Linien",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ;### KOORDINATENSYSTEM ###
  draw(250,0,0,450)                     ;#
  draw(0,250,500,0)                     ;#
  ;############################
  Repeat
    xEnd = xEnd +gap
    yStart = yStart+gap
    yEnd = yEnd-gap
    draw(xStart,yStart,xEnd,yEnd)
  Until yEnd < 0+gap
  xStart = 250
  yStart = 0
  xEnd = 0
  yEnd = 250
  Repeat
    xEnd = xEnd -gap
    yStart = yStart+gap
    yEnd = yEnd-gap
    draw(xStart,yStart,xEnd,yEnd)
  Until yEnd < 0+gap
  Repeat : Event = WaitWindowEvent() : Until  Event = #PB_Event_CloseWindow
EndIf

[winduff]

Achja, hier mit nem TrackBarGadget... eigentlich ganz nett ^^

PB4

Code: Alles auswählen

Enumeration
  #track
EndEnumeration
Procedure draw(xStart,yStart,xEnd,yEnd)
  If StartDrawing(WindowOutput(0))
    
    Line(xStart, yStart, xEnd, yEnd ,#Red )
    StopDrawing()
  EndIf
EndProcedure

Procedure build(gap)
  xStart = 250
  yStart = 0
  xEnd = 0
  yEnd = 250
  ;### KOORDINATENSYSTEM ###
  draw(250,0,0,450)                     ;#
  draw(0,250,500,0)                     ;#
  ;############################
  Repeat
    xEnd = xEnd +gap
    yStart = yStart+gap
    yEnd = yEnd-gap
    draw(xStart,yStart,xEnd,yEnd)
  Until yEnd < 0+gap
  xStart = 250
  yStart = 0
  xEnd = 0
  yEnd = 250
  Repeat
    xEnd = xEnd -gap
    yStart = yStart+gap
    yEnd = yEnd-gap
    draw(xStart,yStart,xEnd,yEnd)
  Until yEnd < 0+gap
EndProcedure

Width  = 500
Height = 250

If OpenWindow(0, 0, 0, Width, Height, "Linien",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
  CreateGadgetList(WindowID(0))
  TrackBarGadget(#track,5,5,100,15,1,150)
  TextGadget(5,5,25,200,50,"Empfohlen: 6-10"+Chr(13)+"AKTUELL: 0")
   
    Repeat 
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          If EventWindow()=0
            End
            
          EndIf
        Case #PB_Event_Gadget
          gap = GetGadgetState(#track)
          SetGadgetText(5,"Empfohlen: 6-10"+Chr(13)+"AKTUELL: "+Str(gap))
          If StartDrawing(WindowOutput(0))
            
            Box(0,50,500,500,RGB($FF,$FF,$FF))
            Box(200,0,200,500,RGB($FF,$FF,$FF))
            StopDrawing()
          EndIf
          build(gap)
       
          EndSelect
   ForEver 
  EndIf
  

[roherter]

Nicht schlecht würde es aber auf nem imagegadget machen an deiner stelle und ne funktion zum speichern wäre auch nicht schlecht!

Edit:Wasist mit deiner Website los??

Achtung! Es ist uns bekannt, dass der Server gerade nicht erreichbar ist - wir arbeiten an dem Problem, und hoffen es bald gelöst zu haben.

Schauen Sie in einer Woche einfach nochmal vorbei, wir entschuldigen die Umstände.

[winduff]

Hi,

erstmal danke! Mal sehn ob ich da ne Speicherfunktion und pipapo reinmach, war nur eher testweise, würd ja keiner Nutzen in Zukunft :-P Aber nen Firmenlogo (in der Art, vielleicht des nochma spiegeln nach unten) wäre bestimmt cool Wollte ich eigenltich machen, aber irgendwie wollte meine "Formel" nicht :-P

Zu meiner Homepage: Der Server ist abgekrazt, habe zwar keine Daten verloren, aber das wieder aufspielen ist ne schwere und langdauernde sache... von daher kanns bisschen dauern bis es wieder geht

Lg
Chris

[bobobo]

Hier schlug der Moderator zu
toomuch OffTopics

zum Mülleimer
http://www.purebasic.fr/german/viewtopic.php?t=8105

@winduff
zum hängenden Server : Nimm den Link solange raus wie der Server da
so rumhängt. Gerade in Hinsicht auf Deine geäußerten Ambitionen stellt
Dich so ein hängendes Etwas nicht in ein sehr gutes Licht.