DBlitz

Übersicht BlitzBasic BlitzPlus

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

blitzuser34

Betreff: DBlitz

 BeitragSa, Jan 26, 2008 20:31
Antworten mit Zitat
Benutzer-Profile anzeigen
Da ich BlitzPlus und Blitz3D habe, und ich abwechselnd beide Versionen verwende und mich das Wechseln der Versionen nerft(rechtsklick, öffnen mit...) wollte ich mir ne Blitz Version schreiben, bei der man beide Compiller verwenden kann. Allerdings weiß ich nicht, wie ich machen soll, dass man viele Dokumente aufmachen kann(hab BlitzPlus noch nicht lange).

Mein bisheriger Code:

Code: [AUSKLAPPEN]
Global window=CreateWindow("DBlitz by Daniel Sauter",240,212,800,600,0)

tabber=CreateTabber(5,25,ClientWidth(window)-10,ClientHeight(window)-30,window)
SetGadgetLayout tabber,1,1,1,1
AddGadgetItem tabber,"Help"

toolbar=CreateToolBar("Data\toolbar.bmp",0,0,96,32,window)

filemenu=CreateMenu("Datei",1,WindowMenu(window))
   newmenu=CreateMenu("Neu   Ctrl+N",4,filemenu)
   openmenu=CreateMenu("Öffnen   Ctrl+O",5,filemenu)
   strichmenu=CreateMenu("",6,filemenu)
   closemenu=CreateMenu("Schließen   Ctrl+F4",7,filemenu)
   closeallmenu=CreateMenu("Alle schließen",8,filemenu)
   strich2menu=CreateMenu("",9,filemenu)
   savemenu=CreateMenu("Speichern   Ctrl+S",10,filemenu)
   saveasmenu=CreateMenu("Speichern als...",11,filemenu)
   saveallmenu=CreateMenu("Alle speichern",12,filemenu)
   strich3menu=CreateMenu("",13,filemenu)
   nextfilemenu=CreateMenu("Nächste Datei   Ctrl+Tab",14,filemenu)
   previousmenu=CreateMenu("Vorherige Datei   Ctrl+Shift+Tab",15,filemenu)
   precentmenu=CreateMenu("Letzte Dateien",16,filemenu)
   strich4menu=CreateMenu("",17,filemenu)
   printmenu=CreateMenu("Drucken   Ctrl+P",18,filemenu)
   strich5menu=CreateMenu("",19,filemenu)
   exitmenu=CreateMenu("Beenden",20,filemenu)
editmenu=CreateMenu("Editieren",2,WindowMenu(window))
   cutmenu=CreateMenu("Ausschneiden   Ctrl+X",21,editmenu)
   copymenu=CreateMenu("Kopieren   Ctrl+C",22,editmenu)
   pastemenu=CreateMenu("Einfügen   Ctrl+V",23,editmenu)
   strich6menu=CreateMenu("",21,editmenu)
   selectallmenu=CreateMenu("Alles auswählen   Ctrl+A",24,editmenu)
   strich7menu=CreateMenu("",25,editmenu)
   findmenu=CreateMenu("Suchen   Ctrl+F",26,editmenu)
   findnextmenu=CreateMenu("Nächste suchen   F3",27,editmenu)
   replacemenu=CreateMenu("Ersetzen   Ctrl+R",28,editmenu)
   strich8menu=CreateMenu("",29,editmenu)
   showtoolbarmenu=CreateMenu("Toolbar anzeigen   Shift+Esc",30,editmenu)
programmenu=CreateMenu("Programm",3,WindowMenu(window))
   runprogmenu=CreateMenu("Programm starten   F5",31,programmenu)
   runprogagainmenu=CreateMenu("Programm erneut starten   F6",32,programmenu)
   checkerrorsmenu=CreateMenu("Auf Fehler prüfen   F7",33,programmenu)
   exemenu=CreateMenu("Exe erstellen",34,programmenu)
   strich9menu=CreateMenu("",35,programmenu)
   progcomlinemenu=CreateMenu("Programmbefehlszeile",35,programmenu)
   Debugmenu=CreateMenu("Debug an?",36,programmenu)
helpmenu=CreateMenu("Hilfe",3,WindowMenu(window))
   homemenu=CreateMenu("Startseite   Ctrl+H",37,helpmenu)
   backmenu=CreateMenu("Zurück",38,helpmenu)
   forwmenu=CreateMenu("Forwärts",39,helpmenu)
   qucommenu=CreateMenu("Schnelle Befehlshilfe   F1",40,helpmenu)
   aboutmenu=CreateMenu("Über DBlitz",41,helpmenu)
UpdateWindowMenu window

