Microsoft Small Basic

Program Listing: PCD388-0

List Program

' MuntsOS Dedicated GPIO Server Toggle Test

' Copyright (C)2015, Philip Munts, President, Munts AM Corp.
'
' Redistribution and use in source and binary forms, with or without
' modification, are permitted provided that the following conditions are met:
'
' * Redistributions of source code must retain the above copyright notice,
' this list of conditions and the following disclaimer.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
' IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
' ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
' LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
' CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
' SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
' INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
' CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
' ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
' POSSIBILITY OF SUCH DAMAGE.

' Lay out GUI

GraphicsWindow.Width = 300
GraphicsWindow.Height = 130
GraphicsWindow.Title = "LED Control Program"
GraphicsWindow.Show()
GraphicsWindow.DrawText(40, 30, "Server:")
ServerBox = Controls.AddTextBox(100, 28)
ConnectButton = Controls.AddButton("Connect", 120, 80)
Controls.ButtonClicked = ButtonHandler

' Everything interesting happens in the button handler subroutine

Sub ButtonHandler
b = Controls.LastClickedButton
c = Controls.GetButtonCaption(b)

If c = "Connect" Then
servername = Controls.GetTextBoxText(ServerBox)
pin = 26
direction = 1
PutDDR()
data = 0
PutGPIO()
Controls.SetButtonCaption(b, " ON ")
EndIf

If c = " ON " Then
pin = 26
data = 1
PutGPIO()
Controls.SetButtonCaption(b, " OFF ")
EndIf

If c = " OFF " Then
pin = 26
data = 0
PutGPIO()
Controls.SetButtonCaption(b, " ON ")
EndIf
EndSub

' ******************* GPIO server subroutines follow *******************

' Write GPIO data direction bit
' Parameter variables:
' servername -- IP address or host name
' pin -- GPIO pin number (2-26, as numbered by Linux)
' direction -- 0 for input, 1 for output

Sub PutDDR
webpage = Network.GetWebPageContents("http://" + servername + ":8083/GPIO/ddr/" + pin + "," + direction)
If Text.StartsWith(webpage, "DDR" + pin + "=") Then
Else
GraphicsWindow.ShowMessage(webpage, "GPIO Server Error")
EndIf
EndSub

' Read GPIO data bit
' Parameter variables:
' servername -- IP address or host name
' pin -- GPIO pin number (2-26, as numbered by Linux)
' data -- Set to 0 or 1

Sub GetGPIO
webpage = Network.GetWebPageContents("http://" + servername + ":8083/GPIO/get/" + pin)
If Text.StartsWith(webpage, "GPIO" + pin + "=") Then
data = Text.GetSubTextToEnd(webpage, Text.GetIndexOf(webpage, "=") + 1)
Else
GraphicsWindow.ShowMessage(webpage, "GPIO Server Error")
EndIf
EndSub

' Write GPIO data bit
' Parameter variables:
' servername -- IP address or host name
' pin -- GPIO pin number (2-26, as numbered by Linux)
' data -- 0=OFF (low), 1=ON (high)

Sub PutGPIO
webpage = Network.GetWebPageContents("http://" + servername + ":8083/GPIO/put/" + pin + "," + data)
If Text.StartsWith(webpage, "GPIO" + pin + "=") Then
Else
GraphicsWindow.ShowMessage(webpage, "GPIO Server Error")
EndIf
EndSub