B4A Library My First Lib TemperatureConverter

Hello everyone

I make this Library for try How to make one

Library is very simple
Temperature conversion

 Dim Un As TemperatureConverter
    Private Spinner1 As Spinner
    Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
 
    Activity.LoadLayout("index")

Spinner1.Add("From_Celsius_to_Fahrenheit")
Spinner1.Add("From_Celsius_to_Kelvin")
Spinner1.Add("From_Fahrenheit_to_Celsius")
Spinner1.Add("From_Fahrenheit_to_Kelvin")
Spinner1.Add("From_Kelvin_to_Celsius")
Spinner1.Add("From_Kelvin_to_Fahrenheit")


End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)

If     EditText1.Text <>"" Then
    Select Position
        Case 0
            Msgbox(Un.From_Celsius_to_Fahrenheit(EditText1.Text),"") 
        Case 1
            Msgbox(Un.From_Celsius_to_Kelvin(EditText1.Text),"") 
        Case 2
            Msgbox(Un.From_Fahrenheit_to_Celsius(EditText1.Text),"") 
        Case 3
            Msgbox(Un.From_Fahrenheit_to_Kelvin(EditText1.Text),"") 
        Case 4
            Msgbox(Un.From_Kelvin_to_Celsius(EditText1.Text),"") 
        Case 5 
            Msgbox(Un.From_Kelvin_to_Fahrenheit(EditText1.Text),"")         
          
    End Select
End If 
End Sub

 

[moster67]

Haven't tried it but heads up!
It is a good idea to start simple and then advance....

I look forward to seeing more libraries from you.

 

[susu]

To be honest, I don't think we need a lib to do simple thing. But I always respect everybody's works. Thank you.

 

[somed3v3loper]

Yes it is very simple but the important thing is that you entered library making world .
We hope to see your huge libraries soon

 

[DonManfred]

It is a good idea to start simple and then advance....

I look forward to seeing more libraries from you.

Fully agree

 

[Salimalhajri]

Thank you for your encouragement
This is just the beginning
In the future I will present most benefit libraries