المشاركات : 4
المواضيع 1
الإنتساب : Jan 2014
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
28-01-14, 05:57 PM
(آخر تعديل لهذه المشاركة : 28-01-14, 05:58 PM {2} بواسطة maryam al-ibraheem.)
Dim numbers_of_joints As Integer
Dim x() As Single
Dim y() As Single
Dim free() As Single
Private Sub Command1_Click()
numbers_of_joints = InputBox("ÚÏÏ ÇáÚÞÏ")
ReDim x(numbers_of_joints)
ReDim y(numbers_of_joints)
ReDim free(numbers_of_joints)
MSFlexGrid1.Rows = numbers_of_joints + 1
For i = 1 To numbers_of_joints
x(i) = InputBox("x(i)")
y(i) = InputBox("y(i)")
free(i) = InputBox("ÏÑÌÉ ÍÑíÉ ÇáÚÞÏÉ")
MSFlexGrid1.TextMatrix(i, 0) = i
MSFlexGrid1.TextMatrix(i, 1) = x(i)
MSFlexGrid1.TextMatrix(i, 2) = y(i)
MSFlexGrid1.TextMatrix(i, 3) = free(i)
Next i
End Sub
Private Sub Form_Load()
MSFlexGrid1.Cols = 4
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "ÑÞã ÇáÚÞÏÉ i"
MSFlexGrid1.CellAlignment = 4
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "x(i)"
MSFlexGrid1.CellAlignment = 4
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "y(i)"
MSFlexGrid1.CellAlignment = 4
MSFlexGrid1.Col = 3
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "ÏÑÌÉ ÇáÍÑíÉ ááÚÞÏÉ "
MSFlexGrid1.CellAlignment = 6
End Sub
بس بدي بدل الادخال من الinputbox يكون الادخال من الtext box