var

Value: Byte;

begin

Value:=Trunc(Value And 255); --->요놈이 어떤 값으로 저장되는지요?



그리고 포트의 번지가 513h는 어떤포트를 가리키는지요?

이 문제의 키는 Font.Height 에 있습니다.

화면이 72 DPI일 경우 Font.Height 의 공식은 아래와 같습니다.

Font.Height = -Font.Size * Font.PixelsPerInch / 72

즉, Font의 Height가 양수이면 Size가 음수, Height가 음수이면 Size가 양수가 되죠. 즉, 아래의 Font.Height := 18은 잘못된 것입니다.

가능하면 Font.Size를 가지고 하는것이 직관적입니다.

프린터의 해상도를 구하는 방법은 이곳 Q&A를 검색하시면 나옵니다.

그것을 가지고 위의 식으로 계산해서 해보세요.



김경수 wrote:

> 안녕하세요. 김경수입니다.

> 인쇄에 대해서 물어볼려구요. 아래와 같이 인쇄를 하면 글자의 크기가 제대로 나옵니다.

> 근데 다시한번 출력하면 무지하게 작은 글자가 출력되는데

> 제가 뭐 설정안해논거 있나해서요.낼까지 해야되는데 고수님들의 조언 부탁드립니다.

> 건강하세요

>

>

> //인쇄 버튼 클릭시

>

> if MessageDlg(ed_1.text+' 영업소의 거래명세서를 인쇄하시겠습니까?',

> mtinformation, [mbYes, mbNo], 0) = mrYes then

> printer.Canvas.font.Height := 18;

> printer.BeginDoc;

> y := 200;

> try

> for i:=1 to sg_1.rowcount-1 do

> if i<9 then

> begin

> begin

> printer.Canvas.TextOut(150,y,sg_1.cells[0,i]); //품명

> printer.canvas.textout(650,y,'box'); //박스단위

> printer.canvas.textout(730,y,sg_1.cells[1,i]); // 박스

> printer.canvas.textout(800,y,sg_1.cells[2,i]); //수량

> printer.canvas.textout(850,y,sg_1.cells[3,i]); //낱개수량

> printer.canvas.textout(1050,y,sg_1.cells[4,i]); //공급가단가

> printer.canvas.textout(1200,y,sg_1.cells[5,i]); //공급가금액

> y := y+60;

> end;

> if sg_1.rowcount-1<9 then

> begin

> printer.canvas.textout(1200,680,ce_1.text);

> printer.canvas.textout(1200,740,ce_2.text);

> printer.canvas.textout(1200,800,ce_3.text);

> end;

> end

> else

> finally

> printer.enddoc;

> b_next.Click; //나머지 항목의 인쇄

>

> ---끝나기

>

>

간단히 비트연산에 대해 설명을 드리죠.



예를 들어...



1 and 1 은 1 이 됩니다. 이런건 2진수로 보면 더 쉬운데...



1을 4 비트로 표현하면 0001 입니다.



0001

and 0001

--------

0001



비트중에서 1 과 1 을 and 연산하면 1 이되고

비트중에서 1 과 0 을 and 연산하면 0 이되고

비트중에서 0 과 1 을 and 연산하면 0 이되고

비트중에서 0 과 0 을 and 연산하면 0 이되고..



즉! 두 and 연산을 하는 두비트가 둘다 1 이면 1 이 되는겁니다... -.-;;



예를 더 들면 대개 곱하기 연산을 할때..



a := 2 * 1;



을 쓰는것 보다는 비트연산의 하나인 shl 을 쓰면 더 빠릅니다.



a := 2 shl 1;



아래의 경우 제가 보기에는...



Value 는 1바이트고 2진수로 8비트죠.

255 도 1바이트고 2진수로 8비트죠.



예를 들어.....



Value := 255;

Value := Value and 255; 하면 결과는 255 입니다.



11111111

and 11111111

------------

11111111 => $FF => 255



아래것은 아마도 값이 안변하지 않을까 합니다. 그런데 Trunc 함수가 들어가서... 어떻게 될지는....바이트의 계산인데 Trunc 는 안써도 될것 같은데...



1 and 255 는 1 입니다.

100 and 255 는 100 입니다.(단 한바이트($FF) 를 넘지 않을때)

255 and 255 는 255 고요.





박성훈 께서 말씀하시기를...

> var

> Value: Byte;

> begin

> Value:=Trunc(Value And 255); --->요놈이 어떤 값으로 저장되는지요?

>

> 그리고 포트의 번지가 513h는 어떤포트를 가리키는지요?

안녕하세요. 김경수입니다.

에구 size로 하니까 아래와 같은 문제가 없어지더군요.

답변 감사드립니다. 기분 조타..^_^

그럼 건강하세요



이정욱 wrote:

> 이 문제의 키는 Font.Height 에 있습니다.

> 화면이 72 DPI일 경우 Font.Height 의 공식은 아래와 같습니다.

> Font.Height = -Font.Size * Font.PixelsPerInch / 72

> 즉, Font의 Height가 양수이면 Size가 음수, Height가 음수이면 Size가 양수가 되죠. 즉, 아래의 Font.Height := 18은 잘못된 것입니다.

> 가능하면 Font.Size를 가지고 하는것이 직관적입니다.

> 프린터의 해상도를 구하는 방법은 이곳 Q&A를 검색하시면 나옵니다.

> 그것을 가지고 위의 식으로 계산해서 해보세요.

>