أرجوا المساعدة

الموضوع في 'لغات البرمجة' بواسطة ابن حزم الأندلسي, بتاريخ ‏7 أوت 2007.

حالة الموضوع:
مغلق
  1. ابن حزم الأندلسي

    ابن حزم الأندلسي عضو فعال

    إنضم إلينا في:
    ‏27 جويلية 2007
    المشاركات:
    599
    الإعجابات المتلقاة:
    1.702
      07-08-2007 14:34
    :besmellah1:

    السلام عليكم

    إخواني الكرام
    أنا أريد أن أستعمل unit graph في برنامج turbo pascal
    ورغم أنه لدي unit graph فإنه لايقبل جملة استخدامها
    فماذا أفعل
     
  2. Tuni23

    Tuni23 عضو فعال

    إنضم إلينا في:
    ‏17 جويلية 2007
    المشاركات:
    344
    الإعجابات المتلقاة:
    16
      07-08-2007 17:29
    كود (text):

    Procedure CloseGraph;       Close graphic mode     
    Procedure DetectGraph(var grDriver, grMode:integer);        Detect graphic setings  
    Function GetGraphMode:integer       Detect graphic driver  
    Function GetGraphmode:integer       Detect graphic mode    
    Function GetMaxMode:integer         detect maximal graphical mode  
    Function GetModeName:string       Get graphical mode name  
    Procedure GetModeRange(grDriver: integer; var LoMode, HiMode:integer);      Detect minimal and maximal mode    
    Procedure GraphDefaults     Turn graph to dafaults  
    Function GraphErrorMsg(ErrorCode: integer): string  Graphical error     Code with GraphResult
    Function GraphResult: integer   Detect graphical error  
    Procedure InitGraph (var grDriver, grMode:integer; PathToDriver:string)     Turn on graphical mode  
    Function InstallUserDriver(Name: string; AutoDetectPtr: Pointer): intger    Instal graphical driver    
    Procedure RegisterBGIdriver(driver: pointer): integer;  Instla BGI driver  
    Procedure RestoreCrtMode;   Restore text mode  
    Procedure SetGraphMode (grMode: integer);   Turn on another graphical mode  
    Screen and windows
    Procedure ClearDevice;  Clear screen and turn option to defaults    
    Procedure ClearViewPort;    clear screen    
    Function GetMaxX:integer    Give maximal screen cordinates  
    Function GetMaxY    
    Function GetBkColor:word    Detect background color    
    Procedure GetViewSettings(var ViewPort: ViewPortType)   Detect window options    ViewPortType
    Procedure SetBkColor(Color:word)    Set background color    
    Procedure SetActivePage(Page: word)     Set active page    
    Procedure SetVisualPage( Page:word)     Set visual page    
    Procedure SetViewPort(x1,y1,x2, y2:integer;Clip:boolean);   Set screen visual size  
    Colors
    Function GetColor:word  Get color   Set with  SetColor
    Procedure GetDefaultPalette( var Palette:PaletteType);  Set default palette    
    Function GetMaxColor:word   Detect maximal color    
    Procedure GetPalette(var Palette: PaletteType);     Detect which palete is active  
    Function GetPaletteSize:word;   Detect how many colors in palette  
    Procedure SetAllPalette(var Palette: PaletteType)   Set all palette colors  
    Procedure SetColor(Color:word)  Set Color  
    Procedure SetPalette(ColorNum, Color:word)  Isert new color in palette  
    Procedure SetRGBPalette(ColorNum, RedValue,GreenValue, BlueValue: word)     Insert new color in palette from RGB    

    Pointers
    Function GetX:integer   Give x cordinates  
    Function GetY:integer   Give y cordinates  
    Procedure MoveTo(X:integer;Y: integer)  Move cursor    
    Procedure MoveRel(X:integer.Y: integer);    Move cursor    
    Fill and others
    Procedure FloodFill(X,Y:integer; ColorBorder:word)  Fill    
    Procedure GetFillPattern(var FillPattern:FillPatternType)   Detect fill pattern    
    Procedure GetFillSettings(var Fillinfo:FillSettingsType);   Detect fill settings    
    Procedure GetLineSettings(var LineInfo:LineSettingsType)    Detect line settings    
    Procedure SetGraphBufSize( size:word)   Replace graph buffer size  
    Procedure SetFillPattern(Pattern: FillPatternType;color:word)   Set fill pattern    
    Procedure SetFillStyle(Pattern,Color: word)     Set fill style  
    Procedure SetLineStyle(lineStyle, Pattern, Thickness:word)  Set line style  
    Shapes
    Procedure Arc(x,y:integer; StartAngle,EndAngle,R:word)  Arc    
    Procedure Bar(X1,Y1,X2,Y2: integer)     Bar    
    Procedure Bar3D(x1,Y1,X2,Y2: integer; Depth:word; Top:boolean)  Bar 3D  
    Procedure Cirle(X,Y:integer; R:word)    Circle  
    Procedure DrawPoly(NumPoints: word; var PolyPoints);    Draw Poly  
    Procedure Ellipse(X,Y:integer; StartAngle,EndAngle,Rx,Ry:word)  Ellipse    
    Procedure FillEllipse(x,y:integer;Rx, Ry:word)  Draw filed ellipse  
    Procedure FillPoly(NumPoints:word; var PolyPoints)  Fill poly  
    Function Getpixel(x,y:integer):word     Get pixel color    
    Procedure Line (x1,y1,x2,y2:integer)    Line    
    Procedure LineRel(x,y:integer)  Continy line    
    Procedure LineTo(x,y:intger)    Draw lin to...  
    Procedure Rectangle(x1,y1,x2,y2: integer);  Rectangle  
    Procedure Sector(x,y:integer; StartAngle,EndAngle,Rx,Ry:word)   Sector  
    Procedure PieSlice(x,y:integer;StartAngle, EndAngle,R:word)     Filled sector  
    Procedure PutPixel(x,y:integer; Color:word);    Pixel  
    Text
    Procedure GetTextSettings(var TextInfo: TextSettingsType)   Detec text settings     TextSettingsType
    Procedure OutText(Text:string)  Out text    
    Procedure OutTextXY(X,Y:intger;Text: string)    Out text in cordinates  
    Function InstallUserFont(FontFileName: string): integer     Instal new font    
    Procedure RegisterBGIFont(Font: pointer): integer   Instal BGi font    

         

    Procedure SetTextJustify(horiz,vert:word)   Set text justigy    

         

    Procedure SetTextStyle(Font,Direction, CharSize:word)   Set text style  
    Procedure SetUserCharSize(MultX,DivX, MultY,Divy:word)  Set character size  
    Procedure SetWritemode(Writemode: integer)  Set Write mode  
    Function TextHeight(Text:string):integer    Text height    
    Function TextWidth(Text:string):integer     Text width  
    Screen+copy+memory
    Procedure GetImage(X1,Y1,X2,Y2:integer; var BitMAp:pointer)     Copy imge to memory    
    Function ImageSize(X1,Y1,X2,Y2:integer): word   Calculate how many memory need  
    Procedure PutImage(X,Y:integer; var BitMap:pointer; BitBlt:word)    Put image to screen
     
     
  3. ابن حزم الأندلسي

    ابن حزم الأندلسي عضو فعال

    إنضم إلينا في:
    ‏27 جويلية 2007
    المشاركات:
    599
    الإعجابات المتلقاة:
    1.702
      08-08-2007 12:35
    شكرا على الرد و لكن ما هذا؟؟؟

     
  4. programmeur

    programmeur كبار الشخصيات

    إنضم إلينا في:
    ‏21 ماي 2006
    المشاركات:
    2.831
    الإعجابات المتلقاة:
    330
      09-08-2007 21:04
    ما هاذا
    :bang::bang::bang::bang::bang:
     
  5. Tuni23

    Tuni23 عضو فعال

    إنضم إلينا في:
    ‏17 جويلية 2007
    المشاركات:
    344
    الإعجابات المتلقاة:
    16
      10-08-2007 14:39

    tout les fonction de unti graph

    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    :bang::bang::bang:

    :lol::lol:
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة

جاري تحميل الصفحة...