by iwao » 2005年6月14日(火) 09:42
'メインファイル
'--------------------------MAIN-------------------------------------
Type POINTsyougi
X1 As Byte ' 動かす駒のX座標
Y1 As Byte ' 動かす駒のY座標
X2 As Byte ' 移動した場所駒のX座標
Y2 As Byte ' 移動した場所駒のY座標
M0 As Byte ' 駒移動で成り
End Type
'-------------------------------------------------------------------
Declare Function Sashite Lib "sougi" (xykoma As *POINTsyougi, komaidoudekirubasyo As *POINTsyougi) As Long
Dim xykoma[1000] As POINTsyougi
Dim komaidoudekirubasyo[200] As POINTsyougi
xykoma[0].X1=6
xykoma[0].Y1=8
xykoma[0].X2=7
xykoma[0].Y2=8
xykoma[0].M0=0
Sashite (xykoma,komaidoudekirubasyo)
'dllファイル
'-------------------------------------------------------------------
Type POINTsyougi
X1 As Byte ' 動かす駒のX座標
Y1 As Byte ' 動かす駒のY座標
X2 As Byte ' 移動した場所駒のX座標
Y2 As Byte ' 移動した場所駒のY座標
M0 As Byte ' 駒移動で成り
End Type
'-------------------------------------------------------------------
Function Export Sashite(xykoma[1000] As POINTsyougi, komaidoudekirubasyo[200] As POINTsyougi) As Long
'
'
Sashite=0
End Function
'-------------------------------------------------------------------
'メインファイル
'--------------------------MAIN-------------------------------------
Type POINTsyougi
X1 As Byte ' 動かす駒のX座標
Y1 As Byte ' 動かす駒のY座標
X2 As Byte ' 移動した場所駒のX座標
Y2 As Byte ' 移動した場所駒のY座標
M0 As Byte ' 駒移動で成り
End Type
'-------------------------------------------------------------------
Declare Function Sashite Lib "sougi" (xykoma As *POINTsyougi, komaidoudekirubasyo As *POINTsyougi) As Long
Dim xykoma[1000] As POINTsyougi
Dim komaidoudekirubasyo[200] As POINTsyougi
xykoma[0].X1=6
xykoma[0].Y1=8
xykoma[0].X2=7
xykoma[0].Y2=8
xykoma[0].M0=0
Sashite (xykoma,komaidoudekirubasyo)
'dllファイル
'-------------------------------------------------------------------
Type POINTsyougi
X1 As Byte ' 動かす駒のX座標
Y1 As Byte ' 動かす駒のY座標
X2 As Byte ' 移動した場所駒のX座標
Y2 As Byte ' 移動した場所駒のY座標
M0 As Byte ' 駒移動で成り
End Type
'-------------------------------------------------------------------
Function Export Sashite(xykoma[1000] As POINTsyougi, komaidoudekirubasyo[200] As POINTsyougi) As Long
'
'
Sashite=0
End Function
'-------------------------------------------------------------------