Boletus 2.0

Soyez le premier à donner votre avis sur cette source.

Vue 2 962 fois - Téléchargée 546 fois

Description

Un programme qui sert pour déterminer espéces du genre Boletus (champignons) selon les caracteres selectionnés.
Il permet modifier les fichiers ini et codigos.dat pour fair une nouvelle basse de donnés sans changer le executable.
Excussez-moi mon horrible francais.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
jupevi
Messages postés
3
Date d'inscription
mardi 26 mai 2009
Statut
Membre
Dernière intervention
30 septembre 2011

30 sept. 2011 à 18:12
Merci Ghuymans99, c'est meilleure comme ça.
J'apprécie tous les conseils.
cs_ghuysmans99
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
16
30 sept. 2011 à 17:54
#For g = 1 To num#If Mid$(aser, g, 1) Mid$(NA, g, 1) Or Mid$(aser, g, 1) "*" Then
#L = L + 1
#''Else -->useless !
#''L = L
#End If

#If [...] Then
#[...]
#End
#''Else -->useless, put the 1st and the 2nd lines together
#''End If

#''If i = 0 Then GoTo 1 --> GOTO is really bad !
#If (Mid$(NA, num + 2, Len(NA) - num) = List1.List(i - 1)) And (i <> 0) Then
#''i = i -->useless !
#Else
#List1.AddItem Mid$(NA, num + 2, Len(NA) - (num - 1)), i
#i = i + 1
#End If
Let's use a simple formula : NOT(a AND b) = (NOT a) OR (NOT b)
So, NOT((Mid$(NA, num + 2, Len(NA) - num) = List1.List(i - 1)) And (i <> 0))
Becomes (Mid$(NA, num+2, Len(NA)-num) <> List1.List(i-1)) Or (i=0) ::
#If (Mid$(NA, num+2, Len(NA)-num) <> List1.List(i-1)) Or (i=0) Then
# List1.AddItem Mid$(NA, num + 2, Len(NA) - (num - 1)), i
# i = i + 1
#End If

Indenting your code is also a good idea : it'll be easier to read for others ...

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.