Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: PORT - Okuma ve Yazma  (Okunma sayısı 2531 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Delphi 2 Level 4
  • ****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
PORT - Okuma ve Yazma
« : 13 Ekim 2005 19:47:05 »
Kod:  (Unknown Language)
  1. Procedure Port_Read;
  2.  
  3. Var
  4.  
  5.    Port: TextFile;
  6.  
  7.    x: Char;
  8.  
  9.  
  10.  
  11. Begin
  12.  
  13. Assign(Port, 'LPT1');
  14.  
  15. Rewrite(Port);
  16.  
  17. Read(Port, 'AS5', #13);
  18.  
  19. Close(Port);
  20.  
  21. End;






Kod:  (Unknown Language)
  1. Procedure Port_Write;
  2.  
  3. Var
  4.  
  5.    Port: TextFile;
  6.  
  7.    x: Char;
  8.  
  9.  
  10.  
  11. Begin
  12.  
  13. Assign(Port, 'LPT1');
  14.  
  15. Rewrite(Port);
  16.  
  17. Write(Port, 'AS5', #13);
  18.  
  19. Close(Port);
  20.  
  21. End;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::
Sayfa: [1]   Yukarı git
« önceki sonraki »