empire37

Bonsoir Lucky062,

 

Ton problème d'IP fixe qui revient en IP auto ne me semble pas inconnu, je m'explique :

Windows 10  avec le quel je travaille chez mon employeur et dont je suis l'informaticien de service en autre m'a déjà posé beaucoup de soucis et s'est aussi pour cela que je me mets à linux de façon décisive en cette période pour tourné sur Kstars, les mise à jour Win 7 étant abandonnées. (Mais je conserve quand même EQMOD sous un de mes PC portables.

 

Pour faire court si tu crée une IP fixe d'un coté, assure toi de créer Une IP fixe sur ton PC Win 10, et ce sous tout ton réseau (Box, PC, Tablette...) enfin comme cela tu définis tes adresses fixes et normalement le tour est joué !

 

De mon coté je teste actuellement plusieurs environnements pour voir se qui fonctionne le mieux avec un RPI 3B+

 

Bon ciel à toi

 

Pascal  

 

 

Patrick B

 

Si la pile du bios du PC était HS, il aurait déjà donné l'info à l'allumage du PC !

Le bios étant le premier système lancé à l'allumage du PC pour définir L'OS choisi.

 

Bon ciel à toi

 

Pascal

 

jjc, je n'avait pas vu ton post, en effet c'est bien ce qui revient sur le lien que tu as posté

 

bon ciel 

Pascal

Bonjour,

 

En réponse à jjc, j'utilise Astrométrie et j'ai pensé à une chose.

J'avais désinstallé toute la suite Kstars/INDI/Ekos et réinstallé ensuite pensant que j'avait fait une bêtise lors de la première installation.

 

J'ai lu dans le forum NAFABox, que lorsqu'il y à désinstallation, les paramètres de l'utilisateur ne sont pas désinstallés donc il est fort probable que suite à la réinstallation un fichier soit corrompu comme m'indique l'erreur qui s'affiche lors de l'ouverture D'Ekos alors que sur le PC portable avec MINT tout fonctionne au poil !

 

Je vais donc reformater ma carte sd et refaire une installation propre maintenant que je connait le principe de fonctionnement.

Sinon en mode pilotage Goto sur environ trois heures de test, le RPI est à peine tiède, reste à voir avec plus de charge......

 

 

 

Bonsoir à tous,

 

je vois qu'il y a quelques membres qui s' intéressent avec Linux et le Raspi et autres cartes mères sous ce format avec GPIO et Arduino UNO ou autres pour l’astronomie ! YES !

ET BIEN TANT MIEUX  !

 

Pour mon utilisation actuelle, j'explore les possibilités du RPI 3B+, de plus deux carte Arduino UNO, une étant équipée d'un écran LED 4 lignes de récupération et ce dans un contexte de diminuer l'achromatisme sur les instruments amateur très bas de gamme pour en faire des lunettes guides ou du matériel Astro photo ! (Gonflé le mec, Non ?) 

 

Bien sur cela fonctionne en partie et je suis obliger de filtrer diverses fréquences du spectre photochromique mais avec ce que je puis récupérer (Recyclage oblige) !

 

Pour répondre à Trou Mad, tu as tout à fait raison pour la gestion du Rpi 3B+ ainsi que les craintes de jjc (Jean-Jacques )  aussi, le boitier étant devenu depuis aujourd'hui, un simple récepteur INDI et fixé sur la monture asservissant le Hand  de mon Heq5 et actuellement je test le WIFI avec quelque inquiétude à ce niveau en fixe (Domicile), sinon pas de problème pour une utilisation nomade, le tout relié à une alim de type batterie et alim stabilisée  13,8 Volt,

 

jjc, pour l'astrométrie j'ai un plantage à ce niveau , ça me demande le bon chemin de dossier pour l'astrométrie ?!!!

 

Là je sèche ! parce que si je fais OK tous fonctionne à merveille !

 

Bon ciel à tous.

 

 

Bonjour jjc,

 

Merci bien pour ton aide.

 

En fait le profile était bien créé mais Ekos me demandait à tout prix un capteur ccd !

