Simple Quiz Application

Hello,

Been a while away from code, but trying to take a stab at writing a little quiz app but my code looks like I am trying too hard and runing slow. Can anyone give me an idea of what I'm doing right, if anything and what I might can change to get it working? I'm tring to pick a random line from a text file, break that into strings split by "," and pick the first resultant string and put it into label A for Answer A, B for Answer B.... and not use the same entry twice, as well as not put the entry into the same Ans twice. I will have picture boxes that I want to fill from a folder titled exactly what the correct answer is, and their is no text, the user guesses based on the image displayed in the text boxes, kinda the way Rosetta Stone works.

Code:

---

Imports System
Imports System.IO
Imports System.IO.File

Public Class Form1

    'Program Variables
    Dim width As String = My.Computer.Screen.WorkingArea.Width
    Dim height As String = My.Computer.Screen.WorkingArea.Height
    Dim h As String = AppDomain.CurrentDomain.BaseDirectory.ToString
    Dim flist As String = File.ReadAllText(h & "flist.txt")
    Dim priArray() As String = flist.Split(Environment.NewLine)

    'Mushroom Variables
    Dim chose As String
    Dim pic As String = AppDomain.CurrentDomain.BaseDirectory & chose & "\"


    'Functions
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.width = width - (width / 100 * 20)
        Me.height = height - (height / 100 * 20)
        Me.CenterToScreen()


    End Sub


    Public Sub FPickShroom()
        Dim got(4) As String
        Dim gotA(4) As String
        Dim t As Integer = 5
        Dim usedletters As String = "5"
        Dim usedmush As String = "5"
        Dim melike As String = "5"
        Dim ListLines As String() = {"A", "B", "C", "D", "E"}

        ''Pick Mushrooms Randomly
        Do Until usedletters.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, priArray.Length - 1)
            Dim gethere() As String = priArray(Index1).Split(",")
            melike = gethere(0)
        Loop
        usedmush &= melike
        got(0) = melike
        melike = "5"

        Do Until usedletters.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, priArray.Length - 1)
            Dim gethere() As String = priArray(Index1).Split(",")
            melike = gethere(0)
        Loop
        usedmush &= melike
        got(1) = melike
        melike = "5"

        Do Until usedletters.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, priArray.Length - 1)
            Dim gethere() As String = priArray(Index1).Split(",")
            melike = gethere(0)
        Loop
        usedmush &= melike
        got(2) = melike
        melike = "5"

        Do Until usedletters.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, priArray.Length - 1)
            Dim gethere() As String = priArray(Index1).Split(",")
            melike = gethere(0)
        Loop
        usedmush &= melike
        got(3) = melike
        melike = "5"

        Do Until usedletters.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, priArray.Length - 1)
            Dim gethere() As String = priArray(Index1).Split(",")
            melike = gethere(0)
        Loop
        usedmush &= melike
        got(4) = melike
        melike = "5"

        ''Pick Letters Randomly
        Do Until usedmush.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, ListLines.Length - 1)
            melike = ListLines(Index1)
        Loop
        usedletters &= melike
        gotA(0) = melike
        melike = "5"

        Do Until usedmush.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, ListLines.Length - 1)
            melike = ListLines(Index1)
        Loop
        usedletters &= melike
        gotA(1) = melike
        melike = "5"

        Do Until usedmush.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, ListLines.Length - 1)
            melike = ListLines(Index1)
        Loop
        usedletters &= melike
        gotA(2) = melike
        melike = "5"

        Do Until usedmush.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, ListLines.Length - 1)
            melike = ListLines(Index1)
        Loop
        usedletters &= melike
        gotA(3) = melike
        melike = "5"

        Do Until usedmush.Contains(melike) = False
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, ListLines.Length - 1)
            melike = ListLines(Index1)
        Loop
        usedletters &= melike
        gotA(4) = melike
        melike = "5"



        If gotA(0) = "A" Then
            AnsA.Text = got(0)
        End If
        If gotA(0) = "B" Then
            AnsB.Text = got(0)
        End If
        If gotA(0) = "C" Then
            AnsC.Text = got(0)
        End If
        If gotA(0) = "D" Then
            AnsD.Text = got(0)
        End If
        If gotA(0) = "E" Then
            AnsE.Text = got(0)
        End If
        If gotA(1) = "A" Then
            AnsA.Text = got(1)
        End If
        If gotA(1) = "B" Then
            AnsB.Text = got(1)
        End If
        If gotA(1) = "C" Then
            AnsC.Text = got(1)
        End If
        If gotA(1) = "D" Then
            AnsD.Text = got(1)
        End If
        If gotA(1) = "E" Then
            AnsE.Text = got(1)
        End If
        If gotA(2) = "A" Then
            AnsA.Text = got(2)
        End If
        If gotA(2) = "B" Then
            AnsB.Text = got(2)
        End If
        If gotA(2) = "C" Then
            AnsC.Text = got(2)
        End If
        If gotA(2) = "D" Then
            AnsD.Text = got(2)
        End If
        If gotA(2) = "E" Then
            AnsE.Text = got(2)
        End If
        If gotA(3) = "A" Then
            AnsA.Text = got(3)
        End If
        If gotA(3) = "B" Then
            AnsB.Text = got(3)
        End If
        If gotA(3) = "C" Then
            AnsC.Text = got(3)
        End If
        If gotA(3) = "D" Then
            AnsD.Text = got(3)
        End If
        If gotA(3) = "E" Then
            AnsE.Text = got(3)
        End If
        If gotA(4) = "A" Then
            AnsA.Text = got(4)
        End If
        If gotA(4) = "B" Then
            AnsB.Text = got(4)
        End If
        If gotA(4) = "C" Then
            AnsC.Text = got(4)
        End If
        If gotA(4) = "D" Then
            AnsD.Text = got(4)
        End If
        If gotA(4) = "E" Then
            AnsE.Text = got(4)
        End If



        '(Latin Name, Common Name)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FPickShroom()
    End Sub
