PureBoard

Verfasst: **26.04.2006 23:11**

Nabend :-P

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

Naja hier der PB4 Code ^^

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

Verfasst: **26.04.2006 23:13**

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

Verfasst: **26.04.2006 23:19**

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.

Verfasst: **26.04.2006 23:24**

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

Verfasst: **27.04.2006 11:53**

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.

PureBoard

Spielerei - Koordinatensystem

Spielerei - Koordinatensystem