ข่าว IT ล่าสุด
ถูกใจอย่าลืม Like Fanpage
ช่วย ออกบิล พร้อมกับแสดงผลทางเครื่องพิมพ์ โปรแกรมนี้ให้หน่อยครับ PASCAL
แสดงแล้ว 15075 ครั้ง /
กันยายน 03, 2013, 21:22:30
สมาชิกไม่มีภาพ

kosaka999

ออฟไลน์ ( it4x.com )
กระทู้ : 5
คะแนนขอบคุณ : 0
program Restaurant;
uses WinCrt;
var Food : string[30];
var Amount : integer;
var Price, Total : real;
begin
  Write('Input Food: ');      Readln(Food);
  Write('Input Price: ');      Readln(Price);   
Write('Input Amount: ');  Readln(Amount);
  Total := Price * Amount;
   Writeln('Food:', Food);
   Writeln('Price: ', Price:1:2);
   Writeln('Amount: ', Amount);
   Writeln('Total: ', Total:1:2);
end.
คือต้องการออกบิลสิ่งที่เราสั่งไปพร้อมกับแสดงผลทางเครื่องพิมพ์อ่ะครับ
แล้วผมก็ไม่แน่ใจว่าโปรแกรมนี้ถูกหรือยัง ต้องเพิ่มเติมอะไรบ้าง
ช่วยต่อโปรแกรมให้ด้วยครับ  ต้องทำส่ง อาจาย์ก็เรียกเก็บแล้ว ต้องส่งถึงเรียนจบเทอมนี้ครับ


Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กันยายน 04, 2013, 08:04:33
ถ้าผมจำไม่ผิด Pascal จะพิมพ์ได้ผ่าน port LPT1 เท่านั้นนะครับ สมัยนี้ก็หาใช้ยากครับ

สมาชิกไม่มีภาพ

kosaka999

ออฟไลน์ ( it4x.com )
กระทู้ : 5
คะแนนขอบคุณ : 0
กันยายน 04, 2013, 17:55:27
ถ้าผมจำไม่ผิด Pascal จะพิมพ์ได้ผ่าน port LPT1 เท่านั้นนะครับ สมัยนี้ก็หาใช้ยากครับ
ขอแค่ตัวโค้ดที่รันได้ก็พอครับ ไม่ได้ใช้พิมพ์ออกทางเครื่องพิมพ์จริง แค่แสดงผลเฉยๆครับ
ผมต้องทำเป็นรายงานส่งอาจารย์
(นอกเรื่องนิดหน่อยตอนบ่ายเข้าหาเย็นผมเข้าเว็ปไม่ได้ ปรับปรุงเว็บหรอครับ)
(ผมตกใจมาก เพราะผมหวังพึ่งพี่คนเดียว ช่วยหน่อยนะครับ)

Moshi

ออฟไลน์
กระทู้ : 16,996
คะแนนขอบคุณ : 45
it4x สังคมแห่งการเรียนรู้
กันยายน 04, 2013, 22:19:42
ต้องใช้ freepascal นะครับ อ่านมาจากนี้

> http://community.freepascal.org/bboards/message?message_id=704903&forum_id=24082

ยังไม่ได้ทดสอบเพราะตอนนี้ผมใช้ osx แล้วไม่ได้ลง Pascal ไว้ลองครับ

อ้างถึง
PROGRAM sample;
Uses Printer;

VAR
  lst: text;
BEGIN {main program}
  assign (lst, 'lpt1');
  rewrite (lst);
  writeln (lst, 'Test print to printer');
  close (lst)
END. {main program}




ลองหาอ่านข้อมูลเพิ่มเติมดูอีกทีนะครับ

> http://www.freepascal.org/docs-html/rtl/printer/index.html

สมาชิกไม่มีภาพ

kosaka999

ออฟไลน์ ( it4x.com )
กระทู้ : 5
คะแนนขอบคุณ : 0
กันยายน 05, 2013, 21:21:27
ต้องใช้ freepascal นะครับ อ่านมาจากนี้

> http://community.freepascal.org/bboards/message?message_id=704903&forum_id=24082

ยังไม่ได้ทดสอบเพราะตอนนี้ผมใช้ osx แล้วไม่ได้ลง Pascal ไว้ลองครับ

อ้างถึง
PROGRAM sample;
Uses Printer;

VAR
  lst: text;
BEGIN {main program}
  assign (lst, 'lpt1');
  rewrite (lst);
  writeln (lst, 'Test print to printer');
  close (lst)
END. {main program}




ลองหาอ่านข้อมูลเพิ่มเติมดูอีกทีนะครับ

> http://www.freepascal.org/docs-html/rtl/printer/index.html
ขอบคุณมากครับผม
ผมจะลองดูครับ

 

ด้วยฟังค์ชั่น ตอบด่วน คุณสามารถใช้โค๊ดและ เครื่องหมายแสดงอารมณ์ได้ เหมือนการตั้งกระทู้ธรรมดา แต่สามารถทำได้สะดวกกว่า

ระวัง: หัวข้อนี้ไม่มีการอัพเดทมานานถึง 120 วัน

แจ้งเตือน: โพสของคุณจะไม่แสดงจนกว่าผู้ดูแลจะอนุมัติ.
ชื่อ: อีเมล์: