[BB2d] [B+] EasyHTMLBasic

Übersicht Sonstiges Projekte

Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.

ISt das Prinzip Einfach, für einen 11-Jährigen
Ja 30% 30% 4 Stimmen
Nein 69% 69% 9 Stimmen
Insgesamt 13 Stimmen
 

Gast

Betreff: [BB2d] [B+] EasyHTMLBasic

 BeitragMi, Okt 03, 2007 16:54
Antworten mit Zitat
Mein Projekt, an dem ich Gerad Arbeite, Is EasyHTMLBasic.
EasyHTMLBAsic ist eine von mir entworfene Programmiersprache, Die HTML sehr ähnelt...
Der Compiler wandelt das Ganze in HTML um...

DAS PRINZIP:
EasyHTMLBasic arbeite mit Replace.
Es Ersetzt Befehle wie <Img src="bild.gif" alt="Ein Bild">
Mit <Bild Pfad="bild.gif" Bildtext="Ein Bild">
Exclamation Während man den Geposten HTML Code nicht ausführen könnte, kann man Mein Code Compilert spfort ausführen...

Hier ist der code für den compiler: (Noch wenig Befehle, hab gestern um 10 Uhr angefangen)
B+
Code: [AUSKLAPPEN]

======================================================================================================================================
; Name : EasyHTMLBaic
; Beschreibung : Einen selbständige Programmiersprache, Die eine HTML Datei Ausgibt.
; Beginn-Datum : Di, 02.10.07
; Fortschritt : 2%
; Kommentare: Replace ist gut zum Speichen, HTML Lernen...
; ======================================================================================================================================
Window = CreateWindow("Offizieller EasyHTMLBasic-Compieler",0,0,320,240)
Global Textarea1 = CreateTextField(10,10,290,20,Window)
SetGadgetText TextArea1,"Dateiname der zu compilernden Datei"
Global Textarea2 = CreateTextField(10,40,290,20,Window)
SetGadgetText TextArea2,"Dateiname der compilerten datei"
Global Textarea3 = CreateTextField(10,70,290,20,Window)
SetGadgetText TextArea3,"Titel daer Website"
Button = CreateButton("Absenden",10,100,70,25,Window)
Global I
Repeat
B = WaitEvent()
If EventID() = $803 Then End
If EventSource() = Button Then
File = OpenFile(TextFieldText(Textarea1)+".ehtm")
I = 1
EndIf
Until I = 1

If File <> 0 Then
Repeat
I = I + 1
Dim A$(I)
A(I) = ReadLine(File)
Until Eof(File) = 1
Else Print "*** Fehler *** File konnte nicht Compilert Werden" :
EndIf
Save(File)
If File <>0 Then CloseFile(File)
WaitKey()
End

Function Save(vorhanden)
If Vorhanden <> 0 Then
FIle = WriteFile(TextFieldText(Textarea2)+".htm")
For J = 0 To I
A(J) = Replace(A(J),"Bild<","<img ")
a(J) = Replace(A(J),"Pfad","src")
Next
WriteLine File,"<html>"
WriteLine File,"<Title>"+TextFieldText(Textarea3)+"</title>"
WriteLine File,"<Body>"
For K = 0 To I
WriteLine File,A(K)
Next
WriteLine File,"</body>"
WriteLine File,"</html>"
Else
Print "*** Fehler *** Die Datei Konnte nicht Gespiechert werden"
EndIf
End Function



BB2d

Code: [AUSKLAPPEN]

======================================================================================================================================
; Name : EasyHTMLBaic
; Beschreibung : Einen selbständige Programmiersprache, Die eine HTML Datei Ausgibt.
; Beginn-Datum : Di, 02.10.07
; Fortschritt : 0%
; Kommentare: Replace ist gut zum Speichen, HTML Lernen...
; ======================================================================================================================================
File = OpenFile(Input("Dateiname der zu Compilernden File: ")+".Ehtm")
Global I
If File <> 0 Then
Repeat
I = I + 1
Dim A$(I)
A(I) = ReadLine(File)
Until Eof(File) = 1
Else Print "*** Fehler *** File konnte nicht Compilert Werden" :
EndIf
Save(File)
If File <>0 Then CloseFile(File)
WaitKey()
End

