Jour sur terre

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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)