Diskuze: Kvíz ve VB
V předchozím kvízu, Test znalostí C# .NET online, jsme si ověřili nabyté zkušenosti z kurzu.
.
Nevíte o nějakem příkladu na netu ? díkyAhoj, tak sem to udělal takhle zatim, ale nevim jestli to mam dobře, docela
to funguje 
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles GroupBox1.Enter
Dim reader As New System.IO.StreamReader(CurDir() & "\" &
"tut.txt")
Dim str1, str2, str3 As String
str1 = reader.ReadLine()
str2 = reader.ReadLine()
str3 = reader.ReadLine()
reader.Close()
TextBox1.Text = str1
RadioButton1.Text = str2
RadioButton2.Text = str3
kuldaspunk:15.3.2015 9:09
Pardon, ze jeste otravuju.Uz sem vyresil nacteni dat a jediny co mi chybi je
vyhodnoceni. udelam button vyhodnoceni a potrebuju aby to rozpoznalo spravny
odpovedi z toho souboru a napsalo znamku jako ve skole tady je kod, diky za radu
Imports System.IO
Public Class Form1
Public spravneodpovedi(0 To 2) As String
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Nacti()
Button1.Text = "Vyhodnocení"
End Sub
Public Sub Nacti()
Dim soubor As String
Dim ktera_otazka = 1
soubor = "c:\dominik\dominik.csv"
'Otevře soubor pro čtení
Using sr As New StreamReader(soubor)
Dim s As String
While Not sr.EndOfStream
'Rozdělení stringu podle středníků
s = sr.ReadLine()
Dim rozdeleno() As String = s.Split(";")
Dim otazka = rozdeleno(0)
Dim odp1 = rozdeleno(1)
Dim odp2 = rozdeleno(2)
Dim odp3 = rozdeleno(3)
Dim spravna = rozdeleno(4)
MsgBox(otazka + odp1 + odp2 + odp3)
Select Case ktera_otazka
Case 1 ' PRVNÍ OTÁZKA
GroupBox1.Text = otazka
RadioButton1.Text = odp1
RadioButton2.Text = odp2
RadioButton3.Text = odp3
spravneodpovedi(ktera_otazka) = spravna
Case 2 ' DRUHA OTÁZKA
GroupBox2.Text = otazka
RadioButton4.Text = odp1
RadioButton5.Text = odp2
RadioButton6.Text = odp3
spravneodpovedi(ktera_otazka) = spravna
End Select
ktera_otazka = ktera_otazka + 1
End While
End Using
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
End Sub
End Class
Zobrazeno 9 zpráv z 9.