Function Save(vorhanden)
If Vorhanden <> 0 Then
FIle = WriteFile(Input("Dateiname der auszugenden Datei: ")+".htm")
For J = 0 To I
A(J) = Replace(A(J),"Bild","<img ")
A(J) = Replace(A(J),"BildEnde",">")
Next
WriteLine File,"<html>"
WriteLine File,"<Title>"+Input("Welchen Titel oll die Website haben?: ")+"</title>"
WriteLine File,"<Body>"
For K = 0 To I
WriteLine File,A(K)
Next
WriteLine File,"</body>"
WriteLine File,"</html>"
Else
Print "*** Fehler *** Die Datei Konnte nicht Gespiechert werden"
EndIf
End Function


Der b+ Code ist viel Komfortabler, da das Programm einacher zu bedinen ist.
Beider Versinen laufen mit der Demo.
Die Dateiendung der datei zu Compilern ist: .eHTM
Und sagt nicht Print soll wohl Runtimeerror aein, Das mach ich sochon noch...

Bilder Folgen...
Könnt ihr mir Bugs o.ä. Nennen?
Oder läuft das Prog Einwandfrei Wink
och kann nähmlich kaum B+...

d-bug

 BeitragMi, Okt 03, 2007 17:09
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich denke mal, ein mal diesen Thread posten hätte durchaus gereicht... Den anderen habe ich mal getrasht!

Xeres

Moderator

BeitragMi, Okt 03, 2007 17:10
Antworten mit Zitat
Benutzer-Profile anzeigen
Nichts für ungut, aber ich würde eher gleich richtig HTML lernen als den selben Code mit "falschen" Befehlen zu schreiben und würde das auch niemandem empfehlen oder vorschlagen, denn HTML ist schon so leicht zu erlernen. Je früher man etwas gelernt hat, desto leichter erinnert man sich daran, weshalb ich gerade elfjährigen richtiges Coden empfehlen würde.
Eine Rechtschreibkorrektur wär auch ganz angebracht...
Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)
 

Gast

 BeitragMi, Okt 03, 2007 17:46
Antworten mit Zitat
Der blickt HTML aber nicht.
Deswegen vereinfacht...
Wegen 2xigen Posting: Hab wohl 2x draufgedrückt

Pdd

 BeitragMi, Okt 03, 2007 17:51
Antworten mit Zitat
Benutzer-Profile anzeigen
Und du glaubst das er das verhunzte, Grammatikalisch grausame, nicht standart-konforme "HTML" blickt?
Lieber Apfel als Birne.

aMul

Sieger des Minimalist Compo 01/13

BeitragMi, Okt 03, 2007 18:33
Antworten mit Zitat
Benutzer-Profile anzeigen
Das ist der größte Schwachfug den ich je gesehen habe...

@Filz:
Du solltest vielleicht nicht von dir auf andere schließen. Es gibt genug Leute, die mit 11 nicht nur HTML sondern sogar "richtige" Programmiersprachen konnten, sogar hier im Forum. Rolling Eyes

Ich bin dafür, dass du dich mal an einem Pong-Klon versuchst...
Panic Pong - ultimate action mashup of Pong and Breakout <= aktives Spiele-Projekt, Downloads mit vielen bunten Farben!
advASCIIdraw - the advanced ASCII art program <= aktives nicht-Spiele-Projekt, must-have für ASCII/roguelike/dungeon-crawler fans!
Alter BB-Kram: ThroughTheAsteroidBelt - mit Quelltext! | RGB-Palette in 32²-Textur / Farbige Beleuchtung mit Dot3 | Stereoskopie in Blitz3D | Teleport-Animation Screensaver
 

Gast

 BeitragMi, Okt 03, 2007 20:03
Antworten mit Zitat
Arrow Ach egal, closen
PS: ich BIN 12 Shocked (und sein bester freund) Exclamation Evil or Very Mad Mad

coolo

 BeitragFr, Okt 12, 2007 17:33
Antworten mit Zitat
Benutzer-Profile anzeigen
Bitte? für einen 11 Jährigen? Ich hab schon mit 11 mein erstes 3d spiel mit Delphi programmiert. Und Blitzbasic macht es dir besonders einfach. Und dein "programm" ist schätze ich in 5 min gemacht worden.
http://programming-with-design.at/ <-- Der Preis ist heiß!
That's no bug, that's my project!
"Eigenzitate sind nur was für Deppen" -Eigenzitat

BladeRunner

Moderator

BeitragFr, Okt 12, 2007 17:53
Antworten mit Zitat
Benutzer-Profile anzeigen
~GESCHLOSSEN~

Was ein Spam in einem lange toten Thread.
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten.


Übersicht Sonstiges Projekte

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group