Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Ist das ne gute Idee? |
Spitze! |
|
0% |
[ 0 ] |
super |
|
0% |
[ 0 ] |
gut |
|
0% |
[ 0 ] |
ok |
|
0% |
[ 0 ] |
geht so |
|
7% |
[ 1 ] |
naja |
|
23% |
[ 3 ] |
schlecht |
|
69% |
[ 9 ] |
|
Stimmen insgesamt : 13 |
|
Autor |
Nachricht |
Kettenfresser
Anmeldungsdatum: 18.10.2008 Beiträge: 35
|
Verfasst am: 18.10.2008, 12:54 Titel: Coden für Dummies: basic.mania |
|
|
Hallo
Ich code gerade ein Programm mit Quickbasic.
Iss nich wahhr *kratz*
Man kann damit auch ein Programmschreiben, im Prinzipp ist es ein compiler. Man könnte es auch eigene Programmiersprache nennen. Oder Einstiegshilfe ins Programmieren.
Code:
zeigetext = print
zeige = write
(alles andere)="benutzereingabe"
wenn...dann...sonst.../endewenn=if...then...else...end if
eingabe=line input
farberot=color blablabla usw
falls...so:...dann.../endefalls=select case...case...:...end select
leer=cls
abschnitt=sub
abschnittende=end sub
---blablabla='blablabla
So das wars erstmal mal gucken wie es weiter was wird das ganze heisst basic.mania
ich mache auch gerade was ähnliches mit html heisst html.mania
warum mania?
mania = (ger)mania = deutschsprachig[/code] _________________
TT-Forum |
|
Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1875 Wohnort: D59192
|
Verfasst am: 18.10.2008, 13:22 Titel: |
|
|
nehm dazu FreeBASIC, dann geht es leichter!
Code: | #Define machString Dim As String
#define Wiederhole For i As Integer = 1 To Len(a) Step 4
#Define nochmal Next
#Define schreib Print
#Define schlafe Sleep
#Define entschluesseln Mki(CVI(Mid(a,i,4))+274926);
machString a="}3enwîQe„A_h~Cas…3hu€5i…Bu€9jau9^a„î!"
Wiederhole
schreib entschluesseln
nochmal
schreib
a="X@aet/oiuîmu~3o 3ï "
Wiederhole
schreib entschluesseln
nochmal
schreib
schlafe | _________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
Nach oben |
|
|
Kettenfresser
Anmeldungsdatum: 18.10.2008 Beiträge: 35
|
Verfasst am: 18.10.2008, 14:02 Titel: |
|
|
ich kann kein freebasic _________________
TT-Forum |
|
Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005 Beiträge: 1875 Wohnort: D59192
|
Verfasst am: 18.10.2008, 16:47 Titel: |
|
|
wer etwas QBasic kann, der kann schnell FreeBASIC lernen! _________________ Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
Nach oben |
|
|
Kettenfresser
Anmeldungsdatum: 18.10.2008 Beiträge: 35
|
Verfasst am: 18.10.2008, 17:43 Titel: |
|
|
naja ich habs runtergeladen und FBIde dnigens _________________
TT-Forum |
|
Nach oben |
|
|
Kettenfresser
Anmeldungsdatum: 18.10.2008 Beiträge: 35
|
|
Nach oben |
|
|
MOD Fleißiger Referenzredakteur
Anmeldungsdatum: 10.09.2007 Beiträge: 1003
|
Verfasst am: 21.10.2008, 21:41 Titel: |
|
|
Wie wärs, wenn du mal den Code postest, damit mal jemand schauen kann, ob Fehler im Code sind. |
|
Nach oben |
|
|
Kettenfresser
Anmeldungsdatum: 18.10.2008 Beiträge: 35
|
Verfasst am: 21.10.2008, 21:55 Titel: |
|
|
ok
Code: | declare sub info ()
declare sub speicherjanein ()
declare sub speichere ()
cls
print "Um im Notfall abzubrechen drücken Sie bitte Alt + F4"
sleep 1000
print "Wenn Sie fertig gecodet haben geben Sie 'back ein"
sleep 1000
print "Und nun viel spass mit dem programmieren mit:"
sleep 2000
print "--------------------------------basic.mania 1.0---------------------------------"
dim as string eingabe
Dim Shared As String ausgabe
do
input eingabe
select case eingabe
case "zeigetext"
ausgabe = ausgabe + "print "
case "'back"
ausgabe = ausgabe + chr(10,13) + "'codeende"
case else
ausgabe = ausgabe + chr$(34) + eingabe + chr$(34) + chr(10,13)
end select
loop until eingabe = "'back"
cls
print "Ihr Code:"
print "--------------------------------------------------------------------------------"
print ausgabe
print "--------------------------------------------------------------------------------"
sleep
speicherjanein ()
sleep
end
Sub speicherjanein ()
Dim savejanein As String
Print "Wenn Sie wollen, wird ihr Code als .txt Datei gespeichert. Sie können den Code dann in einen IDE kopieren, wenn Sie alles richtig gemacht haben, haben sie ein Programm..."
Input "Jetzt Speichern? (Ja/Nein)",savejanein
Select Case LCase(savejanein)
Case "ja"
speichere ()
Case "nein"
End
Case Else
print "Sie haben etwas unverständliches eingegeben. Bitte versuchen Sie es erneut!"
End Select
End sub
Sub info ()
dim janein as string
print "Als erstes müssen Sie eine neue Textdatei (.txt) anlegen."
sleep 2000
input "Haben Sie das gemacht? Ja/Nein", janein
select case lcase(janein)
case "ja"
print "Sehr gut."
sleep 2000
speichere ()
case "nein"
print "Dann tun Sie dies ;)"
info ()
case else
print "Sie haben etwas unverständliches eingegeben. Bitte versuchen Sie es erneut!"
End select
sleep
print "Dann geben Sie gleich das Verzeichniss und den Namen an."
sleep 2000
print "z.B.: C:\Dokumente und Einstellungen\All Users\Dokumente\basic\test.txt"
sleep
print "Ihr Code wird dann in der Datei gespeichert. Achtung! Falls Sie andere Sachen dort drin gespeichert haben, so sind diese verloren!"
End Sub
Sub speichere ()
Open "lmb.txt" for output as #1
do until eof(1)
print #1, ausgabe
'print ausgabe
if ausgabe = "'codeende" then exit do
loop
close #1
Print "Erfolgreich gespeichert. Das Programm wird nun beendet"
sleep
End sub |
_________________
TT-Forum |
|
Nach oben |
|
|
MOD Fleißiger Referenzredakteur
Anmeldungsdatum: 10.09.2007 Beiträge: 1003
|
Verfasst am: 21.10.2008, 22:18 Titel: |
|
|
Dein Programm hat mir grad ne 1,7GB große Datei erstellt, bevor ich es beendet habe
Da wird sich wohl ein Fehler verstecken, laufen tut's aber.
edit:
if Right(ausgabe,9) = "'codeende" then exit do
das verhindert schon mal die unendlich große datei
edit2:
in welche IDE soll man den text reinkopieren können, letztendlich steht das gleiche drinnen, wie im programm und damit kann man nichts anfangen.
du kannst ja mit InStr befehle wie zeigetext durch print ersetzen, dann hat man wenigstens ein basic-programm.
deine info-sub findet keine verwendung
die idee find ich gar nicht schlecht, allerdings eher als übersetzung für basic ins deutsche, für leute, die des englischen nicht mächtig sind |
|
Nach oben |
|
|
|