Ÿwe ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄ¿ ÍÍ͵ ŸgEffekt-Spielerei in QBasicŸwe ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵ Ÿgby MuffinŸwe ÆÍÍÍ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÙ Ÿge Hallo! Ich m”chte mal wieder eines meiner schwachsinnigen Programme in QBasic vorstellen. Diesmal ist es ein Grafikprogramm, daá berhaupt keinen Sinn hat, aber tolle (?) Grafikeffekte erzeugen kann! Was macht dieses Programm? Es zeichnet K„sten in variierbaren Gr”áen und verbindet die Ecken dieser mit dem Mittelpunktes des Bildschirms. Dabei k”nnen ganz unterschiedliche Effekte entstehen. Dieses Bild wird dann so oft wie angegeben mit unterschiedlichen K„stchengr”áen gezeichnet. Die Gr”áe des ersten K„stchens steht in k%, die des letzten in l%. Die Farbe fr das erste K„stchen steht in m%, die letzte verwendbare Farbe in n%. Der Rest erkl„rt sich wahrschienlich von alleine. Probiert es mal mit den Werten:ŸBL Anfangswert : 40 Endwert : 1 Anfangsfarbe: 16 Endfarbe : 31ŸWE Diese Werte z.B. stellen das Gebilde in schwarz-weiá dar. Eine andere M”glichkeit w„re:ŸBL Anfangswert : 2 Endwert : 1 Anfangsfarbe: 0 Endfarbe : 255ŸWE Probiert es einfach mal aus! Das Listing folgt. Ÿg(Auch als fertige Listingdatei zu finden unter MARS2\BONUS\MALPROG.BAS)Ÿwe Viel Spaá damit, Muffin!ŸBL CLS INPUT "Anfangswert : ", k% INPUT "Endwert : ", l% INPUT "Anfangsfarbe: ", m% INPUT "Endfarbe : ", n% SCREEN 13 col% = m% marke: FOR j% = 0 TO 200 STEP k% FOR i% = 0 TO 320 STEP k% LINE (160, 100)-(i%, j%), col% LINE (i%, j%)-(i%, j% + k%), col% LINE (i%, j%)-(i% + k%, j%), col% col% = col% + 1 IF col% = n% + 1 THEN col% = m% NEXT i% NEXT j% IF k% <> l% THEN k% = k% / 2 GOTO marke: END IF SLEEP ŸWE