Un petit problème
Signaler
eulerin
cheorches
- Messages postés
- 2
- Date d'inscription
- mardi 29 mai 2007
- Statut
- Membre
- Dernière intervention
- 30 mai 2007
cheorches
- Messages postés
- 1
- Date d'inscription
- jeudi 9 août 2007
- Statut
- Membre
- Dernière intervention
- 9 août 2007
4 réponses
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
tu as l'IDE correspondant ?
Visual Basic 6, ou Visual Basic 2005 Express, par exemple ?
Visual Basic 6, ou Visual Basic 2005 Express, par exemple ?
eulerin
- Messages postés
- 2
- Date d'inscription
- mardi 29 mai 2007
- Statut
- Membre
- Dernière intervention
- 30 mai 2007
Je viens de télécharger Visual Basic 6 , à quoi il sert ?
econs
- Messages postés
- 4030
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
Salut,
Si tu as Visual Basic 6, et que ton code est en VB6, alors il suffit de double cliquer sur le fichier qui a l'extension ".vbp".
L'IDE s'ouvrira alors.
Si tu tapes F5, le code devrait s'exécuter.
Si tu cliques sur Fichier>Créer [NomDuProjet].exe, tu créeras l'exécutable associé.
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Si tu as Visual Basic 6, et que ton code est en VB6, alors il suffit de double cliquer sur le fichier qui a l'extension ".vbp".
L'IDE s'ouvrira alors.
Si tu tapes F5, le code devrait s'exécuter.
Si tu cliques sur Fichier>Créer [NomDuProjet].exe, tu créeras l'exécutable associé.
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
cheorches
- Messages postés
- 1
- Date d'inscription
- jeudi 9 août 2007
- Statut
- Membre
- Dernière intervention
- 9 août 2007
avec vb 2005 express voici un code fait a partir de l'algo minimum.
Dim
a
As
Long
Dim b
As
Long
Dim c
As
Long
'ici on defoni la plage de nombres, le premier doit forcement etre impair !!!
For a = TextBox2.Text
To TextBox3.Text
Step 2
Dim d
As
Integer = 1
For b = 2
To a - 1c = a
Mod b
If c = 0
Thend = 0
Else
End
If
'control des valeurs testés en temps réel, pratique pour une grande plage de nombre
Label1.Text = b
Label1.Refresh()
Label2.Text = a
Label2.Refresh()
Next
Select
Case d
Case 0
Case 1
'affichage des nombres premiers
TextBox1.Text = TextBox1.Text & vbCrLf & a &
" est un nombre premier"TextBox1.Refresh()
' ecriture dans un fichier, qui doit etre créer manuellement
My.Computer.FileSystem.WriteAllText(
"c:\premier.txt", a & vbCrLf,
True)
End
Select
Next
Dim
a
As
Long
Dim b
As
Long
Dim c
As
Long
'ici on defoni la plage de nombres, le premier doit forcement etre impair !!!
For a = TextBox2.Text
To TextBox3.Text
Step 2
Dim d
As
Integer = 1
For b = 2
To a - 1c = a
Mod b
If c = 0
Thend = 0
Else
End
If
'control des valeurs testés en temps réel, pratique pour une grande plage de nombre
Label1.Text = b
Label1.Refresh()
Label2.Text = a
Label2.Refresh()
Next
Select
Case d
Case 0
Case 1
'affichage des nombres premiers
TextBox1.Text = TextBox1.Text & vbCrLf & a &
" est un nombre premier"TextBox1.Refresh()
' ecriture dans un fichier, qui doit etre créer manuellement
My.Computer.FileSystem.WriteAllText(
"c:\premier.txt", a & vbCrLf,
True)
End
Select
Next