Panne de la télécommande.

fonctions
Répondre
Avatar du membre
Rémy LOMENEDE
Administrateur du site
Messages : 94
Enregistré le : 14 avr. 2020 17:46
Localisation : Nantes
Contact :

Panne de la télécommande.

Message par Rémy LOMENEDE »

Dans le mode d'emplois, il y a le code informatique écrit en langage "Basique".

Code : Tout sélectionner

 

CLS

 

DEFINT A-X

counter = 0

OPEN "COM2:9600,N,8,1,CD0,CS0,DS0,OP0,RS,TB2048,RB2048" 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
C'est uniquement un exemple du début du code.
Un informaticien a compilé le code dans un petit fichier exécutable en extension ".exe"
Voir son site Web, le mode d'emploi et le lien de téléchargement.
Image Admin Astrophil.fr

Avatar du membre
Remy1711
Messages : 20
Enregistré le : 15 avr. 2020 00:10

Re: Panne de la télécommande.

Message par Remy1711 »

J'ai testé.

ça fonctionne parfaitement.Image. . . Image. . . .

°°°°°°°°°°°°°°°°°°°°°°Multifonction°°°°°°°°°°°°°°°°°°°°°°°°°°
  • Moteur de focalisation 2 vitesses 1), 2)
  • Moteur d'élévétion et d'azimut 4 vitesses 1) 2) 3) 4)
  • Iversion Nord Sud ? suivant l'hémisphère du lieu d'observation.
  • Eclairage de réticule 3 cadences 1) 2) 3) et arrêt 0)
  • Ckoix du port COM (communication)
  • Gestion de fréquences pour le suivi céleste: Lunaire. Solaire. Sidéral et autre T-). T+) par incrément positif ou négatif.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

Télécharger et déziper, au lancement, vu que l'auteur est inconnu, Windows 10 se méfie et refuse de l'ouvrir par précaution.
J'ai donc procédé ainsi:

Clique droite . Image
Analyse Windows Defendeur . Image

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

Ouvrir le fichier . Image
  • Clique sur "Info complémentaire" .
"Exécuter quant même". Image

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
  • Et pour ne plus refaire la manip a chaque lancement, j'ai une petite astuce:
Clique droit . Image . Propriétés

Débloquer . Image . "Appliquer".

°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Ce fichier est si précieux que je le conserve dans mon ordi. Image
J'envoie ! Image

Répondre

Retourner vers « Raquette de commande »