Discussion :

[fabiprotour]

Salut à tous,

J'ai monté une appli sous visual studio express 2008. J'ai mis en ecran de démarage un SplashScreen avec une image. J'aimerais que cette image change en fonction de la saison, je suis donc allé dans mon SplashScreen designer et j'ai trouvé la ligne qui correspond à l'affichage de l'image :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.plus_belle_plage

Où plus_belle_plage est le nom de mon image.

Je voudrais mettre un If pour dire si on est en été tu met la plage, si on est en automne tu met les feuilles et ainsi de suite pour toutes les saison. Le problème est que je ne connais pas le code pour le faire.
Peut être vaut il mieu que je compare des date qui correspondrais à mes saisons mais je ne connais pas non plus le code.

Merci.

[tomlev]

Le problème est que je ne connais pas le code pour le faire.

pour faire quoi ? savoir en quelle saison on est ? changer l'image ? Le code pour mettre une image, tu l'as posté... donc je vois pas ce qui te manque

Pour la saison, il suffit de connaitre les dates des saisons :
- Printemps : 21 mars
- Eté : 21 juin
- Automne : 21 septembre
- Hiver : 21 décembre

[fabiprotour]

Merci de ta réponse,

En fait il me manque le code pour récupérer le jour et le mois (sans l'année) et la solution pour comparer les date :

Comment je peux lui dire : - Si la date systeme est supérieure au 21/03 et est inférieur au 21/06 alors... le reste je le connais.

Merci.

[Hinault Romaric]

pour récupérer le mois et le jour suffit juste que tu passe l'heure système dans une variable de type DateTime.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim Dt as DateTime
Dt.Day 'pour avoir le jour
Dt.month 'pour avoir le mois

et pour compare tu peut faire un Date1.CompareTo(Date2)

Date1.CompareTo(Date2)
compare la valeur de cette instance a une instance System.datetime et retourne un entier qui indique si cette instance est antérieur, ultérieur ou égal au Datetime spécifié

@++

[fabiprotour]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim l_Date As DateTime
        l_Date.Day
        l_Date.Month

Visual studio me renvoi l'erreur :

Erreur Un accès à la propriété doit assigner la propriété ou utiliser sa valeur.

Et après avoir récupérer mon jour et mon mois comment je fait pour les assembler?

en gros je voudrais un truc comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If DateSystem > 21/03 and DateSystem < 21/06 Then
                   Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.image_de_printemps
Else
                   If DateSystem > 21/06 and DateSystem < 21/12hen
                   Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.image_d_hiver
                   End If
End If

Sauf que ça ne marche pas. Je suis pas très fort en programmation, je comprends pas tout ^^.

Merci

[Hinault Romaric]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim l_Date As DateTime
        l_Date.Day
        l_Date.Month

l_Date.Day et l_Date.Month retourne des entiers donc tu doit les affecter a deux variables de type int.

[tomlev]

Voilà une fonction qui renvoie la saison pour une date donnée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
	Public Enum Season
		Spring
		Summer
		Autumn
		Winter
	End Enum
 
	Public Shared Function GetSeason(ByVal dt As DateTime) As Season
		Dim dSpring As DateTime = New DateTime(dt.Year, 3, 21)
		Dim dSummer As DateTime = New DateTime(dt.Year, 6, 21)
		Dim dAutumn As DateTime = New DateTime(dt.Year, 9, 21)
		Dim dWinter As DateTime = New DateTime(dt.Year, 12, 21)
		If dt < dSpring Then
			Return Season.Winter
                ElseIf dt < dSummer Then
			Return Season.Spring
                ElseIf dt < dAutumn Then
			Return Season.Summer
                ElseIf dt < dWinter Then
			Return Season.Autumn
		Else
			Return Season.Winter
		End If
	End Function

Pour l'utiliser, tu peux faire comme ça (en supposant que tu aies dans les ressources de ton appli des images Printemps, Eté, Automne et Hiver) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim saison As Season = GetSeason(DateTime.Today)
Select Case saison
    Case Season.Spring
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Printemps
    Case Season.Summer
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Eté
    Case Season.Autumn
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Automne
    Case Season.Winter
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Hiver
    Case Else
        ' cas par défaut (ne devrait pas se produire...)
End Select

[fabiprotour]

J'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Dim l_Date As DateTime
        Dim l_Day As Integer
        Dim l_Month As Integer
        Dim l_DateStr As String
 
        l_Day = l_Date.Day
        l_Month = l_Date.Month
        l_DateStr = CStr(l_Day) & "/" & CStr(l_Month)
        MsgBox(l_DateStr)

Mais mon msgbox renvoi 1/1 il ne me renvoi pas 2/9.

Il me manque quelque chose?

[mermich]

sur la premiere ligne mettre:

Dim l_Date As DateTime = DateTime.Now

sinon c'est le 01/01/1970 je crois.

[fabiprotour]

Super Tomlev ca marche super bien.

Merci beaucoup

[fabiprotour]

tomlev dans ce que tu m'a donné comment je pourrais faire un random avec plusieurs photos pour l'été, plusieures pour l'hiver...


Si je met :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim saison As Season = GetSeason(DateTime.Today)
Select Case saison
    Case Season.Spring
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Printemps
        Or
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Printemps2
    Case Season.Summer
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Eté
        or
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Eté2
    Case Season.Autumn
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Automne
        or
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Automne2
    Case Season.Winter
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Hiver
        or
        Me.MainLayoutPanel.BackgroundImage = Global.Gestion_Informatique.My.Resources.Resources.Hiver2
    Case Else
        ' cas par défaut (ne devrait pas se produire...)
End Select

[tomlev]

Ce n'est pas à ça que sert l'opérateur Or... le code que tu as écrit n'a pas de sens. J'ai l'impression qu'il te manque quelques connaissances de base sur le langage pour pouvoir développer efficacement... tu devrais y remédier en lisant le cours de Philippe Lasserre

Pour générer des nombres aléatoires on utilise la classe Random. Tu peux voir ça comme un dé à N faces. Selon le nombre obtenu, tu choisis telle ou telle image