Menu

Comment activer le bouton calcul

Messages postés
61
Date d'inscription
vendredi 12 octobre 2018
Statut
Membre
Dernière intervention
25 avril 2019
-
Bonjour,

j'ai écris un code qui saisi les notes et qui redimensionne la taille par la suite et doit rendre actif le bouton calcule de moyenne active lorsqu'il rentre au moins 2 valeurs
mais mon code ne marche pas

Private Sub BtnOK_Click(sender As Object, e As EventArgs) Handles BtnOK.Click
        'saisie de note dans le tableau
        note = New Double(cnt) {}
        If cnt < note.Length Then
            note(cnt) = CDbl(Txtnote.Text)
            cnt += 1
            Txtnote.Text = ""
            Txtnote.Focus()
        Else
            ReDim Preserve note(cnt + 10)
            note(cnt) = CDbl(Txtnote.Text)
            cnt += 1
            Txtnote.Text = ""
            Txtnote.focus()
        End If
        If cnt = 2 Then
            BtnCalculMoyenne.Enabled = True
        End If
    End Sub


Configuration: Windows / Firefox 63.0
Afficher la suite 

Votre réponse

5 réponses

Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519
0
Merci
Bonsoir,

lors de ta précédente question, Jordane a édité ton message pour rendre le code lisible.
Il a aussi mis en lien le tuto pour que tu le fasses toi la prochaine fois, pour rappel
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Force est de constater que tu n'en as pas tenu compte.

Nous sommes bénévoles et nous simplifier la vie nous donne plus envie de t'aider.

D'autre part, je t'ai expliqué pourquoi redimensionner un tableau est une mauvaise chose, en VB.Net.
Ça ne l'était déjà pas en VB6 ou VBA, mais y'avait peu d'autres options.
Là encore force est de constater que tu n'en as pas tenu compte.

Si tu ne veux pas qu'on ait à lire ton message et que tu ne tiens pas compte des réponses, pourquoi poser des questions....

Quand j'étais petit, la mer Morte n'était que malade.
George Burns
Commenter la réponse de Whismeril
0
Merci
Merci pour ta réponse je m excuse. Je vais prendre cela en compte. Pour la question mon prof m impose une méthode raison pour laquelle je suis revenu sur la question. Merci
Whismeril
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519 -
Ha ok, et bien pour quoi ne pas l’avoir dit sur l’autre sujet?
Whismeril
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519 -
En attendant reposte ton code de façon lisible s’il te plait.
madeog
Messages postés
61
Date d'inscription
vendredi 12 octobre 2018
Statut
Membre
Dernière intervention
25 avril 2019
-
bjr whismeril,
je n'ai pas pu réussir la méthode pour rendre bien visible le code. j'ai un souci en vb sur les fichier. est ce que je pourrais vous le transmettre
Commenter la réponse de Madog
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519
0
Merci
Bonsoir

je n'ai pas pu réussir la méthode pour rendre bien visible le code
c'est pourtant pas difficile:
  • tu cliques sur la flèche vers le bas à gauche de l'icône <>,
  • dans la liste déroulante, tu choisis basic,
  • et tu colles ton code entre les balises qui se sont insérée.

Whismeril
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519 -
La simple lecture ne me permets pas de cerner ton problème.
J'ai donc copié ton code chez moi, mais je ne peux pas l'essayer car il me manque la définition de SecteMembers, peux tu la poster?
Peux tu aussi poster un extrait des 2 fichiers sources.

Un autre problème apparait chez moi. vbTab n'existe pas en .Net, c'est un import de VB6, c'est déconseillé (même si Microsoft le met par défaut), c'est pourquoi chez moi ça ne marche pas. Tu peux utiliser
Convert.ToChar(9)
à la place.
madeog
Messages postés
61
Date d'inscription
vendredi 12 octobre 2018
Statut
Membre
Dernière intervention
25 avril 2019
-
Bonjour
merci beaucoup a vous et baladur
je vais vous le retransmettre et tenir compte de vos remarques
pour les fichiers comment faire pour vous le transmettre. le copier aussi et le coller
Whismeril
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519 -
Oui tu peux copier coller
madeog
Messages postés
61
Date d'inscription
vendredi 12 octobre 2018
Statut
Membre
Dernière intervention
25 avril 2019
-
je vous transmet les informations

la structure
Public Structure SecteMembers
Private id_user As Integer
Private nombre_followings As Integer
Private nombre_followers As Integer
Private rapport_followers_following As Double
Private nombre_tweets As String
Private rapport_URL As Integer
Private rapport_mention As Integer

Public Sub New(id_user As Integer, nombre_followings As String, nombre_followers As String, rapport_followers_following As Double, nombre_tweets As Double, rapport_URL As Double, rapport_mention As Double)
Me.id_user = id_user
Me.nombre_followings = nombre_followings
Me.nombre_followers = nombre_followers
Me.rapport_followers_following = rapport_followers_following
Me.nombre_tweets = nombre_tweets
Me.rapport_URL = rapport_URL
Me.rapport_mention = rapport_mention

End Sub

Public Property IdUser As String
Get
Return id_user
End Get
Set(value As String)
id_user = value
End Set
End Property
Public Property Nbrefollowings As String
Get
Return nombre_followings
End Get
Set(value As String)
nombre_followings = value
End Set
End Property
Public Property Nbrefollowers As String
Get
Return nombre_followers
End Get
Set(value As String)
nombre_followers = value
End Set
End Property
Public Property Ratioflowersflowing As Double
Get
Return rapport_followers_following
End Get
Set(value As Double)
rapport_followers_following = value
End Set
End Property
Public Property NbreTweet As Integer
Get
Return nombre_tweets
End Get
Set(value As Integer)
nombre_tweets = value
End Set
End Property
Public Property RatioURL As Integer
Get
Return rapport_URL
End Get
Set(value As Integer)
rapport_URL = value
End Set
End Property
Public Property RatioMention As Double
Get
Return rapport_mention
End Get
Set(value As Double)
rapport_mention = value
End Set
End Property

End Structure



le form
Imports System.IO
Public Class MainForm
Public lecteur As StreamReader
Public m As SecteMembers
Public searcher As OpenFileDialog
Public sfd As SaveFileDialog

Private Sub Btnusersinfo_Click(sender As Object, e As EventArgs) Handles Btnusersinfo.Click
searcher = New OpenFileDialog()
searcher.ShowDialog()
Dim s As String = searcher.FileName
lecteur = New StreamReader(searcher.FileName)
Txtaffichagefichier1.Text = s
End Sub

Private Sub Btnuserstweets_Click(sender As Object, e As EventArgs) Handles Btnuserstweets.Click
searcher = New OpenFileDialog()
searcher.ShowDialog()
Dim s As String = searcher.FileName
lecteur = New StreamReader(searcher.FileName)
Txtaffichagefichier2.Text = s
End Sub
Private tabmembers(199) As SecteMembers
Private cnt As Integer
Private i As Integer
Private Sub Btnsave_Click(sender As Object, e As EventArgs) Handles Btnsave.Click
sfd = New SaveFileDialog()
sfd.ShowDialog()
Dim s As String = sfd.FileName
Txtaffichagefichier3.Text = s
If (cnt < 199) Then
Ratiofwersfwing()
Calcul()
Dim ecrivain As StreamWriter = New StreamWriter(sfd.FileName)
ecrivain.WriteLine(m.IdUser + Convert.ToChar(9) + m.Nbrefollowings + Convert.ToChar(9) + m.Ratioflowersflowing.ToString + Convert.ToChar(9) + m.NbreTweet.ToString + Convert.ToChar(9) + m.RatioURL.ToString() + Convert.ToChar(9) + m.RatioMention.ToString)
ecrivain.Close()
cnt += 1
Else
MessageBox.Show("le tableau est plein svp")
End If
If ProgressBar1.Value = ProgressBar1.Maximum Then
End If
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
Dim i As Integer
For i = 0 To 100
ProgressBar1.Value = i
Application.DoEvents()
System.Threading.Thread.Sleep(50)
Next
Me.Text = Txtaffichagefichier1.Text
Me.Text = Txtaffichagefichier2.Text
End Sub
Private Sub Ratiofwersfwing()
m.Ratioflowersflowing = (m.Nbrefollowers / m.Nbrefollowings)

End Sub
Private Sub BtnExecuter_Click(sender As Object, e As EventArgs) Handles BtnExecuter.Click
Dim info() As String
Dim mesg As String
searcher = New OpenFileDialog()

sfd.ShowDialog()
lecteur = New StreamReader(searcher.FileName)

While Not lecteur.EndOfStream
m = New SecteMembers()
mesg = lecteur.ReadLine()
info = mesg.Split(Convert.ToChar(9))
m.IdUser = CInt(info(0))
m.Nbrefollowings = CInt(info(1))
m.Nbrefollowers = CInt(info(2))
m.Ratioflowersflowing = CDbl(info(3))
m.Ratioflowersflowing = CDbl(info(4))
m.NbreTweet = CDbl(info(5))
m.RatioURL = CDbl(info(6))
m.RatioMention = CDbl(info(7))
tabmembers(i) = m
i += 1
End While
lecteur.Close()
DataGridView1.DataSource = tabmembers
End Sub
Public Sub Calcul()
If File.Exists(searcher.FileName) Then
searcher.ShowDialog()
lecteur = New StreamReader(searcher.FileName)
Dim nbTweet As Double
Dim pointeur As Integer
Dim nb1 As Integer
Dim nb As Integer
Dim msg As String
While (Not lecteur.EndOfStream)
m = New SecteMembers()
Dim info = lecteur.ReadLine().Split(Convert.ToChar(9))
If (CType(tabmembers(pointeur), SecteMembers).IdUser = info(0)) Then
m = CType(tabmembers(pointeur), SecteMembers)
nbTweet += 1
msg = lecteur.ReadLine()
nb1 += NbretotMention(msg, "@")
nb += NbretotURL(msg, "http://")
tabmembers(pointeur) = m
tabmembers(i) = m
Else
End If
m.RatioMention = nb / nbTweet
m.RatioURL = nb1 / nbTweet

pointeur += 1

End While
lecteur.Close()
End If
End Sub
Private Function NbretotMention(tabmembers As String, c As String) As Integer
Dim nb As Integer
Dim index As Integer
Dim status As Boolean = True

While (status)

If ((index + 1) < tabmembers.Length) Then
index = tabmembers.IndexOf(c, index + 1)
If (index <> -1) Then
nb += 1
Else
status = False
End If
Else
status = False
End If
End While

Return nb

End Function
Private Function NbretotURL(tabmembers As String, c As String) As Integer
Dim nb1 As Integer
Dim index As Integer
Dim status As Boolean = True

While (status)

If ((index + 1) < tabmembers.Length) Then
index = tabmembers.IndexOf(c, index + 1)
If (index <> -1) Then
nb1 += 1
Else
status = False
End If
Else
status = False
End If
End While

Return nb1

End Function
End Class




fichier1 userinfo.txt
6301	2006-09-18 1:07	2010-01-17 20:38		3269	3071	8	132
10836 2006-10-27 14:38 2010-06-18 3:35 1949 793 9 134
10997 2006-10-29 9:50 2010-04-24 1:12 1119 9644 12 158
633293 2007-01-14 12:40 2010-01-24 11:59 2174 6029 11 121
717883 2007-01-27 22:14 2010-02-06 6:25 7731 7029 6 70
763068 2007-02-10 10:51 2010-07-26 4:48 120 130 6 35
783705 2007-02-20 11:16 2010-05-22 3:35 1660 23977 8 68
788352 2007-02-22 4:25 2009-12-31 2:18 1320 969 14 106
810011 2007-03-04 4:32 2010-01-27 6:37 11239 10537 13 59
815299 2007-03-06 10:32 2010-04-16 21:22 3779 3920 10 120
817045 2007-03-06 22:11 2010-01-05 13:15 12848 12933 5 63
964981 2007-03-11 18:12 2010-01-15 2:58 1811 2469 12 88
1091571 2007-03-13 9:52 2010-01-03 14:19 3697 5129 13 101
1303381 2007-03-16 13:28 2010-01-05 1:27 2990 3367 14 119
1322691 2007-03-16 18:56 2010-01-03 1:00 13117 17053 9 22
1467621 2007-03-18 22:33 2010-01-27 10:31 4942 7445 9 134
1599001 2007-03-20 2:17 2010-02-19 1:36 1591 1683 7 89
1907361 2007-03-22 12:05 2010-03-12 23:26 4995 4570 6 73
2077351 2007-03-23 22:21 2010-01-21 19:33 1076 1370 12 138
2157321 2007-03-25 0:20 2010-01-27 12:28 10316 12272 9 50
2219081 2007-03-25 18:27 2010-02-28 3:03 2001 1534 8 0
2243161 2007-03-25 21:50 2010-01-05 0:22 8266 8134 8 115
2269491 2007-03-26 2:43 2010-01-18 3:13 745 829 7 157
2695911 2007-03-28 12:44 2010-03-06 7:25 3452 3467 8 146
2884771 2007-03-29 14:51 2010-05-01 5:52 62962 1234960 8 138
3060631 2007-03-31 8:20 2010-02-16 22:12 9214 8372 8 43
3076591 2007-03-31 15:12 2010-03-13 6:26 18059 17113 11 114
3136731 2007-04-01 11:51 2010-04-04 15:20 3449 6042 13 149
3291901 2007-04-03 1:04 2010-01-01 23:44 6071 5913 8 105
3881391 2007-04-09 4:29 2010-01-30 6:03 17100 16779 6 139
3908631 2007-04-09 9:32 2010-06-08 5:55 1998 1797 10 155
4000261 2007-04-10 3:09 2010-04-04 15:20 241 85 6 21
4046051 2007-04-10 10:51 2010-03-31 14:50 9811 8951 9 55
4319321 2007-04-12 2:51 2010-03-15 13:26 565 215 10 28
4567451 2007-04-13 22:38 2010-04-06 17:50 1715 620 8 38
5169871 2007-04-18 19:36 2010-01-31 0:36 1060 299 11 37
5414782 2007-04-22 18:56 2010-01-22 6:03 7133 7060 4 67
5439702 2007-04-23 12:30 2010-02-04 0:49 13746 15414 6 105
5448632 2007-04-23 19:35 2010-02-07 13:47 786 341 8 116
5609382 2007-04-28 13:48 2010-01-04 3:35 8172 7567 6 130
5693062 2007-05-01 14:50 2010-01-29 1:12 18933 17429 8 121
5732162 2007-05-03 0:47 2010-07-05 13:03 22318 22359 14 99
5751742 2007-05-03 16:41 2010-07-17 8:10 4851 4472 7 37
5775622 2007-05-04 16:09 2010-01-05 2:11 13782 13694 7 143
5884032 2007-05-08 21:44 2010-01-01 3:36 5223 5118 9 14
5925162 2007-05-10 4:54 2010-01-18 2:06 8054 8000 7 157
5925682 2007-05-10 5:20 2010-01-01 11:46 16967 15424 9 36
5971902 2007-05-11 14:14 2010-02-11 21:30 10937 11365 9 74
6002602 2007-05-12 23:55 2010-02-22 4:51 16593 15082 8 145
6087712 2007-05-16 11:29 2010-01-05 3:17 14379 13072 14 151
6154322 2007-05-19 0:22 2010-01-05 12:32 2597 10097 7 144
6228472 2007-05-22 5:58 2010-06-06 5:08 423 63 10 0
6267832 2007-05-23 13:17 2010-01-12 7:49 191 174 8 51
6332272 2007-05-25 22:18 2010-07-06 9:02 4302 5119 11 133
6333392 2007-05-25 23:21 2010-01-31 16:10 9018 9111 11 15
6356472 2007-05-27 1:33 2010-01-31 18:07 1869 1431 11 115
6774442 2007-06-12 14:03 2010-02-12 7:55 339 150 12 156
6859412 2007-06-16 17:33 2010-02-26 11:05 3512 4492 13 157
6861662 2007-06-16 21:46 2010-02-05 22:01 3673 3567 12 104
6871812 2007-06-17 9:53 2010-07-25 1:52 9072 16454 9 81
6901952 2007-06-18 18:29 2010-02-18 6:27 949 82 6 0
6902602 2007-06-18 19:00 2010-01-29 5:29 462 127 8 68
6982452 2007-06-20 21:21 2010-05-17 4:05 2206 2005 12 0
7024522 2007-06-22 16:29 2010-02-09 3:00 1659 738 5 48
7082702 2007-06-25 23:51 2010-04-25 1:51 20300 20006 12 147
7087112 2007-06-26 5:23 2010-02-08 0:59 14368 23308 13 155
7103212 2007-06-27 1:31 2010-06-02 6:19 858 811 8 54
7159492 2007-06-29 15:05 2010-02-16 19:42 1400 1147 6 19
7251502 2007-07-04 9:57 2010-01-27 1:36 7207 8420 9 111
7283562 2007-07-06 0:37 2010-01-07 4:53 20390 20677 13 156
7350652 2007-07-09 11:38 2010-07-12 10:32 99778 97754 6 115
7361162 2007-07-09 22:06 2010-01-13 2:04 392 102 13 85
7400262 2007-07-11 7:30 2010-01-01 10:50 3051 3534 13 155
7540482 2007-07-17 14:54 2010-03-11 14:15 12313 12244 8 16
7545332 2007-07-17 19:24 2010-05-28 5:27 3374 3164 8 58
7601182 2007-07-19 23:41 2010-01-17 19:53 1053 491 7 50
7721172 2007-07-25 15:55 2010-03-16 19:04 2245 2246 11 160
7831092 2007-07-30 16:52 2010-02-23 18:15 17866 16330 8 92
7891352 2007-08-01 16:04 2010-01-23 1:11 11325 11076 12 153
7891802 2007-08-01 16:24 2010-02-26 22:47 903 908 8 135
7934702 2007-08-03 10:57 2010-06-10 20:34 876 511 15 156
7946942 2007-08-03 22:21 2010-03-12 15:09 1830 1623 5 14
7950312 2007-08-04 2:40 2010-05-23 11:46 4447 4048 15 38
7957772 2007-08-04 12:20 2010-01-19 2:41 33928 31295 7 47
7967132 2007-08-05 1:36 2010-01-05 1:26 1879 1768 10 66
7977182 2007-08-05 14:14 2010-03-13 10:40 7704 7027 8 123
8014432 2007-08-07 1:16 2010-02-09 1:08 688 551 8 43
8014472 2007-08-07 1:19 2010-03-04 9:02 1837 1829 7 62
8066562 2007-08-08 17:59 2010-03-30 15:02 660 7210 11 36
8180582 2007-08-14 7:20 2010-01-22 16:13 1944 744 10 40
8205942 2007-08-15 10:31 2010-05-09 20:49 1065 791 15 139
8208482 2007-08-15 12:59 2010-06-11 2:45 705 206 7 31
8245052 2007-08-17 8:54 2010-01-26 19:26 1777 901 15 139
8293982 2007-08-19 18:42 2010-08-02 13:25 1444 1092 8 92
8377772 2007-08-23 3:17 2010-01-01 16:32 10293 9794 15 98
8431212 2007-08-25 16:02 2010-02-20 5:29 2001 889 10 58
8440552 2007-08-26 7:56 2009-12-31 21:29 5986 7160 11 36
8571252 2007-08-31 21:17 2010-05-20 3:59 3644 3312 12 115
8614702 2007-09-02 19:46 2010-01-18 3:34 1772 819 9 61
8729092 2007-09-07 12:48 2010-01-22 19:58 3549 3225 10 75
8773632 2007-09-09 18:06 2010-06-24 23:32 16613 17094 6 15
8833312 2007-09-12 8:52 2010-04-15 1:40 10691 13605 13 145
8865022 2007-09-13 18:47 2010-01-24 6:46 1917 1052 14 18
8894582 2007-09-15 5:36 2010-02-06 10:04 805 705 11 73
9028902 2007-09-22 3:37 2010-07-19 2:56 146 64 15 20
9045162 2007-09-23 0:05 2010-01-06 6:53 6757 6784 7 128
9082652 2007-09-24 21:03 2010-01-25 22:37 21041 23332 12 61
9126092 2007-09-27 10:05 2010-04-14 5:11 1749 1006 8 156
9222382 2007-10-03 4:58 2010-06-02 9:22 1896 1159 7 109
9237672 2007-10-03 23:58 2010-03-09 0:47 589 422 7 29
9256422 2007-10-04 21:39 2010-04-18 9:33 20255 19726 11 151
9283632 2007-10-06 14:25 2010-03-09 9:20 10270 9517 13 71
9285422 2007-10-06 17:12 2010-05-11 12:29 875 740 12 71
9337172 2007-10-09 16:38 2010-05-02 3:27 5835 5420 6 38
9337212 2007-10-09 16:40 2010-01-18 12:51 2547 2694 14 14
9376622 2007-10-11 7:45 2010-02-16 22:12 9762 8874 7 149
9502542 2007-10-17 11:40 2010-02-04 22:56 8189 7444 7 158
9520902 2007-10-18 8:20 2010-03-03 14:15 2852 2794 13 27
9545532 2007-10-19 11:12 2010-01-05 2:34 3529 3312 11 79
9571962 2007-10-20 21:14 2010-03-06 21:19 1999 945 9 60
9578362 2007-10-21 7:30 2010-04-04 15:20 325 504 14 149
9596392 2007-10-22 7:08 2010-01-27 7:23 1805 1732 9 48
9633112 2007-10-23 14:42 2010-01-29 7:49 1121 561 6 64
9666402 2007-10-24 16:05 2010-05-27 16:53 897 761 8 15
9751642 2007-10-28 6:08 2010-01-28 0:30 11631 11326 6 129
9767082 2007-10-28 22:59 2010-07-03 21:31 1963 1941 9 34
9783422 2007-10-29 15:49 2010-02-07 13:44 854 868 11 35
9814222 2007-10-30 22:47 2009-12-31 22:23 2414 2887 6 78
9819072 2007-10-31 4:32 2010-01-08 6:06 22121 24910 6 39
9836582 2007-10-31 16:19 2010-02-04 4:22 68782 69108 14 65
9922242 2007-11-03 14:13 2010-01-10 12:49 2072 4283 8 83
9934462 2007-11-04 2:42 2010-07-25 15:10 1389 2594 7 55
10046572 2007-11-07 16:01 2010-02-05 2:44 3800 3604 7 51
10105822 2007-11-09 12:27 2010-01-28 15:49 5352 4938 13 108
10193122 2007-11-12 14:37 2010-03-09 15:06 13002 12073 9 106
10197782 2007-11-12 17:22 2010-01-08 0:33 5644 6444 5 152
10278192 2007-11-15 8:32 2010-03-22 23:56 797 387 14 0
10336042 2007-11-17 11:02 2010-04-27 6:00 22456 20471 11 156
10433782 2007-11-20 23:53 2010-05-12 16:13 1326 3185 8 107
10492902 2007-11-23 8:00 2010-01-23 0:27 4748 4589 9 147
10500072 2007-11-23 13:08 2010-03-08 5:30 12335 11226 12 159
10667662 2007-11-27 13:56 2010-01-12 22:50 53675 58173 7 86
10697222 2007-11-28 21:56 2010-06-11 5:50 2292 5081 12 157
10736862 2007-11-30 6:29 2010-06-14 16:29 7282 6620 10 64
10746692 2007-11-30 13:01 2010-01-02 17:36 986 407 15 0
10778972 2007-12-01 21:50 2010-05-28 2:47 1716 688 8 58
10779802 2007-12-01 23:05 2010-03-04 18:33 19802 19928 6 146
10793242 2007-12-02 14:47 2010-01-26 19:27 5453 5992 8 24
10845372 2007-12-04 12:09 2010-03-05 2:22 3650 3328 8 159
10870512 2007-12-05 7:50 2009-12-31 23:31 3426 3116 6 117
10987282 2007-12-08 23:20 2010-04-14 4:27 12453 11320 5 27
11009092 2007-12-09 21:48 2010-02-03 20:44 1926 1414 8 158
11015372 2007-12-10 5:12 2010-07-07 20:03 504 222 14 139
11041822 2007-12-11 1:32 2009-12-31 23:34 15899 15673 12 62
11073902 2007-12-11 21:19 2010-04-03 4:30 5661 8850 8 135
11228722 2007-12-16 12:01 2010-02-02 9:28 1894 1302 6 0
11294262 2007-12-18 8:02 2010-03-11 7:02 3105 2852 7 6
11305742 2007-12-18 12:59 2010-01-09 9:32 4529 4674 15 59
11341332 2007-12-19 10:59 2010-01-18 5:00 20436 20866 11 61
11403052 2007-12-21 6:58 2010-05-30 15:42 16 7 6 0
11403462 2007-12-21 7:21 2010-02-17 8:15 12486 12952 8 93
11410012 2007-12-21 11:21 2010-04-10 0:33 12294 11957 9 134
11410412 2007-12-21 11:30 2010-03-15 13:27 1258 1035 14 160
11422132 2007-12-21 19:48 2010-04-26 21:19 2394 8493 12 16
11488822 2007-12-24 16:23 2010-08-02 0:23 167 92 9 58
11525652 2007-12-26 2:03 2010-03-21 20:40 1985 258 8 160
11547732 2007-12-26 16:36 2010-02-08 4:14 1765 629 13 153
11605832 2007-12-28 9:35 2010-04-21 9:37 4020 4373 15 103
11637322 2007-12-29 12:33 2010-02-26 19:00 4283 10615 12 39
11662532 2007-12-30 11:08 2010-03-23 10:31 17778 17682 7 64
11721472 2008-01-01 10:58 2010-01-31 5:22 1973 1188 15 66
11749762 2008-01-02 4:49 2010-02-28 19:58 666 618 12 148
11756702 2008-01-02 8:49 2010-05-02 1:36 14099 12844 8 71
11778632 2008-01-02 18:15 2010-02-10 15:38 2523 2293 13 159
11786162 2008-01-02 23:06 2010-03-04 19:11 1614 715 7 0
11862162 2008-01-04 19:49 2010-07-21 8:32 1328 509 8 32
11879272 2008-01-05 10:49 2010-01-28 2:50 34252 39345 9 160
11908322 2008-01-06 9:34 2010-01-19 0:52 668 708 7 0
11920772 2008-01-06 17:01 2010-06-25 7:17 693 2553 8 126
11929882 2008-01-06 23:08 2010-05-02 0:04 195 56 7 86
11996952 2008-01-08 13:35 2010-01-23 2:19 712 5828 11 26
12022042 2008-01-09 5:18 2010-01-15 5:28 1700 2011 12 37
12031352 2008-01-09 10:05 2010-02-28 19:52 2001 917 10 105
12037882 2008-01-09 12:32 2010-02-19 1:22 18786 17558 8 147
12085042 2008-01-10 14:45 2010-06-16 0:27 19963 19857 12 13
12198062 2008-01-13 18:39 2010-05-30 21:24 213 108 9 107
12317562 2008-01-16 7:44 2010-01-03 6:27 240 626 7 59
12357122 2008-01-17 7:15 2010-01-14 4:34 4249 4116 8 74
12441712 2008-01-19 15:12 2010-01-29 8:39 30922 30271 8 55
12447572 2008-01-19 19:59 2010-03-21 20:46 11449 10413 8 154
12449542 2008-01-19 21:56 2010-05-17 22:52 1774 8155 14 53
12465192 2008-01-20 12:38 2010-02-12 7:54 597 597 9 114
12470242 2008-01-20 15:30 2010-03-18 23:50 6228 6229 5 56
12511062 2008-01-21 15:52 2010-02-01 22:27 1980 1801 13 159
12516722 2008-01-21 18:58 2010-01-26 9:21 13181 14242 9 157
12524522 2008-01-21 23:37 2010-01-27 21:27 14706 17533 7 156
12552662 2008-01-22 12:10 2010-01-05 10:57 1859 1507 15 58
12570402 2008-01-22 17:44 2010-07-15 3:50 38995 38985 8 21
12604592 2008-01-23 11:51 2010-01-16 3:39 8954 8820 13 131
12611082 2008-01-23 14:21 2010-04-24 4:52 10365 9556 11 66
Whismeril
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519 -
ok, je t'invite à relire ceci https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
et comparer les codes que tu postes par rapport aux codes corrigés par baladur.


Ensuite, une structure c'est pas une bonne idée.
D'abord, simplement parce que VB.Net est un langage objet (pas orienté objet), et qu'une structure n'est pas un objet. La différence entre orienté objet et objet est assez difficile à voir pour un débutant, alors aujourd'hui je m'en tiendrais là.

La seconde raison pour ne pas utiliser de structure est la gestion de la mémoire.
Une structure est un type valeur, donc à chaque fois que tu le passes en paramètre dans une sub ou une fonction tu crées une copie, donc tu charges la mémoire pour rien.
En plus toute modification faite dans la sub ou la fonction, ne sera effective que sur la copie.

Pour le fichier, 3-4 lignes auraient suffies pour un test, par contre, un extrait du 2eme fichier (3-4 lignes) ce serait bien.

Je n'ai pas le temps de tester maintenant.
Commenter la réponse de Whismeril
Messages postés
61
Date d'inscription
vendredi 12 octobre 2018
Statut
Membre
Dernière intervention
25 avril 2019
0
Merci
Bonjour Whismeril
comme convenu je vous retransmet mon application
Imports System.IO
Public Class MainForm
    Public lecteur As StreamReader
    Public m As SecteMembers
    Public searcher As OpenFileDialog
    Public sfd As SaveFileDialog

    Private Sub Btnusersinfo_Click(sender As Object, e As EventArgs) Handles Btnusersinfo.Click
        searcher = New OpenFileDialog()
        searcher.ShowDialog()
        Dim s As String = searcher.FileName
        lecteur = New StreamReader(searcher.FileName)
        Txtaffichagefichier1.Text = s
    End Sub

    Private Sub Btnuserstweets_Click(sender As Object, e As EventArgs) Handles Btnuserstweets.Click
        searcher = New OpenFileDialog()
        searcher.ShowDialog()
        Dim s As String = searcher.FileName
        lecteur = New StreamReader(searcher.FileName)
        Txtaffichagefichier2.Text = s
    End Sub
    Private tabmembers(199) As SecteMembers
    Private cnt As Integer
    Private i As Integer
    Private Sub Btnsave_Click(sender As Object, e As EventArgs) Handles Btnsave.Click
        sfd = New SaveFileDialog()
        sfd.ShowDialog()
        Dim s As String = sfd.FileName
        Txtaffichagefichier3.Text = s
        Ratiofwersfwing()
        Calcul()
        ExtractionINFO()
        If (cnt < 199) Then

            Dim ecrivain As StreamWriter = New StreamWriter(sfd.FileName)
            ecrivain.WriteLine(m.IdUser + vbTab + m.Nbrefollowings + vbTab + m.Ratioflowersflowing.ToString + vbTab + m.NbreTweet.ToString + vbTab + m.RatioURL.ToString() + vbTab + m.RatioMention.ToString)
            ecrivain.Close()
            cnt += 1
        Else
            MessageBox.Show("le tableau est plein svp")
        End If
        If ProgressBar1.Value = ProgressBar1.Maximum Then
        End If
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        Dim i As Integer
        For i = 0 To 100
            ProgressBar1.Value = i
            Application.DoEvents()
            System.Threading.Thread.Sleep(50)
        Next
        Me.Text = Txtaffichagefichier1.Text
        Me.Text = Txtaffichagefichier2.Text
    End Sub
    Private Sub Ratiofwersfwing()
        m.Ratioflowersflowing = (m.Nbrefollowers / m.Nbrefollowings)

    End Sub
    Private Sub ExtractionINFO()
        Dim info() As String
        Dim mesg As String
        'searcher = New OpenFileDialog()

        'sfd.ShowDialog()
        lecteur = New StreamReader(searcher.FileName)

        While (Not lecteur.EndOfStream)
            m = New SecteMembers()
            mesg = lecteur.ReadLine()
            info = mesg.Split(vbTab)
            m.IdUser = Convert.ToInt16(info(0))
            m.Nbrefollowings = (info(1)).ToString
            m.Nbrefollowers = (info(2)).ToString
            m.Ratioflowersflowing = CDbl(info(3))
            m.NbreTweet = CDbl(info(4))
            m.RatioURL = CDbl(info(5))
            m.RatioMention = CDbl(info(6))
            tabmembers(i) = m
            i += 1
        End While
        lecteur.Close()
    End Sub

    Private Sub BtnExecuter_Click(sender As Object, e As EventArgs) Handles BtnExecuter.Click

        DataGridView1.DataSource = tabmembers
    End Sub
    Public Sub Calcul()
        If File.Exists(searcher.FileName) Then
            searcher.ShowDialog()
            lecteur = New StreamReader(searcher.FileName)
            Dim nbTweet As Double
            Dim pointeur As Integer
            Dim nb1 As Integer
            Dim nb As Integer
            While (Not lecteur.EndOfStream)
                m = New SecteMembers()
                Dim info = lecteur.ReadLine().Split(vbTab)
                If (CType(tabmembers(pointeur), SecteMembers).IdUser = info(0)) Then
                    m = CType(tabmembers(pointeur), SecteMembers)
                    nbTweet += 1
                    nb1 += NbretotMention(info(2), "@")
                    nb += NbretotURL(info(2), "http://")
                Else
                    tabmembers(pointeur).NbreTweet = nbTweet
                    tabmembers(pointeur).RatioMention = nb / nbTweet
                    tabmembers(pointeur).RatioURL = nb1 / nbTweet
                    pointeur += 1
                End If

            End While
            lecteur.Close()
        End If
    End Sub
    Private Function NbretotMention(tabmembers As String, c As String) As Integer
        Dim nb As Integer
        Dim index As Integer
        Dim status As Boolean = True

        While (status)

            If ((index + 1) < tabmembers.Length) Then
                index = tabmembers.IndexOf(c, index + 1)
                If (index <> -1) Then
                    nb += 1
                Else
                    status = False
                End If
            Else
                status = False
            End If
        End While

        Return nb

    End Function
    Private Function NbretotURL(tabmembers As String, c As String) As Integer
        Dim nb1 As Integer
        Dim index As Integer
        Dim status As Boolean = True

        While (status)

            If ((index + 1) < tabmembers.Length) Then
                index = tabmembers.IndexOf(c, index + 1)
                If (index <> -1) Then
                    nb1 += 1
                Else
                    status = False
                End If
            Else
                status = False
            End If
        End While

        Return nb1

    End Function


End Class


MA STRUCTURE

Public Structure SecteMembers
    Private id_user As String
    Private nombre_followings As String
    Private nombre_followers As String
    Private rapport_followers_following As Double
    Private nombre_tweets As String
    Private rapport_URL As Integer
    Private rapport_mention As Integer

    Public Sub New(id_user As String, nombre_followings As String, nombre_followers As String, rapport_followers_following As Double, nombre_tweets As Double, rapport_URL As Double, rapport_mention As Double)
        Me.id_user = id_user
        Me.nombre_followings = nombre_followings
        Me.nombre_followers = nombre_followers
        Me.rapport_followers_following = rapport_followers_following
        Me.nombre_tweets = nombre_tweets
        Me.rapport_URL = rapport_URL
        Me.rapport_mention = rapport_mention

    End Sub

    Public Property IdUser As String
        Get
            Return id_user
        End Get
        Set(value As String)
            id_user = value
        End Set
    End Property
    Public Property Nbrefollowings As String
        Get
            Return nombre_followings
        End Get
        Set(value As String)
            nombre_followings = value
        End Set
    End Property
    Public Property Nbrefollowers As String
        Get
            Return nombre_followers
        End Get
        Set(value As String)
            nombre_followers = value
        End Set
    End Property
    Public Property Ratioflowersflowing As Double
        Get
            Return rapport_followers_following
        End Get
        Set(value As Double)
            rapport_followers_following = value
        End Set
    End Property
    Public Property NbreTweet As Double
        Get
            Return nombre_tweets
        End Get
        Set(value As Double)
            nombre_tweets = value
        End Set
    End Property
    Public Property RatioURL As Double
        Get
            Return rapport_URL
        End Get
        Set(value As Double)
            rapport_URL = value
        End Set
    End Property
    Public Property RatioMention As Double
        Get
            Return rapport_mention
        End Get
        Set(value As Double)
            rapport_mention = value
        End Set
    End Property

End Structure


FICHIER USERINFO.TXT
6301	2006-09-18 1:07	2010-01-17 20:38		3269	3071	8	132
10836	2006-10-27 14:38	2010-06-18 3:35		1949	793	9	134
10997	2006-10-29 9:50	2010-04-24 1:12			1119	9644	12	158
633293	2007-01-14 12:40	2010-01-24 11:59	2174	6029	11	121
717883	2007-01-27 22:14	2010-02-06 6:25	7731	7029	6	70
763068	2007-02-10 10:51	2010-07-26 4:48	120	130	6	35
783705	2007-02-20 11:16	2010-05-22 3:35	1660	23977	8	68
788352	2007-02-22 4:25	2009-12-31 2:18	1320	969	14	106
810011	2007-03-04 4:32	2010-01-27 6:37	11239	10537	13	59
815299	2007-03-06 10:32	2010-04-16 21:22	3779	3920	10	120
817045	2007-03-06 22:11	2010-01-05 13:15	12848	12933	5	63
964981	2007-03-11 18:12	2010-01-15 2:58	1811	2469	12	88
1091571	2007-03-13 9:52	2010-01-03 14:19	3697	5129	13	101
1303381	2007-03-16 13:28	2010-01-05 1:27	2990	3367	14	119
1322691	2007-03-16 18:56	2010-01-03 1:00	13117	17053	9	22
1467621	2007-03-18 22:33	2010-01-27 10:31	4942	7445	9	134
1599001	2007-03-20 2:17	    2010-02-19 1:36	    1591	1683	7	89
1907361	2007-03-22 12:05	2010-03-12 23:26	4995	4570	6	73
2077351	2007-03-23 22:21	2010-01-21 19:33	1076	1370	12	138
2157321	2007-03-25 0:20	2010-01-27 12:28	   10316	12272	9	50
2219081	2007-03-25 18:27	2010-02-28 3:03	    2001	1534	8	0
2243161	2007-03-25 21:50	2010-01-05 0:22	    8266	8134	8	115
2269491	2007-03-26 2:43	2010-01-18 3:13	745	     829	7	157
2695911	2007-03-28 12:44	2010-03-06 7:25	    3452	3467	8	146
2884771	2007-03-29 14:51	2010-05-01 5:52	   62962	1234960	8	138
3060631	2007-03-31 8:20	2010-02-16 22:12	    9214	8372	8	43
3076591	2007-03-31 15:12	2010-03-13 6:26	   18059	17113	11	114
3136731	2007-04-01 11:51	2010-04-04 15:20	3449	6042	13	149
3291901	2007-04-03 1:04	2010-01-01 23:44	     6071	5913	8	105
3881391	2007-04-09 4:29	2010-01-30 6:03	17100	16779	6	139
3908631	2007-04-09 9:32	2010-06-08 5:55	1998	1797	10	155
4000261	2007-04-10 3:09	2010-04-04 15:20	     241	85	6	21
4046051	2007-04-10 10:51	2010-03-31 14:50	9811	8951	9	55
4319321	2007-04-12 2:51	2010-03-15 13:26	565	215	10	28
4567451	2007-04-13 22:38	2010-04-06 17:50	1715	620	8	38
5169871	2007-04-18 19:36	2010-01-31 0:36	1060	299	11	37
5414782	2007-04-22 18:56	2010-01-22 6:03	7133	7060	4	67
5439702	2007-04-23 12:30	2010-02-04 0:49	13746	15414	6	105
5448632	2007-04-23 19:35	2010-02-07 13:47	786	341	8	116
5609382	2007-04-28 13:48	2010-01-04 3:35	8172	7567	6	130
5693062	2007-05-01 14:50	2010-01-29 1:12	18933	17429	8	121
5732162	2007-05-03 0:47	2010-07-05 13:03	22318	22359	14	99
5751742	2007-05-03 16:41	2010-07-17 8:10	4851	4472	7	37
5775622	2007-05-04 16:09	2010-01-05 2:11	13782	13694	7	143
5884032	2007-05-08 21:44	2010-01-01 3:36	5223	5118	9	14
5925162	2007-05-10 4:54	2010-01-18 2:06	8054	8000	7	157
5925682	2007-05-10 5:20	2010-01-01 11:46	16967	15424	9	36
5971902	2007-05-11 14:14	2010-02-11 21:30	10937	11365	9	74
6002602	2007-05-12 23:55	2010-02-22 4:51	16593	15082	8	145
6087712	2007-05-16 11:29	2010-01-05 3:17	14379	13072	14	151
6154322	2007-05-19 0:22	2010-01-05 12:32	2597	10097	7	144
6228472	2007-05-22 5:58	2010-06-06 5:08	423	63	10	0
6267832	2007-05-23 13:17	2010-01-12 7:49	191	174	8	51
6332272	2007-05-25 22:18	2010-07-06 9:02	4302	5119	11	133
6333392	2007-05-25 23:21	2010-01-31 16:10	9018	9111	11	15
6356472	2007-05-27 1:33	2010-01-31 18:07	1869	1431	11	115
6774442	2007-06-12 14:03	2010-02-12 7:55	339	150	12	156
6859412	2007-06-16 17:33	2010-02-26 11:05	3512	4492	13	157
6861662	2007-06-16 21:46	2010-02-05 22:01	3673	3567	12	104
6871812	2007-06-17 9:53	2010-07-25 1:52	9072	16454	9	81
6901952	2007-06-18 18:29	2010-02-18 6:27	949	82	6	0
6902602	2007-06-18 19:00	2010-01-29 5:29	462	127	8	68
6982452	2007-06-20 21:21	2010-05-17 4:05	2206	2005	12	0
7024522	2007-06-22 16:29	2010-02-09 3:00	1659	738	5	48
7082702	2007-06-25 23:51	2010-04-25 1:51	20300	20006	12	147
7087112	2007-06-26 5:23	2010-02-08 0:59	14368	23308	13	155
7103212	2007-06-27 1:31	2010-06-02 6:19	858	811	8	54
7159492	2007-06-29 15:05	2010-02-16 19:42	1400	1147	6	19
7251502	2007-07-04 9:57	2010-01-27 1:36	7207	8420	9	111
7283562	2007-07-06 0:37	2010-01-07 4:53	20390	20677	13	156
7350652	2007-07-09 11:38	2010-07-12 10:32	99778	97754	6	115
7361162	2007-07-09 22:06	2010-01-13 2:04	392	102	13	85
7400262	2007-07-11 7:30	2010-01-01 10:50	3051	3534	13	155
7540482	2007-07-17 14:54	2010-03-11 14:15	12313	12244	8	16
7545332	2007-07-17 19:24	2010-05-28 5:27	3374	3164	8	58
7601182	2007-07-19 23:41	2010-01-17 19:53	1053	491	7	50
7721172	2007-07-25 15:55	2010-03-16 19:04	2245	2246	11	160
7831092	2007-07-30 16:52	2010-02-23 18:15	17866	16330	8	92
7891352	2007-08-01 16:04	2010-01-23 1:11	11325	11076	12	153
7891802	2007-08-01 16:24	2010-02-26 22:47	903	908	8	135
7934702	2007-08-03 10:57	2010-06-10 20:34	876	511	15	156
7946942	2007-08-03 22:21	2010-03-12 15:09	1830	1623	5	14
7950312	2007-08-04 2:40	2010-05-23 11:46	4447	4048	15	38
7957772	2007-08-04 12:20	2010-01-19 2:41	33928	31295	7	47
7967132	2007-08-05 1:36	2010-01-05 1:26	1879	1768	10	66
7977182	2007-08-05 14:14	2010-03-13 10:40	7704	7027	8	123
8014432	2007-08-07 1:16	2010-02-09 1:08	688	551	8	43
8014472	2007-08-07 1:19	2010-03-04 9:02	1837	1829	7	62
8066562	2007-08-08 17:59	2010-03-30 15:02	660	7210	11	36
8180582	2007-08-14 7:20	2010-01-22 16:13	1944	744	10	40
8205942	2007-08-15 10:31	2010-05-09 20:49	1065	791	15	139
8208482	2007-08-15 12:59	2010-06-11 2:45	705	206	7	31
8245052	2007-08-17 8:54	2010-01-26 19:26	1777	901	15	139
8293982	2007-08-19 18:42	2010-08-02 13:25	1444	1092	8	92
8377772	2007-08-23 3:17	2010-01-01 16:32	10293	9794	15	98
8431212	2007-08-25 16:02	2010-02-20 5:29	2001	889	10	58
8440552	2007-08-26 7:56	2009-12-31 21:29	5986	7160	11	36
8571252	2007-08-31 21:17	2010-05-20 3:59	3644	3312	12	115
8614702	2007-09-02 19:46	2010-01-18 3:34	1772	819	9	61
8729092	2007-09-07 12:48	2010-01-22 19:58	3549	3225	10	75
8773632	2007-09-09 18:06	2010-06-24 23:32	16613	17094	6	15
8833312	2007-09-12 8:52	2010-04-15 1:40	10691	13605	13	145
8865022	2007-09-13 18:47	2010-01-24 6:46	1917	1052	14	18
8894582	2007-09-15 5:36	2010-02-06 10:04	805	705	11	73
9028902	2007-09-22 3:37	2010-07-19 2:56	146	64	15	20
9045162	2007-09-23 0:05	2010-01-06 6:53	6757	6784	7	128
9082652	2007-09-24 21:03	2010-01-25 22:37	21041	23332	12	61
9126092	2007-09-27 10:05	2010-04-14 5:11	1749	1006	8	156
9222382	2007-10-03 4:58	2010-06-02 9:22	1896	1159	7	109
9237672	2007-10-03 23:58	2010-03-09 0:47	589	422	7	29
9256422	2007-10-04 21:39	2010-04-18 9:33	20255	19726	11	151
9283632	2007-10-06 14:25	2010-03-09 9:20	10270	9517	13	71
9285422	2007-10-06 17:12	2010-05-11 12:29	875	740	12	71
9337172	2007-10-09 16:38	2010-05-02 3:27	5835	5420	6	38
9337212	2007-10-09 16:40	2010-01-18 12:51	2547	2694	14	14
9376622	2007-10-11 7:45	2010-02-16 22:12	9762	8874	7	149
9502542	2007-10-17 11:40	2010-02-04 22:56	8189	7444	7	158
9520902	2007-10-18 8:20	2010-03-03 14:15	2852	2794	13	27
9545532	2007-10-19 11:12	2010-01-05 2:34	3529	3312	11	79
9571962	2007-10-20 21:14	2010-03-06 21:19	1999	945	9	60
9578362	2007-10-21 7:30	2010-04-04 15:20	325	504	14	149
9596392	2007-10-22 7:08	2010-01-27 7:23	1805	1732	9	48
9633112	2007-10-23 14:42	2010-01-29 7:49	1121	561	6	64
9666402	2007-10-24 16:05	2010-05-27 16:53	897	761	8	15
9751642	2007-10-28 6:08	2010-01-28 0:30	11631	11326	6	129
9767082	2007-10-28 22:59	2010-07-03 21:31	1963	1941	9	34
9783422	2007-10-29 15:49	2010-02-07 13:44	854	868	11	35
9814222	2007-10-30 22:47	2009-12-31 22:23	2414	2887	6	78
9819072	2007-10-31 4:32	2010-01-08 6:06	22121	24910	6	39
9836582	2007-10-31 16:19	2010-02-04 4:22	68782	69108	14	65
9922242	2007-11-03 14:13	2010-01-10 12:49	2072	4283	8	83
9934462	2007-11-04 2:42	2010-07-25 15:10	1389	2594	7	55
10046572	2007-11-07 16:01	2010-02-05 2:44	3800	3604	7	51
10105822	2007-11-09 12:27	2010-01-28 15:49	5352	4938	13	108
10193122	2007-11-12 14:37	2010-03-09 15:06	13002	12073	9	106
10197782	2007-11-12 17:22	2010-01-08 0:33	5644	6444	5	152
10278192	2007-11-15 8:32	2010-03-22 23:56	797	387	14	0
10336042	2007-11-17 11:02	2010-04-27 6:00	22456	20471	11	156
10433782	2007-11-20 23:53	2010-05-12 16:13	1326	3185	8	107
10492902	2007-11-23 8:00	2010-01-23 0:27	4748	4589	9	147
10500072	2007-11-23 13:08	2010-03-08 5:30	12335	11226	12	159
10667662	2007-11-27 13:56	2010-01-12 22:50	53675	58173	7	86
10697222	2007-11-28 21:56	2010-06-11 5:50	2292	5081	12	157
10736862	2007-11-30 6:29	2010-06-14 16:29	7282	6620	10	64
10746692	2007-11-30 13:01	2010-01-02 17:36	986	407	15	0
10778972	2007-12-01 21:50	2010-05-28 2:47	1716	688	8	58
10779802	2007-12-01 23:05	2010-03-04 18:33	19802	19928	6	146
10793242	2007-12-02 14:47	2010-01-26 19:27	5453	5992	8	24
10845372	2007-12-04 12:09	2010-03-05 2:22	3650	3328	8	159
10870512	2007-12-05 7:50	2009-12-31 23:31	3426	3116	6	117
10987282	2007-12-08 23:20	2010-04-14 4:27	12453	11320	5	27
11009092	2007-12-09 21:48	2010-02-03 20:44	1926	1414	8	158
11015372	2007-12-10 5:12	2010-07-07 20:03	504	222	14	139
11041822	2007-12-11 1:32	2009-12-31 23:34	15899	15673	12	62
11073902	2007-12-11 21:19	2010-04-03 4:30	5661	8850	8	135
11228722	2007-12-16 12:01	2010-02-02 9:28	1894	1302	6	0
11294262	2007-12-18 8:02	2010-03-11 7:02	3105	2852	7	6
11305742	2007-12-18 12:59	2010-01-09 9:32	4529	4674	15	59
11341332	2007-12-19 10:59	2010-01-18 5:00	20436	20866	11	61
11403052	2007-12-21 6:58	2010-05-30 15:42	16	7	6	0
11403462	2007-12-21 7:21	2010-02-17 8:15	12486	12952	8	93
11410012	2007-12-21 11:21	2010-04-10 0:33	12294	11957	9	134
11410412	2007-12-21 11:30	2010-03-15 13:27	1258	1035	14	160
11422132	2007-12-21 19:48	2010-04-26 21:19		2394	8493	12	16
11488822	2007-12-24 16:23	2010-08-02 0:23			167		92		9	58
11525652	2007-12-26 2:03	2010-03-21 20:40	1985	258	8	160
11547732	2007-12-26 16:36	2010-02-08 4:14	1765	629	13	153
11605832	2007-12-28 9:35	2010-04-21 9:37	4020	4373	15	103
11637322	2007-12-29 12:33	2010-02-26 19:00	4283	10615	12	39
11662532	2007-12-30 11:08	2010-03-23 10:31	17778	17682	7	64
11721472	2008-01-01 10:58	2010-01-31 5:22	1973	1188	15	66
11749762	2008-01-02 4:49	2010-02-28 19:58	666	618	12	148
11756702	2008-01-02 8:49	2010-05-02 1:36	14099	12844	8	71
11778632	2008-01-02 18:15	2010-02-10 15:38	2523	2293	13	159
11786162	2008-01-02 23:06	2010-03-04 19:11	1614	715	7	0
11862162	2008-01-04 19:49	2010-07-21 8:32	1328	509	8	32
11879272	2008-01-05 10:49	2010-01-28 2:50	34252	39345	9	160
11908322	2008-01-06 9:34	2010-01-19 0:52	668	708	7	0
11920772	2008-01-06 17:01	2010-06-25 7:17	693	2553	8	126
11929882	2008-01-06 23:08	2010-05-02 0:04	195	56	7	86
11996952	2008-01-08 13:35	2010-01-23 2:19	712	5828	11	26
12022042	2008-01-09 5:18	2010-01-15 5:28	1700	2011	12	37
12031352	2008-01-09 10:05	2010-02-28 19:52	2001	917	10	105
12037882	2008-01-09 12:32	2010-02-19 1:22	18786	17558	8	147
12085042	2008-01-10 14:45	2010-06-16 0:27	19963	19857	12	13
12198062	2008-01-13 18:39	2010-05-30 21:24	213	108	9	107
12317562	2008-01-16 7:44	2010-01-03 6:27	240	626	7	59
12357122	2008-01-17 7:15	2010-01-14 4:34	4249	4116	8	74
12441712	2008-01-19 15:12	2010-01-29 8:39	30922	30271	8	55
12447572	2008-01-19 19:59	2010-03-21 20:46	11449	10413	8	154
12449542	2008-01-19 21:56	2010-05-17 22:52	1774	8155	14	53
12465192	2008-01-20 12:38	2010-02-12 7:54	597	597	9	114
12470242	2008-01-20 15:30	2010-03-18 23:50	6228	6229	5	56
12511062	2008-01-21 15:52	2010-02-01 22:27	1980	1801	13	159
12516722	2008-01-21 18:58	2010-01-26 9:21	13181	14242	9	157
12524522	2008-01-21 23:37	2010-01-27 21:27	14706	17533	7	156
12552662	2008-01-22 12:10	2010-01-05 10:57	1859	1507	15	58
12570402	2008-01-22 17:44	2010-07-15 3:50	38995	38985	8	21
12604592	2008-01-23 11:51	2010-01-16 3:39	8954	8820	13	131
12611082	2008-01-23 14:21	2010-04-24 4:52	10365	9556	11	66
madeog
Messages postés
61
Date d'inscription
vendredi 12 octobre 2018
Statut
Membre
Dernière intervention
25 avril 2019
-
je viens de vous transmettre le fichier
Commenter la réponse de madeog
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519
0
Merci
Au risuqe de me répéter, tu travailles à partir de 2 fichiers et tu n’en publies qu’un, on ne peut donc pas tester.
Whismeril
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519 -
Il y a de nombreuses erreurs dues aux conversions implicites.

