دسترسی به حافظه دستگاه ساعت زن

[moferferi]

سلام
ما توی سازمانمون از دستگاه ساعت زن پالیزافزار استفاده میکنیم.
میخوام از طریق سی شارپ به دستگاه وصل بشم و خروجی اون را بگیرم.
طی تماس با شرکت پالیز یه سمپل دادن که با vb6 نوشته شده.و داخلش یه فایلی به نام PalTime.ocx هست.که اونا توی رفرس برنامه اضافه کردم
ولی متاسفانه بلد نیستم با متدهاش کار کنم.کسی هست که بتونه تو این زمینه کمکم کنه؟ آموزش و یا نمونه برنامه.

هزینه ای هم اگه داره با کمال میل قبول میکنم.

[محمد رضا فاتحی]

سمپل به زبان vb در اختیار که دارید از همون متدهاش استفاده کنید و به زبان سی شارپ بازنویسیش کنید...

[moferferi]

با هیچ کانورتوری نتونستم تبدیل به کنم
کد هاش اینه
Private Sub Check1_Click()
Check1.Enabled = False
PalTime1.ReaderOn = Check1.Value
Check1.Enabled = True

End Sub

Private Sub Check2_Click()
Check2.Enabled = False
PalTime1.MonitoringON = Check2.Value
Check2.Enabled = True

End Sub

Private Sub Command1_Click()
PalTime1.SetTime Time
End Sub

Private Sub Command10_Click()
Dim y1 As Byte, m1 As Byte, d1 As Byte, y2 As Byte, m2 As Byte, d2 As Byte
Command10.Enabled = False
PalTime1.BPS = Text1.Text
y1 = Val(Mid(Text4.Text, 1, 2))
m1 = Val(Mid(Text4.Text, 4, 2))
d1 = Val(Mid(Text4.Text, 7, 2))
y2 = Val(Mid(Text7.Text, 1, 2))
m2 = Val(Mid(Text7.Text, 4, 2))
d2 = Val(Mid(Text7.Text, 7, 2))
If PalTime1.GetDataByDate(d1, m1, y1, d2, m2, y2, App.Path + "\aaa.dat") <> 0 Then
MsgBox "ÎØÇ ÏÑ ÏÑíÇÝÊ ÇØáÇÚÇÊ"
End If
MsgBox "ÊÚÏÇÏ " + Str(PalTime1.NumOfRecs) + " ÑßæÑÏ ÏÑíÇÝÊ ÔÏ." + "ÑßæÑÏåÇí ÎÑÇÈ " + Str(PalTime1.DamagedRecs)

Command10.Enabled = True
End Sub

Private Sub Command11_Click()
Dim m1 As Byte, d1 As Byte, m2 As Byte, d2 As Byte
Command11.Enabled = False
PalTime1.BPS = Text1.Text
m1 = Val(Mid(Text9.Text, 1, 2))
d1 = Val(Mid(Text9.Text, 4, 2))

m2 = Val(Mid(Text8.Text, 1, 2))
d2 = Val(Mid(Text8.Text, 4, 2))

PalTime1.SetDayLight d1, m1, d2, m2
Command11.Enabled = True

End Sub

Private Sub Command12_Click()
PalTime1.SetCode4 Text10.Text
End Sub

Private Sub Command13_Click()
PalTime1.SendMsg Text12.Text, Mid(Text11.Text, 17) + Mid(Text11.Text, 1, 16)
End Sub

Private Sub Command14_Click()
Dim aaa(210) As Byte
For i = 0 To 6
For j = 0 To 9
aaa(i * 30 + j * 3) = j + 12
aaa(i * 30 + j * 3 + 1) = 0
aaa(i * 30 + j * 3 + 2) = 3
Next j
Next i


PalTime1.SetAlarm aaa
End Sub

Private Sub Command15_Click()
PalTime1.SetCode10 Text13.Text

End Sub

