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

GTD and Toodledo Setup

Started using toodledo for storing my GTD lists. Looks like it has all the functonality I have been looking for. Trying to not get too wrapped up in the tool. Have started with my inbox items and hopefully over time will get to a more squeeky clean state.

I am using folders as projects
Although no real use of this yet I am going to star next actions

I assign a context to each task
Contexts:
at shed
home computer
home projecting - have project time
In car
Out Shopping
Work Break
Work Desk
Work Morning Meeting

Default Add all new 'stuff' to inbox for later review and obviously tasks and projects directly.

Hspu, squats, pullups, pushups

6 minutes Handstand push-ups 32 feet/knees on couch
3 minutes Squats 50
2 minutes Pull-ups 3 unassisted, 14 assisted
1 minute Push-ups 16

Workout 1.28.10 Back squats

Back squats 1,1,1,1,1
warmup 95 4x
135,185,195,205,205

1.27.10 Workout - run & thrusters

95# thrusters x 7 3 sets
400m run 2 sets
10:15

Pushed hard and still catching breath 15 min later.