set /p "var1=string"

goto :end

@echo off
 
Echo What will you do today?
Echo 1.Weather
Echo 2.Exit
 
Choice /C "12" /M "What will you do today?"
 
Call :%ErrorLevel%
Goto :end
 
:1
echo You have chosen 1
pause 1>nul
Goto:EOF
 
:2
echo You have chosen 2
pause 1>nul
Exit
 
:End
pause 1>nul
Exit

Public Class GPSTest : Inherits Form
 
    ' TKey   = Day of year
    ' TValue = GPS Week
    Friend ReadOnly GPSDictionary As Dictionary(Of Integer, Integer) = Me.GetGPSDictionary
 
    Private Function GetGPSDictionary() As Dictionary(Of Integer, Integer)
 
        Dim ThisYear As Integer = Now.Year
 
        Dim DaysInThisYear As Integer = (From month As Integer In Enumerable.Range(1, 12)
                                         Select DateTime.DaysInMonth(ThisYear, month)).Sum
 
        Dim GPSWeeks As IEnumerable(Of Integer) = Enumerable.Range(1773 - 1, 1825)
 
        Dim Result As New Dictionary(Of Integer, Integer)
 
        For Day As Integer = 1 To DaysInThisYear
 
            Result.Add(Day, GPSWeeks(DatePart(DateInterval.WeekOfYear,
                                              New DateTime(ThisYear, 1, 1).AddDays(Day - 1))))
 
        Next Day
 
        Return Result
 
    End Function
 
    Private Sub Test() Handles MyBase.Load
 
        MessageBox.Show(Me.GPSDictionary(CInt(InputBox("Intoduce un dia del año", "Dia del año", 1))), "Semana GPS:",
                        MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        Application.Exit()
 
    End Sub
 
End Class

    ' Write a song element.
    XMLHelper.Write_Elements(XmlWriter, { _
                                         {"Name", "My Song file.mp3"}, 
                                         {"Year", "2013"}, 
                                         {"Genre", "Rock"} _
                                         }, Xml.Formatting.None)
 

Public Class MySettingsExample : Inherits form
 
    Dim WithEvents tb_Name As New TextBox
 
    Private Shadows Sub OnLoad() Handles MyBase.Load
 
        Me.Controls.Add(Me.tb_Name)
        Me.LoadUserSettings()
 
    End Sub
 
    Private Sub LoadUserSettings()
 
        If Not String.IsNullOrEmpty(My.Settings.Name) Then
            Me.tb_Name.Text = My.Settings.Name
        End If
 
    End Sub
 
    Private Sub tb_Name_TextChanged(ByVal sender As Object, ByVal e As EventArgs) _
    Handles tb_Name.TextChanged
 
        Dim _name As String = CStr(sender.Text)
 
        If Not String.IsNullOrEmpty(_name) Then
 
            With My.Settings
                .Name = _name
                .Save()
                ' .Reload()
            End With
 
        End If
 
    End Sub
 
End Class