il fallait juste que je renseigne le champs CCD en CCD Simulator pour obtenir le panneau de contrôle INDI, ensuite un clic droit sur la carte, sélection EQMOD Mount et Goto et la miracle ma monture se positionne au poil.

Pour info, le RPI 3B+ tourne très bien pour du suivi.

 

De plus le graphisme est superbe, sacré travail de la communauté, chapeau bas Messieurs !

Maintenant plus rien ne me retient sur Microsoft.

 

Encore un grand merci jjc, 

Bon ciel à toi et à tous

 

Pascal 

 

Bonjour à toutes et tous Amoureux du grand ciel et quelque que catégorie que ce soit !

 

Pour faire simple j’ai arrêté l’astronomie il y à près de 5 années voir plus ou moins, suite à un grand malheur.

 

(dans la présentation de mon profil, ma monture Heq5 y figure déjà )

 

Maintenant je voudrais par linux et mieux Raspbian pour Raspberry PI 3B+ pouvoir connecter ma monture Heq5 (Câble USB Pierro-Atro) pour un simple contrôle de souris sur la carte du ciel ( Contrôle GOTO) ou autres versions ainsi dans un second temps par un contrôle d’une manette de jeux.

 

Pour info : je fais depuis longtemps fonctionner tout mon matos sou Windows XP à Win 7. avec clic de souris ainsi que prise de contrôle avec une manette de jeux wifi sous Carte du Ciel, mais avec l’abandon de Win 7 par Microsoft je me transferts totalement sous Linux, mais après avoir installé Kstars/INDI…, sur deux de mes PC + le Ras PI, je ne suis pas sur que NAFAbox sois correctement installé vu que je n’arrive pas à me connecter sur mon Heq5, de plus je suis novice sous Linux pour vérifier la compatibilité des paquets et surtout du pilote pour le câble de connexion Pierro-Astro !

 

Mes distibs Linux pour essais / Mint sur un de mes portables / Ubuntu mate 18.04 pour ma RPI 3b+

 

Et Oui à 59 piges je soufre un peu !

 

Dans l'attente de vos réponses

 

Bon ciel à toutes et tous

 

Cordialement

Pascal

 

Bonjour,

 

Oups !, ma carte graphique Radeon n'est pas retenue, va falloir investir dans la 3D, s'est l'occasion ou jamais pour en changer !(Bibiche pardonne moi, mais fallait vraiment ! ) par contre Nikel sur la sortie VGA de la carte mère du PC.

 

Niveau bug, Vénus a tendance à disparaitre (Nom + Objet) lors du chois d'un oculaire !

 

Sinon je n'ai pas eu encore le temps de faire le tour.

 

Les fonts quand à elles apparaissent à nouveau propre.

j'était sur le point de me rendre sur site depuis Bourgueil vert les 17hoo, il pleuvait aussi, légère pluie, mai je peut vous confirmer que depuis Hommes ou je réside,

maintenant le Ciel est presque dégagé et devrait promettre une belle nuit, dommage que je doit retravailler demain matin

 

Si je n'ai pas de problèmes dans l'après-midi, j'espère vous rejoindre, de plus la météo devrais être pas mal pour le solaire et aussi le reste.

 

De toute manière je pose une semaine de vacance pour les prochaines NAT.

 

Bon ciel à tous et profités en bien

 

Pascal

Bon, j'ai essayé la version 64 bit sur mon PC portable qui lui est en 32 bit et bien sur il ne s'installe pas, donc comme Goofy, je suis revenu à une version antérieure et là plus de problème.

 

Demain j'installe la 64 bit sur une autre configue avec Win 7_64 bit pour voir et si je peut piloter ma monture dessus là s'est gagné si elle supporte ASCOM ?!

 

Maintenant je passe en Stand by

 

Bonsoir à tous et à bientôt

 

Pascal

Super !

 

Bon ciel

 

Pascal

Et maintenant tout est OK ?

Mile excuse mike91,

 

Je n'avais pas vu que tu te servait d'un Arduino, petite bestiole que je ne vais pas tarder à acheter d'ailleurs !

 

Mais si VB plante ton système, je pense que tu doit avoir oublié de passer un de tes paramètre en false.

 

En effet tout composants passés en True (ouverture) doit impérativement passé en False et surtout ben faire attention que rien ne tourne en boucle !

Merci les amis,

 

je vais essayer cela sans plus tarder je pense

 

Bon ciel à tous

 

Pascal

Bonjour mike91,

 

Déjà sur quel version de VB travaille tu, sous quel OS, et quel type de carte mère (ancienne machine avec un vrais port RS232 ou un émulateur de port)

 

Tu peut déjà glaner quelques bouts de code sur le forum développez.com

 

Lien*:

 

http://www.developpez.com/

 

Perso je suis toujours sous VB6 pro, la version Studio ne contient pas le port RS232

 

Pour les autres versions gratuites (2012 ou 2013), je n'ai pas encore eu le temps de les essayer pour voir si elles géraient ce genre de port.

 

Perso, je me suis fait un intervallomètre pour mon canon EOS et ça passe bien.

 

Ci cela peut aider, voici le code de mon intervallomètre qui pour l'instant, le n° de port doit être définit dans le code.

 

###########################################

 

'Auteur du projet : Pascal ROUSSEAUX

 

 

'form et code non redistribuable sauf sur demande

'12/12/2011 : Première version

'15/12/2011 : Ajout d'un Contrôle Journal

'01/01/2012 : Ajout d'un enregistrement du conrôle Journal dans le bloc note Windows

'02/01/2012 : Ajout d'une Tablette

 

 

'Option Explicit

 

 

Dim X As String

 

Private imgL As Integer

Private imgH As Integer

Private red As Long

Private green As Long

Private blue As Long

 

Dim SelectFile As String

Dim Vari As Integer ' Données du journal pour enregistrement dans le bloc note

Dim Vari2 As Integer ' saisie des commandes dans de la console de programmation

Dim Vari3 As Integer ' Données de la console de programmation pour enregistrement dans le bloc note

Dim Note As Long ' Ouvre le Bloc note Windows

Dim cmde As Long

Dim Calc As Long ' Ouvre la calculatrice Windows

Dim Iris As Long ' Ouvre le logiciel Iris

Dim Filtre As Long

Dim TxBlue As Integer

Dim TxRed As Integer

Dim TxGreen As Integer

 

Dim Contenu As String

Dim Chemin As String

Dim Index As Integer

 

Dim Rouge As Integer

Dim Vert As Integer

Dim Bleu As Integer

 

Dim a As Integer

Dim b As Integer

Dim C As Integer

Dim d As Integer

Dim e As Integer

Dim f As String

Dim i As Integer

Dim M As Integer

Dim n As Integer

Dim o As Integer

Dim P As String

 

 

'TxBlue = 0

'TxRed = 0

'TxGreen = 0

''cmd.CancelError = False

'cmd.ShowOpen

'Picture1.Picture = LoadPicture(cmd.FileName)

'pic.PaintPicture Picture1.Picture, 0, 0, pic.Width, pic.Height

'loadpic

'End Sub

 

Private Sub Command1_Click() 'Bouton ouverutre port

Command1.Visible = False

 

MSComm1.PortOpen = True

 

Label5 = " Acquisition"

'Text1 = "Début de la séquence d'aquisition."

 

a = Abs(Val(Text6)) 'variable timer1

 

b = Abs(Val(Text2)) 'variable timer2

 

 

Timer1.Enabled = True

Timer2.Enabled = False

 

'----------------------------------------------------------

'Mémo

 

'Timer1 & 2: Enabled = False

'Interval = 1000

'valeur des Timers

 

'Timer1.Interval = Abs(Val(Text6))

'Timer2.Interval = Abs(Val(Text2))

 

 

End Sub

 

 

Private Sub Command10_Click()

 

 

 

'Dim ret As Long

Calc = Shell("Calc.exe", vbNormalFocus)

 

 

 

End Sub

 

Private Sub Command11_Click()

 

'Dim Iris As Long

