Function F(ByVal X As Single)
Dim time(5), temp(5) As Integer
Dim m, X, i, time1, time2, temp1, temp2 As Integer
time(0) = 0
time(1) = 20
time(2) = 90
time(3) = 120
time(4) = 130
time(5) = 300
temp(0) = 20
temp(1) = 30
temp(2) = 55
temp(3) = 40
temp(4) = 30
temp(5) = 60
X = 50
For i = 0 To 5 Step 1
If (X > time(i)) And (X < time(i + 1)) Then
time1 = time(i)
time2 = time(i + 1)
temp1 = temp(i)
temp2 = temp(i + 1)
End If
Next X
m = (temp2 - temp1) / (time2 - time1)
Y = temp1 + m * X
Text1 = Y
End Function

Private Sub Form_Load()
X = 50
F (X)

End Sub

יש לי שני מערכים שבכל אחד מהם יש 6 איברים...
ה-X מסמן זמן מסויים ולאותו זמן אני צריך לחשב את הY שזה הטמפ'...
התוכנית לא עובדת לי משום מה...
אנא בדקו אותה בבקשה ואם אפשר תקנו את מה שלא בסדר...

להבא, כמה דברים:
תתאר את השגיאה. למשל, השגיאה הקריטית פו היתה חריגה במערך. (והיו לך המון המון שגיאות הקלדה. הגדרת את X כאשר הוא כבר מוגדר, או בלולאה אתה קורא ל-X במקום i ועוד הרבה)

תכניס את הקוד לתגיות קוד

תיקרא למשתנים בשמות מובנים.

תשים TAB - ים וירידות שורה.

קוד:

Function F(ByVal X As Single)
	Dim time(5), temp(5) As Integer
	Dim m, i, time1, time2, temp1, temp2 As Integer
	time(0) = 0
	time(1) = 20
	time(2) = 90
	time(3) = 120
	time(4) = 130
	time(5) = 300
	
	temp(0) = 20
	temp(1) = 30
	temp(2) = 55
	temp(3) = 40
	temp(4) = 30
	temp(5) = 60
	X = 50
	
	For i = 0 To 4
		If (X > time(i)) And (X < time(i + 1)) Then
			time1 = time(i)
			time2 = time(i + 1)
			temp1 = temp(i)
			temp2 = temp(i + 1)
		End If
	Next i
	
	m = (temp2 - temp1) / (time2 - time1)
	Y = temp1 + m * X
	Text1 = Y
End Function
Private Sub Form_Load()
X = 50
F (X)
End Sub
  

Function F(ByVal X, time1, time2, temp1, temp2 As Single)


m = (temp2 - temp1) / (time2 - time1)
Y = temp1 + m * X
Text1 = Y

End Function

Private Sub Form_Load()

Dim time(5), temp(5) As Integer
Dim m, i, time1, time2, temp1, temp2 As Integer
time(0) = 0
time(1) = 20
time(2) = 90
time(3) = 120
time(4) = 130
time(5) = 300

temp(0) = 20
temp(1) = 30
temp(2) = 55
temp(3) = 40
temp(4) = 30
temp(5) = 60


For i = 0 To 4
If (X > time(i)) And (X < time(i + 1)) Then
time1 = time(i)
time2 = time(i + 1)
temp1 = temp(i)
temp2 = temp(i + 1)
End If
Next i
X = 50
F (X,time1,time2,temp1,temp2)



End Sub

פה ניסיתי לעשות את אותו הדבר בדרך אחרת, כאשר אני נותן לפונקצייה את 5 הפרמטרים הללו.
הבעייה שהמחשב לא מקבל את השורה :
F (X,time1,time2,temp1,temp2)

איך פונים לפונקצייה עם יותר מפרמטר אחד בויז'ואל בייסיק?

1. שים את הקוד שלך בתוך תגי קוד. (הכפתור עם הסולמית)

2. תיקרא למשתנים בשמות נורמאלים.

3. תידאג להוסיף TAB-ים וירידות שורה.

4. כאשר מגדירים פנקציה, זה לא כמו שמגדירים משתנה. אתה לא יכול לשים אוסף של משתנים, עם פסיקים ולחשוב ש-VB כבר יחליט איזה משתנה מועובר, אם הוא BYVAL או BYREF.

5. הכנסת ערך ל-X אחרי הלולאה. לכן היה לך OVER FLOW

כאשר קוראים לפונקציה, (ולא לאוביקט) לא שמים סוגרים.

קוד:

Function F(ByVal X As Integer, ByVal time1 As Integer, ByVal time2 As Integer, ByVal temp1 As Integer, ByVal temp2 As Integer)
	m = (temp2 - temp1) / (time2 - time1)
	Y = temp1 + m * X
	Text1 = Y
End Function
Private Sub Form_Load()
	Dim time(5), temp(5) As Integer
	Dim m, i, time1, time2, temp1, temp2 As Integer
	time(0) = 0
	time(1) = 20
	time(2) = 90
	time(3) = 120
	time(4) = 130
	time(5) = 300
 
	temp(0) = 20
	temp(1) = 30
	temp(2) = 55
	temp(3) = 40
	temp(4) = 30
	temp(5) = 60
 
	X = 50
	For i = 0 To 4
		If (X > time(i)) And (X < time(i + 1)) Then
			time1 = time(i)
			time2 = time(i + 1)
			temp1 = temp(i)
			temp2 = temp(i + 1)
		End If
	Next i
 
	F X, time1, time2, temp1, temp2
End Sub 

רציתי לציין שהקוד שלך לא יעיל, ולא יפעל בכל המצבים.
למשל אתה צריך להישתמש ב-UBound כדי לזהות איפה סוף המערך