Horoscope ordinaire

Soyez le premier à donner votre avis sur cette source.

Vue 3 738 fois - Téléchargée 1 027 fois

Description

Comment faire un horoscope. Tous est dans le ZIP. Une fois lancé,entrez jour,mois,année ensuite clic sur signe, une icône apparait et clic sur icône pour avoir le texte.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Pas encore analyser, mais pour un 2eme source, sa marche !
Cela me rappel mon propre soft Astro 99, encore plus redondant !
Faudra que je vous le mette, histoire d'amuser la galerie surtout. avec une mise au propre, parce que coté codage, ben si on y retrouve ses petits...
Messages postés
33
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
5 mai 2013

Salut tout le monde
Ce genre de site VBFrance pour moi est là pour apprendre et à aider. Selon moi, n'importe qui peux prendre, modifier, ajouter à leur propre code sans demander la permission ( permission accordée à vie) sinon... Si un code peux rendre une personne heureuse, alors, pour moi c'est parfait, le site est là pour ça.
Allez de code en code et bonne programmation.
Mdry
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
12
Excellente proposition de mdry ! Une p'tite màj de ta source en le citant ne serait pas superflu, s'il est d'accord, bien sûr ;)
Bon voici, j'ai suivi un cours en informatique en 2004 et il y avait un module traitant de Visual Basic durant le cours de communication, soit 75 heures, j'ai reçu une formation très basic d'environ 15 hrs en VB et que je ne connaissais pas du tout. Après avoir fais des recherches, j'ai trouvé un code en html et j'ai tenté de le refaire en VB.

JE VOUS REMERCIE BCP, car je n'avais pas pensé au select case.
Messages postés
33
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
5 mai 2013

Salut,

Voici un petit exemple simple:
Renomme tout tes Commandes (CmdVerseau,CmdCapricorne,etc...) en cmdSigne et met Index de 0 à 11

Private Sub cmdVotreSigne_Click() ' quand clique sur le bouton
Dim Jour As Integer
Dim Tmp As String
Dim Idx As Integer

Jour = cboJour.Text

Select Case Val(cboMois.Text)
Case 1: If Jour >= 20 And Jour <= 31 Then Idx = 0 Else Idx = 11
Case 2: If Jour >= 19 And Jour <= 29 Then Idx = 1 Else Idx = 0
Case 3: If Jour >= 21 And Jour <= 31 Then Idx = 2 Else Idx = 1
Case 4: If Jour >= 20 And Jour <= 30 Then Idx = 3 Else Idx = 2
Case 5: If Jour >= 21 And Jour <= 31 Then Idx = 4 Else Idx = 3
Case 6: If Jour >= 22 And Jour <= 30 Then Idx = 5 Else Idx = 4
Case 7: If Jour >= 23 And Jour <= 31 Then Idx = 6 Else Idx = 5
Case 8: If Jour >= 23 And Jour <= 31 Then Idx = 7 Else Idx = 6
Case 9: If Jour >= 23 And Jour <= 30 Then Idx = 8 Else Idx = 7
Case 10: If Jour >= 23 And Jour <= 31 Then Idx = 9 Else Idx = 8
Case 11: If Jour >= 22 And Jour <= 30 Then Idx = 10 Else Idx = 9
Case 12: If Jour >= 22 And Jour <= 31 Then Idx = 11 Else Idx = 10
End Select
cmdSigne(Idx).Visible = True
txt_File.Text = ""
End Sub

Private Sub cmdSigne_Click(Index As Integer)
Dim FF As Integer 'premier Handle libre
Dim Signe As Variant 'liste des signes (0 à 11)
Dim Buffer As String 'pour lire le fichier

Signe = Array("Verseau", "Poissons", "Belier", "Taureau", "Gemeaux", "Cancer", "Lion", "Vierge", "Balance", "Scorpion", "Sagittaire", "Capricorne")

On Error GoTo Erreur 'Si erreur de fichier
FF = FreeFile
'tu peux offir le fichier en Binary ou Input c'est ton choix
Open Path & Signe(Index) & ".txt" For Binary As #FF
Buffer = Space(LOF(FF)) 'réserve l'espace pour la lecture du fichier
Get #FF, , Buffer 'lit tout le fichier
Close
txt_File.Text = Buffer 'affiche le texte dans le text box de la form
cmdSigne(Index).Visible = False
Exit Sub

Erreur: 'gestion d'erreur
'affichage d'une msgbox avec la description de l'erreur et le numéro de l'erreur
MsgBox Err.Description & vbCrLf & Err.Number, vbCritical, ""
End Sub

À la prochaine
Afficher les 7 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.