Les 3 - Invoer velden

Invoer velden.

Om tijdens de uitvoer van een programma een waarde in te geven gebruik je een invoer veld.               Drukknop 

Zorg dat je form er zo uit ziet als hier onder.

Een invoer veld is altijd een tekst veld.

Selecteer de button ( door er 1 keer op te klikken ) .

Ga naar de properties window en verander het woord Command1 wat achter Caption staat in : Optellen

Dubbel klik op de button om bij het programma te komen.

Private Sub Command1_Click()

End Sub

Dit ziet u nu staan.

tik het volgende in :

Private Sub Command1_Click()

text3.text = str( val(text1.text) + val(tekst2.text) )

End Sub

Wanneer u dit programma laat runnen dan worden de getallen van text1 en text2 opgeteld en het resutaat in text3 weer gegeven want,
val(text1.text) bepaald welke Value ( waarde ) er in text blok 1 staat en
str( ) maakt hier weer een tekst van.

We kunnen dit ook met variabelen doen.

Dim getal1 , getal2, uitkomst as single

getal1 = Csng(text1.text)

getal2 = Csng(text2.text)

uitkomst = getal1 + getal2

text3.text = Str( uitkomst )

Csng() zet het om naar single

Str() zet een getal om naar een string, dus tekst.

Deze manier lijk meer werk maar in de praktijk is deze manier van programmeren bij ingewikkelde programma’s veel beter.

Veel succes met Les 4

copyright © 2000 - 2008 Majosoft
www.majosoft.com
Hosted by www.yourhosting.nl