Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: procedura function
anonim




Typ: Nie zarejestrowany
procedura function

bardzo proste ale nie dziala
chce za pomoca procedury function obliczyc np. pole powierzchni prostokąta

Function pole()
a = Text1.Text
b = Text2.Text
pole() = a * b
Exit Function
End Function

Private Sub Command1_Click()
pole() = Text3.Text
End Sub

Po wywolaniu procedury wyskakuje blad: Out of stack space
prosze o podpowiedz

28-09-2004 11:09
  
anonim




Typ: Nie zarejestrowany
ok

juz dziala

28-09-2004 11:31
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

Zamień to na następujący kod:

Function pole(a As Long, b As Long) As Long
    pole = a * b
End Function

Private Sub Command1_Click()
    Text3.Text = CStr(pole(CLng(Text1.Text), CLng(Text2.Text)))
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

28-09-2004 15:58
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1