Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Problem mit Amination

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
AndT



Anmeldungsdatum: 02.04.2007
Beiträge: 481
BeitragVerfasst am: 18.09.2007, 14:33    Titel: Problem mit Amination Antworten mit Zitat
Ich hab ein Problem damit, dass die Kreise einfach beim zweiten anlauf nach rechts einfach verschwinden, anstelle wieder nach unten zu wandern mit den Augen rollen
Was läuft da schief?
Code:
dim as double msx
dim as integer col
dim as double modx,mody,modfuncx,modfuncy
dim as integer x,y
dim as double xmodspeed = .005
dim as double ymodspeed = xmodspeed
dim as integer spx = 120
dim as integer hx = 640/2,hy = 480/2,t
screenres 640,480,32
msx=1
do
    screenlock
    cls
    msx+=.01
    modfuncx=1
   
for i as double = 640 to 0 step -msx/2
    x=640/2+modx
    y=480/2+mody
    locate 7,1
   
    'Trigger
    if t=1 then modfuncx=0:modfuncy=1
    if T=2 then modfuncy=0:modfuncx=-1
    if t=3 then modfuncx=0:modfuncy=-1
    if t=4 then modfuncy=0:modfuncx=1
   
    if x > hx+spx then T=1
    if y > hy+spx  then t=2
    if x < hx-spx then t=3
    if y = hy-spx then t=4
   
    'Funktionen
    if modfuncx = 1 then modx+=xmodspeed
    if modfuncy = 1 then mody+=ymodspeed
    if modfuncx = -1 then modx-=xmodspeed
    if modfuncy = -1 then mody-=ymodspeed
   
    circle(x,y),i,rgb(i + 64 mod 128, i +64 mod 128 ,i + 64 mod 128)
NEXT
    locate 1,1:print x,y,
    locate 2,1:print modx,mody
    locate 3,1:print modfuncx,modfuncy
    screenunlock
   
    loop until inkey=chr(27)

_________________
Bis irgendwann... grinsen
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
AndT



Anmeldungsdatum: 02.04.2007
Beiträge: 481
BeitragVerfasst am: 18.09.2007, 15:01    Titel: Antworten mit Zitat
ich konnte den fehler aufklären..
einfach
Code:
circle(x,y),i,rgb(i + 64 mod 128, i +64 mod 128 ,i + 64 mod 128)
durch ersetzen und schon weiss man warum happy
Code:
pset (x,y),rgb(255,255,255)

trotzdem danke zwinkern
_________________
Bis irgendwann... grinsen
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz