Visual Basic

class Employee
{
    Address homeAddress = /* .. */
    public Address HomeAddress
    {
        get
        {
            return homeAddress;
        }
    }
}

class Address
{
    string street;
    public string Street
    {
        get
        {
            return street;
        }
    }

    string city;
    public string City
    {
        get
        {
            return city;
        }
    }
}

Employee chuckNorris = new Employee();
chuckNorris.HomeAddress.Street = "Set the street here";
chuckNorris.HomeAddress.City = "set the city here";

button1.Size.Width = 60

sazd1 wrote:

I want a query for stockcalculation

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  MsgBox("Jiihuu!!!")
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Button1.PerformClick()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  MyMessageBox()
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  MyMessageBox()
End Sub

Private Sub MyMessageBox()
  MsgBox("Jiihuu!!!")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  MyMessageBox(" Executed by Button1")
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  MyMessageBox(" Executed by Timer1 at " & Now.ToShortTimeString)
End Sub

Private Sub MyMessageBox(Byval ExtraMessage As String)
  MsgBox("Jiihuu!!!" & ExtraMessage)
End Sub

Dim TheButtonWasClickedToday As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  MyMessageBox(" Executed by Button1")
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  If TheButtonWasClickedToday = False Then
            If Now.Hour = 17 Then
                Select Case Now.Minute
                    Case 34
                        MyMessageBox(" Executed exactly on time by Timer1 at " & Now.ToShortTimeString)
                        TheButtonWasClickedToday = True
                    Case Is > 40 'a 6 minute safety catch'
                        TheButtonWasClickedToday = False
                    Case Is > 34
                        If TheButtonWasClickedToday = False Then
                            MyMessageBox(" Executed too late by Timer1 at " & Now.ToShortTimeString)
                            TheButtonWasClickedToday = True
                        End If
                End Select
            End If
        End If
End Sub

Private Sub MyMessageBox(Byval ExtraMessage As String)
  MsgBox("Jiihuu!!!" & ExtraMessage)
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 60000
        TextBox1.Text = Format(Now, "M")

        If Now.Hour = 22 Then
            Select Case Now.Minute
                Case 23
                    MyMessageBox(" Executed exactly on time by Timer1 at " & Now.ToShortTimeString)
            End Select
        End If

        If Now.Hour = 22 Then
            Select Case Now.Minute
                Case 24
                    MyMessageBox(" Executed exactly on time by Timer1 at " & Now.ToShortTimeString)
            End Select
        End If

    End Sub

Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  Timer1.Enabled = True
  Timer1.Interval = 60000 'we should get a tick every 1 minute'
  'if you get a tick more often, you need to increase this number'
  'if you get a tick less often, you need to decrease this number'
  Timer1.Start
End Sub

Select Case Now.Hour
        Case 0
            If Now.Minute = 23 Then MyMessageBox(" Executed exactly on time by Timer1 at " & Now.ToShortTimeString)
        Case 1
            If Now.Minute = 23 Then MyMessageBox(" Executed exactly on time by Timer1 at " & Now.ToShortTimeString)
        Case 2
            If Now.Minute = 23 Then MyMessageBox(" Executed exactly on time by Timer1 at " & Now.ToShortTimeString)
        'Etc.'
End Select