Iris = Shell("C:\Documents and Settings\Pascal\Bureau\Atelier Astronomique\IRIS\iris\iris.exe", vbNormalFocus)

 

'Shell ("C:\Documents and Settings\Pascal\Bureau\Atelier Astronomique\IRIS\iris.exe"), vbNormalFocus

End Sub

 

Private Sub Command12_Click()

 

Note = Shell("notepad.exe", vbNormalFocus)

 

End Sub

 

Private Sub Command13_Click()

 

cmde = Shell("cmd.exe", vbNormalFocus)

 

End Sub

 

Private Sub Command14_Click()

 

Note = Shell("charmap.exe", vbNormalFocus)

 

End Sub

 

Private Sub Command15_Click()

 

Note = Shell("igfxzoom.exe", vbNormalFocus)

 

End Sub

 

Private Sub Command16_Click()

 

'C:\Documents and Settings\Pascal\Bureau\Module aquisition photo 2

 

Filtre = Shell("C:\Documents and Settings\Pascal\Bureau\Tablette Graphique.exe", vbNormalFocus)

 

'CommonDialog1.ShowColor

'Call changeColor(CommonDialog1.color)

 

End Sub

 

Private Sub Command17_Click()

Rouge = 0

Vert = 0

Bleu = 0

cmd.CancelError = False

cmd.ShowOpen

Picture1.Picture = LoadPicture(cmd.FileName)

'pic.PaintPicture Picture1.Picture, 0, 0, pic.Width, pic.Height

'loadpic

End Sub

 

Private Sub Command19_Click()

 

 

Command19.ToolTipText = "non utilisé dans cette version"

'cmd.ShowOpen

'Picture1.Picture = SavePicture(cmd.FileName)

 

End Sub

 

'Private Sub Command17_Click()

 

'TxBlue = 0

'TxRed = 0

'TxGreen = 0

 

'cmd.CancelError = False

'cmd.ShowOpen

'Picture1.Picture = LoadPicture(cmd.FileName)

'pic.PaintPicture Picture1.Picture, 0, 0, pic.Width, pic.Height

'loadpic

 

'End Sub

 

Private Sub Command3_Click()

C = 0 'donne la valeur 0 à c

Label12 = "0" ' remise à 0 du Label12

Label5 = ""

 

End Sub

 

Private Sub Command4_Click()

 

Text1 = ""

 

End Sub

 

Private Sub Command5_Click()

 

Text3 = ""

 

End Sub

 

Private Sub Command6_Click()

 

 

'non utilisé dans cette version

Command6.ToolTipText = "non utilisé dans cette version"

 

 

End Sub

 

Private Sub Command7_Click()

 

Picture1.Visible = True

 

 

End Sub

 

Private Sub Command8_Click()

 

Picture1.Visible = False

 

 

End Sub

 

Private Sub cha_load_Click()

Bleu = 0

Rouge = 0

Vert = 0

cmd.CancelError = False

cmd.ShowOpen

Picture1.Picture = LoadPicture(cmd.FileName)

'pic.PaintPicture Picture1.Picture, 0, 0, pic.Width, pic.Height

'loadpic

End Sub

 

'Private Sub im_quit_Click()

'End

'End Sub

 

Private Sub Command9_Click()

 

Note = Shell("notepad.exe", vbNormalFocus)

 

 

'Shell = ("C:\WINDOWS\system32\calc.exe")

 

'Shell = ("C:\Windows\System32\Calc.exe")

 

End Sub

 

Private Sub OLE1_Updated(Code As Integer)

 

End Sub

 

'Private Sub enr_Click(Index As Integer)

'enr(123).ToolTipText = "non utilisé dans cette version"

'End Sub

 

Private Sub Picture1_Click()

 

 

 

'Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

 

End Sub

 

Private Sub qui_Click(Index As Integer)

End

End Sub

 

Private Sub Sauv3_Click()

 

 

Vari3 = FreeFile

Contenu = Text3.Text

Open "C:\ControlJournal3.txt" For Output As #Vari3

Print #Vari3, Contenu

Close Vari3

 

 

