Italian Consigli per nuovo progetto

    list1 = File.ReadList(File.Dirassets, "Nazioni.txt")
   
        list2 = File.ReadList(File.Dirassets, "capitali.txt")

    qresult = list1.Get(Rnd(0,197))' seleziona a caso un nome dalla lista

    qresultint = list1.IndexOf(qresult) 'restituisce il numero di riga del nome di qresult
'    If langSpinner.SelectedItem = "Italiano" Then
    SetLabelSize(questionLabel,"Quale è la CAPITALE della " & qresult & "??")
    Log("Nazione:" & qresult)
'    Else if langSpinner.SelectedItem = "English" Then
'        SetLabelSize(questionLabel,"What is the CAPITAL of " & qresult & "??")
'    Else 
'        SetLabelSize(questionLabel,"Quale è la CAPITALE della " & qresult & "??")
'    End If
    Answare1Int = qresultint 'inserisco il numero di riga della domanda nel file delle risposte poddibili
    answareString1 = list2.Get(Answare1Int)
    Log("Risposta1:" & answareString1)

    Answare2Int = Rnd(0,197) 'genero altri numeri casulali per le altre risposte
    answareString2 = list2.Get(Answare2Int)
    Log(Answare2Int)
    Log("Risposta2:" & answareString2)

    Answare3Int = Rnd(0,197)
    answareString3 = list2.Get(Answare3Int)
    Log(Answare3Int)
    Log("Risposta3:" & answareString3)

    Answare4Int = Rnd(0,197)
    answareString4 = list2.Get(Answare4Int)
    Log(Answare4Int)
    Log("Risposta4:" & answareString4)

    allAnsware = Array As Int(Answare1Int, Answare2Int,Answare3Int,Answare4Int)
   
    list3 = allAnsware

'-------------------------------------------------------------------------------------------------------



||||||||||||||||||||||||||mescolaNazioni|||||||||||||||||||||||||||||||
        ShuffleList(list3)
        Log("===== PlayList (shuffle) =========")
        For i = 0 To list3.Size-1
            list3.Get(i)
            Log(list3.Get(i))
        Next
    Log("=================================")

|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

    Dim listindex0 As Int
    Dim listindex1 As Int
    Dim listindex2  As Int
    Dim listindex3 As Int
   
    listindex0 = list3.Get(0)
    listindex1 = list3.Get(1)
    listindex2 = list3.Get(2)
    listindex3 = list3.Get(3)
    Log(listindex2)
   
    answare1 = list2.Get(listindex0)
    Answare2 =list2.Get(listindex1)
    Answare3 =list2.Get(listindex2)
    Answare4 =list2.Get(listindex3)
    If answare1 <> Answare2 And answare1 <> Answare3 And answare1 <> Answare4 _ 
        And Answare2 <> answare1 And Answare2 <> Answare3 And Answare2<> Answare4 _
        And Answare3 <> Answare2 And Answare3 <> answare1 And Answare3<> Answare4 And Answare4 <> answare1 And Answare4 <> Answare2 And Answare4 <> Answare3 Then
    SetButtonTextSize(answare1Button,answare1)
    SetButtonTextSize(answare2Button,Answare2)
    SetButtonTextSize(answare3Button,Answare3)
    SetButtonTextSize(answare4Button,Answare4)
   
    Else

        trovaNazioni
    End If