hilfe=CreateHtmlView( 5,5,ClientWidth(tabber)-10,ClientHeight(tabber)-10,tabber)
SetGadgetLayout hilfe,1,1,1,1
HtmlViewGo hilfe,"file://"+CurrentDir()+"help/index.html"

;   ---   ---   Befehle reinlesen   ---   ---   
Dim befehl$(738)
befehldatei=ReadFile("Data\commands.txt")
For befehllesen=1 To 738
   befehl$(befehllesen)=ReadLine(befehldatei)
Next
CloseFile befehldatei
befehllesen=0
;   ---   ---   Ende Befehle reinlesen   ---   ---   

While Not KeyHit(1)

   Select WaitEvent()
      Case $803
         End
      Case $401
         If EventSource()=toolbar Then
            If EventData()=8 Then
               HtmlViewGo hilfe,"file://"+CurrentDir()+"help/index.html"
            EndIf
            If EventData()=9 Then
               HtmlViewBack hilfe
            EndIf
            If EventData()=10 Then
               HtmlViewForward hilfe
            EndIf
         EndIf


   End Select
Wend

End

Thunder

 BeitragSa, Jan 26, 2008 20:49
Antworten mit Zitat
Benutzer-Profile anzeigen
Finde deine Idee Super. (bin in der selben Situation, und versuche -soweit ich kann- zu helfen und auch daran zu arbeiten)
Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

Blitzcoder

Newsposter

BeitragSa, Jan 26, 2008 20:53
Antworten mit Zitat
Benutzer-Profile anzeigen
Dir ist aber schon klar, dass es einiges an Erfahrung erfordert, eine IDE zu schreiben oder? Es braucht einen Highlighter, allein schon das ist eine Herausforderung. Wenn du nichteinmal die Benutzung von Tabbern kennst, kannst du B+ ja wirklich noch kaum, und da würde ich dir empfehlen, es zu lassen. Mach dich an einfachere Dinge heran, das hier wird dich höchstens frustieren, denke ich. Schreib kleine Tools, dann hast du Erfolgserlebnisse und lernst B+ kennen. Mal davon ab ist B+ eh kaum geeignet, um eine IDE zu schreiben, ich hab B+ zwar nie benutzt, aber die MaxGUI von BMax, deren Windows-Version eigentlich B+ entspricht.

Sehr zu empfehlen übrigends: BlitzEdit.
P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)
  • Zuletzt bearbeitet von Blitzcoder am Sa, Jan 26, 2008 20:59, insgesamt einmal bearbeitet

The_Nici

 BeitragSa, Jan 26, 2008 20:53
Antworten mit Zitat
Benutzer-Profile anzeigen
Du schreibst dann keine BlitzVersion, sondern eine IDE. Wink

Du kannst ja IDEal benutzen, ich denke die kann auch verschiedene Compiler benutzen.

blitzuser34

 BeitragSo, Jan 27, 2008 12:31
Antworten mit Zitat
Benutzer-Profile anzeigen
Hab jetzt ein bisschen weitergemacht. Wie würdet ihr das machen, dass man mehrere Textfelder machen kann? Oder würdet ihr ein Textfeld machen und die jeweiligen Inhalte in nem Dim Feld speichern.

[hab Code entfernt, weil sonst 2 Codes]

Edit

Hab noch weiter gemacht. Jetzt kann man die Tabs zumachen.


Code: [AUSKLAPPEN]
;   ---   ---   Fenster erstellen   ---   --- 
Global window=CreateWindow("DBlitz by Daniel Sauter",240,212,800,600,0)

tabber=CreateTabber(5,25,ClientWidth(window)-10,ClientHeight(window)-30,window)
SetGadgetLayout tabber,1,1,1,1
AddGadgetItem tabber,"Help"

toolbar=CreateToolBar("Data\toolbar.bmp",0,0,96,32,window)

filemenu=CreateMenu("Datei",1,WindowMenu(window))
   newmenu=CreateMenu("Neu   Ctrl+N",4,filemenu)
   openmenu=CreateMenu("Öffnen   Ctrl+O",5,filemenu)
   strichmenu=CreateMenu("",6,filemenu)
   closemenu=CreateMenu("Schließen   Ctrl+F4",7,filemenu)
   closeallmenu=CreateMenu("Alle schließen",8,filemenu)
   strich2menu=CreateMenu("",9,filemenu)
   savemenu=CreateMenu("Speichern   Ctrl+S",10,filemenu)
   saveasmenu=CreateMenu("Speichern als...",11,filemenu)
   saveallmenu=CreateMenu("Alle speichern",12,filemenu)
   strich3menu=CreateMenu("",13,filemenu)
   nextfilemenu=CreateMenu("Nächste Datei   Ctrl+Tab",14,filemenu)
   previousmenu=CreateMenu("Vorherige Datei   Ctrl+Shift+Tab",15,filemenu)
   precentmenu=CreateMenu("Letzte Dateien",16,filemenu)
   strich4menu=CreateMenu("",17,filemenu)
   printmenu=CreateMenu("Drucken   Ctrl+P",18,filemenu)
   strich5menu=CreateMenu("",19,filemenu)
   exitmenu=CreateMenu("Beenden",20,filemenu)
