VFP 愛用者社區

[蔡文華]

如題!!感謝!!

[蔡文華]

如題

[nelsonchuang]

我也有想研究,可是那些機器好像挺貴的...
此外借問一下,你使用他們的函式庫,在開發上,困不困難?
他們的文件說明的清不清楚?
最後可以借問一下嗎?你這是想用在哪種用途上?
如果方便公開說一下的話....

[goto-dream]

數鈔票 比做 錢櫃 好 賺嗎??我也很好奇

[syntech]

我對 "隔空把別人的錢櫃打開" 比較有興趣

[蔡文華]

這是一個紙幣收取機的說明文件:
-------------
驅動程式檔案名稱為'MEIDLL.DLL'.
int mei_play_mode(unsigned char cash_kind, unsigned char receive_byte)
傳回值 = 1 正常
-1 逾時無回應
-2 傳送失敗
cash_kind = 辨識幣種功能開啟 - 1 bytes (此byte不可以設定為"0")
辨識幣種共有1到6個，每個Bit代表每一種辨識幣種，當設定為1時功能開啟。
cash_kind = 1 ，接收百元紙鈔.
receive_byte= 回應 3 byte Data
-----------------------------------------------------------------
原廠提供的VB寫法是
Module1.bas:
Attribute VB_Name = "Module1"

Declare Function mei_play_mode Lib "meidll.dll" (ByVal Cash_Kind As Byte, Receive_Byte As HEX_BODY) As Integer

Type HEX_BODY ' Create user-defined type.
B(20) As Byte
End Type

Form1.frm:
Dim Receive_Byte As HEX_BODY
Dim Cash_Kind As Long
Dim rc As Long

Private Sub Timer1_Timer()
Cash_Kind = 1
rc = mei_play_mode(Cash_Kind, Receive_Byte)
If rc = 1 Then
List1.AddItem Format(Hex(Receive_Byte.B(0)), "00") & " " & Format(Hex(Receive_Byte.B(1)), "00") & " " & Format(Hex(Receive_Byte.B(2)), "00")
End If

---------------------------------------------
請問我使用VFP呼叫該函式時,我應該用什麼型態的變數來取代 receive_byte

declare integer mei_play_mode in "MEIDLL.DLL" integer string, *這裡要用什麼型態接收呢*

[蔡文華]

難道vfp真的不能控制他了嗎 ??

[kalok]

VB能, vfp也應該能, 我對vfp有信心.

[jys]

declare integer mei_play_mode in "MEIDLL.DLL" integer, string
receive_byte =Sapce(20)
mei_play_mode ( 1,@receive_byte )

傳回的值應該會在 receive_byte