Visual Basic! POMOCY!!:(

[Gość: olka]

Potrzebuje na poniedzialek prosty programik w Visual Basicu. Mialam dopiero 2
zajecia z tego programu, wiec nie znam go prawie wcale. Moj program dodaje
wiek rodzicow i oblicza srednia arytmetyczna, ale mam problem, bo nieparzysta
licze zaokragla a nie zostawia polowek, np. zamiast (44+45)/2=44,5 on oblicza
44. O co chodzi ? :( Blagam o pomoc!!

Moje dzielo:

Private Sub Command1_Click()
Dim wiek_ojca As Byte
Dim wiek_matki As Byte
Dim Full As Byte
wiek_ojca = Text1.Text
wiek_matki = Text2.Text
Full = (wiek_ojca + wiek_matki) / 2

Text3.Text = Full




End Sub

[Gość: Antek]

To proste. Zmienna full, w ktorej przechowywana jest srednia jest typu Byte a
wiec moze przyjmowac wartosci od 0 do 254 (tylko calkowite). A zatem wystarczy
zmienic jej typ na Single.

> Dim Full As Single

[Gość: olka]

Antek jesteś boski! KOCHAM CIĘ! :)

[Gość: Antek]

:)

[arius5]

A co sie stanie, jak w pole "Text" wpiszesz jakies smieci, zamiast liczby ?
Dobrze by bylo zrobic prosta obsluge bledow, tzn sprawdzic, czy wprowadzone dane
sa to faktycznie liczby w rozsadnym zakresie.
np:
Zadeklarowalbym

wiek_ojca as Integer
st = Trim$(Text1.Text)
If Not IsNumeric (st) or st ="" or Len(st)>3 then
'tutaj zrob cos, bo mamy blad w danych, wiec trzeba je poprawic
Exit Sub
End
wiek_ojca = CInt(st)

to samo dla drugiej zmiennej