The PSION Organiser II Homepage
Forum Home Forum Home Help Help Search Search Members Members Login Login Register Register

Welcome, Guest. Please Login or Register.
Why register?
   The Psion Organiser II Forum
   User Forum
   General
(Moderator: Mikesan)
   Communication between PsionII and surveying Instr
« Previous topic | Next topic »
Pages: 1 2  Reply Reply Notify of replies Notify of replies Send Topic Send Topic Print Print
   Author  Topic: Communication between PsionII and surveying Instr  (Read 362 times)
Nick Kostelidis
active Member




   
Email

Posts: 42
Re: Communication between PsionII and surveying In
« Reply #20 on: Jan 24th, 2019, 7:48pm »
Quote Quote Modify Modify

Hello Martin.
I have tested this routine with a Leica TS06 total station.
I just corrected the smileys.
Sorry for that mistake.
I am still trying to make communication routines for south total station.
Best regards.
Nikos.
MartinReid
Mega Power Member




   
WWW

Posts: 131
Tutorial
« Reply #21 on: Jan 26th, 2019, 7:02pm »
Quote Quote Modify Modify

Dear Nick
 
I'm trying to get my head round your leica: routine.
 
-------------------------- (a)
I'm assuming you are planning to use the following variable later.
a$(1) ?
b$(3) ?
sldist$(10) - Slope Distance ?
vangle$(10) - vertical angle ?
hangle$(10) - horizontal angle ?
data$(80) ?
B% ?
 
--------------------------- (b)
I don't see any 'jump' for Start1::
 
--------------------------- (c)
I'm assuming the line
I%=ADDR(Code$)+1 :POKEB I%,$3F :POKEB I%+1,23 :POKEB I%+2,$39 :USR(I%,0)
is about forcing the CommsLink software to load
 
--------------------------- (d)
But what is the value of Code$ ? Best I can see is it is an empty string "".
 
--------------------------- (d)
I get LSET
 
--------------------------- (e)
I assume that the LPRINT "SET/137/0" etc.. are control codes settings for the Leica
 
--------------------------- (f)
I assume that LPRINT "c" is a clear to receive code.
and that rbs$=LINPUT$: (50) is abut clearing any input / output buffer
 
--------------------------- (g)
explain ... LPRINT "GET/M/WI21/WI22/WI31"
 
I get the rest.
Nick Kostelidis
active Member




   
Email

Posts: 42
Re: Communication between PsionII and surveying In
« Reply #22 on: Jan 28th, 2019, 2:18pm »
Quote Quote Modify Modify

Hi again Martin.
This routine is a part of data collecting program.
I forgot to delete all unnecessary variables.
Yes sldist$ is Slope Distance
  vangle$ is vertical angle
  hangle$ is horizontal angle
data$ is the string that the organizer receives from the instrument
 
I%=ADDR(Code$)+1 :POKEB I%,$3F :POKEB I%+1,23 :POKEB I%+2,$39 :USR(I%,0)
I have got this line - routine from this site.
I just copied and I add this line to all my programs that has to do with communication with external devices (surveying instruments - PC).
And yes it is is about forcing the CommsLink software to load.
And yes Code$ is an empty string. If I don't declare this variable I can't translate this program.
 "SET/137/0" detects the type of the string that the instrument sends and yes generaly LPRINT "SET/137/0" etc.. are control codes settings for the Leica.
LPRINT "GET/M/WI21/WI22/WI31" is the command that makes the instrument to send a string with horizontal angle , vertical angle and slope distance.
« Last Edit: Jan 28th, 2019, 6:54pm by Nick Kostelidis »
MartinReid
Mega Power Member




   
WWW

Posts: 131
Tutorial continued
« Reply #23 on: Jan 28th, 2019, 7:16pm »
Quote Quote Modify Modify

Dear Nick
 
I'm struggling with the parts of the comms routines that are not needed.
 
Can we have a go at stripping out all the surplus stuff. Then work out what each of the remaining bits are doing when it works; then we can look for substitutes for the 'South'
 
I think the following 'Test' should work, can you test it on all the instruments you have.
 
If/When it works can you make a note of the values received in
RBS$
DATA$
F$
DT$
 
Sincerely
Martin
 
 
TEST:
LOCAL I%,M%,V%,data$(60),RBS$(240),SDFC$(8),C$(6),F$(253),DT$(57)
 
CLS :BEEP 250,250
PRINT "Ready? [EXE]"
GET
 
REM Boot the COMMS LINK
I%=ADDR(Code$)+1 :POKEB I%,$3F :POKEB I%+1,23 :POKEB I%+2,$39 :USR(I%,0)  
 
CLS : PRINT "Choose..."
M%=MENUN(2,"Leica,TopCon")
 
IF M%<1 : STOP : ENDIF :REM Trap On/Clear
IF M%=2 : GOTO TopCon:: :ENDIF :Rem jump past Leica
 
REM Leica::
LSET:(1200,2,7,1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0)
 
REM Send control characters
LPRINT "SET/137/0" :LPRINT "SET/135/0" :LPRINT "SET/136/0" :LPRINT "SET/149/0"  
LPRINT "SET/171/0" :LPRINT "SET/40/0"
LPRINT "c"
 
REM Get and View rubbish String
RBS$=LINPUT$:(50) : CLS : PRINT "RBS$ =" : V%=VIEW(2,RBS$)
 
REM Send ready to receive values
LPRINT "GET/M/WI21/WI22/WI31"
 
REM Get and View data values as data string
DATA$=LINPUT$:(50) :V%=VIEW(3,DATA$)
 
GET  
STOP
REM ------------------------------------
 
TopCon::
LSET:(1200,2,7,1,0,0,-1,-1,-1,-1,-1,-1,-1,-1,2)
 
REM Send control characters
SDFC$="Z34093"+CHR$(3) :REM what is the CHR$(3) for?
LPRINT SDFC$
PAUSE 5
 
REM Send ready to receive values
C$="C067"+CHR$(3)
LPRINT C$
 
REM Get rubbish String
F$=LINPUT$:(57) : CLS : PRINT "F$ =" : V%=VIEW(2,F$)
 
REM Get and View data values as data string
DT$=LINPUT$:(57) :V%=VIEW(3,DT$)
 
GET
STOP
Nick Kostelidis
active Member




   
Email

Posts: 42
Re: Communication between PsionII and surveying In
« Reply #24 on: Jan 28th, 2019, 7:53pm »
Quote Quote Modify Modify

Martin CHR$(3) is the ETX (end of text) character and is added to all control characters we send to Topcon instrumens. That is described in Topcon interface manual.
That works.
For leica instruments this is not necessary.
When I added this to the end of control characters that I send to leica instrument the routine didn't work.
But now you gave me an idea.
I ll try to send control characters to South instrument without add the chr$(3) to the end.
Maybe it works.
Pages: 1 2  Reply Reply Notify of replies Notify of replies Send Topic Send Topic Print Print

« Previous topic | Next topic »

The Psion Organiser II Forum » Powered by YaBB 1 Gold - SP 1.1!
YaBB 2000-2002,
Xnull. All Rights Reserved.
top