PCTuning fórum

Zdar vsetci

mam mensi problem s Visual basic 2008 mam spravit program ktory vizera nasledovne v linku
http://www.ulozisko.sk/394483/SarreScores_1.exe

heslo do programu je "Password"

mam spravit presne taky isty program no mam problem. v policku class test a conical basket mi nechce priradit hodnotu do danej premennej a visual basic mi ani nevypisuje ani ziaden error takze neviem ....
tu je kod...

Dim name(4) As String
Dim NameSelection As String
Dim classTestSelection As Integer
Dim conicalBasketSelection As Integer
Dim countErrors As Integer = 0
Dim TestGrade(4) As Integer
Dim basketGrade(4) As Integer

name(1) = "Dave"
name(0) = "Brian"
name(2) = "Phil"
name(3) = "Richard"
name(4) = "Vlad"

TestGrade(0) = 0
TestGrade(1) = 0
TestGrade(2) = 0
TestGrade(3) = 0
TestGrade(4) = 0

basketGrade(0) = 0
basketGrade(1) = 0
basketGrade(2) = 0
basketGrade(3) = 0
basketGrade(4) = 0

NameSelection = TextBox_name.Text
classTestSelection = TextBox_classTest.Text
conicalBasketSelection = TextBox_conicalBasket.Text

Select Case NameSelection
Case "Brian"
name(0) = NameSelection
Case "Dave"
name(1) = NameSelection
Case "Phil"
name(2) = NameSelection
Case "Richard"
name(3) = NameSelection
Case "Vlad"
name(4) = NameSelection
Case Else
MsgBox("Incorrect name")
End Select

If (name(0) = "Brian") And (classTestSelection >= 0) And (classTestSelection <= 100) Then
classTestSelection = (TestGrade(0))
ElseIf (name(1) = "Dave") And (classTestSelection >= 0) And (classTestSelection <= 100) Then
classTestSelection = (TestGrade(1))
ElseIf (name(2) = "Phil") And (classTestSelection >= 0) And (classTestSelection <= 100) Then
classTestSelection = (TestGrade(2))
ElseIf (name(3) = "Richard") And (classTestSelection >= 0) And (classTestSelection <= 100) Then
classTestSelection = (TestGrade(3))
ElseIf (name(4) = "Vlad") And (classTestSelection >= 0) And (classTestSelection <= 100) Then
classTestSelection = (TestGrade(4))
Else
countErrors += 1
End If

If (name(0) = "Brian") And (conicalBasketSelection >= 0) And (conicalBasketSelection <= 100) Then
conicalBasketSelection = (basketGrade(0))
ElseIf (name(1) = "Dave") And (conicalBasketSelection >= 0) And (conicalBasketSelection <= 100) Then
conicalBasketSelection = (basketGrade(1))
ElseIf (name(2) = "Phil") And (conicalBasketSelection >= 0) And (conicalBasketSelection <= 100) Then
conicalBasketSelection = (basketGrade(2))
ElseIf (name(3) = "Richard") And (conicalBasketSelection >= 0) And (conicalBasketSelection <= 100) Then
conicalBasketSelection = (basketGrade(3))
ElseIf (name(4) = "Vlad") And (conicalBasketSelection >= 0) And (conicalBasketSelection <= 100) Then
conicalBasketSelection = (basketGrade(4))
Else
countErrors += 1
End If
countErrors += 1
End If

potrebujem zobrazit hodnoty ktore zadam v TextBoxe "class test" a "conical basket" zobrazit v textBoxe v dolnej casti programu
premenne testGrade(4) a basketGrade(4) --> (su premenne typu array)
mi stale vypisuje nulu a nehlasi to ziadnu chybu skosal som to prepisovat vseliako ale nechce mi to ulozit tie hodnoty
ked by niekto vedel pomoc, velmi by som to ocenil dik moc ....

peace

Ve Visual Basicu už jsem dlouho nedělal, ale pokud vím, tak TextBox obsahuje string, a pokud ho chceš převést na Integer tak musíš použít nějakou funkci. Zkus

Kód: Vybrat vše

...
classTestSelection = Int.Parse(TextBox_classTest.Text)
conicalBasketSelection = Int.ParseTextBox_conicalBasket.Text)
...

Toto musím udělat v C# takže možná rozdíl v syntaxi nebo tak může být... Nebo ve VB je to úplně jinak

googlil som, serachoval rozne fora ale nic co by vyriesilo problem somnenasiel
syntax ktory som bezne pouzival na konvertovanie zo string do integer je takyto ...

classTestSelection = CInt(TextBox_classTest.Text)
conicalBasketSelection = CInt(TextBox_conicalBasket.Text)

ale aj tak mi to nehcce priradit ziadnu hodnotu k tej premennej

PCTuning fórum

Visual basic

Visual basic

Re: Visual basic

Re: Visual basic