End Class

---

:eek2:

Thank you for you help!

Chad

Attachment 106599Trying something different, equally befuddled but much shorter. Having issues trying to find out how to store String into Array piece by piece.

Code:

---

Public Sub TRIAL2()
        Dim T As Integer = 0
        Dim M As String = 0
        Dim st As ArrayList
        Dim used As String = ""


        Do Until T = 4
            Dim Rand1 As New Random()
            Dim Index1 As Integer = Rand1.Next(0, priArray.Length - 1)
            Dim gethere() As String = priArray(Index1).Split(",")
            st.Add(gethere(0))
            T = T + 1
        Loop

        Do Until M = 4
            Me.Controls("Ans" & M).Text = st(M).ToString
            M = M + 1
        Loop


    End Sub

---

Thanks!

I got it kinda altered to something much more approachable but I'm seeing difficulties rendering the strings??Attachment 106601

Code:

---

    Public Sub TRIAL2()

        'Dim a As Integer = 1

        'Do Until a = 5
        '    Me.Controls("Ans1" & (a)).Visible = False
        '    a = a + 1
        'Loop
        'a = 5

        Ans1.Visible = False
        Ans2.Visible = False
        Ans3.Visible = False
        Ans4.Visible = False
        Ans5.Visible = False

        Dim T As Integer = 0
        Dim M As String = 0
        Dim list As New ArrayList
        Dim used As String = ""


        Dim Rand1 As New Random()
        Do Until T = 4

            Dim Index1 As Integer = Rand1.Next(0, priArray.Length - 1)
            Dim gethere() As String = priArray(Index1).Split(Environment.NewLine)
            list.Add(gethere(0).ToString)
            T = T + 1
        Loop

        Ans1.Text = list(0)
        Ans2.Text = list(1)
        Ans3.Text = list(2)
        Ans4.Text = list(3)
        ' Ans5.Text = list(4)


        ' Create an ArrayList and add three strings to it.


        Do Until M = 4
            'Me.Controls("Ans" & M).Text = st(M).ToString
            M = M + 1
        Loop

        'Do Until a = 5
        '    Me.Controls("Ans1" & (a)).Visible = True
        '    a = a + 1
        'Loop
        'a = 5
        Ans1.Visible = True
        Ans2.Visible = True
        Ans3.Visible = True
        Ans4.Visible = True
        Ans5.Visible = True
    End Sub

---

I figured everything out. If anyone is interested, I present a simple quiz application.

Sometimes you give yourself better advice than you receive.

DoceusFungii (Solution on Google Drive due to images size)


Quiz App

vb.net Code:

Imports System
Imports System.IO
Imports System.Collections
Imports System.IO.File
 
