Keskustelu: Ohjelmointikysymykset: Aloittelijan kys. tietovisasta (VB.NET 2005)

Morjens arvon putkalaiset.

Tässä väsäilen pientä ja yksinkertaista tietovisailua. :)= Tällä hetkellä se on toteutettu usealla lomakkeella eikä ole kovin laajennettava. (Vastaukset hoituu buttoneilla)

Mitenkäs te lähtisitte moista toteuttaan? Ja mikä olisi helpoin tapa saada esim. vastausten paikat arvotuksi? Ja kuinka hankala olisi saada kysymykset ja oikeat vastaukset tuotua esim. tiedostosta?

Kiitos jo etukäteen jos joku jaksaapi vähän neuvoja antaa. :)

Tuohon vielä lisäyksenä..

Tietovisan lopussa on pari muuttujaa.. Elikkäs kilpailijan nimi ja lopulliset pisteet.

Millä tapaa ne saisi kirjoitettua tekstitiedostoon ja tulostettua formille tekstitiedostosta? Tulostuksessa lähinnä se että saisi laskevassa järjestyksessä ne tulostettua. :)

en ole tätä koodia testannut mutta jotenkin näin mä tekisin.

olis tekstifiluna vastaukset ja kysymykset erikseen, "," erotettuna teks­ti­nä.e­ka­ky­sy­mys,­to­ka­ky­sy­mys,­kol­mas­ky­sy­mys,­nel­jäs­ky­symys tyyliin.

'nämä classin alkuun
Dim vastausdata As String
Dim vastaukset() As String
Dim kysymysdata As String
Dim kysymykset() As String
Dim i As Integer

'nämä luonnollisesti johonkin subiin, form loadiin yms.
vastausdata = My.Computer.FileSystem.ReadAllText("asema:\kansio\vastaukset.txt")
vastaukset = vastausdata.Split(",")

kysymysdata = My.Computer.FileSystem.ReadAllText("asema:\kansio\kysymykset.txt")
kysymykset = kysymysdata.Split(",")

kysymykset tekstiin ekasta kysymyksestä lähtien:
onko tämä ensimmäinen kysymys?,saako vanhanen matkaliput ympättyä tuporatkaisuun?, onko tämä neljäs kysymys?

vastaukset:

on,toivottavasti ei saa,ei ole

näin kysymykset(0) pari olisi vastaukset(0)

tapoja on tietysti monia. voi tehdä yhdelläkin taulukolla, makuasioita.
esimerkiksi jotenkin näin:

Dim kysymysvastaus(0,0) As String

        For i = 0 To kysymykset.Length
            ReDim Preserve kysymysvastaus(i, i)
            kysymysvastaus(i, 0) = kysymykset(i)
            kysymysvastaus(i, 1) = vastaukset(i)
        Next

random generaattorista löytyy hyviä tutoriaaleja googlella.

Dim numero As New Random()

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

i = numero.Next(0,kysymykset.Length)

label1.Text = kysymykset(i)

tossa miten saa randomina kysymyksen labeliin esimerkkinä