<?xml version="1.0" encoding="iso-8859-1" ?>
<rss version="2.0">
  <channel>
    <title>Webplain.de Foren</title>
    <link>http://www.webplain.de/foren/index.php</link>
    <description><![CDATA[]]></description>
    <language>de_DE</language>
    <pubDate>Tue, 17 Jan 2012 03:23:25 +0100</pubDate>
    <lastBuildDate>Tue, 17 Jan 2012 03:23:25 +0100</lastBuildDate>
    <category>Webplain.de Foren</category>
    <generator>Phorum 5.1.25</generator>
    <ttl>60</ttl>
    <item>
      <title>[Visual Basic] Office/ Outlook 2010 + Business Contact Manager</title>
      <link>http://www.webplain.de/foren/read.php?2,36547,36547#msg-36547</link>
      <author>ron</author>
      <description><![CDATA[Hallo Alle zusammen,<br />
<br />
bevor ich beschlossen habe, einen Beitrag zu schreiben, habe ich mich hier ein wenig<br />
umgeschaut. Ich denke, dass ich hier auf kompetente Leute treffe, die mich in<br />
meinem Vorhaben unterstützen können.<br />
<br />
Da ich kein PC Programmierer bin, suche ich Unterstützung, um auf Basis von Office 2010 + BCM<br />
die internen Abläufe zwischen Dokumenten zu verknüpfen und die Formulare anzupassen.<br />
Leider gibt für den BCM keine tiefere Literatur, um die vorhandenen Möglichkeiten der VBA Plattform<br />
zu diesen Zwecken auszuschöpfen (Fenster ziehen ist leicht).<br />
<br />
Es geht im wesentlichen um Funktionalitäten wie das Verlinken der Projektformulare im BCM mit externen <br />
Officedokumenten, dem automatischen erzeugen von Kalendereinträgen für Wiedervorlagen in Aquisition,<br />
Rechnungsprüpfung, Mahnwesen usw.<br />
<br />
Natürlich könnte ich fertige Programme wie Faktura &amp; Auftrag o.Ä. einsetzen. Als Selbstsändiger jedoch sollten<br />
die Möglichkeiten des MS Office reichen, was mir bei Änderungen auch mehr Flexibilität verschafft.<br />
<br />
Sollte der Umfang der Lösungen jedoch umfassender sein, findet eine entsprechende Vergütung statt.<br />
Der Interessent sollte jedoch wissen, dass ich selbst lernend an diesem Projekt mitwirken möchte.<br />
Die genaue Aufgabenstellung würde ich gern in einem Telefonat klären, um hier keine zu langen Texte<br />
zu schreiben.<br />
<br />
Ich freue mich auf entspr. Angebote.<br />
FG Ron]]></description>
      <category>Visual Basic</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?2,36547,36547#msg-36547</guid>
      <pubDate>Tue, 17 Jan 2012 03:23:25 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Fehler nach Beendigung des Grafikmodus</title>
      <link>http://www.webplain.de/foren/read.php?1,36541,36546#msg-36546</link>
      <author>CanisLupus</author>
      <description><![CDATA[Vielen Dank für den Vorschlag. Aber leider ist er nicht zielführend... Das Problem besteht weiterhin.<br />
<br />
Ich benutze Free Pascal IDE mit Compilerversion 2.6.0.<br />
<br />
Hat vieleicht noch jemand einen anderen Vorschlag?<br />
<br />
Viele Grüße<br />
CanisLupus]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36541,36546#msg-36546</guid>
      <pubDate>Mon, 16 Jan 2012 18:47:27 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Text wird nach initgraph schwarz angezeigt</title>
      <link>http://www.webplain.de/foren/read.php?1,36536,36545#msg-36545</link>
      <author>Horus</author>
      <description><![CDATA[Vielen Dank, damit läuft's einwandfrei!<br />
Merkwürdiges Problem...]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36536,36545#msg-36545</guid>
      <pubDate>Mon, 16 Jan 2012 18:40:00 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Fehler nach Beendigung des Grafikmodus</title>
      <link>http://www.webplain.de/foren/read.php?1,36541,36544#msg-36544</link>
      <author>BP92</author>
      <description><![CDATA[Hallo,<br />
<br />
Versuch mal die Befehle <br />
[code]CLOSEGRAPH;<br />
RESTORECRTMODE;[/code]<br />
noch vor dem Zurueckkehren ins Menue einzubauen. Wenn ich das richtig sehe, arbeitest du noch mit Turbo/Borland Pascal fuer DOS? :)]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36541,36544#msg-36544</guid>
      <pubDate>Mon, 16 Jan 2012 17:51:52 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Text wird nach initgraph schwarz angezeigt</title>
      <link>http://www.webplain.de/foren/read.php?1,36536,36543#msg-36543</link>
      <author>Samolex</author>
      <description><![CDATA[Hi,<br />
<br />
<br />
[Edit: Zugangsdaten und URL entfernt]<br />
<br />
sag mir bescheid, wenn du es geladen hast, dann sper ich den Benutzer wieder.<br />
<br />
MfG<br />
Samolex]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36536,36543#msg-36543</guid>
      <pubDate>Mon, 16 Jan 2012 08:47:56 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Text wird nach initgraph schwarz angezeigt</title>
      <link>http://www.webplain.de/foren/read.php?1,36536,36542#msg-36542</link>
      <author>Horus</author>
      <description><![CDATA[Heyho,<br />
kann mit jemand einen Link zu einer früheren version von FPC schicken? 2.6.0 scheint der grund zu sein, und eine frühere Version finde ich nicht. Lazerus ist auch nicht sehr hilfreich. Ich hab es ausprobiert, aber ich komme damit nicht klar und würde die Version bevorzugen, die auch meine Schule verwendet, nämlich FPC.]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36536,36542#msg-36542</guid>
      <pubDate>Sun, 15 Jan 2012 20:20:29 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Fehler nach Beendigung des Grafikmodus</title>
      <link>http://www.webplain.de/foren/read.php?1,36541,36541#msg-36541</link>
      <author>CanisLupus</author>
      <description><![CDATA[Hallo zusammen.<br />
<br />
Ich bin dabei ein kleines Programm zu schreiben, in dem ich verschiedene Sortieralgorithmen darstellen und vergleichen will. Vorläufig sind es erst 3, aber ich werde noch mehr machen.<br />
<br />
Mein Problem ergibt sich aber an einer ganz anderen Stelle: Ich habe ein kleines Menü gebastelt, in dem man durch Eingabe einer Zahl erst einen Infotext zu dem entsprechenden Algoritmus bekommt und anschließend durch die Taste Y eine grafische Simulation (im Grafikmodus bekommt), oder durch &quot;N&quot; wieder ins Hauptmenü zurück kommt und anschließend einen anderen Algorithmus wählen kann. Letzteres funktioniert auch schon fehlerfrei. ABER: Wenn ich nun nicht nur die Infos haben will, sondern auch die Simulation ablaufen lasse und anschließend ins Menü zurückkehre wird nur ein Haufen Schrott ausgegeben. Erstaunlicherweise kann man noch immer Sortieralgorithmen starten, man muss halt nur die Zahl wissen und mit Y bestätigen. Daraus schließe ich, dass es ein reiner Grafikfehler ist.<br />
<br />
Ich habe bereits sämliche in Frage kommenden Befehle einzeln entfernt/ersetzt und überprüft, ob der Fehler weiterhin auftritt. Und bei dieser Suche stellte sich heraus, dass dieser Fehler nur auftritt, wenn der Grafikmodus zwischenzeitlich eingeschaltet war.<br />
<br />
Kennt jamand das Problem und weiß Abhilfe? (Falls es von Bedeutung ist: Ich habe eine ATI Mobility Radeon X1300 als Grafikkarte)<br />
<br />
Viele Grüße und vielen Dank im Vorraus<br />
<br />
<br />
<br />
<br />
PS: Ich habe das Programm mit angehängt. Ich weiß das beim Insertsort noch ein Fehler bei der grafischen Umsetztung drin ist ;) Und auch bei den Infotexten für Bubble- und Insertsort sind vorerst nur Platzhalter drin. Und vorläufig kann man das Programm nur mit Strg+C verlassen, da ich am Schluss noch eine Unendlichschleife habe.]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36541,36541#msg-36541</guid>
      <pubDate>Sun, 15 Jan 2012 18:14:51 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Text wird nach initgraph schwarz angezeigt</title>
      <link>http://www.webplain.de/foren/read.php?1,36536,36540#msg-36540</link>
      <author>Horus</author>
      <description><![CDATA[Ich benutze Free Pascal IDE 2.6.0<br />
Outtext ist schön und gut, dennoch ist das verwenden des anderen Fensters einfacher. Offenbar liegt es am Compiler, da es in anderen Programmen nach Initgraph (oder bei mit Dect;) nicht mehr funktioniert.]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36536,36540#msg-36540</guid>
      <pubDate>Sun, 15 Jan 2012 15:54:01 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Text wird nach initgraph schwarz angezeigt</title>
      <link>http://www.webplain.de/foren/read.php?1,36536,36539#msg-36539</link>
      <author>Verfasser</author>
      <description><![CDATA[Versuch es doch mal mit OutTextXY(x, y : Integer; s : String); ich meine das Writeln im Grafikmodus nicht funktioniert.]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36536,36539#msg-36539</guid>
      <pubDate>Sun, 15 Jan 2012 15:44:58 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Text wird nach initgraph schwarz angezeigt</title>
      <link>http://www.webplain.de/foren/read.php?1,36536,36538#msg-36538</link>
      <author>Samolex</author>
      <description><![CDATA[Hi,<br />
<br />
was für einen Compiler verwendest du?<br />
Bei mir FPC 2.2.4 mit Lazarus funktioiert die Textausgabe in dem Konsolenfenster.<br />
<br />
MfG<br />
Samolex]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36536,36538#msg-36538</guid>
      <pubDate>Sun, 15 Jan 2012 15:44:10 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Text wird nach initgraph schwarz angezeigt</title>
      <link>http://www.webplain.de/foren/read.php?1,36536,36537#msg-36537</link>
      <author>Horus</author>
      <description><![CDATA[Ich vermute, dass es an meinem Pascal liegt, <br />
ein reinstall von [url=http://www.freepascal.org/down/i386/win32-austria.var]Pascal 2.6.0[/url] löste das Problem jedoch nicht...]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36536,36537#msg-36537</guid>
      <pubDate>Sun, 15 Jan 2012 15:39:32 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Text wird nach initgraph schwarz angezeigt</title>
      <link>http://www.webplain.de/foren/read.php?1,36536,36536#msg-36536</link>
      <author>Horus</author>
      <description><![CDATA[Guten Tag,<br />
ich hänge euch ein pascal program an. Es geht um ein kleines Spiel, das ich entwickeln möchte. Allerdings werden alle Texte, die durch Writeln(''); ausgegeben werden 'unsichtbar' im Textfenster angezeigt. Ich kann auch die Textcolor nicht ändern. Was genau ist falsch? Oder wird der Text bei euch angezeigt?<br />
Es müssen übrigens beide Fenster nebeneinander verwendet werden. Eines für texteingabe, das andere Zeichnet stets.<br />
Gruß]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36536,36536#msg-36536</guid>
      <pubDate>Sun, 15 Jan 2012 15:17:04 +0100</pubDate>
    </item>
    <item>
      <title>[Visual Basic] Module mit aussagekräftigen Namen</title>
      <link>http://www.webplain.de/foren/read.php?2,36535,36535#msg-36535</link>
      <author>fenix</author>
      <description><![CDATA[Wie kann man einem VBA-Modul einen Namen 'verpassen', der etwas aussagt über die Aufgaben des Moduls ?<br />
<br />
fragt fenix<br />
<br />
Danke im Voraus für jede Hilfe  :)]]></description>
      <category>Visual Basic</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?2,36535,36535#msg-36535</guid>
      <pubDate>Wed, 04 Jan 2012 17:38:40 +0100</pubDate>
    </item>
    <item>
      <title>[Visual Basic] Re: Wenn ich eine Taste (z.b. F1) drücke soll die tastaur &quot;hallo&quot; eingeben</title>
      <link>http://www.webplain.de/foren/read.php?2,36474,36534#msg-36534</link>
      <author>fenix</author>
      <description><![CDATA[Hallo Helferlein,<br />
Megaan antwortet nicht........<br />
Ob er in den Ferien 'versackt' ist ???<br />
<br />
Leider gibt es immer wieder Hilfesuchende, die nicht mal Zeit finden, kurz zu antworten und 'Danke' zu schreiben, bevor sie sich an die Arbeit machen...<br />
<br />
meint fenix.<br />
<br />
Allen Helfern und Forumsmitgliedern ein<br />
frohes gesundes und erfolgreiches Jahr MMXII   :)]]></description>
      <category>Visual Basic</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?2,36474,36534#msg-36534</guid>
      <pubDate>Wed, 04 Jan 2012 17:34:58 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Flächeninhalt Rechteck</title>
      <link>http://www.webplain.de/foren/read.php?1,36525,36533#msg-36533</link>
      <author>fenix</author>
      <description><![CDATA[Hallo BP92,<br />
hast du prima erklärt !<br />
Offensichtlich ist John in den Weihnachtsferien 'versackt' und/oder kann nicht mehr?<br />
<br />
Leider gibt es immer wieder Hilfesuchende, die nicht mal Zeit finden, kurz zu antworten und 'Danke' zu schreiben, bevor sie sich an die Arbeit machen...<br />
<br />
meint fenix.<br />
<br />
Allen Helfern und Forumsmitgliedern ein <br />
frohes gesundes und erfolgreiches Jahr MMXII   :)]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36525,36533#msg-36533</guid>
      <pubDate>Wed, 04 Jan 2012 17:26:15 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Webplain Project: Konsolen-Adventure</title>
      <link>http://www.webplain.de/foren/read.php?1,36452,36531#msg-36531</link>
      <author>BP92</author>
      <description><![CDATA[Oh, das sollte wohl nur [code]wZ=0[/code] heissen :D<br />
<br />
Hab mir diese Hex() Funktion nur schnell zusammengebastelt, damit ich die Tastencodes besser nachvollziehen kann.<br />
<br />
Die Codepage sollte auch auf 437 gestellt werden, damit die Ecken schoen passen ;)<br />
Hab dazu im Denkpause-Bereich mal eine VGA-Schriftart (9x16) ausfindig gemacht, die man im Konsolenfenster nutzen kann und wo die Zeichen wirklich so aussehen, wie im Vollbild.<br />
<br />
Schoen mal wieder was von dir zu lesen, Horst. :)<br />
<br />
Edit: Bei der ScanKey-Funktion noch mal die Kommentarklammern entfernen! Hab ich erst jetzt gesehen, dann wird auch wirklich nur der Ascii-Code bei den alphanumerischen Tasten zurueckgegeben.<br />
<br />
zu den Tastencodes. Mir ist aufgefallen, dass die TKeyEvent() Methode aus der Unit keyboard fuer die Modifizierer Ctrl und Alt allein (ohne zusaetzliche Taste) keinen Code erzeugt, leider... <br />
<br />
Ich bin am Ueberlegen, ob vielleicht noch eine solide Assembler-Variante als Alternative erstellt werden kann. Nur leider kenn ich mich mit Assembler nicht so gut aus.]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36452,36531#msg-36531</guid>
      <pubDate>Thu, 15 Dec 2011 17:37:12 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Webplain Project: Konsolen-Adventure</title>
      <link>http://www.webplain.de/foren/read.php?1,36452,36530#msg-36530</link>
      <author>Horst</author>
      <description><![CDATA[Hallo,<br />
<br />
sieht bei Dir die Bildschirmausgabe auch so merkwürdig aus?<br />
<br />
Gruß Horst<br />
<br />
[img]http://www.webplain.de/foren/file.php?1,file=2929[/img]<br />
<br />
Edith:<br />
Was ist denn das hier?<br />
Eine word Variable auf kleiner 0 zu testen ist etwas seltsam ;-)<br />
<br />
[code]<br />
FUNCTION Hex(wZ: WORD): STRING;<br />
VAR<br />
  sErg : STRING='$';<br />
  sHilf: STRING='0';<br />
BEGIN<br />
// Ist WORD ist Immer &gt; 0 )<br />
{<br />
  IF (wZ&lt;=0) THEN BEGIN <br />
    Hex:=sErg+sHilf;  EXIT;<br />
  END  (* IF wZ&lt;=0 *)<br />
  ELSE }  <br />
  WHILE (wZ&gt;0) DO BEGIN<br />
    CASE (wZ MOD 16) OF 0..9: STR(wZ MOD 16:1,sHilf);<br />
                        10: sHilf:='A';<br />
                        11: sHilf:='B';<br />
                        12: sHilf:='C';<br />
                        13: sHilf:='D';<br />
                        14: sHilf:='E';<br />
                        15: sHilf:='F';<br />
    END;  (* CASE wZ MOD 16 *)<br />
<br />
    Insert(sHilf,sErg,2);<br />
    wZ:=wZ DIV 16;<br />
  END;  (* WHILE NOT(wZ DIV 16)=0 *)<br />
  Hex:=sErg;<br />
END;  (* Func Hex() *) [/code]]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36452,36530#msg-36530</guid>
      <pubDate>Thu, 15 Dec 2011 13:48:27 +0100</pubDate>
    </item>
    <item>
      <title>[C/C++] Re: void* casten in void* array</title>
      <link>http://www.webplain.de/foren/read.php?8,36520,36529#msg-36529</link>
      <author>Samolex</author>
      <description><![CDATA[Hi,<br />
<br />
ich glaube du hast mich etwas falsch verstaden. Mein Problem liegt nich im Shared-Memory sondern in dem Umwandeln des von shmat zurückgegeben Void* in mein Void* Ringbuffer[MAX]<br />
<br />
Compilermeldung vom gcc<br />
<br />
[code]<br />
gcc -Wall -D_REENRANT fileio.c Aufgabe5.c -lpthread -o Aufgabe5<br />
Aufgabe5.c: In function ‘main’:<br />
Aufgabe5.c:239:3: error: declaration of type name as array of voids<br />
make: *** [Aufgabe5] Fehler 1<br />
[/code]<br />
<br />
Hier die Variablendefinition:<br />
<br />
[code]<br />
void *Ringbuffer[MAX_BUFFER_LEN];             // Ringbuffer<br />
[/code]<br />
<br />
und hier die Zeile 239-242:<br />
<br />
[code]<br />
  if ((Ringbuffer = (void (*)[MAX_BUFFER_LEN])shmat(shmid, 0, 0)) &lt; 0) {<br />
    perror (&quot;shmat&quot;);<br />
    return (1);<br />
  }<br />
[/code]<br />
<br />
Wie muss dass [code]if ((Ringbuffer = [b](void (*)[MAX_BUFFER_LEN])[/b]shmat(shmid, 0, 0)) &lt; 0)[/code] schreiben, damit ich es richtig umwandle...<br />
<br />
<br />
MfG<br />
Samolex]]></description>
      <category>C/C++</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?8,36520,36529#msg-36529</guid>
      <pubDate>Wed, 14 Dec 2011 19:42:13 +0100</pubDate>
    </item>
    <item>
      <title>[C/C++] Re: void* casten in void* array</title>
      <link>http://www.webplain.de/foren/read.php?8,36520,36528#msg-36528</link>
      <author>Anktech.de</author>
      <description><![CDATA[Schau mal hier:<br />
http://openbook.galileocomputing.de/unix_guru/node393.html<br />
<br />
Gruß Anktech]]></description>
      <category>C/C++</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?8,36520,36528#msg-36528</guid>
      <pubDate>Wed, 14 Dec 2011 15:30:06 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Webplain Project: Konsolen-Adventure</title>
      <link>http://www.webplain.de/foren/read.php?1,36452,36527#msg-36527</link>
      <author>BP92</author>
      <description><![CDATA[So Leute,<br />
<br />
ich hab wieder was Neues, undzwar die ganzen Konstanten sind jetzt deklariert, und ein kleines neues Testprogramm zum Spielen haeng ich auch an ;)<br />
<br />
Neueste Version jetzt: 0.93.1<br />
<br />
<br />
Einzige weitere Aenderung: Die Tasten mit Backspace heissen jetzt BkSpc, die anderen Konstantennamen werdet ihr bestimmt wiedererkennen :)]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36452,36527#msg-36527</guid>
      <pubDate>Wed, 14 Dec 2011 13:24:02 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Flächeninhalt Rechteck</title>
      <link>http://www.webplain.de/foren/read.php?1,36525,36526#msg-36526</link>
      <author>BP92</author>
      <description><![CDATA[Hi,<br />
<br />
[quote]wenn ich ein fertiges Programm hätte für den Flächeinhalt als Bsp. würde ich es schneller verstehen[/quote]<br />
darin liegt schon mal der erste Fehler ;)<br />
<br />
Wo liegt also genau dein Problem, wie sieht dein bisheriger Quelltext aus?<br />
<br />
Welche FreePascal Version bzw. IDE verwendest du? Compilereinstellungen?<br />
<br />
1)<br />
Das Grundgeruest fuer ein Programm, damit ueberhaupt irgendwas laeuft:<br />
<br />
[code]<br />
PROGRAM P1;<br />
<br />
BEGIN<br />
END.<br />
[/code]<br />
<br />
2)<br />
Damit man auch ein paar mehr Befehle nutzen kann, nimmt man sog. Units. Eine davon ist z.B. CRT, die einfache Bildschirmein- und ausgaben machen kann<br />
<br />
[code]<br />
PROGRAM P2;<br />
<br />
USES<br />
  CRT;   // das ist eine Unit, die enthaelt Befehle<br />
<br />
BEGIN<br />
  CLRSCR;  // Bildschirm loeschen<br />
  READKEY;  // auf irgendeinen Tastendruck warten<br />
END.<br />
[/code]<br />
<br />
3)<br />
Unterprogramme macht man immer mit Prozeduren und Funktionen, das sind Routinen, die man dann spaeter wieder aufrufen kann, ohne den Code nochmal schreiben zu muessen, Beispiel:<br />
<br />
[code]<br />
PROCEDURE Schreibe(bX, bY: BYTE; sText: STRING);<br />
BEGIN<br />
  GOTOXY(bX,bY);   // Der Befehl stammt auch aus der Unit CRT<br />
  WRITE(sText);<br />
END;  (* Proc Schreibe() *)<br />
[/code]<br />
<br />
aufgerufen wird eine Prozedur dann so:<br />
<br />
[code]<br />
PROGRAM P3;<br />
<br />
USES<br />
  CRT;<br />
<br />
PROCEDURE Schreibe(bX, bY: BYTE; sText: STRING);<br />
BEGIN<br />
  GOTOXY(bX,bY);   // Der Befehl stammt auch aus der Unit CRT<br />
  WRITE(sText);<br />
END;  (* Proc Schreibe() *)<br />
<br />
VAR<br />
  stelleX, stelleY: BYTE;  // Ganzzahl-variablen, Byte geht von 0 bis 255<br />
  sZeile: STRING;   // Variable fuer Zeichenketten, also Woerter<br />
<br />
BEGIN<br />
  CLRSCR;<br />
  stelleX:=1;  stelleY:=2;   // so weist man &quot;Variablen&quot; Werte zu<br />
  Schreibe(stelleX,stelleY,'Programm, dass etwas berechnet...');   // Aufruf der Prozedur mit Parametern<br />
<br />
  READKEY;<br />
END.<br />
[/code]<br />
<br />
4)<br />
Zum Flaechenberechnen: Du hast in der 5. Klasse aufgepasst? :) A=a*b bzw. [code]Flaeche:=SeiteA*SeiteB;[/code]<br />
eine Variable fuer die Flaeche vereinbaren, dann noch zwei fuer die Kanten, macht zusammen drei Stueck<br />
[code]<br />
VAR<br />
  Flaeche, SeiteA, SeiteB: REAL;<br />
[/code]<br />
REAL ist ein Kommazahlentyp, immer nur glatte Zahlen ist ja langweilig...<br />
<br />
Wie man Variablen per Tastatur eingibt, geht so:<br />
[code]<br />
  ...<br />
  WRITE('Gib Seite a ein: ');  READLN(SeiteA);  // durch READLN() geht die Tastatureingabe in die Variable rein<br />
  WRITE('Gib Seite b ein: ');  READLN(SeiteB);<br />
[/code]<br />
<br />
<br />
[b]So, nun bist du wieder dran[/b] :)<br />
<br />
Brauchst du noch mehr Beispiele, dann schau mal in meine Sig.]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36525,36526#msg-36526</guid>
      <pubDate>Wed, 14 Dec 2011 00:22:16 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Flächeninhalt Rechteck</title>
      <link>http://www.webplain.de/foren/read.php?1,36525,36525#msg-36525</link>
      <author>John</author>
      <description><![CDATA[Hi,<br />
wir Arbeiten in der Schule zurzeit mit Turbopascal, Jetzt sollen wir zu Hause ein einfaches Programm Programmieren das den Flächeninhalt eines Rechteckes berechnet. Leider blicke ich überhaupt nicht durch. Ich mach das jetzt schon seit Stunden. Überall sind Fehler und ich weis einfach nicht was für welche (Manche Fehler bekomme ich weg, aber viele Sachen versteh ich nicht.) Es Wäre futchtbar nett, wenn mir Jemand einen Link für ein Gutes Tutorial schickt. oder mir ein kleines Einfaches Programm dazu schreibt (Wenn es nicht zulange dauert). Ich benutze FreePascal, aber die Befehle müssten doch alle gleich seien oder? Ich denke, wenn ich ein fertiges Programm hätte für den Flächeinhalt als Bsp. würde ich es schneller verstehen, aber mit meinem wissen komme ich zurzeit nicht weiter.]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36525,36525#msg-36525</guid>
      <pubDate>Tue, 13 Dec 2011 23:30:01 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Webplain Project: Konsolen-Adventure</title>
      <link>http://www.webplain.de/foren/read.php?1,36452,36524#msg-36524</link>
      <author>BP92</author>
      <description><![CDATA[ich hab das mit den Konstanten fast fertig, morgen haeng ich mal die erweiterte conio32 an.<br />
<br />
Das einzige, was an den bisherigen Quellcodes geaendert werden muss, ist dass die Variable, die den Wert von ScanKey bekommt, statt WORD ein DWORD sein muss.]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36452,36524#msg-36524</guid>
      <pubDate>Tue, 13 Dec 2011 22:44:02 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Webplain Project: Konsolen-Adventure</title>
      <link>http://www.webplain.de/foren/read.php?1,36452,36523#msg-36523</link>
      <author>Flachsmeer</author>
      <description><![CDATA[Hi,<br />
<br />
vielleicht sollten wir dann bezüglich der Tasten auf die Unit Windows schwenken. Damit kann man nämlich auch mehrere Tasten gleichzeitig drücken und somit eine Funktion für einen Array basteln.<br />
Ich weiß nicht, inwiefern das vorteilhaft sein wird, kann mir aber vorstellen, dass es durchaus Vorteile hätte, wenn man auch mehrere Tasten gleichzeitig drücken könnte (laufen und kämpfen gleichzeitig zB.).<br />
Ich probier mal eben kurz herum, ob ich da auf die schnelle was zusammen bekomme.<br />
<br />
Das ganze über aussagekräftige Konstanten zu machen wäre natürlich auch eine Lösung :)<br />
<br />
[Edit]<br />
Trag ich morgen nach...sollte dann soweit funktionieren. Funtioniert nun schon, allerdings mit einem initialisierten Windows-Fenster^^ Das muss noch weg um es für die Konsole nutzen zu können.<br />
<br />
Lg<br />
Enno]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36452,36523#msg-36523</guid>
      <pubDate>Tue, 13 Dec 2011 21:20:04 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Webplain Project: Konsolen-Adventure</title>
      <link>http://www.webplain.de/foren/read.php?1,36452,36522#msg-36522</link>
      <author>BP92</author>
      <description><![CDATA[Hi zusammen,<br />
<br />
ich hab die letzten Tage mal rumprobiert und festgestellt, dass es schon moeglich ist, die Tastenkombinationen eindeutig zu unterscheiden, von daher waere das Definieren von Konstanten auch kein Problem, aber halt muss der Wertebereich von WORD auf DWORD oder LONGWORD, 4 Byte Typ, oder wie das nu heisst... geaendert werden.<br />
<br />
Die werden dann einmal in der conio32 mit aussagekraeftigem Namen deklariert und sind dann verfuegbar. Welchen Wert die dann genau haben, braucht man dann nicht jedesmal extra nachschlagen ;)<br />
<br />
Es ist aber halt nicht moeglich, zwei Tasten wie z.B. a und w gleichzeitig zu druecken, oder Pfeil links und oben, das ging mit der CRT auch schon nicht, deshalb funktioniert das mit dem BOOLEAN-Array, obwohl ein tolle Idee, leider auch nicht, da man erst eine Taste wieder loslassen muss...<br />
<br />
Ich denke aber, das wird auch so gehen :)<br />
<br />
<br />
Die Tastenscancodes sind auch auf meinen Rechnern alle gleich, getestet hab ichs auf meinem 500er Pentium III und Windows 2000 sowie mit meinem 3,4GHz Pentium 4 und Windows 7 32Bit. Die Codes stellt ja TranslateKeyEvent() zur Verfuegung und das kriegt es ja vom Tastaturtreiber. Da sollte es also keine Probleme geben :D]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36452,36522#msg-36522</guid>
      <pubDate>Tue, 13 Dec 2011 20:32:54 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Webplain Project: Konsolen-Adventure</title>
      <link>http://www.webplain.de/foren/read.php?1,36452,36521#msg-36521</link>
      <author>Flachsmeer</author>
      <description><![CDATA[Moin, <br />
<br />
ich denke dass wir uns in der Hinsicht erst einmal Gedanken dazu machen sollten, welche Tastenkombinationen wir überhaupt benötigen. Ich denke nicht, dass Funktionstasten wirklich häufig notwendig sind, eine relativ simple Steuerung wäre schließlich schon vorteilhaft.<br />
<br />
Daher könnte man sicherlich am einfachsten Konstanten definieren, wie es für einfache Tasten in der ConIo ja auch schon welche gibt.<br />
<br />
Ich habe mich nun noch nicht wirklich mit den Funktionen aus der Unit Keyboard auseinandergesetzt. Wie sieht es denn aus, wenn man beispielsweise eine Pfeiltaste drückt (zum laufen oä.) und dann noch irgendeinen Buchstaben oder gar mehrere. Wird dann auch eine einzige Zahl zurückgegeben, aus der man die ganzen einzelnen Tasten irgendwie zurückrechnen muss?<br />
<br />
Sollte das so sein wäre mein Vorschlag, dass wir dazu eine Funktion entwickeln, die eben den zurückgelieferten Wert aus der Unit auswertet und einen Boolean-Array (sagen wir mal 0..255 für den gesamten ASCII-Code) entsprechend 'füllt'. Die Funktion würde dann alle gedrückten Tasten auf true setzen. Bei der Kombination &quot;strg+a+1&quot; würden dann beispielsweise die Elemente [017] [097] und [049] auf true gesetzt sein. Ein solcher Array ist in der Auswertung wie ich finde ziemlich einfach handhabbar.<br />
<br />
Lg<br />
Enno]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36452,36521#msg-36521</guid>
      <pubDate>Tue, 13 Dec 2011 17:24:51 +0100</pubDate>
    </item>
    <item>
      <title>[C/C++] void* casten in void* array</title>
      <link>http://www.webplain.de/foren/read.php?8,36520,36520#msg-36520</link>
      <author>Samolex</author>
      <description><![CDATA[Hi,<br />
<br />
ich habe folgende Dekleration:<br />
[code]<br />
  void *Ringbuffer[MAX_BUFFER_LEN];<br />
[/code]<br />
<br />
nun möchte ich mit mehreren processn auf dieses Array zugreifen, das passiert mit shared memory.<br />
nun gibt mir die Funktion [code]shmat[/code] einen void* zurück.<br />
<br />
mein Problem ist es dieses Void* in obrige definiton zu casten.<br />
<br />
[code]<br />
  Ringbuffer = (void *[MAX_BUFFER_LEN])shmat(shmid, 0, 0)<br />
[/code]<br />
<br />
wie kann ich jetzt meinen Ringbuffer mit den void* von shmat verbinden?<br />
<br />
MfG<br />
Samolex]]></description>
      <category>C/C++</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?8,36520,36520#msg-36520</guid>
      <pubDate>Tue, 13 Dec 2011 11:18:49 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: laenge eines strings ermitteln</title>
      <link>http://www.webplain.de/foren/read.php?1,36504,36519#msg-36519</link>
      <author>alex78</author>
      <description><![CDATA[cool. danke vielmals]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36504,36519#msg-36519</guid>
      <pubDate>Sun, 11 Dec 2011 22:13:18 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Webplain Project: Konsolen-Adventure</title>
      <link>http://www.webplain.de/foren/read.php?1,36452,36518#msg-36518</link>
      <author>BP92</author>
      <description><![CDATA[die normalen alphanumerischen Tastencodes bleiben ja weiterhin so, wie sie sind.<br />
<br />
Nur fuer die Funktionstasten wirft das GetKeyEvent() halt so grosse Zahlen von 33000000 aufwaerts raus, wahrscheinlich alle 4 Bytes des Records mit AND und SHL zusammengebacken.<br />
Da der WORD-Typ das nicht mehr fasst, bleibt nur, eine geeignete Umkodierung zu ueberlegen...]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36452,36518#msg-36518</guid>
      <pubDate>Sun, 11 Dec 2011 21:06:34 +0100</pubDate>
    </item>
    <item>
      <title>[Turbo Pascal] Re: Webplain Project: Konsolen-Adventure</title>
      <link>http://www.webplain.de/foren/read.php?1,36452,36517#msg-36517</link>
      <author>Samolex</author>
      <description><![CDATA[Hi,<br />
<br />
ich denke es ist sinnvoll, wenn die ConIo so erweitert wird, dass wir so vile Tastenkombiationen wie nötig/möglich abfragen können.<br />
<br />
MfG<br />
Samolex]]></description>
      <category>Turbo Pascal</category>
      <guid isPermaLink="true">http://www.webplain.de/foren/read.php?1,36452,36517#msg-36517</guid>
      <pubDate>Sat, 10 Dec 2011 23:02:44 +0100</pubDate>
    </item>
  </channel>
</rss>