End Sub

 

Private Sub Scroll_Change(Index As Integer)

 

'valeurs des ascenceurs

Rouge = Scroll(0).Value

Vert = Scroll(1).Value

Bleu = Scroll(2).Value

 

 

 

Shape1.FillColor = RGB(Rouge, Vert, Bleu) 'remplissage de la zone Shape avec RGB

 

 

For i = 0 To 2 'Mise à jour à par une boucle, le groupe de Labels

Label15(i).Caption = Scroll(i).Value

Next i

 

End Sub

 

Private Sub Label12_Click()

 

'Label12.Caption = e

 

End Sub

 

Private Sub Text4_Change()

 

End Sub

 

Private Sub Sauv_Click()

 

Vari = FreeFile

Contenu = Text1.Text

Open "C:\ControlJournal.txt" For Output As #Vari

Print #Vari, Contenu

Close Vari

 

 

 

End Sub

 

Private Sub Text5_Change()

 

'P = Abs(Val(Text5))

 

 

End Sub

 

 

Private Sub Timer1_Timer()

 

a = a - 1 'décompte su Timer1

 

Label10.Caption = a 'Afficle la valeur de a

If a = 0 Then

 

Label5 = " Attente"

Timer2.Enabled = True

Timer1.Enabled = False

MSComm1.PortOpen = False

 

End If

 

End Sub

 

 

 

 

Private Sub Command2_Click() 'Bouton STOP

 

Command1.Visible = True

'Text1 = "Chargement photo en mémoire"

Label10 = "0" 'Affiche 0 au label10

Label11 = "0" 'Affiche à au label11

'Timer1.Interval = 0

'Text6 = "1"

Timer1 = False 'Arrêt du Timer1

Timer2 = False 'Arrêt du Timer2

Label5 = " Arrêt séquence"

'Unload Me

'MSComm1.PortOpen = False

If MSComm1.PortOpen = True Then

MSComm1.PortOpen = False

Else

 

End If

 

 

End Sub

 

 

 

'Definition des paramètres de configuration du port série

 

Private Sub Form_Load()

 

 

 

'rootPath = App.Path

 

' constantes nécessaires à la fonction nivComp

 

'red = RGB(255, 0, 0)

'green = RGB(0, 255, 0)

'blue = RGB(0, 0, 255)

 

' Charge les images "noire" et "blanche"

'Pictureblack.Picture = LoadPicture("C:\Documents and Settings\Pascal\Bureau\I5\Image093.jpg")

 

'imgL = Pictureblack.Width

'imgH = Pictureblack.Height

 

 

 

'PictureCar.Picture = Pictureblack.Picture

 

 

'Text3 = ""

'Dim i As Integer

'For i = debut To fin

'ListBox.etems.Add (i)

'Next i

 

'P = Abs(Val(Text5))

 

'##################################################################

 

 

MSComm1.CommPort = 7 'ComboPort.ListIdex + 1 'Donne la valeur du Port Comm

'MSComm1.PortOpen = True

'MSComm1.Settings = "9600,n,8,1"

'MSComm1.InputMode = comInputModeText

'MSComm1.SThreshold = 1

'MSComm1.InputLen = 0

 

 

End Sub

 

 

 

 

 

 

 

 

Private Sub Timer2_Timer()

 

b = b - 1 'Décompte du Timer2

 

Label11.Caption = b

If b = 0 Then

Label5 = " Acquisition" 'Affiche la valeur b au Label11

Timer2.Enabled = False 'Arrêt du Timer2

a = Abs(Val(Text6)) 'charge la variable a

b = Abs(Val(Text2)) 'charge la variable b

Timer1.Enabled = True 'lance le Timer1

Timer2.Enabled = False 'Arrêt du Timer2

MSComm1.PortOpen = True 'Ouverture du port Comm

'Label5 = " Acquisition"

C = C + 1 'Incrémente C de + 1

'Label12.Caption = ""

Label12.Caption = C 'Affiche la valeur de c dans le Label12

 

End If

 

End Sub

 

 

Bon ciel

 

La form n'est pas jointe.

 

