Posts by schnibli

Imports System.Net.Sockets
Imports System.IO


Public Class Form1
    Private stream As NetworkStream
    Private streamw As StreamWriter
    Private streamr As StreamReader
    Private client As New TcpClient
    Private t As New Threading.Thread(AddressOf Listen)
    Private Delegate Sub DAddItem(ByVal s As String)
    Private nick As String = "unknown"


    Private Sub AddItem(ByVal s As String)
        ListBox1.Items.Add(s)
    End Sub


    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Try
            client.Connect("192.168.61.91", 9999) ' hier die ip des servers eintragen. 
            ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
            If client.Connected Then
                stream = client.GetStream
                streamw = New StreamWriter(stream)
                streamr = New StreamReader(stream)


                streamw.WriteLine(nick) ' das ist optional.
                streamw.Flush()


                t.Start()
            Else
                MessageBox.Show("Verbindung zum Server nicht möglich!")
                Application.Exit()
            End If
        Catch ex As Exception
            MessageBox.Show("Verbindung zum Server nicht möglich!")
            Application.Exit()
        End Try
    End Sub


    Private Sub Listen()
        While client.Connected
            Try
                Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
            Catch
                MessageBox.Show("Verbindung zum Server nicht möglich!")
                Application.Exit()
            End Try
        End While
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        streamw.WriteLine(TextBox1.Text)
        streamw.Flush()
        TextBox1.Clear()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nick = InputBox("Nickname: ", "Namen festlegen", "unknown")
    End Sub
End Class

#!/usr/bin/env python
 
import socket
from subprocess import call
 
# Accept requests from any IP address on port 50000
TCP_IP_rp = '192.168.61.91'
TCP_PORT_rp = 50000
BUFFER_SIZE = 4096
 
# Create socket and bind it to TCP address & port
s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
s.bind((TCP_IP_rp, TCP_PORT_rp))
 
# Infinite loop
while 1:
    # Listen for a connection
    s.listen(1)
    # Connection found. Accept connection
    conn, addr = s.accept()
 
    # Open file so we can save off audio response
    with open('/home/pi/result.wav', 'wb') as f:
         while 1:
             data = conn.recv(BUFFER_SIZE)
             f.write(data)
             if not data: break
         conn.close()
    f.close()
 
    # Play the audio file using aplay. Audio rate = 22050 Hz, 2 channel, 16-bit Little Endian
    call('aplay -r 16000 -c 2 -f S16_LE /home/pi/result.wav', shell=True)

Imports System.Net.Sockets
Imports System.IO


Public Class Form1
    Private stream As NetworkStream
    Private streamw As StreamWriter
    Private streamr As StreamReader
    Private client As New TcpClient
    Private t As New Threading.Thread(AddressOf Listen)
    Private Delegate Sub DAddItem(ByVal s As String)
    Private nick As String = "unknown"


    Private Sub AddItem(ByVal s As String)
        ListBox1.Items.Add(s)
    End Sub


    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Try
            client.Connect("192.168.61.91", 50000) ' hier die ip des servers eintragen. 
            ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
            If client.Connected Then
                stream = client.GetStream
                streamw = New StreamWriter(stream)
                streamr = New StreamReader(stream)


                streamw.WriteLine(nick) ' das ist optional.
                streamw.Flush()


                t.Start()
            Else
                MessageBox.Show("Verbindung zum Server nicht möglich!")
                Application.Exit()
            End If
        Catch ex As Exception
            MessageBox.Show("Verbindung zum Server nicht möglich!")
            Application.Exit()
        End Try
    End Sub


    Private Sub Listen()
        While client.Connected
            Try
                Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
            Catch
                MessageBox.Show("Verbindung zum Server nicht möglich!")
                Application.Exit()
            End Try
        End While
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        streamw.WriteLine(TextBox1.Text)
        streamw.Flush()
        TextBox1.Clear()
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nick = InputBox("Nickname: ", "Namen festlegen", "unknown")
    End Sub
End Class

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If _bS.Position + 1 > _bS.Count - 1 Then
            Timer1.Stop()
            If laden = "ja" Then
                '_bS.DataSource = _sourcePath.GetFiles("*.jpg*")
                'PictureBox1.DataBindings.Add(New Binding("ImageLocation", _bS, "FullName"))
                laden = "nein"
                PictureBox1.DataBindings.Clear()
                Call start()
            End If
            If majowa_status = "majowa_aktive" Then
            Else


                If remote_status = "aktiv" Or fernseh_status = "aktiv" Or majowa_status = "majowa_aktiv" Then
                    _bS.Position = 0
                    Timer1.Start()
                Else


                    If My.Settings.video = "start" Then
                        PictureBox1.Visible = True
                        video_läuft = "vid_lauft"
                        Call client.video_status()
                        Film.Show()
                    Else
                        'GC.Collect()
                        'Call start()
                        _bS.Position = 0
                        Timer1.Start()
                    End If
                End If
            End If
        Else
            Me.Text = _bS.Position & "/" & _bS.Count - 1
            _bS.MoveNext()
        End If


    End Sub