VB.Net Demographics Examples

From CDYNE Wiki
Jump to: navigation, search

Contents

GetIncomeHouseValueByAddress

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetIncomeHouseValueByAddress.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New DemographixQuery
Dim IAHV As New IncomeAndHouseValue
 
IAHV = DQ.GetIncomeHouseValueByAddress("505 Independence Parkway","Chesapeake", "VA", "23320", "YOUR LICENSE KEY")
 
Console.WriteLine("Error: " & IAHV.ErrorString & Environment.NewLine &
"Place ID: " & IAHV.PlaceInformation.PlaceID & Environment.NewLine &
"State Abbreviation: " & IAHV.PlaceInformation.StateAbbrev & Environment.NewLine &
"Median Income: " & IAHV.MedianIncome & Environment.NewLine &
"Median House Value: " & IAHV.MedianHouseValue)
Console.ReadLine()
 
End Sub
 
End Module

GetLocationInformationByAddress

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetLocationInformationByAddress.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim SI As New SummaryInformation
 
SI = DQ.GetLocationInformationByAddress("505 Independence Parkway","Chesapeake", "VA", "23320", "YOUR LICENSE KEY")
 
Console.WriteLine("Error: " & SI.ErrorString & Environment.NewLine &
"Place ID: " & SI.PlaceInformation.PlaceID & Environment.NewLine &
"State Abbreviation: " & SI.PlaceInformation.StateAbbrev & Environment.NewLine &
"Median Age: " & SI.MedianAge & Environment.NewLine &
"Median Income: " & SI.MedianIncome & Environment.NewLine &
"Median Rooms in House: " & SI.MedianRoomsInHouse & Environment.NewLine &
"Median House Value: " & SI.MedianHouseValue & Environment.NewLine &
"Median Vehicles per Household: " & SI.MedianVehicles & Environment.NewLine &
"Percentage Never Married: " & SI.MaritalStatusPercentages.NeverMarried & Environment.NewLine &
"Percentage Married: " & SI.MaritalStatusPercentages.Married & Environment.NewLine &
"Percentage Separated: " & SI.MaritalStatusPercentages.Separated & Environment.NewLine &
"Percentage Married (Other): " & SI.MaritalStatusPercentages.MarriedOther & Environment.NewLine &
"Percentage Widowed: " & SI.MaritalStatusPercentages.Widowed & Environment.NewLine &
"Percentage Divorced: " & SI.MaritalStatusPercentages.Divorced & Environment.NewLine &
"Percentage Asian: " & SI.RacePercentages.Asian & Environment.NewLine &
"Percentage Black: " & SI.RacePercentages.Black & Environment.NewLine &
"Percentage Inidan: " & SI.RacePercentages.Indian & Environment.NewLine &
"Percentage Mixed: " & SI.RacePercentages.Mixed & Environment.NewLine &
"Percentage Native Hawaiian: " & SI.RacePercentages.NativeHawaiian & Environment.NewLine &
"Percentage Other: " & SI.RacePercentages.Other & Environment.NewLine &
"Percentage White: " & SI.RacePercentages.White & Environment.NewLine &
"Percentage Female: " & SI.GenderPercentages.Female & Environment.NewLine &
"Percentage Male: " & SI.GenderPercentages.Male)
Console.ReadLine()
 
End Sub
 
End Module

GetLocationInformationByLatitudeLongitude

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetLocationInformationByLatitudeLongitude.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim SI As New SummaryInformation
 
SI = DQ.GetLocationInformationByLatitudeLongitude(36.761560, -76.259964, "YOUR LICENSE KEY")
 
Console.WriteLine("Error: " & SI.ErrorString & Environment.NewLine &
"Place ID: " & SI.PlaceInformation.PlaceID & Environment.NewLine &
"State Abbreviation: " & SI.PlaceInformation.StateAbbrev & Environment.NewLine &
"Median Age: " & SI.MedianAge & Environment.NewLine &
"Median Income: " & SI.MedianIncome & Environment.NewLine &
"Median Rooms in House: " & SI.MedianRoomsInHouse & Environment.NewLine &
"Median House Value: " & SI.MedianHouseValue & Environment.NewLine &
"Median Vehicles per Household: " & SI.MedianVehicles & Environment.NewLine &
"Percentage Never Married: " & SI.MaritalStatusPercentages.NeverMarried & Environment.NewLine &
"Percentage Married: " & SI.MaritalStatusPercentages.Married & Environment.NewLine &
"Percentage Separated: " & SI.MaritalStatusPercentages.Separated & Environment.NewLine &
"Percentage Married (Other): " & SI.MaritalStatusPercentages.MarriedOther & Environment.NewLine &
"Percentage Widowed: " & SI.MaritalStatusPercentages.Widowed & Environment.NewLine &
"Percentage Divorced: " & SI.MaritalStatusPercentages.Divorced & Environment.NewLine &
"Percentage Asian: " & SI.RacePercentages.Asian & Environment.NewLine &
"Percentage Black: " & SI.RacePercentages.Black & Environment.NewLine &
"Percentage Inidan: " & SI.RacePercentages.Indian & Environment.NewLine &
"Percentage Mixed: " & SI.RacePercentages.Mixed & Environment.NewLine &
"Percentage Native Hawaiian: " & SI.RacePercentages.NativeHawaiian & Environment.NewLine &
"Percentage Other: " & SI.RacePercentages.Other & Environment.NewLine &
"Percentage White: " & SI.RacePercentages.White & Environment.NewLine &
"Percentage Female: " & SI.GenderPercentages.Female & Environment.NewLine &
"Percentage Male: " & SI.GenderPercentages.Male)
Console.ReadLine()
 
End Sub
 
End Module

GetNeighborhoodAgeGenderFemaleInDataSet

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetNeighborhoodAgeGenderFemaleInDataSet.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New DemographixQuery
Dim CIWDS As New CensusInfoWithDataSet
 
CIWDS = DQ.GetNeighborhoodAgeGenderFemaleInDataSet("VA", "0018466")
 
Console.WriteLine("Error: " & CIWDS.ErrorString & Environment.NewLine &
"Data: " & CIWDS.CensusDataSet.GetXml())
Console.ReadLine()
 
End Sub
 
End Module

GetNeighborhoodAgeGenderMaleInDataSet

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetNeighborhoodAgeGenderMaleInDataSet.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New DemographixQuery
Dim CIWDS As New CensusInfoWithDataSet
 
CIWDS = DQ.GetNeighborhoodAgeGenderMaleInDataSet("VA", "0018466")
 
Console.WriteLine("Error: " & CIWDS.ErrorString & Environment.NewLine &
"Data: " & CIWDS.CensusDataSet.GetXml())
Console.ReadLine()
 
End Sub
 
End Module

GetNeighborhoodAgeInDataSet

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetNeighborhoodAgeInDataSet.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim CIWDS As New CensusInfoWithDataSet
 
CIWDS = DQ.GetNeighborhoodAgeInDataSet("VA", "0018466")
 
Console.WriteLine("Error: " & CIWDS.ErrorString & Environment.NewLine &
"Data: " & CIWDS.CensusDataSet.GetXml())
Console.ReadLine()
 
End Sub
 
End Module

GetNeighborhoodLinguisticIsolation

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetNeighborhoodLinguisticIsolation.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim CIWDS As New WSDL.CensusInfoWithDataSet
 
CIWDS = DQ.GetNeighborhoodLinguisticIsolation("VA", "0018466")
 
Console.WriteLine("Error: " & CIWDS.ErrorString & Environment.NewLine &
"Data: " & CIWDS.CensusDataSet.GetXml())
Console.ReadLine()
 
End Sub
 
End Module

GetNeighborhoodPlaceofBirthbyCitizenshipStatusInDataset

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetNeighborhoodPlaceofBirthbyCitizenshipStatusInDataset.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim CIWDS As New CensusInfoWithDataSet
 
CIWDS = DQ.GetNeighborhoodPlaceofBirthbyCitizenshipStatusInDataset("VA", "0018466")
 
Console.WriteLine("Error: " & CIWDS.ErrorString & Environment.NewLine &
"Data: " & CIWDS.CensusDataSet.GetXml())
Console.ReadLine()
 
End Sub
 
End Module

GetNeighborhoodRealtyValueInDataSet

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetNeighborhoodRealtyValueInDataSet.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim CIWDS As New CensusInfoWithDataSet()
 
CIWDS = DQ.GetNeighborhoodRealtyValueInDataSet("VA", "0018466")
 
Console.WriteLine("Error: " & CIWDS.ErrorString & Environment.NewLine &
"Data: " & CIWDS.CensusDataSet.GetXml())
Console.ReadLine()
 
End Sub
 
End Module

GetNeighborhoodVehiclesPerHouseholdInDataset

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetNeighborhoodVehiclesPerHouseholdInDS.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim CIWDS As New WSDL.CensusInfoWithDataSet
 
CIWDS = DQ.GetNeighborhoodVehiclesPerHouseholdInDataset("VA", "0018466")
 
Console.WriteLine("Error: " & CIWDS.ErrorString & Environment.NewLine &
"Data: " + CIWDS.CensusDataSet.GetXml())
Console.ReadLine()
 
End Sub
 
