PureBoard

Verfasst: **29.06.2005 12:00**

na ich weiss nicht viel aber eines vileicht als hilfe,

man kann seinen rechner auch als ftp server nutzen

bei weiteren fragen kann man mir ja bestimmt eine mitteilung oder sowas in der art schicken,,,

ansonsten bin ich in aol und msn!

dinslaken1984
mathiasamiga@msn.com

Verfasst: **29.06.2005 14:59**

@zigapeda: FormatDate() ist doch viel übersichtlicher als deine Zeile.
Oder ist dein Code schneller?

Verfasst: **03.07.2005 22:42**

Jetzt aktualisiertz sich die Uhr zu schnell.

Verfasst: **03.07.2005 22:44**

ich stelle Beide Bilder in meine Homepage: Signatur!!!

Verfasst: **03.07.2005 22:56**

ist das nicht egal?
wenn sie sich schnell aktuallisiert ist doch eher gut oder? wenn einer einen langsamen computer hat dann aktuallisiert sie sich genau richtig.
oder flimmert es?
[Edit]achja btw: ich finde die bilder auf deiner hp nicht[/Edit]

Verfasst: **03.07.2005 22:58**

kommen gleich und ja sie flimmern wie noch mal was

Verfasst: **03.07.2005 23:02**

bilder sind da aber es ladet sehr lange

Verfasst: **03.07.2005 23:07**

@Badboy99: Bitte benutze in Zukunft die 'Edit'-Funktion des Boards.
Das erspart uns Doppelpostings.

Grüße ... Kiffi

Verfasst: **03.07.2005 23:35**

@Badboy99
Tue uns einen Gefallen und speichere die Screenshots, die du auf deiner Website veröffentlichst, bitte in einem komprimiertem Format. 2 MB sind nicht mal mit einer 4 MBit Leitung leicht zu laden. Vor allem werden dir Modemnutzer den Schädel abreißen.

Verfasst: **03.07.2005 23:40**

Ich habe endlich alles so wie ich es will es flimmert nur noch zimlich viel.

Code: Alles auswählen

