DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Array

•

Join Date: May 2003

Posts: 1

Reputation: ynnar777 is an unknown quantity at this point

Solved Threads: 0

ynnar777

Offline

Newbie Poster

Array

May 8th, 2003

I'm new with VB and I'm trying to write an array to find the time zone per state.

AL = CST
NY = EST
CA = PST

If I have a data that has NY as a state I will put EST on the output ...]

Can somebody sho me the basic of array writing.

•

Join Date: Feb 2002

Posts: 12,024

Reputation: cscgal is a glorious beacon of light

Solved Threads: 126

cscgal

Offline

The Queen of DaniWeb

May 9th, 2003

This is untested, but something like this might work

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
string timeZone[3], state, zone
timeZone[0] = "CST"
timeZone[1] = "EST"
timeZone[2] = "PST"
 
if state="AL" then zone=timeZone[0]
if state="NY" then zone=timeZone[1]
if state="CA" then zone=timeZone[2]
string timeZone[3], state, zone
timeZone[0] = "CST"
timeZone[1] = "EST"
timeZone[2] = "PST"

if state="AL" then zone=timeZone[0]
if state="NY" then zone=timeZone[1]
if state="CA" then zone=timeZone[2]

Dani the Computer Science Gal

Follow my Twitter feed! twitter.com/daniweb

•

Join Date: Feb 2002

Posts: 898

Reputation: Tekmaven is a glorious beacon of light

Solved Threads: 27

Tekmaven

Offline

The C# Man, Myth, Legend

May 10th, 2003

Close Dani :-), but this isn't C/Java :-P.

First of all, I'm assuming your using VB6. If you're not, tell me what VB version you're using and I'll adjust the code.

A better way of implimenting this, is to add a Class Module. I named my class module clsStateTime, and this is the code inside it:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Public state As String
 
Public Function TimeZone() As String
    Select Case UCase(state)
        Case "NY"
            TimeZone = "EST"
        Case "NJ"
            TimeZone = "EST"
        Case Else
            TimeZone = "Unknown"
    End Select
End Function
Public state As String

Public Function TimeZone() As String
    Select Case UCase(state)
        Case "NY"
            TimeZone = "EST"
        Case "NJ"
            TimeZone = "EST"
        Case Else
            TimeZone = "Unknown"
    End Select
End Function

You should fill in the other 50 states with the results you want. To use this class, I made this code under a command button (but, you could do it however you want):

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Command1_Click()
    'The index holds the amount of values you want to put in the array
    Dim stinfo(3) As New clsStateTime
    stinfo(0).state = "nj"
    stinfo(1).state = "ny"
    stinfo(2).state = "asdf"
    MsgBox (stinfo(0).TimeZone)
    MsgBox (stinfo(1).TimeZone)
    MsgBox (stinfo(2).TimeZone)
End Sub
Private Sub Command1_Click()
    'The index holds the amount of values you want to put in the array
    Dim stinfo(3) As New clsStateTime
    stinfo(0).state = "nj"
    stinfo(1).state = "ny"
    stinfo(2).state = "asdf"
    MsgBox (stinfo(0).TimeZone)
    MsgBox (stinfo(1).TimeZone)
    MsgBox (stinfo(2).TimeZone)
End Sub

Just as a note, the index is the number in between the ()!

Dani, notice how I Dim'ed it with a (2), but I used 3 "slots" in the array? Thats another VB difference :-P. Oh yeah, we don't dim vars with the type first either :-P.

-Ryan Hoffman

.NET Specialist / Webmaster, Extended64.com.
Please do not email or PM me with support questions. Please direct them to the forums instead.