>>> ملخصات عملية <<<
البرمجة المرئية
كل الشكر والتقدير م.ماجد جربوع
دعواتكم
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
الكود الخاص بكتابة البرنامج (الوحدة السادسة ) وهو يلخص العمليات على المصفوفات من لغة 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
المصدر : مركز الفا للدراسات الاكاديمية
hamad bashir
أكواد من لغة vb6, اكواد من لغة فيجول بيسك, البرمجة المرئية, برامج عملية فيجول بيسك vb6, برمجة مرئية, ملخص العمليات على المصفوفات من لغة VB6,
اطرح اي سؤال خاص بالموضوع في التعليقات