1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
'courbe Tension/Longeurs
Me.RepresentationCourbeTableAdapter.Fill(Me.RepresentationDataSet.RepresentationCourbe)
Me.RepresentationDataSet.Clear()
For i As Integer = 0 To 100
Me.RepresentationDataSet.RepresentationCourbe.AddRepresentationCourbeRow(Face(NumeroPlan).ResultatsDouble.ComboBoxLongeur1.Items.Item(i), Face(NumeroPlan).ResultatsDouble.ComboBoxTension1.Items.Item(i), -Face(NumeroPlan).ResultatsDouble.ComboBoxLongeur2.Items.Item(i), Face(NumeroPlan).ResultatsDouble.ComboBoxTension2.Items.Item(i), "")
Next
Me.ReportViewer1.RefreshReport()
'courbe Tension/Angles
Me.RepresentationCourbeTableAdapter.Fill(Me.RepresentationDataSet.RepresentationCourbe)
Me.RepresentationDataSet.Clear()
For j As Integer = 1 To 100
Me.RepresentationDataSet.RepresentationCourbe.AddRepresentationCourbeRow(Math.Round(Face(NumeroPlan).DonneePlan._Poulies(Face(NumeroPlan).PositionTendeur)._Tendeur._DblTendeur(3)._Angle(j), 2), Math.Round(Face(NumeroPlan).DonneePlan._Poulies(Face(NumeroPlan).PositionTendeur)._Tendeur._DblTendeur(3)._Tension(j), 2), Math.Round(Face(NumeroPlan).DonneePlan._Poulies(Face(NumeroPlan).PositionTendeur2)._Tendeur._DblTendeur(3)._Angle(j), 2), Math.Round(Face(NumeroPlan).DonneePlan._Poulies(Face(NumeroPlan).PositionTendeur2)._Tendeur._DblTendeur(3)._Tension(j), 2), "")
Next
Me.ReportViewer1.RefreshReport() |
Partager