我有一段汇编，如何采集数据并显示，详细请看(100分)

Y

yesky2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-31

• #1

我的汇编是
MOV DX,710H
MOV AL,n ;n=0-7表示通道号
OUT DX,AL ;送通道号
INC DX
A:IN AL,DX ;读取转换过程是否结束状态码
AND AL,AL
JNS A ;判断转换过程是否结束
INC DX
IN AL,DX/
这是一段数据采集卡的汇编，我如何将他嵌入D6中（呵呵，我知道是用ASM），并将得到数据
实时显示出来。
请给出详细的代码

 

M

mywyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-31

• #2

太简单了
function MyGetData(n:byte):byte
asm
PUSHA
MOV DX,710H
MOV AL,n ;n=0-7表示通道号
OUT DX,AL ;送通道号
INC DX
@@A:IN AL,DX ;读取转换过程是否结束状态码
AND AL,AL
JNS @@A ;判断转换过程是否结束
INC DX
IN AL,DX
MOV Result,AL
POPA
end;

 

Y

yesky2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-31

• #3

你能够更详细一点吗？我需要实时采集数据，实时显示。
我的意思是一个一个比较完整的Delphi程序应该包括如何显示

 

M

mywyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-31

• #4

你可以在一个线程里不断的调用这个函数，然后由主线程显示。再详细下去就是
代码了，小第爱莫能助。

 

Y

yesky2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-31

• #5

我对Delphi中使用汇编不熟，我想问问在Delphi中是如何将汇编与高级语言结合的。
例如我要将这些数据绘制出来，应该如何调用得到的数据

 

M

mywyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #6

我上面这个函数就已经屏蔽了汇编,你只管不断的调用这个函数就行了,返回值就是你
采集到的数据。至于怎么显示就是你的事了。

 

Y

yesky2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #7

你程序中的Result是自己定义的吗

 

M

mywyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #8

天哪！你连这个都不知道，你一定是刚学Delphi。
Result是function默认的返回值变量，不需要定义。

 

Y

yesky2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-02

• #9

接受答案