SeedRnd MilliSecs()
Global datapath$ = CurrentDir()+"data\"
Global vokzahl,testfenster


dateizl = OpenFile(datapath$+"Unit011.txt")
Lower (dateizl)
Trim (dateizl)
If Not dateizl Then Notify "Die Datei 'Unit011.txt' im Verzeichnis "+datapath$+" existiert nicht."
Repeat
If KeyDown(1) Then End
   ReadLine dateizl
   realsize = realsize + 1
Until Eof(dateizl)
vokzahl = 20
ab = 10
If vokzahl <= 1 Then Notify "Es wurden zu wenig Vokabeln eingegeben."
Dim vokabel$(10000)
Dim antwort$(10000,2)
CloseFile dateizl
Global number[10000],answerfield[10000]

dateizl = OpenFile(datapath$+"Unit011.txt")
If Not dateizl Then Notify "Die Datei 'vokabeln.txt' im Verzeichnis "+datapath$+" existiert nicht."
For i = 1 To realsize
   if i => ab and cnt <= vokzahl then
      cnt = cnt + 1
      temp_string$ = ReadLine(dateizl)
      vokabel$(cnt) = Left(temp_string$,Instr(temp_string$,";")-1)
      antwort$(cnt,0) = Right(temp_string$,Instr(temp_string$,";")-1)
      instring = instr(temp_string$,"\")
      if instring > 0 then
         antwort$(cnt,1) = left(antwort$(cnt,0),instring)
         antwort$(cnt,2) = right(temp_string$,len(temp_string$)-instring)
      else
         antwort$(cnt,1) = antwort$(cnt,0)
         antwort$(cnt,2) = antwort$(cnt,0)
      endif
   endif
Next
CloseFile dateizl

Global menuefenster = CreateWindow("VirtualTest - Menü          programmiert von Lukas Klein und Tom Roggenbuck, (C) by ML Soft",ClientWidth(Desktop())/2-400,ClientHeight(Desktop())/2-300,800,600,Desktop(),33)
mencanvas = CreateCanvas(0,0,800,600,menuefenster)
backmen = LoadImage(datapath$+"menback.mlp")
SetBuffer CanvasBuffer(mencanvas)
For i = 1 To 600 Step 2
   DrawImageRect backmen,0,0,0,0,800,i
   FlipCanvas mencanvas
Next

startbutton = CreateButton("Virtuellen Test erstellen",300,200,200,20,mencanvas)
infobutton = CreateButton("Information",300,230,200,20,mencanvas)
wwwbutton = CreateButton("www.mlsoft.de.pn",300,260,200,20,mencanvas)
tourbutton = CreateButton("Infotour starten",300,290,200,20,mencanvas)
endbutton = CreateButton("Beenden",300,320,200,20,mencanvas)

Repeat
If KeyDown(1) Then End
If KeyHit(1) Then End
   event = WaitEvent()
   If event = $401 Then
      Select EventSource()
         Case startbutton
            CreateTest()
         Case settingsbutton
            
         Case newbutton
            
         Case importbutton
         Case exportbutton
            
         Case infobutton
            Notify "Information über VirtualTest"+Chr$(13)+Chr$(13)+"programmiert von Lukas Klein und Tom Roggenbuck"+Chr$(13)+"© by ML Soft"
         Case wwwbutton
            ExecFile "http://Homepageadresse kommt noch"
         Case tourbutton
            Notify "Dieses Feature existiert noch nicht!"
         Case endbutton
            End
      End Select
   EndIf
   Text 0,0,">>>"+pruefe$+"<<<"
Until event = $803
End

Function CreateTest()

   HideGadget menuefenster
   testfenster = CreateWindow("VirtualTest - Vokabeltest",ClientWidth(Desktop())/2-250,ClientHeight(Desktop())/2-((vokzahl*30+70)/2),500,vokzahl*30+70,Desktop(),49)
   upcanvas = CreateCanvas(0,0,500,30,testfenster)
   SetBuffer CanvasBuffer(upcanvas)
   ClsColor 236,233,216
   Cls
   font = LoadFont("Arial",20,0,0,0)
   Color 255,0,0
   SetFont font
   Text 10,0,"ENGLISCH",0,0
   Text 230,0,"DEUTSCH",0,0
   FlipCanvas upcanvas
   SetBuffer BackBuffer
   For i = 1 To vokzahl
      number[i] = i   
      
      CreateLabel(vokabel$(number[i]),5,i*30+10,200,20,testfenster)
      answerfield[i] = CreateTextField(210,i*30+10,200,20,testfenster)
   Next
   okbutton = CreateButton("Prüfen",150,vokzahl*30+40,200,20,testfenster)
   
   Repeat
   If KeyDown(1) Then End
      event = WaitEvent()
      If event = $401 Then
         Select EventSource()
            Case okbutton
               auswertung(check(),vokzahl)
         End Select
      EndIf
   Until event = $803
   HideGadget testfenster
   ShowGadget menuefenster
   
End Function

Function check()
   richtige = 0
   For i = 1 To vokzahl
      If antwort$(number[i],1) or antwort$(number[i],2) = TextFieldText(answerfield[i]) Then richtige = richtige + 1
      ;Notify ">"+vokzahl+"<>"+vokabel$(number[i])+"<"
   Next
   Return richtige
End Function

Function auswertung(richtige,von)
   prozent# = richtige*100/von
   ausfenster = CreateWindow("VirtualTest - Auswertung",ClientWidth(Desktop())/2-200,ClientHeight(Desktop())/2-75,400,150,Desktop(),49)
   auscanvas = CreateCanvas(0,0,400,300,ausfenster)
   SetBuffer CanvasBuffer(auscanvas)
   font = LoadFont("Tahoma",20,0,0,0)
   SetFont font
   Color 0,255,0
   Text 5,5,"Sie haben "+richtige+" Vokabeln von "+von+" gewusst.",0,0
   Text 5,30,"Das sind "+prozent#+"%.",0,0
   Rect 5,100,prozent#*3,30,1
   Color 255,0,0
   Rect 5,100,300,30,0
   FlipCanvas auscanvas
   ok = CreateButton("OK",185,135,30,20,auscanvas)
   Repeat
      event = WaitEvent()
      If event = $401 And EventSource() = ok Then ShowGadget menuefenster : FreeGadget testfenster : FreeGadget ausfenster
   Until event = $803
End Function

prozent# = 100/von*richtig

huge;riesengroß
crowded;überfüllt
deserted;menschenleer
powerful;mächtig
nation;Nation
yet;jedoch
movie;Film
space;Weltraum
business;Geschäft
to fascinate;fesseln
major;wichtig
capital city;Hauptstadt
foot;Fuß
mile;Meile
midnight;Mitternacht
to elect;wählen
to vote for;stimmen für
time zone;Zeitzone
stripe;Streifen
state;Staat