Useful Thoughts and Actions Taken

Study of Oxygens effect on recurrent Headaches using Oxygen Concentrator Have your own Oxygen Bar

     This is the oxygen concentrator I bought

I get headaches fairly mainly due to having allergies.  In the past I have heard about the immediate effects of concentrated oxygen on headaches and want to try it as a remedy.  This is where I will keep notes on my research.

  1. First step is to just try some oxygen when I have a headache: http://www.o2zonearomatherapy.com/contact.php
  2. If #1 is promising I'll try to get an oxygen concentrator:   http://www.specialtymedicalsupply.com/cart.php
  3. I will study the effects of the oxygen on attention span while programming.
  4. Effect on sleep

 Reference material

How an oxygen concentrator works  –  uses zeolite and is nonhazardous. Produces about 90% oxygen.

Replacement Filters

Disc = final bacteria filter

Canister = Intake Filter

Black Foam = box intake filter – reusable

Can get these filters here:

Craigslist

 Results

  • Definitely gets rid of headaches
  • helped with neck stiffness caused by tension headache
  • resting heart rate = 42. Normally without concentrated oxygen 50 is my resting rate.
  • My daily runs are easier and faster.  Blood pressure seems better.
  • Memory tests are proving out that memory function is more rapid
  • Much better attention span while coding.  Much less likely to distract into an internet browsing frenzy avoiding work
  • In the past while staying in Phoenix I have found that I wake up with a headache 50% of the time.  I have had the concentrator 2 weeks now and no headaches
  • Lessons my allergy problems in general.  Cuticles about my fingernails are in much better condition as they are much less irritated.

Assorted Notes:

  • This is a definite add to your collection of useful household devices.
  • Do not smoke while using.  Pure oxygen can make the usually flame resistant materials burn bright and fast.  I found out while testing with a pipe.  The flame lept from the pipe to the exit holes of the plastic tubing which then proceded to burn like rocket fuel.
  • Add a peppermint tea bag to the water bottle because it smells like heaven
  • Some people are using these machines to make small welding torches with this supplying the oxygen. No need to get oxygen bottles!

My Darth Vader black helmet is on the way!  Get one.  Join the power of the darkside.

Assorted Follow Up

About 3 months after buying this oxygen concentrator I started eating alot of beans because they are good and they are cheap.  I stopped eating wheat products strictly by accident.  Imagine my surprise when the psoriasis on my hands cleared up.  My lung tightness and frequent headaches that this machine had helped with went away completely. I am now on a gluten free diet and feeling very good.  You can read about my discovery of gluten's very bad effects on me here.

By Fudgy McFarlen, ago

VB Visual Basic ModBus Checksum Routine

Function CRC16_BIN(ByRef ModBus_Data() As Long, NumBytes As Integer) As Long
  
    Dim Temp As Long
    Dim CRC As Long
    Dim Polynomial As Long
    Dim i As Integer
    Dim j As Integer
'—– following are read sequence checksum verification vectors  — test where either hi or lo byte == 0
'— Example temperature= 1 :   1  3  64  0  1  217  144
'—         temperature=255:   1  3  64  0  255  88  16
'—         temperature=256:   1  3  64  1  0  25  192
'—         temperature=257:   1  3  64  1  1  216  0
'—                     =0 :   1  3  64  0  0  24  80
  '— verified write string = Chr(1) & Chr(6) & Chr(64) & Chr(3) & Chr(232) & Chr(24) & Chr(34)
    CRC = 65535          '–bottom 16 bits are all 1's
    Polynomial = 40961   '–poly = A001
    For i = 0 To NumBytes – 1
      CRC = CRC Xor ModBus_Data(i)
      For j = 0 To 7
        If (CRC And 1) Then
          CRC = (ShiftRight(CRC) Xor 40961)
        Else
          CRC = ShiftRight(CRC)
        End If
      Next j
    Next i
    CRC16_BIN = CRC And 65535
   
    End Function

 

Research Links

By Fudgy McFarlen, ago

phpBB php Bulletin Board integration into WordPress

I am researching the integration of phpBB into Wordpress.  I will put the results of my research here as time goes on.

