Comment envoyer l'Atr dans un démo par un Season2

[xena90]

Ah, ça y est, j'ai réussi!!!

Je l'ai testé sur un démo Aston Simba 202s en 11520 bauds/s, quand j'ai le signal DCD par "00", je balance entièrement l'Atr et c'est ok.


RX Data :
RX Data :
RX Data :
RX Data :
RX Data : 00
TX Data : 3B F7 11 00 01 40 96 70 70 07 0E 6C B6 D6 90 00
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data :
RX Data : C1 0E 00 00 08
Script D:\WinExplorer\Script\Test Atr Seca sur Aston Simba 202s v1.20.xvb Transmission Completed


Le script:
Sc.ClearOutputWindow
Const SND_SYNC = 0
Const SND_ASYNC = 1
Dim B1,B2,B3,B4,B5
Dim Atr0
Atr0= "3BF711000140967070070E6CB6D69000"
Sub Main()
Season2
Sc.PlaySound "Ding.wav", SND_ASYNC
Sc.Delay(1000)
EnvAtr0
Do
Sc.Delay(50)
Lecture
TestLong
Test00
TestIns
If (B1) = 1 Then
Exit Sub
End If
Loop
End Sub
Function Lecture()
B2 = Empty
B3 = Empty
B4 = Empty
B2 =Sc.Read(sc.bytesinbuffer)
For B3 = 0 to (B2-1)
B4 = B4 & HexString(Sc.GetByte(B3),2)
Next
End Function
Function TestLong()
If (B2) = 16 Then
Sc.PlaySound "Exclamation.wav", SND_ASYNC
End If
End Function
Function Test00()
If (B4) = "00" Then
EnvAtr0
End If
End Function
Function TestIns()
If (B4) = "C10E000008" Then
Sc.PlaySound "Exclamation.wav", SND_ASYNC
B1 = 1
End If
End Function
Function EnvAtr0()
Sc.Write Atr0
End Function
Function Season2()
Wx.ClosePort
wx.CommPort="Com1:"
wx.BaudRate=11520
wx.ResetBaudRate=11520
wx.ResetDelay=0
wx.ByteDelay=100
wx.RxByteTimeout=0
wx.Parity=2
wx.StopBits=2
wx.FlushBeforeWrite=0
wx.FlushEchoByte=0
wx.DTRControl=0
wx.RTSControl=1
wx.ResetMode=0
wx.IgnoreTimeouts=0
wx.ResetAfterTimeout=0
wx.ResetLine=1
wx.LogTransactions=0
wx.DisplayUSW=0
wx.DisplayFuse=0
wx.ByteConvention=1
Wx.OpenPort
End Function
Function HexString(Number,Length)
Dim RetVal
Dim CurLen
RetVal=Hex(Number)
CurLen=Len(RetVal)
If CurLen<Length Then
RetVal=String(Length-CurLen,"0") & RetVal
End If
HexString=RetVal
End Function


---------------------------------------------------

Maintenant je teste cela sur un démo Off,

A suivre...

[xena90]

Et voilà, c'est Ok sur démo Off HD + v10

RX Data :
RX Data :
RX Data :
RX Data : C1 3C 02 5C 5C
TX Data : C1 3C 02 5C 5C
RX Data : 3C
TX Data : 3C
RX Data : 00 31 B0 F1 B8 60 3B FA BB 1B 93 FB 0D 97 B5 D1
34 96 8D 10 1B F6 DA D8 84 C7 52 03 1B CA 6A 56
FB FE 0C 7F D1 FB E6 6B 55 0D B6 9F D2 82 29 6D
2A F3 88 87 68 AF 34 D3 84 39 95 3B 5A D7 FB 67
62 24 0C B2 2C BF A3 89 35 FC 91 09 72 D3 F2 93
BD 28 CB 95 39 30 22 A4 71 4A 28 86
TX Data : 00 31 B0 F1 B8 60 3B FA BB 1B 93 FB 0D 97 B5 D1
34 96 8D 10 1B F6 DA D8 84 C7 52 03 1B CA 6A 56
FB FE 0C 7F D1 FB E6 6B 55 0D B6 9F D2 82 29 6D
2A F3 88 87 68 AF 34 D3 84 39 95 3B 5A D7 FB 67
62 24 0C B2 2C BF A3 89 35 FC 91 09 72 D3 F2 93
BD 28 CB 95 39 30 22 A4 71 4A 28 86
RX Data : 90 00
TX Data : 90 00
RX Data : C1 3A 00 00 10
TX Data : C1 3A 00 00 10
RX Data : 3A 8A 76 E5 E5 1A 04 5E 7C 02 6A AF 1B 12 BE 7D
4D 90 00
TX Data : 3A 8A 76 E5 E5 1A 04 5E 7C 02 6A AF 1B 12 BE 7D
4D 90 00
RX Data : C1 40 01 70 70
TX Data : C1 40 01 70 70
RX Data : 40
TX Data : 40
RX Data : 00 73 8E 16 95 C5 C3 26 C0 84 86 27 56 11 0E 3F
30 6C B8 01 5B 41 60 61 F7 1F 39 35 A2 91 A5 13
D0 A1 C5 D3 71 B5 87 38 6F 2E 6F 9A F6 63 97 22
97 6C C0 9C B5 D1 7E 09 B4 01 4C 30 79 0A 59 05
AD BE 7E 9B 14 6E 70 01 F1 56 57 2C 94 5C 29 18
71 07 F3 7D 82 3D 87 DF 7A D4 F5 C0 05 7F 5A 6C
AC EE 1C 19 88 7F D4 36 41 ED 53 4F AC 68 53 24
TX Data : 00 73 8E 16 95 C5 C3 26 C0 84 86 27 56 11 0E 3F
30 6C B8 01 5B 41 60 61 F7 1F 39 35 A2 91 A5 13
D0 A1 C5 D3 71 B5 87 38 6F 2E 6F 9A F6 63 97 22
97 6C C0 9C B5 D1 7E 09 B4 01 4C 30 79 0A 59 05
AD BE 7E 9B 14 6E 70 01 F1 56 57 2C 94 5C 29 18
71 07 F3 7D 82 3D 87 DF 7A D4 F5 C0 05 7F 5A 6C
AC EE 1C 19 88 7F D4 36 41 ED 53 4F AC 68 53 24
RX Data : 90 00
TX Data : 90 00