Pascal Graphics

Συζητήσεις σχετικές με την Delphi και την πρόγονη της Pascal

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
Dalton
Δημοσιεύσεις: 58
Εγγραφή: 08 Μάιος 2012 11:14
Τοποθεσία: Αθήνα
Επικοινωνία:

Pascal Graphics

Δημοσίευση από Dalton » 16 Οκτ 2014 23:25

The famous piece of code, used to initialise the graphics in Turbo Pascal (NOT Dev-PASCAL! Mind you! Dev-Pascal does not accept the graph driver and graph mode be declared as integer values. If you have Dev-Pascal then change all the variable types of the 'gd,gm' to smallint! 'Gd, Gm : Smallint;') is shown below:
www.pascal-programming.info/lesson8.php

Κώδικας: Επιλογή όλων

Program Lesson8_Program1;
Uses Crt,Graph;
Var GraphicsDriver, GraphicsMode,
    ErrCode : Integer; 
  {two var's are needed for initialisation}
Begin
 Writeln('Initialising Graphics, please wait...');
 GraphicsDriver := Detect;
 InitGraph(GraphicsDriver, GraphicsMode,'');
 {IMPORTANT, read the following or 
  otherwise graphics will not work!! ;)}
 (*between the inverted commas,
   type in the path of the graphics BGI file
  (usually 'C:\TP\BGI'),
   OR
   change the dir in the file menu (PRESS Alt+F) 
   and roll down your mouse pointer to the 'change dir' 
   menu; then either type the path to the BGI file, 
   or go to C: -> TP -> BGI*)
 ErrCode := GraphResult;
 If GraphResult <> grOK then &#123; <> means 'not equal to' &#125;
  Begin
   ClrScr;
   Writeln&#40;'Graphics error occured&#58; ',
            GraphErrorMsg&#40;ErrCode&#41;&#41;;
   Writeln&#40;'If a file not found error is displayed above'&#41;;
   Writeln&#40;'then, change the dir from the current'&#41;;
   Writeln&#40;'location to C&#58;\ -> TP -> BGI, '+
          +'from the file menu!'&#41;;
   Readln;
   Halt&#40;1&#41;;
  End Else
  Begin
   Randomize; 
   SetColor&#40;Random&#40;15&#41; + 1&#41;; &#123;Set text colour&#125;
   &#123;Output text at 20 pixels from the top of the screen, 
    and 20 other from the left side of the screen.&#125;
   OutTextXY&#40;20,20,'Welcome to the new generation 
                    of Pascal Programming&#58;'&#41;;
   OutTextXY&#40;20,30,'Pascal Graphics!!'&#41;;
   OutTextXY&#40;25,70,'You will learn more 
                    graphics procedures and'&#41;;
   OutTextXY&#40;25,80,'functions, later in this lesson &#58;-&#41;'&#41;;
   Readln;
  End; 
 CloseGraph;
End.
Πώς αυτό μπορώ να το κάνω να δουλέψει σε Bloodshed Dev-Pascal?
Άλλαξα ότι έπρεπε να αλλάξω αλλά Line:38 Col:20 λέει: Fatal: String exceeds line

Άβαταρ μέλους
Alice_Cooper
Δημοσιεύσεις: 1948
Εγγραφή: 11 Μάιος 2007 00:33
Τοποθεσία: Ioannina
Επικοινωνία:

Pascal Graphics

Δημοσίευση από Alice_Cooper » 17 Οκτ 2014 10:49

sthn OutTextXY aferese opou exei alagh grammhs
dld to

Κώδικας: Επιλογή όλων

   OutTextXY&#40;20,20,'Welcome to the new generation
                    of Pascal Programming&#58;'&#41;; 
na ginei

Κώδικας: Επιλογή όλων

   OutTextXY&#40;20,20,'Welcome to the new generation of Pascal Programming&#58;'&#41;; 
to idio kai gia ta alla

Άβαταρ μέλους
Dalton
Δημοσιεύσεις: 58
Εγγραφή: 08 Μάιος 2012 11:14
Τοποθεσία: Αθήνα
Επικοινωνία:

Pascal Graphics

Δημοσίευση από Dalton » 17 Οκτ 2014 11:21

Ευχαριστώ!

Απάντηση

Επιστροφή στο “Delphi, Pascal”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 2 επισκέπτες