.
?
MoinHallo Loide,
Auf einen sauberen Programmierstil, ein durchdachtes Konzept und genügend Lust.Ich möcht ne GUI für DOS(ähnlich WIN3.11) für Studienzwecke schreiben. Worauf muss ich da achten ?
Du müsstest dich in die Ausgabefunktionen von DOS einklinken und alles in dein Fenster umleiten. Nicht gerade einfach.Wie schaffe ich es eine Programm im Fenster meiner Gui darzustellen?
Du bräuchtest noch Assembler um auf die Interrupts zugreifen zu können. Oder kann das Pascal auch?Reicht mir hierfür TurboBasic und Pascal ?
Jetzt wirds echt schwer. Du musst dazu den Prozessor direkt manipulieren, so dass er Multitasking einschaltet. Dann muss jedes Programm in ein paar bestimmten Tabellen eingetragen werden und diese dann der CPU direkt übergeben werden. Den Rest macht die CPU dann. Das ist nur leider viel zu aufwendig. Eventuell kannst du die Programme unterbrechen und manuell "stilllegen". So kannst du bestimmten Prozessen Vorrang geben. Allerdings musst du dazu dich wieder an die DOS Interrupts hängen.Wie macht man Multitasking ?
Die Letzte hatte es in sich. Multitasking kannst du so gut wie vergessen. Alles Andere läßt sich mit mehr oder weniger viel Aufwand machen.Viele viele Fragen !
Dann fang schon mal an mir Geschenke zu schickenBin für jeden Tip dankbar....
Fein.die Sources meiner GUI werden später veröffentlicht.
Siehst echt etwas durchgenuddelt ausSo sieht mein Gehirn jetzt nach Tagelangen Forschungsarbeiten zu diesem Thema aus !
Beim Verlag http://www.shaker.de/ gibt es von Klaus-Dieter ThiesHroudtwolf hat geschrieben:Wie macht man Multitasking ?
Man ißt nicht, wenn man am PC sitzt, also, wirklich!Danke. ich esse gerade...
Code: Alles auswählen
Program CopyMem;
Uses Crt;
Var a, b:String;
Pa, Pb:Pointer;
Begin
ClrScr;
Writeln('Wir werden nun einen String in einen anderen kopieren!');
Write('Bitte String eintippen: ');
Readln(a);
Writeln; Writeln;
Writeln('Der String liegt an Adresse [',Seg(a),':',Ofs(a),']');
Pa := Ptr(Seg(a),Ofs(a)); {Zeiger auf a einrichten}
Writeln;
Writeln('String wird kopiert!');
b := ''; {Zur Sicherheit, nicht unbedingt notwendig}
Pb := Ptr(seg(b),Ofs(b));
{Jetzt gehts los}
Move(Pa^,Pb^,Length(a)+1); {Kopiere a nach b mit Länge a+1, weil
1 Byte Längenangabe!}
Writeln('String in b: ',b);
End.