Français
Source/ Codesnippets

vélo Zeichnen Zweirad

 

KHR
allô miteinander,

simple ausprobieren, quoi dabei rauskommt!

viel Amusement

.
KompilierenMarqueSéparation
die Oekowelle rollt
by Karl-Heinz Rattay / 2009
einfach ausprobieren
Wems gefällt der kann ja einen screensaver draus machen!
Dieses Modul ist einfach so wie es ist. Wems nicht gefällt, der kann umstricken!!
declare Zaehler&

proc zeichne

    parameters c&,hpos%,vpos%, size%
    usepen   0,(size%/5),c&
    useBrush 0,c&
    ellipse (hpos%-(Size%/1.5)),(vpos%-(Size%/1.5)) - (hpos%+(Size%/1.5)),(vpos%+(Size%/1.5))
    ellipse ((hpos%+size%*2.0)-(Size%/1.5)),(vpos%-(Size%/1.5)) - ((hpos%+size%*2.0)+(Size%/1.5)),(vpos%+(Size%/1.5))
    usepen   0,(size%/8),c&
    moveto hpos%,vpos%
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1.05))
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*0.95) + (size%/6))
    lineto (hpos%+(size%*1.1))  , vpos%
    moveto (hpos%+(size%/4)),(vpos% - (Size%*1.3))
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1.3))
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1))
    lineto (hpos%+(size%*1.1))  , vpos%
    lineto (hpos%+(size%*2))  , vpos%
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*1) + (size%/6))
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*1) -(size%/7))
    moveto (hpos%+(size%*1.7)-(size%/5))   , (vpos% - (Size%*1.1) -(size%/8))
    lineto (hpos%+(size%*1.7)+(size%/5))   , (vpos% - (Size%*1.1) -(size%/8))
    moveto (hpos%+(size%*1.1))  , (vpos%-(size%*0.3))
    lineto (hpos%+(size%*1.1))  , (vpos%+(size%*0.3))

Endproc

cls
showmax

whilenot 0

    inc zaehler&

    if zaehler& > 80

        zeichne  @rgb( @rnd(255),@rnd(255),@rnd(255) ) ,
        ((%maxx*0.6) + @rnd(%maxx/4)) ,
        (100+@rnd(@rnd(%maxy*0.85))) ,
        (15+@rnd(40))
        zaehler& = 1

    endif

    copyBmp 1,0 - %maxx,%maxy > 0,0;0

endwhile

 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
04.02.2009  
 




KHR
Tricolore encore la fois quelque chose bunter gemacht

et un paire Kommentae dans den Voir le texte source eingefügt.

et légèrement charge vom Prozessor pris

@EDIT: 5.2.2009-09:36 Code encore la fois quelque chose abgeändert
KompilierenMarqueSéparation
die Oekowelle rollt
by Karl-Heinz Rattay / 2009
einfach ausprobieren
Wems gefällt der kann ja einen screensaver draus machen!
Dieses Modul ist einfach so wie es ist. Wems nicht gefällt, der kann umstricken!!
declare Zaehler&

proc zeichne

    parameters col&, hpos%, vpos%, size%
    die Reifen
    usepen   0,(size%/5),(col& & 600000)   Farbe für die Reifen neu anmischen
    useBrush 0,col&
    ellipse (hpos%-(Size%/1.2)),(vpos%-(Size%/1.5)) - (hpos%+(Size%/1.8)),(vpos%+(Size%/1.5))
    ellipse ((hpos%+size%*2.3)-(Size%/1.5)),(vpos%-(Size%/1.5)) - ((hpos%+size%*2.3)+(Size%/1.5)),(vpos%+(Size%/1.5))
    Rahmen Teil 1
    usepen   0,(size%/8),col&
    moveto (hpos%-Size%/7),vpos%
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1.05))
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*0.95) + (size%/6))
    lineto (hpos%+(size%*1.1))  , vpos%
    Rahmen Teil 2
    moveto (hpos%+(size%/4)),(vpos% - (Size%*1.3))
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1.3))
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1))
    lineto (hpos%+(size%*1.1))  , vpos%
    lineto (hpos%+(size%*2.4))  , vpos%
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*1) + (size%/6))
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*1) -(size%/7))
    Anbauteile
    moveto (hpos%+(size%*1.7)-(size%/5))   , (vpos% - (Size%*1.1) -(size%/8))
    lineto (hpos%+(size%*1.7)+(size%/5))   , (vpos% - (Size%*1.1) -(size%/8))
    moveto (hpos%+(size%*1.1))  , (vpos%-(size%*0.3))
    lineto (hpos%+(size%*1.1))  , (vpos%+(size%*0.3))

