Visual Basic

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   Private Shared nextImage As Integer = 0
   PictureBox1.Image = MyImage(nextImage)
   nextImage = (nextImage + 1) Mod MyImage.Length
End Sub

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

      'PictureBox1.Image = (MyImage(I))
      Static nextImage As Integer = 0
      PictureBox1.Image = MyImage(nextImage)
      nextImage = (nextImage + 1) Mod MyImage.Length
  End Sub

riced wrote:

Then you don't have to do anything if more images are added or some removed.

Sub Main()
     ' Must listen on correct port- must be same as port client wants to connect on.
     Const portNumber As Integer = 8000
     Dim tcpListener As New TcpListener(portNumber)
     tcpListener.Start()
     Console.WriteLine("Waiting for connection...")
     Try
         'Accept the pending client connection and return
         'a TcpClient initialized for communication.
         Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
         Console.WriteLine("Connection accepted.")
         ' Get the stream
         Dim networkStream As NetworkStream = tcpClient.GetStream()
         ' Read the stream into a byte array
         Dim bytes(tcpClient.ReceiveBufferSize) As Byte
         networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
         ' Return the data received from the client to the console.
         Dim clientdata As String = Encoding.ASCII.GetString(bytes)
         TextBox1.Text = clientdata

         'Any communication with the remote client using the TcpClient can go here.
         'Close TcpListener and TcpClient.
         tcpClient.Close()
         tcpListener.Stop()
         Console.WriteLine("exit")
         Console.ReadLine()
     Catch e As Exception
         Console.WriteLine(e.ToString())
         Console.ReadLine()
     End Try

keymoney wrote:

point out the errors please

keymoney wrote:

...it only adds correctly the first time...

total1 = Val(txtdisplay.Text)

total1 = total1 + Val(txtdisplay.Text)

total2 = total1

result = total2