'******************************************************
'*****************Simple Single A to D ****************
'In this set of simple experiments we will work together
'to build the skills needed for many BasicX applications.
'
'Simple A to D with just one pin or channel
'******************************************************
'@ Platform: NetMedia BasicX 24
'@ Version: 1.0
'@ Author: Brian Patton (brianp@robodyssey.com)
' Robodyssey Systems, LLC. - www.robodyssey.com
'@ Last Updated: Jan 3, 2004

'******************************************************
'***************** Materials **************************
'
' One Robodyssey Advanced Motherboard
' One Input Device (Sharp sensor, Voltage Divider Board, etc)
'******************************************************
Public Sub Main() ' Main programming area

'// Your code goes here //

Do ' Beginning of a loop
Debug.Print "Pin 13 value is "; CStr (GetADC(13))
' Debug.Print displays to the computer..
' the text between the quotes and...
' CStr means "convert to sting" and...
' GetADC converts the value on pin13 to digital..
' So, you get a display like...
' "Pin 13 value is 384"
Delay(0.5) ' Delay 1/2 second..makes it readable
Loop ' Do it over and over

'// The end of the program space //
End Sub