begin process at 2013 06 19 00:57:06
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

Débutants

 > 

Pb Passage VB3 à VB6


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Pb Passage VB3 à VB6

mardi 31 juillet 2012 à 10:37:44 | Pb Passage VB3 à VB6

rrrdan

BONJOUR ! J'ai un pb concernant : "Public const NB_COLONNES = 7 " .
Par quoi pourrais je le remplacer ?
Merci d'avance
mardi 31 juillet 2012 à 11:00:10 | Re : Pb Passage VB3 à VB6

ucfoutu

Membre Club
Bonjour,
Le problème n'est pas cette ligne de code en soi, mais vraisemblablement l'endroit où tu l'as mise ! Et tu ne nous en as pas parlé !
En te rappelant qu'une déclaraction publique ne peut se faire que dans un module bas


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
mardi 31 juillet 2012 à 11:19:15 | Re : Pb Passage VB3 à VB6

rrrdan

voilà le code où j'en suis merci :

Option Explicit


Option Base 1


Public ligne_cube As Integer
Public colonne_cube As Integer
Public type_cube As Integer
Public couleur_fond As Long


Public score As Integer


Public const NB_COLONNES = 7
Private Const NB_LIGNES = 10
Private Const MAX_COULEURS = 6


Private Const ABSENCE_CUBE = -1
Private Const TAILLE_ALIGNEMENT = 3


Private tableau_jeu(NB_LIGNES, NB_COLONNES)
Private tableau_alignements(NB_LIGNES, NB_COLONNES)







Public Sub init_tableau_jeu()
Dim Ligne As Integer
For Ligne = 1 To NB_LIGNES
For colonne = 1 To NB_COLONNES
tableau_jeu(Ligne, colonne) = ABSENCE_CUBE
Next colonne
Next Ligne
End Sub


Public Sub afficher_cube()
Dim num_cube As Integer
Dim couleur_cube As Long


' CALCUL NUMERO CONTROLE GRAPHIQUE
num_cube = (ligne_cube - 1) * NB_COLONNES + (colonne_cube - 1)
' LECTURE COULEUR D'AFFICHAGE
couleur_cube = Form2.Picturel(type_cube).BackColor
' AFFICHAGE CUBE SUR ECRAN
Form1.Picturel(num_cube).BackColor = couleur_cube
' MEMORISATION CUBE EN MEMOIRE
tableau_jeu(ligne_cube, colonne_cube) = type_cube

End Sub
Public Sub effacer_cube()
Dim num_cube As Integer

' CALCUL NUMERO CONTROLE GRAPHIQUE
num_cube = (ligne_cube - 1) * NB_COLONNES + colonne_cube - 1
' EFFACEMENT CUBE SUR ECRAN
Form1.Picture1(num_cube).BackColor = couleur_fond
' EFFACEMENT CUBE EN MEMOIRE
tableau_jeu(ligne_cube, colonne_cube) = ABSENCE_CUBE

End Sub
presence_cube = tableau_jeu(ligne_cube + 1, colonne_cube)
If presence_cube = ABSENCE_CUBE Then
effacer_cube
ligne_cube = ligne_cube + 1
afficher_cube
Else
apparition_nouveau_cube
End If
' TEST SI CUBE EN BAS DE L'ECRAN
If ligne_cube = NB_LIGNE Then
apparition_nouveau_cube
Exit Sub
End If

presence_cube = tableau_jeu(ligne_cube + 1, colonne_cube)
If presence_cube = ABSENCE_CUBE Then
effacer_cube
ligne_cube = ligne_cube + 1
afficher_cube
Else
apparition_nouveau_cube
End If




mardi 31 juillet 2012 à 11:32:18 | Re : Pb Passage VB3 à VB6

ucfoutu

Membre Club
Et tu crois vraiment avoir répondu à :

mais vraisemblablement l'endroit où tu l'as mise ! Et tu ne nous en as pas parlé !



??????
Et ma remarque suivante ne t'a mis aucune ^puce à l'oreille, en ce qui concerne l' "endroit" ???

une déclaraction publique ne peut se faire que dans un module bas


Vraiment ???


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
mardi 31 juillet 2012 à 11:55:08 | Re : Pb Passage VB3 à VB6

rrrdan

je suis novice : c'est un programme que j'ai pris dans un bouquin
un module bas c'est bien un fichier à terminaison Bas ?
Non c'est dans les declarations : je sens que je vais morfler hiiiiiiiiiiiiii
mardi 31 juillet 2012 à 12:14:46 | Re : Pb Passage VB3 à VB6

ucfoutu

Membre Club

Non c'est dans les declarations : je sens que je vais morfler hiiiiiiiiiiiiii


Evidemment, dans lers déclarations !
Mais dans un module.bas si constante publique



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
mardi 31 juillet 2012 à 18:15:14 | Re : Pb Passage VB3 à VB6

rrrdan

merci beaucoup , j'ai du mal maintenant à faire le module basique mais j'arriverai
bonsoir hiiiiiiiiiiiiiiiiii
jeudi 2 août 2012 à 18:29:18 | Re : Pb Passage VB3 à VB6

elguevel


Et quel est exactement le message de l'erreur ?

Tu peux aussi typer tes constantes si mes souvenirs sont bons :
-> Public Const NB_COLONNES As Integer = 7

PS : Je suis surpris egalement que Visual Studio n'est pas corrigé ton "const" en "Const"

Conseil : Passe directement en .Net :-)

++

../\_/\..
.( o.o ). ~ ElGuevel ~
..> - <..
jeudi 2 août 2012 à 19:17:51 | Re : Pb Passage VB3 à VB6

ucfoutu

Membre Club
Bonjour, elguevel,

Et quel est exactement le message de l'erreur ?



Les yeux fermés :
un message lui exposant ce que je lui ai dit et qui nécessite sa connaissance (au moins) de son IDE (ce qu'est un module.bas) ===>> en français (moi, j'ai une version shakespearienne) :
"Erreur de compilation.
Les constantes, les chaînes de longueur fixe, les matrices, et les instructions de déclaration
(Declare) ne peuvent être permises comme membres publics dans les modules d'objets"!
Ce code (qu'il a copié, dit-il) ne peut qu'être inséré dans un module .bas.
Savoir ce qu'est un module .bas est nécessaire (et c'est son IDE) !
Qu'il essaye au moins : Projet ===>> insérer ===>> module (c'est un minimum).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
jeudi 2 août 2012 à 21:04:45 | Re : Pb Passage VB3 à VB6

ShayW

Bonjour

Je n'ai pas compris le rapport du sujet

Pb Passage VB3 à VB6


avec la question



1 2

Cette discussion est classée dans : pb, vb6, passage, vb3


Répondre à ce message

Sujets en rapport avec ce message

Pb vb6 suite à passage win nt win2000 [ par Chris123 ] Bonjour à tous,Suite à un passage win nt => win200, j'ai des erreurs de compilation sur un projet vb6 concernant des commandes tels que chr$ ou comma Pb entre VB6 et XP Pro [ par btsinfoniort ] Après avoir installé VB6 en tant qu'administrateur de la station XP, seul cet administrateur accède aux différents compléments dans le gestionnaire de Pb entre VB6 et EXCEL [ par EPS32HAY ] EPS32HAY bonsoir,J'ai un petit problème dans une application VB. Je crée une ComboBox et je veux initialiser celle ci avec les contenu des cellules A pb avec l'évènement initialize en vb6 ! [ par isi2g16 ] Salut,l'évènement initialize() est simmilaire à un constructeur, ok !mais comment passer des paramètres ?pour initialiser un nouvel objet de ma classe Passage de Crystal Rpt 8.08 a 9.2 avec VB 5 [ par Benot ] Bonjour,j'essaie de migrer des documents Crystal Report 8.0 en 9.2, et j'ai un pb lors de l'utilisation de la fonction : PEOpenPrintJob. J'ai récupéré Pb de passage de variable [ par laglobule ] Comment faire passer un tablo (variable) entre deux forms ?En clair, dans un form, j 'ai un tablo (array) dynamique et j'aimerais recuperer cette vari Migration VB3 --> VB6 [ par Krisiu ] Je dois migrer une appli VB3 en VB5 ou 6. Quelqu'un aurait-il des infos à me donner ?Merci... Base de donnes sous Access 2000 avec VB6 [ par karloz ] Salut tous le monde,Voila j'ai un pb avec VB6, Lorsque je mets un Control Data. Le pb c que je connecte le Control Data avec une base de donnée faite pb de compatibilité : vb6 access2000 xp [ par Godzilla65 ] Ayant déjà parcouru le forum à ce sujet, j'aimerai savoir si quelqu'un a résolu un problème de compatibilité avec la config suivante vb6, access2000, Pb avec Spread sur VB6 [ par ASteph ] Bonjour, Quelqu'un utilise t'il le Spread de Farpoint ? si oui avez vous déjà installé votre appli sur un poste user ??car j'ai un souci, j'ai crée un


Nos sponsors


Sondage...

CalendriCode

Juin 2013
LMMJVSD
     12
3456789
10111213141516
17181920212223
24252627282930

Consulter la suite du CalendriCode

Photothèque

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,420 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales