rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Ecreire programme en vb

providence, le mardi 12 juin 2007 à 20:31:08
bsr a tous
j'ai un programme à ecrire en vb dans le cadre d'un projet d'ecole.l'enoncé est le suivant:
Dans l'enclypedie des jeux 2007, il a fallu utiliser 2007 fois "1" pour numeroter toutes les pages.
Ecrire un programme VB6 qui puisse nous permettre de determiner le nombre de pages de cette encyclopedie.
Nb: Quand on numerote par exemple de 1 à 20, on utilise 12 fois 1!



je sais pas trop par où commencer.Merci pour votre aide
Configuration: Windows XP
Firefox 2.0.0.3
Répondre à providence  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
maxou_80, le mardi 12 juin 2007 à 20:46:20
Salut providence alors je n'ai pas trop réchléchit mais voilà un petit début :

Option explicit //toujours préférable....

dim i as integer
dim chaine as string
dim nb_page as integer

nb_page =0
i=0 //initialisations

While (i<>2007)

chaine=str(i) //j'ai des doutes quant à la syntaxe de conversion d'un entier en chaine de caractères

//ici tu lis ta chaine de caractères en mettant un if du style

if (chaine="1") then
nb_page=nb_page+1
end if

i=i+1 //indispensable pour ne pas avoir de boucle infini!

Wend


voila j'espère que ca pourra t'aider
   
Répondre à maxou_80

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
fiddy, le mardi 12 juin 2007 à 21:09:34
Salut

Ton code ne marche pas. Dès que le nombre dépasse les dizaines, ça ne pourra pas être égale à "1".
Voici une petite correction 


Option explicit //toujours préférable....

dim i as integer
dim chaine as string
dim nb_page as integer

nb_page =0
i=0 //initialisations

While (i<>2007)

     chaine=str(i) 'j'ai des doutes quant à la syntaxe de conversion d'un entier en chaine de caractères

    'ici tu lis ta chaine de caractères en mettant un if du style

    ' On vérifie si "1" appartient au chiffre
    if (substring(chaine,"1")>0) then
         nb_page=nb_page+1
    end if

    i=i+1 'indispensable pour ne pas avoir de boucle infini!

Wend
Google is your friend
   
Répondre à fiddy

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
.nono., le mardi 12 juin 2007 à 22:05:39
Ca ne contrôle pas si il y a plusieurs "1" dans la page ;-)
   
Répondre à .nono.

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
fiddy, le mardi 12 juin 2007 à 23:16:07
Lol.
Tu as parfaitement raison. Je me suis un peu emporté. ^^
Voici une version corrigée. again. lol 

Option explicit //toujours préférable....

dim i as integer
dim chaine as string
dim nb_page as integer

nb_page =0
i=0 //initialisations

While (i<>2007)

     chaine=str(i) 'j'ai des doutes quant à la syntaxe de conversion d'un entier en chaine de caractères

    'ici tu lis ta chaine de caractères en mettant un if du style

    ' On parcourt tant qu'il reste des "1" dans la chaine.
    j=0
    while(substring(j,chaine,"1")>0) 
        nb_page=nb_page+1
       j=substring(j,chaine,"1")
    wend
    i=i+1 'indispensable pour ne pas avoir de boucle infini!

Wend
Google is your friend
   
Répondre à fiddy

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
providence, le mercredi 13 juin 2007 à 01:48:01
Merci a tous pour votre promptitude mais une petite inquietude p/r à la fonction substring:je souhaiterais savoir si c'est bien l'equivalent de la fonction Mid dans vb6.merci
   
Répondre à providence

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 big_ouf, le vendredi 21 décembre 2007 à 13:02:42
Pour faire une similitude à la fonction mid, tu peux utiliser tout d'abord la fonction len pour savoir le nombre de chiffres que comporte ton nombre.
Dans une boucle, tu fais un 




position =1         ' Position du pointeur dans le mot, mais je ne sais plus s'il commence à 0 ou à 1
for i = 1 to len(nombre)
      if mid(nombre,position,1) = "1" then
             j = j+1               'j etant le nombre de "1"
      endif
      position = position +1
next i
   
Répondre à big_ouf
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Visual Basic 6 Runtime (VB6 DLL) 6.0 SP5Visual Basic 6 Runtime (VB6 DLL) - Le Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en...Catégorie: Librairies (DLL)
Licence: Freeware/gratuit
Télécharger VbrFix 1H BetaVbrFix - VBR Fix est un logiciel permettant de réparer les fichiers MP3 endommagés encodés en bitrate variable (VBR - Variable...Catégorie: Extraction
Licence: Freeware/gratuit
Télécharger VB Editor 2.0VB Editor - Décompileur de fichiers exécutables compilés avec Visual Basic 5 ou 6 Catégorie: Visual Basic
Licence: Freeware/gratuit
Télécharger progeCAD 2008 2008 SmartprogeCAD 2008 - Vous recherchez une solution gratuite afin de vous familiariser avec le domaine du CAD ? Ce logiciel est fait pour vous....Catégorie: 3D
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « ecreire programme en vb »