Se connecter / S'enregistrer

Résolu Comment simplifier un programme VB ?

Solutions (3)
Tags :
  • VB
|
bonjour,
je suis en train de programmer en vb 2008 et j'ai besoin de l'aide. vu que le code est très long, je cherche à réduire le nombre de lignes et pour ça je m'adresse à vous. voiçi un exemple:
dim tabetudiant(50) as etudiant
public structure etudiant
dim cin as string
dim nom as string
dim age as integer
dim num as integer
end structure
tabetudiant(0).cin="CD45678990"
tabetudiant(0).nom="amine"
tabetudiant(0).age=22
tabetudiant(0).num=168
est ce qu'il y a une méthode de regrouper les 4 lignes précédentes en une seule instruction
merci
  • OmaR a édité ce message
Contenus similaires
Meilleure solution
partage
|
Dans la structure, il faut ajouter le constructeur:
  1. public structure etudiant
  2. dim cin as string
  3. dim nom as string
  4. dim age as integer
  5. dim num as integer
  6.  
  7. Public Sub New(InitCin as string, InitNom as string, initAge as integer, initNum as integer)
  8. Me.cin=InitCin
  9. Me.nom=InitNom
  10. Me.age=initAge
  11. Me.num=initNum
  12. End Sub
  13. End Structure

puis pour le créer:
  1. Dim e As New etudiant("cin", "nom", 1, 2)

(code non testé)
  • OmaR a sélectionné cette solution comme la meilleure réponse
  • heidi92 a voté pour cette réponse
  • Commenter cette solution |
Score
0
òh
òi
|
bonjour,
j'ai essayé ce que vous m'avez proposé mais ça ne marche pas, lors de l'execution rien n'est affiché.
code:
Public Class Form1
Dim tabville(50) As ville
Public Structure ville
Dim nom As String
Dim longi As Double
Dim lat As Double
Dim tam As Double

Public Sub New(ByVal InitNom As String, ByVal initLongi As Double, ByVal initLat As Double, ByVal initTam As Double)
Me.nom = InitNom
Me.longi = initLongi
Me.lat = initLat
Me.tam = initTam
End Sub
End Structure

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim fi, longi, tamb As Double
Dim fes As New ville("fes", 34, 56, 23)
Dim rabat As New ville("rabat", 41, 32, 21)
Dim casa As New ville("casa", 65, 34, 22)
Dim settat As New ville("settat", 12, 23, 15)
Dim meknes As New ville("meknes", 33, 24, 33)
For i = 0 To 6
If tabville(i).nom = ComboBox1.SelectedItem Then
fi = tabville(i).lat
longi = tabville(i).longi
tamb = tabville(i).tam
TextBox3.Text = CStr(fi)
TextBox2.Text = CStr(longi)
TextBox1.Text = CStr(tamb)
End If
Next
End Sub
End Class
merci
  • Commenter cette réponse |
Score
0
òh
òi
|
Ajoute un constructeur dont les paramètres sont les valeurs à initialiser et tu pourras initialiser ta structure en une ligne.
  • Dreamcaster a sélectionné cette solution comme la meilleure réponse
  • Commenter cette réponse |

Ce n'est pas ce que vous cherchiez ?

Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS