| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
AndT
Anmeldungsdatum: 02.04.2007
Beiträge: 481
|
 Verfasst am: 14.10.2007, 22:29 Titel: Meine erste Opensource Demo.. |
 |
|
Ich hab auch mal eine Demo geschrieben 
| Code: |
sub drawtxt (text as string)
screenlock
cls
dim as integer c,fa
color 15
locate 1,1:print text
for x as double = 1 to 48 step .1
for y as double = 1 to 16 step .1
fa = 16 * y
c = rgb(fa mod 255,fa mod 255,fa mod 255)
color c
if point(x,y)=15 then circle (x*16+8,200+y*y),15,,,,,f
next
next
locate 1,1:print " "
screenunlock
end sub
screen 18,32
dim as string text1="AndT praesenstiert."
dim as string tmpstr
dim as integer i,ttx
dim as integer farbe
dim as double c
do
ttx+=1
if ttx=2000 then drawtxt "Nix:p"
if ttx=4000 then drawtxt "ICH"
if ttx=6000 then drawtxt "BIN"
if ttx=8000 then drawtxt "DOOF"
if ttx=10000 then drawtxt " xD"
if ttx=11000 then drawtxt "E N D"
if ttx=12000 then end
i+=1
c+=.05
i = i mod len(text1)
farbe=rgb(i+c*5,i+c*6^2,i+c*9)
tmpstr=mid(text1,i,1)
locate 3,30+i
color farbe
print tmpstr
sleep 1
loop until inkey=chr(27) |
_________________
Bis irgendwann...  |
|
| Nach oben |
|
 |
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 14.10.2007, 22:34 Titel: |
|
|
hm super... einfach eine klasse demo! 
kannst du nicht einfach mal ein projekt fertigstellen bevor du es an die große glocke hängst? (wobei, ich glaub das würd auch keinen unterschied machen...)
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
ZaPPa
Anmeldungsdatum: 29.09.2004
Beiträge: 98
Wohnort: Wuppertal
|
| Verfasst am: 15.10.2007, 19:15 Titel: |
|
|
darf man das demo nennen?
_________________
--- ICH BIN DAGEGEN! ---
| Jet_X hat Folgendes geschrieben: | | Es währe mir sehr geholfen wenn ihr mir Helfen könnt ! |
And remember: Schwund is immer! |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 15.10.2007, 21:17 Titel: |
|
|
Wieso nicht?
Dies ist auch eine Demo 
..und Open Source ist sie ebenfalls.. 
Gruß
ytwinky
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
ZaPPa
Anmeldungsdatum: 29.09.2004
Beiträge: 98
Wohnort: Wuppertal
|
| Verfasst am: 17.10.2007, 01:11 Titel: |
|
|
gut du hast recht.... er hat nich geschrieben was es für ne demo werden soll...
so das wär denn meine TXT-Demo.... 
_________________
--- ICH BIN DAGEGEN! ---
| Jet_X hat Folgendes geschrieben: | | Es währe mir sehr geholfen wenn ihr mir Helfen könnt ! |
And remember: Schwund is immer! |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
