namespace HelloFSharp

open Xamarin.Forms
open Xamarin.Forms.Xaml
open System.Collections.Generic
open System

type operacje=
    |doda = 0
    |odej = 1
    |mnoze = 2
    |dziele = 3


type MainPage() =
    inherit ContentPage()


    let stack = StackLayout(VerticalOptions = LayoutOptions.Center)

    let wynik = Label(Text="Wynik")
    let entry1 = Entry(Text="Wprowadz dane 1", BackgroundColor = Color.Fuchsia , TextColor = Color.White, Placeholder = "Pierwsza wartosc")
    let entry2 = Entry(Text="Wprowadz dane 2", Placeholder = "Druga wartosc")
    let butt1 = Button(Text="+")
    let butt2 = Button(Text="-")
    let butt3 = Button(Text="*")
    let butt4 = Button(Text="/")
    let licz (o: operacje)=
        let mutable wart1 = 0.0
        wart1 <- (if Double.TryParse(entry1.Text, &wart1) then wart1 else 0.0)
        let mutable wart2 = 0.0
        wart2 <- (if Double.TryParse(entry2.Text, &wart2) then wart2 else 0.0)
        wynik.Text <-
            match o with
            |operacje.doda ->
                string(wart1 + wart2)
            |operacje.odej ->
                string(wart1 - wart2)
            |operacje.mnoze ->
                string(wart1 * wart2)
            |operacje.dziele ->
                string(wart1 / wart2)








    do
        butt1.Clicked.Add (fun _ -> licz operacje.doda)
        butt2.Clicked.Add (fun _ -> licz operacje.odej)
        butt3.Clicked.Add (fun _ -> licz operacje.mnoze)
        butt4.Clicked.Add (fun _ -> licz operacje.dziele)

        stack.Children.Add entry1
        stack.Children.Add entry2
        stack.Children.Add butt1
        stack.Children.Add butt2
        stack.Children.Add butt3
        stack.Children.Add butt4
        stack.Children.Add wynik


        base.Content <- stack