 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Jan
Anmeldungsdatum: 04.01.2005
Beiträge: 74
|
 Verfasst am: 28.04.2005, 14:20 Titel: Star Wars Titelmelodie für BASIC :D |
 |
|
Hi,
hat jemand vielleicht die Noten von dem Star Wars Theme??
Ich würd die nämlich gern mal in BASIC übersetzten und mal schaun was da so bei rauskommt.
die frage is vielleicht etwas skurill aber ihr würdet mir sehr helfen. Danke  |
|
| Nach oben |
|
 |
Mecki
Igel
Anmeldungsdatum: 10.09.2004
Beiträge: 985
Wohnort: Niederbayern
|
|
| Nach oben |
|
|
Jan
Anmeldungsdatum: 04.01.2005
Beiträge: 74
|
| Verfasst am: 29.04.2005, 12:21 Titel: |
|
|
jo, sind die richtigen noten.
aber den teil mit f e d is besser glaub ich mit stakkato als MS davor.
dann hört sich das net schlecht an.
Kann ich irgendwie noch dieses Piepsen ein bisschen ändern, das sich das nach irgendeinem Instrument anhört?
PS.: Wollte kein neues Thema machen, darum hier rein:
hab einen Zufallszahlengenerator erschaffen, bei dem man das maximum eingibt, und die Zahlen von 1 - maximum ohne Wiederholung in einem Feld abgespeichert werden.
Nun benötigt das Programm durchschnittlich:
maximum = 30 --> Zeit = 0 sek.
maximum = 100 --> Zeit = 0.39 sek.
maximum = 1000 --> Zeit = 65 sek. = 1min 5sek
maximum = 5000 --> Zeit = 25 min
sind die Werte schnell im Vergleich zu dem Programm, was es auf Qbasic.de gibt?? oder langsamer. Ich überlege nämlich ob ich das mal zum download anbiete. |
|
| Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
|
| Verfasst am: 29.04.2005, 14:51 Titel: |
|
|
instrumente kannst du vergessen..
ich hab inner schule in ner Freistunde mal schnell n Keyboard mit mehreren Tönen über Systemlautschprecher versucht. spielt man da C und E klingt das wie ein verzerrtes D, die Tonhöhe ist die selbe nur die Obertöne sind irgendwie abgestumpft oder so. also das kannste vergessen. Dazu musst du dann QMidi aus den Downloads von Qbasic.de nehmen. das is ne geniale Library, Faden links und rechts unabhängig, läuft problemlos im Hintergrund ab etc. das is einfach genial. Musst dir dann halt n Midi ziehen -> www.vanbasco.com
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra |
|
| Nach oben |
|
|
SpionAtom
Anmeldungsdatum: 10.01.2005
Beiträge: 395
|
| Verfasst am: 04.05.2005, 08:39 Titel: |
|
|
Das habe ich vor ein paar Jahren mal gemacht. Aber nicht lachen! 
| Code: |
''''''''''''''
' STAR-WARS FONT
' --------------
'
' by Thomas Decker 5.5.2003
'
' Dieses Programm l„uft nur auf sehr schnellen Rechnern!!!
' (erfolgreich auf P3 866MHz und AMD-Athlon 2GHz getestet)
'
'
DECLARE SUB Punkt (x%, y%, f%)
DECLARE SUB Wart (z!)
DECLARE SUB Schreib (text$, XP1Er%, XP2Er%, FG!, f%)
DECLARE SUB Linie (x1%, y1%, x2%, y2%, f%, fuell%)
CONST SM% = 7, xr% = 320, yr% = 200
CONST fak1! = .01
1 CLS : SCREEN SM%
COLOR 9
LOCATE 15, 10: PRINT "Es war einmal vor einer langen Zeit"
LOCATE 16, 10: PRINT "in einer weit entfernten Galaxis..."
Wart 5
2 CLS : SCREEN , , 1, 2
GOSUB Music
RESTORE
READ nummer%
za% = 14
FOR hoehe% = (yr% - 20) TO -20 - nummer% * za% STEP -1
RESTORE
READ nummer%
FOR k% = 1 TO nummer%
READ zeile$
Schreib zeile$, 0, hoehe% + k% * za%, 1, 14
NEXT k%
PCOPY 1, 2
CLS
'LINE (0, 0)-(xr%, yr%), 0, BF
'RESTORE
' READ nummer%
' FOR k% = 1 TO nummer%
' READ zeile$
' Schreib zeile$, 0, hoehe% + k% * za%, 1, 0
' NEXT k%
NEXT hoehe%
END
Music:
PLAY "MB O3L6CL5F> L3C< L9A+AG>L3FC < L9A+AG>L3FC <L9A+AA+L3G"
RETURN
MeinText:
DATA 13
DATA "STAR WARS"
DATA "Die R?ckkehr"
DATA "von QBasic"
DATA "Selbst auf meinem"
DATA "AMD Athlon XP 2600+"
DATA "l„uft dieses Pro-"
DATA "gramm nur m„áig."
DATA "Es hackelt noch zu"
DATA "sehr. Ist wahr-"
DATA "scheinlich noch zu"
DATA "rechenintensiv."
DATA "...
DATA "5.5.2003"
SUB Linie (x1%, y1%, x2%, y2%, f%, fuell%)
ab% = (xr% / 2) - y1% * fak1!
plus% = ((xr% - (2 * ab%)) / xr%) * x1%
P1X% = ab% + plus%
P1Y% = y1%
ab% = (xr% / 2) - y2% * fak1!
plus% = ((xr% - (2 * ab%)) / xr%) * x2%
P2X% = ab% + plus%
P2Y% = y2%
IF fuell% = 0 THEN
LINE (P1X%, P1Y%)-(P2X%, P2Y%), f%
ELSE
LINE (P1X%, P1Y%)-(P2X%, P2Y%), f%
END IF
'COLOR 15
'PRINT P1X%, P1Y%, P2X%, P2Y%, f%
'SLEEP
END SUB
SUB Punkt (x%, y%, f%)
ab! = (xr% / 2) - y% ^ 2 * fak1!
plus! = ((xr% - (2 * ab!)) / xr%) * x%
PSET (ab! + plus!, y%), f%
END SUB
SUB Schreib (text$, XP1Er%, XP2Er%, FG!, f%)
bgrx% = 11
bgry% = 10
XP1Er% = (xr% - LEN(text$) * bgrx%) / 2
DIM Feld$(1 TO bgrx%)
FOR i% = 1 TO LEN(text$)
SELECT CASE UCASE$(MID$(text$, i%, 1))
CASE "A"
Feld$(1) = " ### "
Feld$(2) = " # # "
Feld$(3) = " # # "
Feld$(4) = "# # "
Feld$(5) = "######### "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = "# # "
Feld$(10) = "# # "
CASE "B"
Feld$(1) = "####### "
Feld$(2) = "# # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "######## "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = "# # "
Feld$(10) = "####### "
CASE "C"
Feld$(1) = " ####### "
Feld$(2) = " # "
Feld$(3) = "# "
Feld$(4) = "# "
Feld$(5) = "# "
Feld$(6) = "# "
Feld$(7) = "# "
Feld$(8) = "# "
Feld$(9) = " # "
Feld$(10) = " ####### "
CASE "D"
Feld$(1) = "###### "
Feld$(2) = "# # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = "# # "
Feld$(10) = "###### "
CASE "E"
Feld$(1) = "######### "
Feld$(2) = "# "
Feld$(3) = "# "
Feld$(4) = "# "
Feld$(5) = "####### "
Feld$(6) = "# "
Feld$(7) = "# "
Feld$(8) = "# "
Feld$(9) = "# "
Feld$(10) = "######### "
CASE "F"
Feld$(1) = "######### "
Feld$(2) = "# "
Feld$(3) = "# "
Feld$(4) = "# "
Feld$(5) = "####### "
Feld$(6) = "# "
Feld$(7) = "# "
Feld$(8) = "# "
Feld$(9) = "# "
Feld$(10) = "# "
CASE "G"
Feld$(1) = " ##### "
Feld$(2) = " # # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# "
Feld$(6) = "# ##### "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = " # # "
Feld$(10) = " ##### "
CASE "H"
Feld$(1) = "# # "
Feld$(2) = "# # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "######### "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = "# # "
Feld$(10) = "# # "
CASE "I"
Feld$(1) = " # "
Feld$(2) = " # "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # "
Feld$(10) = " # "
CASE "J"
Feld$(1) = "######### "
Feld$(2) = " # "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = " # # "
Feld$(10) = " ##### "
CASE "K"
Feld$(1) = "# ## "
Feld$(2) = "# # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "### "
Feld$(6) = "### "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = "# # "
Feld$(10) = "# ### "
CASE "L"
Feld$(1) = "# "
Feld$(2) = "# "
Feld$(3) = "# "
Feld$(4) = "# "
Feld$(5) = "# "
Feld$(6) = "# "
Feld$(7) = "# "
Feld$(8) = "# "
Feld$(9) = "# "
Feld$(10) = "######### "
CASE "M"
Feld$(1) = "## ## "
Feld$(2) = "# # # # "
Feld$(3) = "# ### # "
Feld$(4) = "# # # "
Feld$(5) = "# # # "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = "# # "
Feld$(10) = "# # "
CASE "N"
Feld$(1) = "## # "
Feld$(2) = "### # "
Feld$(3) = "# # # "
Feld$(4) = "# ## # "
Feld$(5) = "# # # "
Feld$(6) = "# # # "
Feld$(7) = "# # # "
Feld$(8) = "# # # "
Feld$(9) = "# # # "
Feld$(10) = "# #### "
CASE "O"
Feld$(1) = " ##### "
Feld$(2) = " # # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = " # # "
Feld$(10) = " ##### "
CASE "P"
Feld$(1) = "####### "
Feld$(2) = "# # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "####### "
Feld$(7) = "# "
Feld$(8) = "# "
Feld$(9) = "# "
Feld$(10) = "# "
CASE "Q"
Feld$(1) = " ##### "
Feld$(2) = " # # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "# # "
Feld$(7) = "# # # "
Feld$(8) = "# # # "
Feld$(9) = " # # "
Feld$(10) = " ##### # "
CASE "R"
Feld$(1) = "####### "
Feld$(2) = "# # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "######## "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = "# # "
Feld$(10) = "# # "
CASE "S"
Feld$(1) = " ####### "
Feld$(2) = " # "
Feld$(3) = "# "
Feld$(4) = "# "
Feld$(5) = " # "
Feld$(6) = " ###### "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # "
Feld$(10) = "####### "
CASE "T"
Feld$(1) = "######### "
Feld$(2) = " # "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # "
Feld$(10) = " # "
CASE "U"
Feld$(1) = "# # "
Feld$(2) = "# # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = " # # "
Feld$(10) = " ##### "
CASE "V"
Feld$(1) = "# # "
Feld$(2) = "# # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = " # # "
Feld$(9) = " ##### "
Feld$(10) = " # "
CASE "W"
Feld$(1) = "# # "
Feld$(2) = "# # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "# # # "
Feld$(7) = "# # # "
Feld$(8) = "# ### # "
Feld$(9) = "# # # # "
Feld$(10) = "## ## "
CASE "X"
Feld$(1) = "# # "
Feld$(2) = "# # "
Feld$(3) = " # # "
Feld$(4) = " # # "
Feld$(5) = " ### "
Feld$(6) = " ### "
Feld$(7) = " # # "
Feld$(8) = " # # "
Feld$(9) = "# # "
Feld$(10) = "# # "
CASE "Y"
Feld$(1) = "# # "
Feld$(2) = "# # "
Feld$(3) = " # # "
Feld$(4) = " # # "
Feld$(5) = " ### "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # "
Feld$(10) = " # "
CASE "Z"
Feld$(1) = "######### "
Feld$(2) = " # "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " ## "
Feld$(6) = " # "
Feld$(7) = " ## "
Feld$(8) = "## "
Feld$(9) = "# "
Feld$(10) = "######### "
CASE "/"
Feld$(1) = " ## "
Feld$(2) = " # "
Feld$(3) = " ## "
Feld$(4) = " # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = "## "
Feld$(10) = "# "
CASE "\"
Feld$(1) = "# "
Feld$(2) = "## "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " ## "
Feld$(9) = " ## "
Feld$(10) = " # "
CASE "("
Feld$(1) = " ### "
Feld$(2) = " # "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # "
Feld$(10) = " ### "
CASE ")"
Feld$(1) = "### "
Feld$(2) = " # "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # "
Feld$(10) = "#### "
CASE "."
Feld$(1) = " "
Feld$(2) = " "
Feld$(3) = " "
Feld$(4) = " "
Feld$(5) = " "
Feld$(6) = " "
Feld$(7) = " "
Feld$(8) = "## "
Feld$(9) = "## "
Feld$(10) = " "
CASE ","
Feld$(1) = " "
Feld$(2) = " "
Feld$(3) = " "
Feld$(4) = " "
Feld$(5) = " "
Feld$(6) = " "
Feld$(7) = " "
Feld$(8) = "## "
Feld$(9) = "## "
Feld$(10) = " # "
CASE "!"
Feld$(1) = "## "
Feld$(2) = "## "
Feld$(3) = "## "
Feld$(4) = "## "
Feld$(5) = "## "
Feld$(6) = "## "
Feld$(7) = " "
Feld$(8) = " "
Feld$(9) = "## "
Feld$(10) = "## "
CASE "?"
Feld$(1) = " ##### "
Feld$(2) = " # # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " "
Feld$(9) = " ## "
Feld$(10) = " ## "
CASE ":"
Feld$(1) = " ## "
Feld$(2) = " ## "
Feld$(3) = " "
Feld$(4) = " "
Feld$(5) = " "
Feld$(6) = " "
Feld$(7) = " "
Feld$(8) = " ## "
Feld$(9) = " ## "
Feld$(10) = " "
CASE "„"
Feld$(1) = "# ### # "
Feld$(2) = " # # "
Feld$(3) = " # # "
Feld$(4) = "# # "
Feld$(5) = "######### "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = "# # "
Feld$(10) = "# # "
CASE "”"
Feld$(1) = "# ##### #"
Feld$(2) = " # # "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = " # # "
Feld$(10) = " ##### "
CASE "?"
Feld$(1) = "# # "
Feld$(2) = " "
Feld$(3) = "# # "
Feld$(4) = "# # "
Feld$(5) = "# # "
Feld$(6) = "# # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = " # # "
Feld$(10) = " ##### "
CASE "1"
Feld$(1) = " ### "
Feld$(2) = " # # "
Feld$(3) = " # # "
Feld$(4) = " # # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # "
Feld$(10) = " # "
CASE "2"
Feld$(1) = " ##### "
Feld$(2) = " ## # "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " # "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = "# "
Feld$(10) = "######### "
CASE "3"
Feld$(1) = " ###### "
Feld$(2) = " # # "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " ##### "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = "# # "
Feld$(10) = " ####### "
CASE "4"
Feld$(1) = " ## "
Feld$(2) = " # # "
Feld$(3) = " # # "
Feld$(4) = " # # "
Feld$(5) = " # # "
Feld$(6) = "######### "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # "
Feld$(10) = " # "
CASE "5"
Feld$(1) = "######### "
Feld$(2) = "# "
Feld$(3) = "# "
Feld$(4) = "# "
Feld$(5) = "######## "
Feld$(6) = " # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = "# # "
Feld$(10) = " ####### "
CASE "6"
Feld$(1) = " ##### "
Feld$(2) = " # # "
Feld$(3) = "# "
Feld$(4) = "# "
Feld$(5) = "# ##### "
Feld$(6) = "## # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = " # # "
Feld$(10) = " ##### "
CASE "7"
Feld$(1) = " ######## "
Feld$(2) = "# # "
Feld$(3) = " # "
Feld$(4) = " # "
Feld$(5) = " # "
Feld$(6) = " ##### "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # "
Feld$(10) = "# "
CASE "8"
Feld$(1) = " ##### "
Feld$(2) = " # # "
Feld$(3) = "# # "
Feld$(4) = " # # "
Feld$(5) = " ##### "
Feld$(6) = " # # "
Feld$(7) = "# # "
Feld$(8) = "# # "
Feld$(9) = " # # "
Feld$(10) = " ##### "
CASE "9"
Feld$(1) = " #### "
Feld$(2) = " # # "
Feld$(3) = " # # "
Feld$(4) = " # # "
Feld$(5) = " # ## "
Feld$(6) = " #### # "
Feld$(7) = " # "
Feld$(8) = " # "
Feld$(9) = " # # "
Feld$(10) = " #### "
CASE "0"
Feld$(1) = " #### "
Feld$(2) = " # # "
Feld$(3) = " # # "
Feld$(4) = " # ## # "
Feld$(5) = " # ## # "
Feld$(6) = " # ## # "
Feld$(7) = " # ## # "
Feld$(8) = " # # "
Feld$(9) = " # # "
Feld$(10) = " #### "
CASE "-"
Feld$(1) = " "
Feld$(2) = " "
Feld$(3) = " "
Feld$(4) = " "
Feld$(5) = "######### "
Feld$(6) = " "
Feld$(7) = " "
Feld$(8) = " "
Feld$(9) = " "
Feld$(10) = " "
CASE "Û"
Feld$(1) = "##########"
Feld$(2) = "##########"
Feld$(3) = "##########"
Feld$(4) = "##########"
Feld$(5) = "##########"
Feld$(6) = "##########"
Feld$(7) = "##########"
Feld$(8) = "##########"
Feld$(9) = "##########"
Feld$(10) = "##########"
CASE " "
Feld$(1) = " "
Feld$(2) = " "
Feld$(3) = " "
Feld$(4) = " "
Feld$(5) = " "
Feld$(6) = " "
Feld$(7) = " "
Feld$(8) = " "
Feld$(9) = " "
Feld$(10) = " "
CASE ELSE
END SELECT
FOR y% = 1 TO bgry%
FOR x% = 1 TO bgrx%
IF MID$(Feld$(y%), x%, 1) = "#" THEN
'Linie XP1Er% + i% * (bgrx% * FG!) - (bgrx% * FG!) + x% * FG! - FG!, XP2Er% + y% * FG! - FG!, XP1Er% + i% * (bgrx% * FG!) - (bgrx% * FG!) + x% * FG! - 1, XP2Er% + y% * FG! - 1, f%, 1
Punkt XP1Er% + i% * bgrx% - bgrx% + x% - 1, XP2Er% + y% - 1, f%
'PSET (100 + XP1Er% + i% * 6 - 6 + x% - 1, 100 + XP2Er% + y% - 1), f%
END IF
NEXT x%
NEXT y%
NEXT i%
END SUB
SUB Wart (z!)
SZ! = TIMER
DO WHILE SZ! + z! > TIMER
IF INKEY$ = "." THEN EXIT DO
LOOP
END SUB
|
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht. |
|
| Nach oben |
|
|
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 04.05.2005, 15:19 Titel: |
|
|
Also, ich find's Klasse  !
Das einzige, an dem man noch arbeiten sollte, ist, dass der Text, je weiter er
nach hinten geht, auch dementsprechend dunkler wird.
D.h. SCREEN 13 + eine Routine, die PCOPY ersetzt...
jb |
|
| Nach oben |
|
|
SpionAtom
Anmeldungsdatum: 10.01.2005
Beiträge: 395
|
| Verfasst am: 06.05.2005, 08:43 Titel: |
|
|
| jb hat Folgendes geschrieben: | Also, ich find's Klasse !
Das einzige, an dem man noch arbeiten sollte, ist, dass der Text, je weiter er
nach hinten geht, auch dementsprechend dunkler wird.
D.h. SCREEN 13 + eine Routine, die PCOPY ersetzt...
jb |
Danke für dein Lob, aber dennoch werde ich dieses Programm in seiner jetzigen Form belassen. Wer Lust dazu hat, das zu optimieren: Bitteschön, ist alles Open Source
_________________
Inzwischen gehöre ich auch zu den BlitzBasicern. Also verzeiht mir, wenn mir mal ein LOCATE 100, 100 oder dergleichen rausrutscht. |
|
| Nach oben |
|
|
dreael
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 2529
Wohnort: Hofen SH (Schweiz)
|
| Verfasst am: 06.05.2005, 20:26 Titel: |
|
|
Hübsches Demo :-) Wieder einmal etwas für Strg+C / Strg+V in ein als .BAS gespeichertes NOTEPAD.EXE :-)
Früher hatte ich auf dem Commodore Amiga auch ein Spiel namens Star Wars (habe ich übrigens als .ADF auf CD für den WinUAE archiviert und läuft dort auch immer noch problemlos). Die dortigen Programmierer hatten damals in Anlehnung an den Vektorbildschirm (gab es bekanntlich in der EDV-Pionierzeit, als RAM für eine Bitmap noch sündhaft teuer war. Statt zeilenweise ein Bild aufbauen zeichnete der Elektonenstraht wie ein Stiftplotter das Bild) die Grafik aus Linienzügen gezeichnet. Möglicherweise dürfte dies auch hier der geeignete Ansatz darstellen, z.B. die X-Y-Koordinaten in einer .TXT-Datei ablegen und diese einlesen.
_________________
Teste die PC-Sicherheit mit www.sec-check.net |
|
| Nach oben |
|
|
dreael
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 2529
Wohnort: Hofen SH (Schweiz)
|
|
| Nach oben |
|
|
|
|
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.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
