The Lunchbox

Code Snippets

'Connect Function
Try
    cli = New BluetoothClient
    Dim addy As BluetoothAddress = BluetoothAddress.Parse(My_Btooth_Addy)
    Dim ep As BluetoothEndPoint
    ep = New BluetoothEndPoint(addy, BluetoothService.SerialPort)
    cli.Connect(ep)
Catch ex As Exception
    Label1.Text = "Connection Error"
End Try

'Lock Function
Try
    peerstream = (cli.GetStream())
    Dim write_string(1) As Byte
    write_string(0) = 66
    peerstream.Write(write_string, 0, 1)
    PictureBox3.Image = lock
Catch ex As Exception
    Label1.Text = "Connected, send error"
End Try

Schematic

The Lunchbox

The Group

Siddharth Doshi
Erik Lee
Gabriel Ramirez

MS students in Mechanical Engineering with a focus on Controls and Automation. Siddharth did his Bachelor's degree in ME from the University of Mumbai, India. Erik has a BSME from the University of Alabama, Huntsville. Gabriel has is undergraduate degree in ECE from Technological Institute of Santo Domingo, The Dominican Republic.

Links