Public Class Form1
 
    'Program Variables
    Dim mywidth As String = My.Computer.Screen.WorkingArea.Width
    Dim myheight As String = My.Computer.Screen.WorkingArea.Height
    Dim h As String = AppDomain.CurrentDomain.BaseDirectory.ToString
    Dim flist As String = File.ReadAllText(h & "flist.txt")
    Dim priArray() As String = flist.Split(Environment.NewLine)
    Dim ad As String = AppDomain.CurrentDomain.BaseDirectory
    Dim thefile1 As String
    Dim thefile2 As String
    Dim thefile3 As String
    Dim spore As String
    Dim ispore As Boolean
    Dim score As String = 0
 
    'Mushroom Variables
    Dim chose As String = Nothing
    Public Sub tryans()
        If LstAns.SelectedIndex > -1 Then
            If LstAns.SelectedItem.ToString.Trim() = LblAns.Text.Trim() Then
                score = score + 10
                'MsgBox("AWESOME YOU GOT IT RIGHT!")
                LblScore.Text = score
                Dim curline As String = File.ReadAllLines(ad & "flist.txt").FirstOrDefault(Function(x) x.Contains(chose.Trim()))
                Dim chArray As String() = curline.Split(",")
                MsgBox(chArray(0) & " " & chArray(1))
                LstAns.Text = chArray(1)
                FindMush()
            Else
                'MsgBox("Woops, try again!")
                score = score - 7
                For i As Integer = 0 To LstAns.SelectedIndices.Count - 1
                    LstAns.Items.RemoveAt(LstAns.SelectedIndex)
                Next
                LblScore.Text = score
            End If
        End If
    End Sub
    'Functions
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MaximizeBox = False
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
        LblAns.Hide()
        Me.CenterToScreen()
        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
        PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage
        PictureBox3.SizeMode = PictureBoxSizeMode.StretchImage
        FindMush()
    End Sub
 
    Public Sub FindMush()
 
        Try
            PictureBox1.Image.Dispose()
            PictureBox2.Image.Dispose()
            PictureBox3.Image.Dispose()
        Catch ex As Exception
 
        End Try
 
        Dim T As Integer = 0
        Dim M As String = 0
        Dim list As New ArrayList
        Dim used As String = ""
        Dim pic As Integer = 0
        Dim Rand1 As New Random()
        chose = Nothing
 
        Do Until T = 5
            Dim Index1 As Integer = Rand1.Next(0, priArray.Length - 1)
            Dim gethere() As String = priArray(Index1).Split(Environment.NewLine)
            Dim nocommon() As String = gethere(0).Split(",")
            If used.Contains(nocommon(0).ToString) = False Then
                list.Add(nocommon(0).ToString)
                used &= nocommon(0).ToString & ","
                T = T + 1
                pic = pic + 1
            End If
        Loop
 
        Dim posans() As String = used.Split(",")
        Dim RandChoose As New Random()
        Dim MyPic As Integer = RandChoose.Next(0, posans.Length - 1)
        LblAns.Text = posans(MyPic)
        chose = LblAns.Text
 
        LstAns.Items.Clear()
        LstAns.Items.Add(list(0).ToString)
        LstAns.Items.Add(list(1).ToString)
        LstAns.Items.Add(list(2).ToString)
        LstAns.Items.Add(list(3).ToString)
        LstAns.Items.Add(list(4).ToString)
 
        If ispore = True Then
            thefile1 = ad & LblAns.Text.Trim() & "\mush1.jpg"
            thefile2 = ad & LblAns.Text.Trim() & "\mush2.jpg"
        Else
            thefile1 = ad & LblAns.Text.Trim() & "\mush2.jpg"
            thefile2 = ad & LblAns.Text.Trim() & "\mush1.jpg"
        End If
        thefile3 = ad & LblAns.Text.Trim() & "\mush3.jpg"
        spore = ad & LblAns.Text.Trim() & "\spore1.jpg"
        If File.Exists(thefile1) = True Then
            Try
                Me.PictureBox1.Image = Bitmap.FromFile(thefile1.ToString)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Try
                Me.PictureBox2.Image = Bitmap.FromFile(thefile2.ToString)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            If File.Exists(spore) = True Then
                ispore = True
                Try
                    Me.PictureBox3.Image = Bitmap.FromFile(spore)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
 
            Else
                Try
                    Me.PictureBox3.Image = Bitmap.FromFile(thefile3)
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
                ispore = False
            End If
        Else
            Me.PictureBox1.Image = Bitmap.FromFile(ad & "notdone.jpg")
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPick.Click
        FindMush()
    End Sub
 
    Private Sub BtnFinalAns_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFinalAns.Click
        tryans()
    End Sub
 
    Private Sub LstAns_DoubleClicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstAns.DoubleClick
        tryans()
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Dim todo As String = Chr(34) & "C:\Program Files\Windows Photo Viewer\PhotoViewer.dll" & Chr(34) & "," & Chr(34) & thefile1 & Chr(34)
        Windows.Forms.Clipboard.SetText(todo)
        Process.Start("C:\Windows\explorer.exe", thefile1)
    End Sub
 
    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        Process.Start("C:\Windows\explorer.exe", thefile2)
    End Sub
 
    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
        If ispore = True Then
            Process.Start("C:\Windows\explorer.exe", spore)
        Else
            Process.Start("C:\Windows\explorer.exe", thefile3)
        End If
    End Sub
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        FindMush()
        Timer1.Enabled = False
    End Sub
 
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        AddNew.Show()
    End Sub
