Horoscope ordinaire

0/5 (7 avis)

Vue 4 486 fois - Téléchargée 1 117 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
Galactus13 Messages postés 332 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 10 avril 2020 1
18 févr. 2013 à 19:39
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...
mdry Messages postés 33 Date d'inscription dimanche 25 juillet 2004 Statut Membre Dernière intervention 5 mai 2013
15 févr. 2013 à 04:01
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
cs_ghuysmans99 Messages postés 3983 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
14 févr. 2013 à 22:47
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.
mdry Messages postés 33 Date d'inscription dimanche 25 juillet 2004 Statut Membre Dernière intervention 5 mai 2013
14 févr. 2013 à 18:20
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.