Private Sub Command16_Click()
PalTime1.TelNum = Text14.Text
Form2.Show
PalTime1.Dial
Unload Form2
End Sub

Private Sub Command17_Click()
PalTime1.Hangup
End Sub

Private Sub Command2_Click()
Command2.Enabled = False
PalTime1.BPS = Text1.Text
If PalTime1.GetData(App.Path + "\aaa.dat") <> 0 Then
MsgBox "ÎØÇ ÏÑ ÏÑíÇÝÊ ÇØáÇÚÇÊ"
End If
MsgBox "ÊÚÏÇÏ " + Str(PalTime1.NumOfRecs) + " ÑßæÑÏ ÏÑíÇÝÊ ÔÏ." + "ÑßæÑÏåÇí ÎÑÇÈ " + Str(PalTime1.DamagedRecs)
Command2.Enabled = True
End Sub

Private Sub Command3_Click()
PalTime1.ResetMem
End Sub

Private Sub Command4_Click()
PalTime1.CommPort = Val(Text2.Text)
PalTime1.BPS = Text1.Text

End Sub

Private Sub Command5_Click()
PalTime1.SetDate Text3.Text, 7
End Sub

Private Sub Command6_Click()
Command6.Enabled = False
PalTime1.BPS = Text1.Text
If PalTime1.GetDataBuff(App.Path + "\aaa.dat") <> 0 Then
MsgBox "ÎØÇ ÏÑ ÏÑíÇÝÊ ÇØáÇÚÇÊ"
End If
MsgBox "ÊÚÏÇÏ " + Str(PalTime1.NumOfRecs) + " ÑßæÑÏ ÏÑíÇÝÊ ÔÏ." + "ÑßæÑÏåÇí ÎÑÇÈ " + Str(PalTime1.DamagedRecs)
Command6.Enabled = True
End Sub

Private Sub Command7_Click()
MsgBox PalTime1.TestConnection
End Sub

Private Sub Command8_Click()
PalTime1.SetMainGroup Val(Text5.Text)
PalTime1.SetSubGroup Val(Text6.Text)
End Sub


Private Sub Command9_Click()
Dim mVar As Variant, i, mstat As TStattype
Command9.Enabled = False
mVar = PalTime1.GetDeviceProperties
mstat = ConvertStat(mVar)
'Debug.Print "******************"
'For i = 2 To 56 Step 2
' Debug.Print i, Hex(mVar(i))
'Next i
Text15.Text = mstat.mHour
Text16.Text = mstat.mMin
Text17.Text = mstat.mDayOfWeek
Text18.Text = mstat.mYear
Text19.Text = mstat.mMon
Text20.Text = mstat.mDay
Text21.Text = mstat.mDeviceNum
Text22.Text = mstat.mCards
Text23.Text = mstat.mRam
Text24.Text = mstat.mGroup1
Text25.Text = mstat.mGroup2
Text26.Text = mstat.mVKHcode
Text27.Text = mstat.mBarcodeStat
Text28.Text = mstat.mLastClearMon + "/" + mstat.mLastClearDay
Text29.Text = mstat.mKeyboardStat
Text30.Text = mstat.mSumDay
Text31.Text = mstat.mSumMon
Text32.Text = mstat.mWinDay
Text33.Text = mstat.mWinMon
Text34.Text = mstat.mMorakhasiCards
Text35.Text = mstat.mMamooriatCards
Text36.Text = mstat.mGozareshCards
Text37.Text = mstat.mVoroodCards
Text38.Text = mstat.mKhoroojCards
Command9.Enabled = True

End Sub

Private Sub Form_Load()
Text3.Text = sdate
Text2.Text = PalTime1.CommPort
End Sub

Private Sub PalTime1_DataReceived(mRStr As Variant)
Dim mLen, i
mLen = LenB(mRStr)
For i = 0 To mLen - 1
Debug.Print Hex(mRStr(i))
Next
End Sub