Keskustelu: Ohjelmointikysymykset: VB.NET: Läksyjen kuulustelijaa :)

Tervehdys taas!

Kaikkea ei voi osata, joten kysymys kuuluu:

Onko monimutkaista tehdä pieni ohjelma, joka kuulustelee läksyjä (kysymykset ja vastaukset koodiin tms)? Tarkoituksena olisi opetella engannin sanoja ulkoa...
Käytännössä:

- kyselisi 1-3 asiaa kerrallaan, mielellään satunnaisessa järjestyksessä
- mikäli vastaus on oikein, tulee seuraava kysymys. Jos väärin niin käsketään yrittää uudelleen.
- kysymysten lisäys / poisto / muuntaminen kävisi erillisellä sivulla, jossa tietoja vain muutetaan ja ne tallennetaan.

Kumma toive, mutta helpottaisi!

Tästä kielestä en siis mitään tajua, voi olla jopa ihan helppo tehtävä? Jos ei, annan haasteen :) Pahoittelen kyselytulvaa, mutta menkööt "kuka osaa?" -haasteina..

Siis eihän tuossa tarvita kuin tarkastava koodi, sattuma koodi ja tallennus sivu. "kuka osaa"-haasteena tuo on liian helppo/työläs/aikaa vievä.

Joo, haasteenahan toi on aika pitkälti sama kuin:

Kuka osaa imuroida? Voi todistaa osaamisensa siivoamalla mun kämpän.

Melkein millä tahansa kielellä tuollaisen tekeminen ei kauaa vie. Vaikkapa PHP:llä koodaukseen menisin 15 minuuttia.

Jos joku voisi antaa tuohon php-systeemiin ohjeen, niin täyttää voisin itse... Eivät vielä funktiot(kaan) oikein ole hallussa :%

Numis97 kirjoitti:

Jos joku voisi antaa tuohon php-systeemiin ohjeen, niin täyttää voisin itse...

Ohjelmointiputkan PHP-oppaan tiedoilla pärjäät tuossa projektissa varmasti. https://www.ohjelmointiputka.net/oppaat/opas.php?tunnus=phpj

Ei kestänyt kauaa. Tässä koodi VB.net:illä. Saanee helposti muutettua muillekin kielille. Yksinkertainen komentoriviohjelma. Tiedän, että on huono tapa käyttää goto:a, mutta mennään siitä, mistä aita on matalin:)

Module Module1
    Sub Main()
        'Tähän sanat suomeks ja englanniks
        Dim Suomi() As String = New String() {"olla", "juosta"}
        Dim Englanti() As String = New String() {"be", "run"}
        'Sanojen määrä
        Dim Määrä As String = Suomi.Length
        'Suoritetaan hamaan tulevaisuuteen asti
        Do
            'Valittu sana
            Dim Sana As Integer = Rnd() * (Määrä - 1)
Uusiks:     'Hyppypiste
            'Sana suomeks
            Console.WriteLine(Suomi(Sana))
            'Tarkistus
            If LCase(Console.ReadLine()) = LCase(Englanti(Sana)) Then
                Console.WriteLine("Oikein")
            Else
                'Meni väärin, hypärään kohtaan uusiks
                Console.WriteLine("Väärin. Yritä uudelleen")
                GoTo Uusiks
            End If
        Loop
    End Sub
End Module

ps. Tulipa palikkamaisia lauseita/kommentteja

Mokomia ei ilmeisesti pysty tallentamaan ilman Basiccia? Muutamaa olen jo kokeillut, mutta joko setuppi "ei ole kelvollinen Win32-tiedosto" tai sitten itse ohjelmaa ei tule ollenkaan mukana.