End Module

GetNeighborhoodYearStructuresBuilt

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetNeighborhoodYearStructuresBuilt.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim CIWDS As New CensusInfoWithDataSet
 
CIWDS = DQ.GetNeighborhoodYearStructuresBuilt("VA", "0018466")
 
Console.WriteLine("Error: " & CIWDS.ErrorString & Environment.NewLine &
"Data: " & CIWDS.CensusDataSet.GetXml())
Console.ReadLine()
 
End Sub
 
End Module

GetPlaceIDbyAddress

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetPlaceIDbyAddress.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New DemographixQuery
Dim PI As New PlaceInfo
 
PI = DQ.GetPlaceIDbyAddress("505 Independence Parkway","Chesapeake", "VA", "23320", "YOUR LICENSE KEY")
 
Console.WriteLine("Error: " & PI.ErrorString & Environment.NewLine &
"Place ID: " & PI.PlaceInformation.PlaceID & Environment.NewLine &
"State Abbreviation: " & PI.PlaceInformation.StateAbbrev & Environment.NewLine &
"Rural: " & PI.PlaceInformation.Rural)
Console.ReadLine()
 
End Sub
 
End Module

GetPlaceIDbyCensusTractAndBlock

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetPlaceIDbyCensusTractAndBlock.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New DemographixQuery
Dim PI As New PlaceInfo
 
PI = DQ.GetPlaceIDbyCensusTractAndBlock("VA", "0209.01", "2001", "YOUR LICENSE KEY")
 
Console.WriteLine("Error: " & PI.ErrorString & Environment.NewLine &
"PlaceID: " & PI.PlaceInformation.PlaceID)
Console.WriteLine()
 
End Sub
 
End Module

GetSummaryInformationByPlaceID

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetSummaryInformationByPlaceID.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim SI As New SummaryInformation
 
SI = DQ.GetSummaryInformationByPlaceID("VA", "0018466")
 
Console.WriteLine("Error: " & SI.ErrorString & Environment.NewLine &
"Place ID: " & SI.PlaceInformation.PlaceID & Environment.NewLine &
"State Abbreviation: " & SI.PlaceInformation.StateAbbrev & Environment.NewLine &
"Median Age: " & SI.MedianAge & Environment.NewLine &
"Median Income: " & SI.MedianIncome & Environment.NewLine &
"Median Rooms in House: " & SI.MedianRoomsInHouse & Environment.NewLine &
"Median House Value: " & SI.MedianHouseValue & Environment.NewLine &
"Median Vehicles per Household: " & SI.MedianVehicles & Environment.NewLine &
"Percentage Never Married: " & SI.MaritalStatusPercentages.NeverMarried & Environment.NewLine &
"Percentage Married: " & SI.MaritalStatusPercentages.Married & Environment.NewLine &
"Percentage Separated: " & SI.MaritalStatusPercentages.Separated & Environment.NewLine &
"Percentage Married (Other): " & SI.MaritalStatusPercentages.MarriedOther & Environment.NewLine &
"Percentage Widowed: " & SI.MaritalStatusPercentages.Widowed & Environment.NewLine &
"Percentage Divorced: " & SI.MaritalStatusPercentages.Divorced & Environment.NewLine &
"Percentage Asian: " & SI.RacePercentages.Asian & Environment.NewLine &
"Percentage Black: " & SI.RacePercentages.Black & Environment.NewLine &
"Percentage Inidan: " & SI.RacePercentages.Indian & Environment.NewLine &
"Percentage Mixed: " & SI.RacePercentages.Mixed & Environment.NewLine &
"Percentage Native Hawaiian: " & SI.RacePercentages.NativeHawaiian & Environment.NewLine &
"Percentage Other: " & SI.RacePercentages.Other & Environment.NewLine &
"Percentage White: " & SI.RacePercentages.White & Environment.NewLine &
"Percentage Female: " & SI.GenderPercentages.Female & Environment.NewLine &
"Percentage Male: " & SI.GenderPercentages.Male)
Console.ReadLine()
 
End Sub
 
End Module

GetVersion

'http://ws.cdyne.com/DemographixWS/DemographixQuery.asmx?wsdl was added as a Web Reference and given the name WSDL
 
Imports GetVersion.WSDL
Module Module1
 
Sub Main()
 
Dim DQ As New WSDL.DemographixQuery
Dim SI As New WSDL.SummaryInformation
Dim Version As String
 
Version = DQ.GetVersion()
 
Console.WriteLine("Demographics API Version: " & Version)
 
Console.ReadLine()
 
End Sub
 
End Module
Personal tools
Namespaces

Variants
Actions
Navigation
Tools

Trial Key