Squats, pullups, ghsu, back ext, pushups

2 rounds of

10x 130# squats
10 pullups
10 ghsu
10 back extensions
10,15 pushups

09/10 final event

105# x10 Squat clean
20 knees to 90
20 Box jump
10 bench dips
20# 10x free weight push press
20 Double-unders kinda
105# 10x Thruster
10x Assisted Pull-ups
10 Burpees

ioBridge Data Monitor

I created a simple ap to monitor an ioBridge Device Input for our cnc machine. It basically polls the module using the iobridge api, returns and parses the XML (see example from here). I then send an email if the state changes. Timer is set to poll every 1.5 minutes.

Basic Code:

Imports System
Imports System.Net.Mail
Public Class Form1
Private LastValue As Boolean
Private Shared Function GetXmlPath() As String
Dim xmlPath As String = "http://www.iobridge.com/api/feed/key=MyKeyBlah&format=xml"
Return xmlPath
End Function
Private Function GetDI(ByVal whichinput As Integer) As Boolean
Dim xmlPath As String = GetXmlPath()
Dim xmlData As XDocument = XDocument.Load(xmlPath)
Dim myValue As String = xmlData.Element("module").Element("channel_1").Element("DigitalInput").Value
If myValue = "On" Then
Return True
Else
Return False
End If
End Function

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim NewValue As Boolean = GetDI(1)
ListBox1.Items.Insert(0, "DI 1 " & NewValue & " @" & Now)
If NewValue <> LastValue Then
ListBox1.Items.Insert(0, "State change " & LastValue & " to " & NewValue)
If NewValue Then
SendEmail("CNC Stopped", "CNC Red light is now ON!")
Else
SendEmail("CNC Started", "CNC Red light is now OFF!")
End If
LastValue = NewValue
End If
End Sub
Private Sub SendEmail(ByVal emailsubject As String, ByVal emailbody As String)
Dim ETo As String = "cncinfo@westermeyerind.com"
Dim EFrom As String = "cncinfo@westermeyerind.com"
Dim ESrv As String = "WESTEAST"
Dim SmtpCli As SmtpClient = New SmtpClient("192.168.1.9")
Try
SmtpCli.Send(EFrom, ETo, emailsubject, emailbody)
Catch ex As Exception
ListBox1.Items.Insert(0, "EMail Send Failure: " & ex.Message)

End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LastValue = GetDI(1)
End Sub
End Class

Gh situps + back extensions

20x round
gh Sit-up
Back extension
Knees to hips
75 # Stiff legged deadlift
15x round
gh Sit-up
Back extension

time: 12:23

Thrusters + muscle ups

Lol no muscleups just yet.

135# thrusters 5x
5 pullups
10 bench dips
400m run
135# thrusters 5x
8 assisted pullups
10 bench dips

Basketball

Basketball 7-915