Endproc

cls
showmax
randomize

whilenot 0

    waitinput 10
    inc zaehler&

    if zaehler& > 80                nur bei jedem 80. Durchlauf neues Rad zeichnen, sonst wirds zu bunt

        zeichne  @rgb( @rnd(255),@rnd(255),@rnd(255) ) ,      die Farbe festlegen
        ((%maxx*0.6) + @rnd(%maxx/4)) ,                       horizontale Position
        (100+@rnd(@rnd(%maxy*0.85))) ,                        vertikale Position
        (15+@rnd(40))                                          Größe
        zaehler& = 1

    endif

    Bild einen Punkt verschieben, damit die Räder sich bewegen
    copyBmp 1,0 - %maxx,%maxy > 0,0;0

endwhile

 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
05.02.2009  
 




Roberto
JAA geschafft je voulais déjà aufgeben.
mais bof n bissel anchgeforscht et geschafft.
et aussi encore qui la couleur geändert weil je rouge net mag ^ ^
KompilierenMarqueSéparation
Testprogramm für Robin
declare ende%,MoveHor%,MoveVer%,PosHor%,PosVer%
cls
randomize Zufallsgenerator neu starten
rectangle 10,10 - 200,200Rechteck von 10,10 links oben nach 200,200 rechts unten zeichnen
ende% = 0 Der variablen den Wert 0 zuweisen
PosHor% = @rnd(170)+ 20
PosVer% = @rnd(170)+ 20

whilenot ende%  Schleife solange durchlaufen wie ende% 0 ist

    usepen 0,2, @rgb(192,192,192) Zeichenstift 2 Punkte breit , durchgezogene Linie, rot
    Ellipse PosHor%,PosVer% - (PosHor%+20),(PosVer%+15)
    waitinput 1
    usepen 0,2, @rgb(255,255,255)
    Ellipse PosHor%,PosVer% - (PosHor%+20),(PosVer%+15)
    MoveHor% = @rnd(12) -5.5
    MoveVer% = @rnd(12) -5.5
    PosHor%  = PosHor% + MoveHor%
    PosVer%  = PosVer% + MoveVer%

    if PosHor% > 188 zu weit nach rechts geraten

        PosHor%  = 184 ein bißchen zurückschubsen

    endif

    if PosHor% < 20 zu weit nach links geraten

        PosHor%  = 24 ein bißchen zurückschubsen

    endif

    if PosVer% > 188 zu weit nach unten geraten

        PosVer%  = 184 ein bißchen zurückschubsen

    endif

    if PosVer% < 20 zu weit nach oben geraten

        PosVer%  = 24 ein bißchen zurückschubsen

    endif

    if %key = 27

        end

    endif

    endwhile Ende der Boucle
 
Ich bin neu hier also Verurteilt mich nicht für meine fragen.^^
25.02.2009  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

6.456 Views

Untitledvor 0 min.
Frank16.04.2021
Walter05.12.2016
RudiB.31.01.2016
Peter Max Müller29.05.2015
plus...

Themeninformationen

cet Thema hat 2 participant:

KHR (2x)
Roberto (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie