C'est exact, VBFR ne se trouve plus et les run times non plus, à moins que j'ai mal cherché
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click()
W(0) = W(0) + ConsU * (ResuCorrect - Resu2) * E(0)
W(1) = W(1) + ConsU * (ResuCorrect - Resu2) * E(1)
Command2_Click
End Sub
Private Sub Command2_Click()
Resu1 = E(0) * W(0) + E(1) * W(1) - S
If Resu1 < 0 Then Resu2 = -1 Else Resu2 = 1
End Sub
Private Sub Command3_Click()
W(0) = Int(Rnd * 100) / 100
W(1) = Int(Rnd * 100) / 100
End Sub
Private Sub Command4_Click()
S = Int(Rnd * 100) / 100 * 2 - 1
End Sub
Private Sub Form_Load()
Randomize Timer
End Sub