Vb help

Posts 12 of 2 · Page 1 of 1
Vb help
Looking for someone to help me with simple vb program, i will appriecate it Thank you

i have

Public Class Form1
Dim Names(10) As String
Dim tels(10) As String
Dim Group(10) As Integer
Dim Rates(10) As Integer
Dim Counter As Integer = 0
Dim answer As String


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Get_details()
Get_Answer()
Do
Loop Until answer = "N" Or answer = "N"


End Sub

Sub Get_details()
Counter = Counter + 1
Names(Counter) = InputBox("Enter customer names")
Dim telemount As Integer
Dim char1 As String
Do
tels(Counter) = InputBox("")
telemount = Len(tels(Counter))
Char1 = Microsoft.VisualBasic.Left(tels(Counter), 1)


Loop Until telemount = 11 And char1 = 0
Do
Group(Counter) = InputBox("Enter customer Group")

Loop Until Group(Counter) > 0 And Group(Counter) < 21

Do
Rates(Counter) = InputBox("Enter the rates")

Loop Until Rates(Counter) > 0 And Rates(Counter) < 11



End Sub

Sub Get_answer()

End Sub

End Class


so far
erase everything except

Public Class Form1
Dim Names(10) As String
Dim tels(10) As String
Dim Group(10) As Integer
Dim Rates(10) As Integer
Dim Counter As Integer = 0
Dim answer As String
and start over. There is more than 1 thing in your code that needs to be changed. Please ask a semi-specific question; since this is apparently a school assignment, we probably shouldn't just give you "working code".

edit: you can add me on skype if you have more than a couple questions / need things explained. Username is same as here at mpgh.
Posts 12 of 2 · Page 1 of 1

Post a Reply

Similar Threads

Tags for this Thread

None

Need help?