Carre magique de 25 cases

Soyez le premier à donner votre avis sur cette source.

Vue 5 206 fois - Téléchargée 361 fois

Description

Ben c'est un carre magique de 5 par 5
Ya pas de bug connu (ben à ce que je sache, ça fait 5 minutes que je l'ai finit...)
Enfin, j'ai mit le ZIP -=ET=- la Source -=ET=- le screenshot :-D

Voila...

Suggestions grandement appréciées

Voodoo
~~~~~~~~~~~~~~~~
In Open Source We Trust

Source / Exemple :


Private Sub cmdverif_Click()
reu = 0  'variable "réussit"
For i = 0 To txtcase.Count - 1
    nombre = Val(txtcase.Item(i).Text)
    If nombre < 1 Or nombre > 25 Then
        MsgBox "Vous ne devez pas dépasser 25 !" & vbCrLf & "Le Zéro ne compte pas !", , "Nombres"
        txtcase.Item(i).SelStart = 0
        txtcase.Item(i).SelLength = Len(txtcase.Item(i))
        txtcase.Item(i).SetFocus
        Exit Sub
    End If
Next

For i = 0 To txtcase.Count - 1
    For p = o To txtcase.Count - 1
        If i = p Then
            Exit For
        Else
            If txtcase.Item(i) = txtcase.Item(p) Then
                MsgBox "Vous avez 2 chiffres identiques !"
                txtcase.Item(i).SelStart = 0
                txtcase.Item(i).SelLength = Len(txtcase.Item(i))
                txtcase.Item(i).SetFocus
                Exit Sub
            End If
        End If
    Next p
Next i

If lbltot.Item(0).Caption = "65" And lbltot.Item(1).Caption = "65" _
    And lbltot.Item(2).Caption = "65" And lbltot.Item(3).Caption = "65" _
        And lbltot.Item(4).Caption = "65" And lbltot.Item(5).Caption = "65" _
        And lbltot.Item(6).Caption = "65" And lbltot.Item(7).Caption = "65" _
        And lbltot.Item(8).Caption = "65" And lbltot.Item(9).Caption = "65" _
        And lbltot.Item(10).Caption = "65" And lbltot.Item(11).Caption = "65" Then
    reu = 1
Else
    reu = 0
End If

If reu = 0 Then
    MsgBox "Na...", , "Manqué !"
Else
    MsgBox "Bravo !!", , "Réussi !"
End If
End Sub

Private Sub cmdreset_Click()
For i = 0 To txtcase.Count - 1
    txtcase.Item(i).Text = ""
    txtcase.Item(i).MaxLength = 2
Next

For i = 0 To lbltot.Count - 1
    lbltot.Item(i).Caption = "0"
    lbltot.Item(i).FontSize = 10
Next
End Sub

Private Sub Form_Load()
For i = 0 To txtcase.Count - 1
    txtcase.Item(i).Text = ""
    txtcase.Item(i).MaxLength = 2
Next

For i = 0 To lbltot.Count - 1
    lbltot.Item(i).Caption = "0"
    lbltot.Item(i).FontSize = 10
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub txtcase_Change(Index As Integer)
For i = 0 To 4
    tot1 = tot1 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(0).Caption = tot1
'/////////////////////////////////////////
For i = 5 To 9
    tot2 = tot2 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(1).Caption = tot2
'/////////////////////////////////////////
For i = 10 To 14
    tot3 = tot3 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(2).Caption = tot3
'/////////////////////////////////////////
For i = 15 To 19
    tot4 = tot4 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(3).Caption = tot4
'/////////////////////////////////////////
For i = 20 To 24
    tot5 = tot5 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(4).Caption = tot5
'/////////////////////////////////////////
For i = 0 To 20 Step 5
    tot6 = tot6 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(10).Caption = tot6
'/////////////////////////////////////////
For i = 1 To 21 Step 5
    tot7 = tot7 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(9).Caption = tot7
'/////////////////////////////////////////
For i = 2 To 22 Step 5
    tot8 = tot8 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(8).Caption = tot8
'/////////////////////////////////////////
For i = 3 To 23 Step 5
    tot9 = tot9 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(7).Caption = tot9
'/////////////////////////////////////////
For i = 4 To 24 Step 5
    tot10 = tot10 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(6).Caption = tot10
'/////////////////////////////////////////
For i = 0 To 24 Step 6
    tot11 = tot11 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(5).Caption = tot11
'/////////////////////////////////////////
For i = 4 To 20 Step 4
    tot12 = tot12 + Val(txtcase.Item(i).Text)
Next
lbltot.Item(11).Caption = tot12

End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
88
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
2 janvier 2007

oops, j'ai parlé trop vite ;)
C'est un site de maths amusante, pas scolaire ;)
Messages postés
88
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
2 janvier 2007

Humm, Il manque une chose à ton site, Setaou...
Pour trouver la case centrale,
C=nombre de cases sur 1 côté

Case_centrale=(c+1)/2
Quant au resultat :
4!=1*2*3*4 c'est une factorielle

(je ne vous prend pas pour des c* mais il y a des gens de tout age ici ;))

Grâce a celà vous pourrez déduire comment on obtien la somme ;)

Mais je met ça sur le compte de l'inatention ;)

Je vous invite ici :
www.imaxel.no-ip.com/programaths
(c'est du même genre)
Messages postés
21
Date d'inscription
samedi 16 novembre 2002
Statut
Membre
Dernière intervention
1 juillet 2003

Je sais que c'est facile mais le prog sert plusse a montrer comment faire des cases indexé et a se servir du "For".
Ce qui est bien c'est qu'on pourrais ajouter autant de cases qu'on veut sans meme toucher au code d'initialisation.
Messages postés
127
Date d'inscription
mercredi 28 mars 2001
Statut
Membre
Dernière intervention
4 octobre 2004

Messages postés
236
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
18 août 2006

ouh la ! G failli télechargé ton prog mais quand G vu ta capture, g aussitot abandonné !
Afficher les 8 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.