Par exemple
        Me.nombre_tweets = nombre_tweets 'Me.nombre_tweet est un string alors que  nombre_tweets est un double
        Me.rapport_URL = rapport_URL 'Me.rapport_URL est un Interger alors que  rapport_URL est un double
        Me.rapport_mention = rapport_mention 'idem


Active Option Strict dans ton programme cela t'obligera a être précis dans tes conversions, là tu laisses le compilateur faire comme il veut.
Tu veux du texte, je te donne un nombre et débrouille toi..... Et quand il se débrouille, ça ne fait pas toujours ce que l'on pense qu'il fera.

Ceci corrige l'erreur là
        Me.nombre_tweets = nombre_tweets.ToString()
        Me.rapport_URL = CInt(rapport_URL)
        Me.rapport_mention = CInt(rapport_mention)

Mais puisque Me.nombre_tweets représente un nombre pourquoi en faire un string?


Là par exemple
 m.Ratioflowersflowing = (m.Nbrefollowers / m.Nbrefollowings)
Tu essayes de diviser du texte par du texte. Ça ne marche pas, on divise des nombres pas du texte.

Le pire c'est que tes propriétés, elles, sont bien typées.
Et puis, le seul intérêt des structures en .Net est de dialoguer avec des programmes ou des dll win32.
Ajouter un constructeur et des propriétés c'est l'antithèse de la structure.
Tu crées un objet mais de type valeur, juste une fuite de mémoire en puissance.

