Gambas: Beispielprogramme2

Aus Wikibooks
Wechseln zu: Navigation, Suche


Zurück zum Gambas-Inhaltsverzeichnis.


Fahrenheit und Celsius Umrechner

Celsius-Fahrenheit-umrechner.JPG

' Gambas class file
' Fahrenheit und Celsius Umrechner
PUBLIC Ergebnis AS Variant
PUBLIC SUB Button1_Click()
ME.Close
END
PUBLIC SUB Button2_Click()
IF RadioButton1.Value= TRUE THEN ergebnis= Val(textbox1.Text)*9/5+32 
IF RadioButton2.Value= TRUE THEN ergebnis= (Val(textbox1.Text)-32)/9*5 
Label1.Text=ergebnis
END
PUBLIC SUB Button3_Click()
textbox1.Text=" "
Label1.Text=" "
END