Meade LX200R Manual de instrucciones descargar pdf (Pagina 55)

- 55 -

LX200 Demo Program

The RS-232 interface communicates with your computer at

9600 baud rate, parity = None, 8 data bits, 1 stop bit. For

those who are familiar with programming, the LX200

command set is written in ASCII-character format; you can

use it to write your own programs.

The LX200 Demo Program on the following pages is written

in Quick Basic. It is intended to demonstrate how commands

are sent to the telescope and how information is received

from the telescope. It is not a polished program; it does not

incorporate all the RS-232 features available.

The LX200 Demo Program is set up to operate on serial port

2 (COM2:). To operate on serial port 1 (COM1:), change line

4 from COM2: to COM1:.

Meade Instruments does not support these programs, or

programs that you may write, in any way. For questions

relating to after-market software programs, refer to the

respective manufacturers. Meade recommends and supports

our Epoch 2000sk software package (Fig. 19). This software

is fully compatible with the 16” LX200 telescope.

The LX200 Demo Program presents an incredibly detailed

simulation of the entire sky, including up to 281,000 celestial

objects, on the display of a personal computer .

Epoch 2000 allows the presentation of the most complex

starfields, as they appear through the telescope. This software

is available for Windows 3.1 or higher, including Windows 95.

The program follows.

Fig.19: Epoch 2000sk software.

CLS

DEFINTA-X

counter = 0

O P E N

" C O M 2 : 9 6 0 0 , N , 8 , 1 , C D 0 , C S 0 , D S 0 , O P 0 , R S , T B 2 0 4 8 , R B 2

048" FOR RANDOM AS #1

KEY ON

KEY(1) ON

KEY 1, "GO TO":

ON KEY(1) GOSUB key1

KEY(2) ON

KEY 2, "SYNC"

ON KEY(2) GOSUB KEY2

KEY(3) ON

KEY 3, "SLEW"

ON KEY(3) GOSUB key3

KEY(4) ON

KEY 4, "FIND"

ON KEY(4) GOSUB KEY4

KEY(5) ON

KEY 5, "CNTR"

ON KEY(5) GOSUB KEY5

KEY(6) ON

KEY 6, "GUIDE"

ON KEY(6) GOSUB KEY6

KEY(11) ON

ON KEY(11) GOSUB key11

KEY(12) ON

ON KEY(12) GOSUB key12

KEY(13) ON

ON KEY(13) GOSUB key13

KEY(14) ON

ON KEY(14) GOSUB key14

GOSUB status

GOSUB key3

GOSUB help

20 GOSUB telpos

GOSUB OBDRAW

GOSUB TIME

50 key$ = INKEY$: IF key$ = "" THEN GO TO 20

REM KEYS

IF key$ = CHR$(119) THEN GOSUB senddir: REM a$ =

"#:Mw#"

IF key$ = CHR$(101) THEN GOSUB senddir: REM a$ =

"#:Me#"

IF key$ = CHR$(110) THEN GOSUB senddir: REM a$ =

"#:Mn#"

IF key$ = CHR$(115) THEN GOSUB senddir: REM a$ =

"#:Ms#"

IF key$ = "m" THEN GOSUB objects

IF key$ = "t" THEN GOSUB objects

IF key$ = "c" THEN GOSUB objects

IF key$ = "p" THEN GOSUB objects

IF key$ = "x" THEN CLS : END

IF key$ = "r" THEN RUN

GO TO 20

END

senddir:

west:

IF key$ = "w" THEN a$ = "#:Mw#": PRINT #1, a$: REM

GO TO west

east:

IF key$ = "e" THEN a$ = "#:Me#": PRINT #1, a$: REM

GO TO east

north:

IF key$ = "n" THEN a$ = "#:Mn#": PRINT #1, a$: REM

GO TO north

south:

IF key$ = "s" THEN a$ = "#:Ms#": PRINT #1, a$: REM

GO TO south

GOSUB telpos

key$ = INKEY$:

IF key$ = CHR$(32) THEN GO TO end1 ELSE GO TO

senddir

end1:

B$ = "#:Qe#": PRINT #1, B$

B$ = "#:Qw#": PRINT #1, B$

B$ = "#:Qn#": PRINT #1, B$

B$ = "#:Qs#": PRINT #1, B$

RETURN

1 2 ... 50 51 52 53 54 55 56 57 58 59 60

Comentarios a estos manuales

Sin comentarios

Meade LX200R Manual de instrucciones Pagina 55

Comentarios a estos manuales

Relacionado con productos y manuales para Telescopios Meade LX200R