Pascal

Ben moi, je voudrai bien qu'il tombe à coté de chez moi, il devrait y avoir quelque chose d'intéressant à récupérer sur ce machin l'à !

 

Bon d'accord

Bonsoir à tous,

 

J'ai oublier un détail,

 

Tout les affichages du panneau d'affichage sont aussi fonctionnels et de plus si quelqu'un veut l'interface, je le met à disposition.

 

Bon ciel,

 

Pascal

 

PS : si un Admin ou Modo peut m'indiquer la façon de le mettre à dispos sur le Fofo.....

Bonsoir à tous,

 

J'espère ne pas faire doublon avec le post de Vieux Bigourdan annonçant la sortie de Stellarium Win 7 _ 64 Bit.

 

Pour ma part je tourne encore en 32 Bit sur mes configues Astro.

 

J'ai essayé Stellarium V.132 et V.133 sur Win7 _ 32 Bit de mon ordi portable.

 

Ces deux versions semblent comporter un problème avec les fonts (elles ne sont pas complètes, ou n'apparaissent pas entières), copie d'écran ci dessous.

 

Pourtant aucun problème sous LINUX Debian ou autres compatibles .deb, ni sous XP sous mes "vielles" config !

 

Utilisateurs de ce merveilleux soft, avez vous rencontrés ce genre de problèmes ?, trouvés des solutions sur les remplacement de fonts ?

 

Si vous avez la solution, elle est la bien venue et je pense ne pas être le seul dans ce cas

 

Merci d'avance et bon ciel à tous.

 

Pascal

 

Je dit Chapeau bas Monsieur Thierry

 

Superbes images, je suis encore bien loin de ce résulta avec mon modeste matériel.

 

Je suppose que l'effet coronographe est fait avec Photo shop ou autres logiciels de traitement photo ?

Si je peut me dégager Samedi de pro, c'est ok pour moi, hâte de revoir ce bel observatoire avec ces deux 400 mn !

 

Et l'ambiance est super sympa

 

De plus Hommes / Tauxigny s'est juste à côté

Bonjours à tout le monde,

 

Depuis mon inscription sur le Fofo (2009), je n'ai pas eu le temps de me connecter, mon Pro me prenant énormément de temps et mes centre d’intérêt aussi.

 

Voici donc mon premier Tuto.

 

Au début j’observai avec une Lulu ETX 70 modifié au niveau de la motorisation, pour me permettre de faire mes premières armes en Astrophoto, mais bien sur cela n'était pas top du tout , à part la Lune, le soleil, mais pour le reste je me suis très vite retrouvé dans l'obligation d’investir dans une monture à un peut plus «Top».

 

Une HEQ5 Syntrek avec un interface USB Pierro Astro, et possédant une licence VB6, je me suis occupé à relooker l'interface graphique de chez Ascom.

 

 

Relooker pourquoi*?

 

Comme bon nombres de personnes je suis porteur de lunette et ma vue ne s'arrange pas trop avec le temps, de plus j'aime bien les les interfaces graphiques bien clair, celle de départ me semblant un peut trop ramassée sur elle même (Bien sur les goûts et les couleurs....)

 

Serte, cela peut demander pour plus de confort, de travailler en multi monitoring,

mais sur un seul moniteur cela passe très bien aussi.

 

J'ai aussi compilé une suite de plusieurs petits softs utilitaires pour l'astronomie dans le même goût.

 

Voici donc quelques clichés de ce relooking et j’attends bien sur vos réactions avec impatience.

 

Bon ciel à tous.

 

Pascal

 

________________________________

 

ETX 70 sur HEQ5.

 

 

 

 

 

Interface en vision de jour.

 

 

 

 

 

Interface en vision nocturne.

 

 

 

 

 

Partie raquette seule sur carte du ciel.

 

 

 

 

 

Mon petit labo électronique et contrôle observatoire.

 

Ici nous le trouvons encore moin cher !

 

http://www.materiel.net/complement-optique-pour-reflex-numerique/samyang-doubleur-56936.html

 

Bon ciel à tous.