Terror - Programm

[hardfalcon]

Gefixt. Danke für den Hinweis, Alves, ich hatte den Code nicht aus der IDE reingepastet, sondern "blind" reingeschrieben...

[Kaeru Gaman]

ich will mitspielen...

Code: Alles auswählen

Timer = ElapsedMilliseconds() + 100000 + Random(50000)
ExamineDesktops()
DWid = DesktopWidth(0)
DHig = DesktopHeight(0)
LoadFont(0,"Arial", 24)
Repeat
  Repeat
    Delay(100)
  Until ElapsedMilliseconds() > Timer
  Timer + 1500 + Random(2500)
  WWid = 200
  WHig = 60
  WX = Random(DWid-WWid)
  WY = Random(DHig-WHig)
  OpenWindow(0,WX,WY,WWid,WHig,"Jetzt mach ich")
  Repeat
    EventID = WindowEvent()
    StartDrawing(WindowOutput(0))
      DrawingMode(1)
      DrawingFont(FontID(0))
      DrawText( 15, 10, "T" , Random($FFFFFF) )
      DrawText( 45, 10, "E" , Random($FFFFFF) )
      DrawText( 75, 10, "R" , Random($FFFFFF) )
      DrawText(105, 10, "R" , Random($FFFFFF) )
      DrawText(135, 10, "O" , Random($FFFFFF) )
      DrawText(165, 10, "R" , Random($FFFFFF) )
    StopDrawing()
    Beep_(40+Random(5000),1)
    Delay(42)
    MX = WindowMouseX(0)
    MY = WindowMouseY(0)
    If MX >= 0
      If MX < WWid/2+4
        WX + MX + 4
      Else
        WX - (WWid - MX) - 4
      EndIf
      If MY < WHig/2+4
        WY + MY + 12
      Else
        WY - (WHig - MY) - 12
      EndIf
      WWid - 4 : WHig - 4
      ResizeWindow(0,WX,WY,WWid,WHig)
    EndIf
  Until ElapsedMilliseconds() > Timer
  Timer + 10000 + Random(50000)
  CloseWindow(0)
ForEver

[Vermilion]

Ah
Ich dachte gerade schon, mein PC fällt auseinander!

[Rattlesnake Entertainment]

Wusste ja auch net, dass der befehl Beep_() existiert, aber musikalisch wie ich bin hab ich ein bisschen herumprobiert...

Code: Alles auswählen

 InitKeyboard()
    Beep_(1000,100) ;Ein wenig akkustische Einleitung
    Beep_(2000,50) 
    Beep_(3210,120)
    Beep_(500,200)
    Beep_(340,280)
    Beep_(1342,140)
    Beep_(201,231)
    Repeat
    DisableDebugger  ;den debugger deaktivieren
    ExamineKeyboard()
    Beep_(341,230)   ;FEUERWEHR!!
    Beep_(350,230)
    Until KeyboardPushed(1) ;Schade, schon wieder zu ende

[Joel]

Ich hab dass noch ein bisschen umgeändert, also hier wird der betroffene Bekloppt! :

Code: Alles auswählen