Wp2BB

     Wp2BB Plugin Home Page   – Wp2BB in the Wordpress plugin directory  – The homepage has phpBB set up very well stylistically – It creates a forum topic automatically for every entry in your blog if you want. 

Configuration of the plugin

You have to install your phpBB separately.  Appears that it does not integrate USER / PASSWORD authentication. What that means is to log into the blog you have one user / password pair and yet another pair for the bulletin board software. 

Wp-United

 Wp-United Home Page   this site has alot of examples of its usage in well integrated artful sites. Including this one: GardeningZone.org  

Appears that the USER / PASSWORD integration problem was solved in this case.  I have not tested this but did read on their site that it is integrated.

Forum discussion of its usage

BBPress

BBPress is not phpBB. It is by the WordPress crew. For this reason I suspect it integrates more easily.

bbPress Integration – This plugin gives the default WP role to users who registered through approved bbPress installations. It also populates things like usernicename and displayname as necessary.

Notes on bbpress installation:

I found that in spite of having the most up to date version of WordPress I needed to add the following lines to my wp-config.php file

define('AUTH_KEY', 'KeyValue1');                    
define('SECURE_AUTH_KEY', 'KeyValue2');
define('LOGGED_IN_KEY', 'KeyValue3');   AUTH_KEY, SECURE_AUTH_KEY, LOGGED_IN_KEY explanation here  HOWTO: Set up secret keys in WordPress 2.6
define('SECRET_KEY', 'KeyValue4');    Secret Key Explanation here

The respective key values are long strings of random characters.

 Markdown for WordPress and bbPress – Markdown syntax allows you to write using an easy-to-read, easy-to-write plain text format.

punBB Latest Topics Widget

By Fudgy McFarlen, ago

Brazil USA Dollar Exchange Rate Gyrations suggest strange times ahead

When I first went to Brazil the exchange rate was 3 reals per 1 US Dollar.  Over time the dollar had decayed to the 1.5 to 1 level.  I checked the exchange rate yesterday thinking that the rate might give some indications of the future.  I was shocked to find out that the dollar was slightly north of 2 : 1 yesterday.  Today it is 2.2 :1.  Very strange indeed.  What could the possible reasons be?

  • stealth investors have their money outside the country and there is a panic ?
  • gov't trying to stimulate economy ?
  • commodities cratering ?

This sort of gyration makes it so it is impossible to plan new business and very very difficult to maintain old business. 

Brazil USA Exchange Rate

The rate of fall of the graph is nothing short of harrowing.

By Fudgy McFarlen, ago

Visual Basic: Returning an array from a function

How to return an array from a function

Parent Form Function that passes back an Array / Vector

 Private Sub ReceiveArray_Click()
    Dim intRcvArray() As Integer
    Dim i As Integer

    UserInterface.Text = ""
    intRcvArray = NumberList()                   ' —Get the array of strings.
   
    For i = LBound(intRcvArray) To UBound(intRcvArray)     ' —Display the strings.
       UserInterface.Text = UserInterface.Text & CStr(i) & " "
    Next i

End Sub

Private Function NumberList() As Integer()          ' — This function returns an array 
  Dim intArray() As Integer
  Dim i As Integer

    ReDim intArray(1 To 10)
    For i = 1 To 10
        intArray(i) = i             
    Next i

    NumberList = intArray
End Function

Code here: ReturnArray.zip

By Fudgy McFarlen, ago

Visual Basic: How to pass an array parameter to another routine

This routine will pass a parameter to another routine This routine receives the call with array as parameter

 

Sub TestPassArray()

  Dim LongArray(1 To 5) As Long
  Dim i As Integer
 
  For i = 1 To 5
    LongArray(i) = i
  Next i
  
  UserDisplay.Text = CStr(PassTest(LongArray()))

End Sub                                                                                                      

 

Function PassTest(ByRef LongPass() As Long) As Long

  Dim i  As Integer
  Dim Sum As Long
 
  For i = 1 To 5
     Sum = Sum + LongPass(i)
  Next i
 
PassTest = Sum
  
End Function

 

 

  1. The passing routine packs   1,2,3,4,5 into an array.
  2. The called routine calculates the sum of all the values in the array and passes the result back to the calling routine.
By Fudgy McFarlen, ago