;  window 
If OpenWindow(0,1,1,820,720,#PB_Window_SystemMenu|#PB_Window_ScreenCentered | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget,"Power-Explorer") 

DisableDebugger 


   If CreateGadgetList(WindowID()) 
    
     If LoadImage(3, "bilder\go.bmp") 
      ButtonImageGadget(3,780,60,30,20,UseImage(3)) 
    EndIf 
      
     If LoadImage(1, "bilder\Back4.bmp") 
      ButtonImageGadget(1,10,10,75,40,UseImage(1)) 
    EndIf 
      
     If LoadImage(4, "bilder\Forward4.bmp") 
      ButtonImageGadget(4,90,10,75,40,UseImage(4)) 
    EndIf 
        
     If LoadImage(5, "bilder\Stop.bmp") 
      ButtonImageGadget(5,170,10,75,40,UseImage(5)) 
    EndIf 
        
     If LoadImage(66, "bilder\Refresh2.bmp") 
      ButtonImageGadget(66,250,10,75,40,UseImage(66)) 
    EndIf 
    
    TextGadget(202,820,100,110,15,"Schliersberg") 
    
     If LoadImage(6, "bilder\SBC.bmp") 
      ButtonImageGadget(6,820,120,100,50,UseImage(6)) 
    EndIf 
    
     If LoadImage(7, "bilder\SBWC.bmp") 
      ButtonImageGadget(7,930,120,100,50,UseImage(7)) 
    EndIf 

    TextGadget(14,820,175,110,15,"Downloads") 

     If LoadImage(8, "bilder\DC.bmp") 
      ButtonImageGadget(8,820,190,100,50,UseImage(8)) 
    EndIf 
    
     If LoadImage(9, "bilder\MP3-MW.bmp") 
      ButtonImageGadget(9,930,190,100,50,UseImage(9)) 
    EndIf 
    
    TextGadget(15,820,250,110,15,"Suchmaschinen") 
    
     If LoadImage(10, "bilder\google.bmp") 
      ButtonImageGadget(10,820,265,100,50,UseImage(10)) 
    EndIf 
    
     If LoadImage(11, "bilder\yahoo.bmp") 
      ButtonImageGadget(11,930,265,100,50,UseImage(11)) 
    EndIf 
    
    TextGadget(16,820,325,110,15,"Purebasic") 
    
     If LoadImage(12, "bilder\PA.bmp") 
      ButtonImageGadget(12,820,340,100,50,UseImage(12)) 
    EndIf 
    
     If LoadImage(13, "bilder\PB.bmp") 
      ButtonImageGadget(13,930,340,100,50,UseImage(13)) 
    EndIf 
    
    TextGadget(201,820,400,110,15,"Wetter") 
    
     If LoadImage(205, "bilder\SatBild.bmp") 
      ButtonImageGadget(205,820,415,100,50,UseImage(205)) 
    EndIf 
    
     If LoadImage(204, "bilder\Wetter.bmp") 
      ButtonImageGadget(204,930,415,100,50,UseImage(204)) 
    EndIf 
    
    TextGadget(E-mail,820,475,110,15,"E-mail") 
      
     If LoadImage(999, "bilder\Freenet.bmp") 
      ButtonImageGadget(1000,820,490,100,50,UseImage(999)) 
    EndIf 
    
;     If LoadImage(mmm, "bilder\mmm.bmp") 
;      ButtonImageGadget(mmm,930,480,100,50,UseImage(mmm)) 
;    EndIf 
      
     StringGadget(2,10,60,760,20,"") 
      
     ;-textgadget 
     TextGadget(999,835,40,70,25,"") 
     
     TextGadget(998,935,40,60,25,"")
     
     Frame3DGadget(5000,825,20,87,47,"Datum")
     
     Frame3DGadget(5001,925,20,77,47,"Zeit")
    


   EndIf 

   If CreateMenu(0, WindowID()) 
     MenuTitle("Menu") 
;     MenuItem(1, "") 
;     MenuItem(2, "")      
;     MenuItem(3, "") 
;     MenuItem(4, "") 
;     MenuItem(5, "") 
;     MenuItem(6, "") 
;     MenuItem(7, "") 
;     MenuItem(8, "")    
    MenuItem(9, "Leere Seite") 
    MenuItem(10, "Seite Löschen") 
    MenuBar() 
    MenuItem(11, "Beenden") 

   EndIf 

   Repeat 
      
     ;-aktualisieren 
     SetGadgetText(999,FormatDate("%dd . %mm . %yyyy",Date()))    
     
     SetGadgetText(998,FormatDate("%hh : %ii : %ss",Date()))
    
    
     EventID = WindowEvent()      
     Select EventID      
       Case #PB_Event_Gadget 
         Select EventGadgetID() 
          
          Case 1 : 
          SetGadgetState(0,#PB_Web_Back) 

          Case 3 : 
          Text$ = GetGadgetText(2) 
          WebGadget(0,10,100,800,600,text$) 
          
          Case 4 : 
          SetGadgetState(0,#PB_Web_Forward) 
          
          Case 5 : 
          SetGadgetState(0,#PB_Web_Stop) 
          
          Case 66 : 
          SetGadgetState(0,#PB_Web_Refresh) 
          
          Case 6 : 
          WebGadget(0,10,100,800,600,"www.schliersbergalm.de/sbalm2003/home.html") 
          
          Case 7 : 
          WebGadget(0,10,100,800,600,"www.schliersbergalm.de/webcam/fullsize.jpg") 
          
          Case 8 : 
          WebGadget(0,10,100,800,600,"www.download.com") 
          
          Case 10 : 
          WebGadget(0,10,100,800,600,"www.google.de") 
          
          Case 12 : 
          WebGadget(0,10,100,800,600,"www.purearea.net") 
          
          Case 13 : 
          WebGadget(0,10,100,800,600,"www.pure-board.de") 
          
          Case 11 : 
          WebGadget(0,10,100,800,600,"www.yahoo.de") 
          
          Case 9 : 
          WebGadget(0,10,100,800,600,"www.mp3-meiaworld.com") 

          Case 205: 
          WebGadget(0,10,100,800,600,"http://de.weather.yahoo.com/w/wcom/eur_satintl_440_dmy_y.html") 
          
          Case 204: 
          WebGadget(0,10,100,800,600,"http://de.weather.yahoo.com/GMXX/GMXX0087/index_c.html") 
          
          Case 1000: 
          WebGadget(0,10,100,800,600,"www.freenet.de") 


          EndSelect 
          
          
          
          
          
       Case #PB_Event_Menu 
         Select EventMenuID() 
            
;           Case 1 : WebGadget(0,10,100,800,600,"")            
;           Case 2 : WebGadget(0,10,100,800,600,"") 
;           Case 3 : WebGadget(0,10,100,800,600,"") 
;           Case 4 : WebGadget(0,10,100,800,600,"") 
;           Case 5 : WebGadget(0,10,100,800,600,"") 
;           Case 6 : WebGadget(0,10,100,800,600,"") 
;           Case 7 : WebGadget(0,10,100,800,600,"") 
;           Case 8 : WebGadget(0,10,100,800,600,"") 
           Case 9 : WebGadget(0,10,100,800,600,"about:blank") 
          Case 10 : WebGadget(0,00,000,000,000,"") 
          Case 11 : End 

         EndSelect 
      
     EndSelect 
   Until EventID = #PB_Event_CloseWindow 
 EndIf

die einzige möglichkeit wäre doch zwei unabhängig voneinander laufenden Schleifen.

PureBoard

Explorer

Aber jetzt wackelt es so

Jetzt