How to use the link port

[Matrefeytontias]

Hi guys !

I try to make a little link port test with two balls which are moved with the arrows of the other calc. But when I push a key on each calc, the balls don't move.

Why ?

[Xeda112358]

Could you post a some of your code? I imagine if you are only using arrows, you will only need to send 4 bits, too, if that helps We might be able to help out!

[Matrefeytontias]

Now, no bug when I push a key on each calc, but only one white ball moves (on each calc, there is a black balle moved by the calc and a white ball moved by the other calc).

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

.MULTI ClrHome ClrDraw ClrDrawr 0→A→C→D→X→Y 56→B [3C7EFFFFFFFFFF7E3C→Pic1J1 [3C428181818181423C→Pic1J2 Repeat getkey(15)  If getkey(2) and (X>0)   X--   1→C  ElseIf getkey(3) and (X<88)   X++   2→C  Else   0→C  End  sub(GET)  Send(C,500)  sub(GET)  DispGraphrClrDraw End ClrHome ClrDraw Lbl GET Get→D If D=1  A-- ElseIf D=2  A++ End Pt-Off(X,Y,Pic1J1 Pt-Off(A,B,Pic1J2 Return

[saintrunner]

Ooooh i love two player games! I hope thats what your going to make! Although good calc gamers are hard to fin at my school good luck!

[Nick]

isn't it just because you store the value for both calcs in D ?
when you do that, the sent and gotten value are the same, since it's D for both calcs, get it?
i might be wrong

[Matrefeytontias]

@saintrunner yes, that's what I'm trying to do

@Nick it's not that, because variables of each calc are undependant, I believe.

[saintrunner]

OOOH! What type of game?

[Matrefeytontias]

I don't know right now ; I'll first practice a bit with the link port, and after that make a big game. Coming soon (if I can resolve the current problem )

[kindermoumoute]

Ok, the fact : I looked around the forum about link command, but I saw nowhere a complete code that used the port link so improved.
So today I worked on it.

My technique is initially to define a calculator server and a calculator client, in Boolean it mean 1 and 0. To specify if the calculator is server or client, I do it more or less randomly, because for the rest of the program I don't mind the order.

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11

:.r1 is the number of swap you want to try it work, ussualy 10 is same than 200 :Lbl SYN :Output(0,,"Synchronisation ... :0→r2 :Repeat r2>r1 or getKey(15) :If Get+1 :→r2 :End :Send(r2,100) :End :Returnr2^2

Now we have a server (0) and a client (1), and the first application is to separate server code and client code :

Code: Select All | Copy To Clipboard

1 2 3 4 5

!If B :SRV() :Else :CLT() :End

My first idea was to make a program where the server send and the client get each loop, here a funny example :

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

:.AXE :[183C7EFFFF7E3C18]→Pic1 :0→X :ClrHome :SYN(200)→B :Repeat getKey(15) or (B>1 :!If B :SRV() :Else :CLT() :End :DispGraphClrDraw :End :Return :.Program host :Lbl SRV :If X<96 :Pt-On(X,48,Pic1 :End :X<192?X++,→X :Send(X,5000) :Return :.Program client :Lbl CLT :If X>95 :Pt-On(X-96,48,Pic1 :End :If Get+1:-1→X:End :Return

NB : With real calculator there isn't this speed lag, here it's cause of wabbitemu mistake.

Now I thought about a way to send multiple bytes in both directions (for games such as Battleship, Chess, pokemon, and thousands more). My first solution is a system of roundtrip between server and client, after synchronizing calcs.

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

:.r1 ==> number of bytes to send :Lbl ECH :SYN(10) :For(I,0,r1) :!If B :Send({L1+I},5000) :GET()→{L2+I} :Else :GET()→{L2+I} :Send({L1+I},10000) :End :End :Return : :Lbl GET :Repeat Get+1→r2 :If getKey(15) :Goto ERR :.ERR routine just leave program :End :End :Returnr2-1

And it work perfectly, but I find this routine not very optimized, so I decided to try another way by sending all at once to the server, then to the client... to be continued. 

PS : I can't test my code for the moment because of wabbitemu' mistakes...

[kindermoumoute]

I appeal to experts to advise me about the best way to exchange bytes between 2 calcs. Actually the main problem is that link command are bugged : I always loss of bytes with a constant percentage (2~10% according to the calculator). How can we fix and optimize it?


I have attached a program that exchange 20 bytes, and then calculates the sum of received values​​: it should display 190. Try it with real calc please.

[Xeda112358]

Do I send the program to both calcs and then run the program on both?

EDIT: I tried it 10 times on each calculator and they said 190 each time. Also, I even have a bad cord and it worked! +1

EDIT2: If I can figure out how this code works, can I use it in Grammer? (My link protocol does not work for synchronising and whatnot )

[Quigibo]

Maybe the problem is that you left Interrupts on?  Interrupts should be off or custom when using the link port otherwise the OS might decide to alter the ports in the middle of the linking.  Try adding an FnOff at the beginning of your program.

[kindermoumoute]

I tried it 10 times on each calculator and they said 190 each time. Also, I even have a bad cord and it worked! +1

Really ? O_o
Ok Quigibo, I'll try it tomorrow.

[Xeda112358]

Yes and I found that if I pressed clear while it was still synchronizing it returned 20 every time (on either calculator).

[Happybobjr]

wish youwould have told me that months ago Quigibo....
awesome