Jour sur terre

Soyez le premier à donner votre avis sur cette source.

Vue 7 420 fois - Téléchargée 845 fois

Description

Ce Programme montre la partie illuminée de la Terre.
Visualisation sur une mappemonde.

Présenté à l'origine en version VB6 sous le nom "PROJECTION SOLEIL".

D'après date/heure du PC ou une date/heure désirée,
comprend décalage horaire et saison.

Source / Exemple :


.
.
.

CALCUL & TRACE ZONE NUIT
    '10 - ZONE NUIT
    .
    .
    .
     '11.  Tracé d'une double courbe (transition Soleil au chgt de jour) qui sera découpée (voir en 41.)
    For i = -90 To 629
      'Dessin point (précédent: prise en compte du point initialisé)
      zone_nuit.AddLine(point1x, point1y, point2x, point2y)
      'Coordonnées du point
      x = sinus_declinaison_soleil * Sin(deg2rad * i)
      y = Cos(deg2rad * i)
      z = cosinus_declinaison_soleil * Sin(deg2rad * i)
      'Coordonnées sur mappemonde
      point1x = point2x
      point1y = point2y
      'Latitude du point
      point2y = 91 + CInt(rad2deg * Asin(z))
      'Longitude du point
      point2x = 540 + CInt((rad2deg * Atan2(y, x)))
      If i > 269 Then point2x -= 360
    Next
    point1x = point2x
    point1y = point2y
    If declinaison_soleil > 0 Then
      'Tracé: Latitude mini (Sud)
      point2y = 182
    Else
      'Tracé: Latitude maxi (Nord)
      point2y = 0
    End If
    'Tracé: Retour vers la latitude mini ou maxi
    zone_nuit.AddLine(1, point1y, 1, point2y)
    'Tracé: Fermeture vers longitude Est maxi
    zone_nuit.AddLine(1, point2y, 720, point2y)
    '12.  Remplissage zone nuit
    '     Source de Noir avec canal_alpha (A) svt param "penombre"
    Dim pinceau_transparent As New SolidBrush(Color.FromArgb(penombre, 0, 0, 0))
    dessin_fond_nuit.FillPath(pinceau_transparent, zone_nuit)

.
.
.

Conclusion :


Adaptation .NET du programme initial en VB6
Concept pratiquement identique, seul graphisme change.
Format réduit VOLONTAIREMENT (360x180)

Visualisation réaliste

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
21
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
22 février 2015

Bonjour,

J'ai reconditionné le ZIP.

Cela doit être OK.
Messages postés
1
Date d'inscription
jeudi 4 mars 2004
Statut
Membre
Dernière intervention
19 août 2010

Bonjour,
J'ai un souci lors du chargement du projet, il cherche un formulaire Jour_sur_Terre ( dans :
D:\Documents\_Kristian\VB2008\Projets\bitblt\Jour_sur_Terre.vb) qui n'existe pas dans le zip (et n'est pas consultable sur le site).
Pouvez vous l'ajouter svp?
Messages postés
21
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
22 février 2015

Bonjour

Oui ADN56, tu as raison, il faut toujours être précis, strict en l'occurence.

Sera corrigé avec d'autres aménagements à venir.

Merci pour le conseil.

A +
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
Humm surprenant ça, pourquoi fait il une différence entre une var hors procédure et une autre, subtile ??
En tout cas si cela marche chez toi c'est parceque tu programme sans Option Strict On. Avec cette option à on il interdit un dim sans clause as.
Essaye tu verras il sera pas content ++
Messages postés
21
Date d'inscription
vendredi 21 décembre 2007
Statut
Membre
Dernière intervention
22 février 2015

Bonjour ADN56

J'avais lu, mais ne le retrouve plus, que la déclaration d'une variable est implicitement double si elle est faite en dehors des procédures.

J'ai vérifié sur un bout de programme:

Class test
dim toto = 0
.
Sub proc_toto()
toto -=1.0125
msgbox(toto) ==> -1,0125
end sub
.
End Class

MAIS
Class test
.
sub toto()
dim toto = 0
toto -=1.125 ==> -1
end sub
.
End Class

Des subtilités : en pratique on déclare en double !

A+
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (csouche)