Là c'est une classe que tu dois faire.

Edit: et c'est sans compter le temps que l'exécution perd à convertir dans tous les sens.
Whismeril
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519 -
J'ai repris mes tests.
Je clique sur "User Info" et sélectionne le fichier userinfo.txt.
Je clique sur "User tweet" et sélectionne le fichier tweetinfo.txt.
Dans les 2 cas, il n'y a pas de filtre sur l'extension.

Je clique sur "Save", il n'y a pas de filtre sur l'extension non plus, je tape test (le .txt n'est pas ajouté automatiquement) je valide.
Ça me redemande de sélectionner un fichier, à priori le fichier de tweet (déjà sélectionné), j'annule -> ça plante.
En exécutant en pas à pas j'arrive là
        If File.Exists(searcher.FileName) Then 'si le fichier existe
            searcher.ShowDialog() 'alors tu le redemande
            'et tu ne traites pas le cas où l'utilisateur annule
            lecteur = New StreamReader(searcher.FileName)
Whismeril
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519 -
si au lieu d'annuler je ressélectionne le fichier de tweet ça plante aussi
Whismeril
Messages postés
13152
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
26 avril 2019
519 -
Je refais du pas à pas.
Ça plante ici
   m.RatioMention = nb / nbTweet

nb vaut 0
nbTweet vaut 0
O divisé par 0 n'existe pas donc m.RatioMention vaut NaN (Not A Number).
Or dans la propriété tu stockes le double (qui accepte NaN) dans un Integer (qui ne l'accepte pas).

On en revient à mon message de 18:12.

Commence à avoir des variables cohérentes de ce qu'elles représentent.

Je n'irai pas plus loin ce soir, ça n'est pas la peine.
madeog
Messages postés
61
Date d'inscription
vendredi 12 octobre 2018
Statut
Membre
Dernière intervention
25 avril 2019
-
bsr
merci beaucoup. je vais tenir compte de tes remarques
Commenter la réponse de Whismeril