VFP 愛用者社區

garfield · 發表於: 星期一一月 09, 2006 5:34 pm 文章主題:

我是沒用過,
但是否將它改成這樣就正常了.

moutput = ''
moutput = moutput + Chr(27)+"@" &&'啟始印表機
moutput = moutput + Chr(27)+"z"+Chr(1) &&'啟動同步列印
moutput = moutput + Chr(27)+"d"+Chr(4) &&'跳躍4行, 跳過店章處
&& '一般二聯式發票, 除去店章處約可列印21行, 即第5行到第25行
moutput = moutput + "05HHHHHHHHHHHHHHHHHHHHHH" + Chr$(10)
........

thisform.oleComm.Output = moutput

garfield · 發表於: 星期二一月 10, 2006 11:36 am 文章主題:

硬體有時很"龜毛",
它喜歡長一點的, 太短的就不理你,
有時候太快了, 它也不喜歡,
用 inkey(1) 問隔來慢慢送, 保證成功.

固定長度方法有多種,
1.假設你所列印一行的字串皆用 chr$(10)來界定,
可用OCCURS( chr$(10) , 列印的全部字串) 計算出總共要印幾行,
再補足一張發票的長度即可.

2.一行一行的算.
其它的方法自己動動腦吧.

garfield · 發表於: 星期二一月 10, 2006 3:56 pm 文章主題:

&H 表示16進位,
0 ~ 9
ABCDEF = 10 ~ 15

&H0C = 10進位的 0*10 + 12 = 12

這個算法不是在電腦課的第一堂"電腦概念" 就應該教到了,
不可以說"老師沒有教"喔,
連我這個非本科系的都有教啊!

VFP 裡, 你可以用這樣的方式來做轉換
mdec = 0x1234abcd
自動將16進位的數字轉成10進位的數字mdec

lou5102 · 註冊時間: 2005-01-07 文章: 3 第 4 樓

.Mscomm1.Output = Chr(12)

garfield · 發表於: 星期四一月 12, 2006 12:44 pm 文章主題:

Mscomm元件的 .input 是接收資料的地方,
你可以將它的資料讀出來研究一番.

violetlkk · 發表於: 星期五一月 13, 2006 12:10 am 文章主題:

>而一條一條發卻不行...
試試看後面加個 thisform.oleComm.portOpen=.f.

violetlkk · 發表於: 星期五一月 13, 2006 12:31 am 文章主題:

>有錯誤發生時,如何從機器接收某些訊號呢?
instring1=""
thisform.olecontrol1.commport=COMNO
thisform.olecontrol1.portopen=.t.
thisform.olecontrol1.output=chr(27)+"@"
* sensor
thisform.olecontrol1.inputlen=0
thisform.olecontrol1.output=chr(16)+CHR(4)+CHR(1)
I = 1
DO WHILE I < 50000
I = I+1
ENDDO
IF THISFORM.OLECONTROL1.INBUFFERCOUNT > 0
INSTRING1=INSTRING1+THISFORM.OLECONTROL1.INPUT
ENDIF
thisform.olecontrol1.portopen=.f.

IF ASC(INSTRING1)=22
*正常
ELSE
*錯誤
ENDIF

以上是判斷epson t88III 是否可正常列印
中間加回圈是等待機器的回應
如果要判斷缺紙,存根聯或收執聯的燈號,要查一下說明書
基本上有燈號就可查詢
rpu420 和 t88III 是使用相同的指令集

1.問他是否正常
thisform.olecontrol1.output=chr(16)+CHR(4)+CHR(1)
2.回答
ASC(INSTRING1)=22 >> 一切就緒

以上是兩年前玩的,給你參考

violetlkk · 發表於: 星期一一月 23, 2006 12:01 pm 文章主題:

我已經很久沒玩這些東西了
不過確信上述的方法是可行的
>> thisform.olecontrol1.output=chr(16)+CHR(4)+CHR(1)
>>這個是下個epson t88III的command
如果你要使用在rp-u420上
必須要知道rp-u420的command
rp-u420有一個pdf的技術手冊,裡面包含了所有的command
我寄去你的信箱,其他的就要靠你自己了...

garfield · 發表於: 星期一一月 23, 2006 12:17 pm 文章主題:

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 10 樓

可否傳 rp-u420 pdf的技術手冊給我

rueyho@sina.com

hdm · 發表於: 星期五十月 20, 2006 9:13 pm 文章主題:

可以在MSCOMM 的 OnComm事件中讀入資料,範例如下:

*** ActiveX Control Event ***
IF THIS.COMMEVENT=2 && RECEIVE DATA
　IF THIS.INBUFFERCOUNT=0
　　 =MESSAGEBOX("讀入資料　: "+THIS.INPUT)
　ENDIF
ENDIF

hdm · 發表於: 星期日十月 22, 2006 10:39 am 文章主題:

更正:

......................
................
IF THIS.INBUFFERCOUNT > 0
........................
.................

violetlkk · 發表於: 星期二十月 24, 2006 1:12 pm 文章主題:

to goto-dream

你要的檔案在此

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 14 樓

to violetlkk

謝謝你...終於有技術資料了~~