Problem przy tworzeniu funkcji.

[IZZER4]

Mam maly problem przy tworzeniu funkcji. Mam 36x label + 36x zmiennych gdzie przypisuje ostatnia wartosc do niego. Zebym nie musial wpisywac 12x tego samego postanowilem zrobic sobie funkcje;

$td = '14/2'
color($td,$last5,$text5)
MsgBox(0,'',$last5)

 func color ($td,$last,$text)
	if StringInStr($td,'/') Then
	    $str1 = _StringBetween($td,'','/')
   $str2 = _StringBetween($td,'/','')
   $gotowiec = $str1[0] / $str2[0] + 1
   GUICtrlSetData($text,$gotowiec)
    if $last1 = '' Then
	  GUICtrlSetBkColor($text, 0xEBEBEB)
   Else
	  if $last > $gotowiec Then
		 GUICtrlSetBkColor($text, 0xFAA9BA)

	  Else
		 if $last < $gotowiec Then
			GUICtrlSetBkColor($text1, 0xFAA9BA)
			Endif
		 Endif
	  EndIf
   $last = $gotowiec
Else
   if StringInStr($td,'SP') Then
	  GUICtrlSetData($text1,'SP')
   Else

	  if not $td = '' Then
   $gotowiec = $td + 1
      GUICtrlSetData($text,$gotowiec)
	      if $last = '' Then
	  GUICtrlSetBkColor($text, 0xEBEBEB)
   Else
	  if $last > $gotowiec Then
		 GUICtrlSetBkColor($text, 0xB3D3F3)

	  Else
		 if $last < $gotowiec Then
			GUICtrlSetBkColor($text, 0xFAA9BA)
			Endif
		 Endif
	  EndIf
   $last = $gotowiec
   Else
	   GUICtrlSetData($text,'')
	  EndIf
	  EndIf
   EndIf
 EndFunc

Niestety do $last5 wogole mi nie przypisuje ostatniego wyniku, czym moze byc to spowodowane? Jezeli chodzi o wpisanie cyfry i zmiane koloru to wszystko dziala.

[Gość]

Argumenty funkcji są przekazywane jako kopie zmiennych. Dodaj słowo kluczowe ByRef przed nazwą argumentu, a będzie przekazywany oryginał.