editmenu=CreateMenu("Editieren",2,WindowMenu(window))
   cutmenu=CreateMenu("Ausschneiden   Ctrl+X",21,editmenu)
   copymenu=CreateMenu("Kopieren   Ctrl+C",22,editmenu)
   pastemenu=CreateMenu("Einfügen   Ctrl+V",23,editmenu)
   strich6menu=CreateMenu("",21,editmenu)
   selectallmenu=CreateMenu("Alles auswählen   Ctrl+A",24,editmenu)
   strich7menu=CreateMenu("",25,editmenu)
   findmenu=CreateMenu("Suchen   Ctrl+F",26,editmenu)
   findnextmenu=CreateMenu("Nächste suchen   F3",27,editmenu)
   replacemenu=CreateMenu("Ersetzen   Ctrl+R",28,editmenu)
   strich8menu=CreateMenu("",29,editmenu)
   showtoolbarmenu=CreateMenu("Toolbar anzeigen   Shift+Esc",30,editmenu)
programmenu=CreateMenu("Programm",3,WindowMenu(window))
   runprogmenu=CreateMenu("Programm starten   F5",31,programmenu)
   runprogagainmenu=CreateMenu("Programm erneut starten   F6",32,programmenu)
   checkerrorsmenu=CreateMenu("Auf Fehler prüfen   F7",33,programmenu)
   exemenu=CreateMenu("Exe erstellen",34,programmenu)
   strich9menu=CreateMenu("",35,programmenu)
   progcomlinemenu=CreateMenu("Programmbefehlszeile",35,programmenu)
   Debugmenu=CreateMenu("Debug an?",36,programmenu)
helpmenu=CreateMenu("Hilfe",3,WindowMenu(window))
   homemenu=CreateMenu("Startseite   Ctrl+H",37,helpmenu)
   backmenu=CreateMenu("Zurück",38,helpmenu)
   forwmenu=CreateMenu("Forwärts",39,helpmenu)
   qucommenu=CreateMenu("Schnelle Befehlshilfe   F1",40,helpmenu)
   aboutmenu=CreateMenu("Über DBlitz",41,helpmenu)
UpdateWindowMenu window

;   ---   ---   Ende Fenster erstellen   ---   --- 

;   ---   ---   Help Html Fenster   ---   ---
hilfe=CreateHtmlView( 5,5,ClientWidth(tabber)-10,ClientHeight(tabber)-10,tabber)
SetGadgetLayout hilfe,1,1,1,1
HtmlViewGo hilfe,"file://"+CurrentDir()+"help/index.html"
;   ---   ---   Ende Help Html Fenster   ---   ---

;   ---   ---   Befehle reinlesen   ---   ---   
Dim befehl$(738)
befehldatei=ReadFile("Data\commands.txt")
For befehllesen=1 To 738
   befehl$(befehllesen)=ReadLine(befehldatei)
Next
CloseFile befehldatei
befehllesen=0
;   ---   ---   Ende Befehle reinlesen   ---   ---   

While Not KeyHit(1)
If SelectedGadgetItem(tabber)=0 Then ShowGadget hilfe
If SelectedGadgetItem(tabber)<>0 Then HideGadget hilfe

   Select WaitEvent()
      Case $803
         End
      Case $401
         If EventSource()=toolbar Then
            If EventData()=-1 Then
            a=a+1
               AddGadgetItem tabber,"<untitled>"
         SelectGadgetItem tabber,a
            EndIf
            If EventData()=2 Then
               If SelectedGadgetItem(tabber)<>0 Then RemoveGadgetItem tabber, SelectedGadgetItem(tabber)
               a=a-1
            EndIf
            If EventData()=8 Then
               HtmlViewGo hilfe,"file://"+CurrentDir()+"help/index.html"
            EndIf
            If EventData()=9 Then
               HtmlViewBack hilfe
            EndIf
            If EventData()=10 Then
               HtmlViewForward hilfe
            EndIf
         EndIf


   End Select
Wend

End

BladeRunner

Moderator

BeitragSo, Jan 27, 2008 13:34
Antworten mit Zitat
Benutzer-Profile anzeigen
Wurde vom Fragesteller im Beginners doppelt erstellt und daher hier geschlossen.
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 BlitzBasic BlitzPlus

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group