ملخص عملي 1 مقرر البرمجة المرئية

>>> ملخصات عملية <<<

البرمجة المرئية

كل الشكر والتقدير م.ماجد جربوع

دعواتكم

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

الكود الخاص بكتابة البرنامج (الوحدة السادسة ) وهو يلخص العمليات على المصفوفات من لغة VB6

Option Explicit
Option Base 1
Dim x() As Single
Dim y() As Single
Dim n, i, c As Integer
Dim sum, avg, max, min As Single

Private Sub Command1_Click()
n = txtNumberEmp.Text
ReDim x(n)
For i = LBound(x) To UBound(x)
x(i) = InputBox("Enter The Sallary" & " " & i, "Enter Sallary")
Next
End Sub

Private Sub Command2_Click()
sum = 0
For i = LBound(x) To UBound(x)
sum = sum + x(i)
Next
txtsum.Text = sum
End Sub

Private Sub Command3_Click()
For i = LBound(x) To UBound(x)
avg = sum / UBound(x)
Next
txtavg.Text = avg
End Sub

Private Sub Command4_Click()
max = x(1)
For i = LBound(x) To UBound(x)
If max < x(i) Then
max = x(i)
End If
Next
txtmax.Text = max
End Sub

Private Sub Command5_Click()
min = x(1)
For i = LBound(x) To UBound(x)
If min > x(i) Then
min = x(i)
End If
Next
txtmin.Text = min

End Sub

Private Sub Command6_Click()
ReDim y(n)
For i = LBound(x) To UBound(x)
y(i) = x(i) + 10
Next
End Sub

Private Sub Command7_Click()
Picture1.Print "Before Increment"
Picture2.Print "After Increment"
For i = LBound(x) To UBound(x)
Picture1.Print x(i)
Picture2.Print y(i)
Next
End Sub

Private Sub Command8_Click()
For i = LBound(x) To UBound(x)
If x(i) > 150 Then
c = c + 1
End If
Next
txtNumG150.Text = c

End Sub

Private Sub Form_Load()
MsgBox "Welcome To Maged Programm"
End Sub