InitKeyboard() 
    Beep_(000,100) ;Ein wenig akkustische Einleitung 
    Beep_(6000,500) 
    Beep_(500,10) 
    Beep_(80,80) 
    Beep_(9999,500) 
    Beep_(1342,700) 
    Beep_(201,10) 
    Beep_(000,200) 
    Beep_(3210,200) 
    Beep_(5000,7000) 
    Beep_(10,7000) 
    Beep_(142,140) 
    For x = 0 To 100
  Delay(33)
     Beep_(2000,50)
  Next      
    Repeat 
    DisableDebugger  ;den debugger deaktivieren 
    ExamineKeyboard() 
    Beep_(341,200)    
    Beep_(350,200)
     Beep_(341,200)    
    Beep_(700,200)
    Beep_(501,200)   
    Beep_(100,230)
     Beep_(00,200)   
    Beep_(8000,200)
    Beep_(1000,100) 
    Beep_(2000,600) 
    Beep_(3210,100) 
    Beep_(500,200) 
    Beep_(340,280) 
    Beep_(1342,140) 
    Beep_(201,120) 
    Delay(1000)
    Beep_(000,100) 
    Beep_(3210,200) 
    Beep_(500,456) 
    Beep_(340,370) 
    Beep_(142,140) 
    Beep_(201,567) 
    Beep_(200,400)   
    Beep_(500,2)
     Beep_(990,500)   
    Beep_(463,678)
    Beep_(5000,455)    
    Beep_(900,567)
     Beep_(22,7454)    
    Beep_(8000,230)
    Beep_(1000,100) 
    Beep_(2000,50) 
    Beep_(3210,120) 
    Beep_(3210,120)
    Beep_(3210,120)
    Beep_(3210,120)
    Beep_(3210,120)
    Beep_(3210,120)
    Beep_(3210,120)
    Beep_(500,200) 
    Beep_(340,280) 
    Beep_(1342,140) 
    Beep_(201,231) 
    Beep_(000,100) 
    Beep_(3210,200) 
    Beep_(500,456) 
    Beep_(340,370) 
    Beep_(142,140) 
    Beep_(201,567) 
    Until KeyboardPushed(unbekannt) ;Schade, schon wieder zu ende 

Hab an dem Code noch was geändert.

[Olaf]

Hier noch ne Nerv-Prozedur:
Kehrt alle 100 ms die Farben des Desktops um.

Code: Alles auswählen

Procedure DesktopColorsThread()
  *mem=AllocateMemory(1024)
  mem=PokeL(*mem,1)
  
  ExamineDesktops()
  w=DesktopWidth(0)  ;ermittelt Breite des Desktops
  h=DesktopHeight(0)  ;ermittelt Höhe des Desktops
  
  Repeat
  Delay(100)
  StartDrawing(mem)
     DrawingMode(2)  ;XOr - Modus einschalten
     Box(0,0,w,h)       ;Rechteck zeichnen
  StopDrawing()
  Delay(100)
  InvalidateRect_(0,0,0)  ;Auf den Desktop Gezeichnetes löschen
  ForEver
EndProcedure

[hardfalcon]

@Kaeru Gaman: Irgendwie gibt dein Code hier bei mir keinen Mucks von sich... Nichtmal ein Fenster geht auf...

[Kaeru Gaman]

musst ja auch lange genug warten...

der erste "anschlag" hat ne verzögerung von 100-150 sec.

[bobobo]

mit Aldirechnern geht das halt nicht

[hardfalcon]

@Kaeru: ah, sry, hatte den Timer völlig übersehen. Schaut geil aus, das Teil!

@bobobo: Ich muss doch sehr bitten. Mein Rechner ist eigenhändig zusammengeschraubt u.U. aus einem silberfarben lackierten Stahlblechgehäuse (das eine gewisse Ähnlichkeit mit einem G5-Gehäuse aufweist, allerdings vorne noch schön blau beleuchtet ist), einem 650W-Netzteil, einem ASUS A7N8X-E Deluxe Wifi Edition, 2 512MB DDR-400-RAM-Riegeln, irgendeinem wahrscheinlich gefälschten Prozessor (den ich problemlos als AMD Athlon XP 3200+ betreibe), einer Leadtek AGP 8x Grafikkarte mit nVidia GeForce 6600 Chipsatz sowie 256MB DDR-RAM (128Bit-Anbindung), einem alten DVD-Laufwerk (das auch NUR gepresste DVDs liest, und sonst gar nix, nichtmal CDs), einem LiteOn LTR1210B-CD-RW-Brenner (Speed: 42x / 12x / 4x), einer WesternDigital 250GB UltraATA/133-Festplatte, und einem hochwertigen Kupferkühler für die CPU mit einem schönen großen Lüfter... Sowas gibts nicht bei ALDI, sondern nur beim betrügerischen eBay-Powerseller, der das Zeug erst nach 2 oder 3 Monaten sowie einem Besuch von der Polizei geliefert hat (Zumindest das Minboard, das RAM, die CPU und der CPU-Kühler hab ich da gekauft).