End Class

Add Stuff

vb.net Code:

Imports System
Imports System.IO
Imports System.Collections
Imports System.IO.File
 
Public Class AddNew
    Dim h As String = AppDomain.CurrentDomain.BaseDirectory.ToString
    Dim dfile As String = h & "flist.txt"
    Dim flist As String = File.ReadAllText(dfile)
 
    Public Sub doupdate()
        Dim pcdir As String = h & TxtLatin.Text & "\"
        If Directory.Exists(pcdir) = False Then
            Directory.CreateDirectory(pcdir)
        End If
        flist &= Environment.NewLine & TxtLatin.Text & "," & TxtCommon.Text & "," & TxtEdibility.Text & "," & TxtSummary.Text & "," & TxtLink.Text
        File.WriteAllText(dfile, flist)
        Try
            My.Computer.Network.DownloadFile(TxtImg1.Text, pcdir & "mush1.jpg")
        Catch ex As Exception
        End Try
        Try
            My.Computer.Network.DownloadFile(TxtImg2.Text, pcdir & "mush2.jpg")
        Catch ex As Exception
        End Try
        Try
            My.Computer.Network.DownloadFile(TxtImg3.Text, pcdir & "mush3.jpg")
        Catch ex As Exception
        End Try
        TxtCommon.Clear()
        TxtLatin.Clear()
        TxtEdibility.Clear()
        TxtSummary.Clear()
        TxtLink.Clear()
        TxtImg1.Clear()
        TxtImg2.Clear()
        TxtImg3.Clear()
    End Sub
 
    Private Sub AddNew_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
        Me.Opacity = 0.75
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow
    End Sub
 
    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        Form1.Close()
        doupdate()
        Form1.Show()
 
    End Sub
 
    Private Sub TxtImg1_DubClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtImg1.DoubleClick
        TxtImg1.Text = Windows.Forms.Clipboard.GetText
    End Sub
 
    Private Sub TxtImg2_DubClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtImg2.DoubleClick
        TxtImg2.Text = Windows.Forms.Clipboard.GetText
    End Sub
 
    Private Sub TxtImg3_DubClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtImg3.DoubleClick
        TxtImg3.Text = Windows.Forms.Clipboard.GetText
    End Sub
 
    Private Sub TxtLatin_DubClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtLatin.DoubleClick
        TxtImg3.Text = Windows.Forms.Clipboard.GetText
    End Sub
    Private Sub TxtCommon_DubClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtCommon.DoubleClick
        TxtImg3.Text = Windows.Forms.Clipboard.GetText
    End Sub
    Private Sub TxtEdibility_DubClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtEdibility.DoubleClick
        TxtImg3.Text = Windows.Forms.Clipboard.GetText
    End Sub
    Private Sub TxtSummary_DubClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtSummary.DoubleClick
        TxtSummary.Text = Windows.Forms.Clipboard.GetText
    End Sub
    Private Sub TxtLink_DubClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtLink.DoubleClick
        TxtLink.Text = Windows.Forms.Clipboard.GetText
    End Sub
End Class

Hope this helps someone out :-)