Jump to content

Type Test


AlmarM
 Share

Recommended Posts

Hi!

This time I've made a Type Test!

With not only english sentence's.

The test includes:

  • English
  • Nederlands
  • Deutsch
  • Français
  • Spanisch (Still needs to be translated!)
  • Roumain (Is able when Spanish is translated!)
  • Random
#include <GUIConstantsEx.au3>

$SelectLanguage = _SelectLanguage()
$Random = _RandomSentence($SelectLanguage)
$GUI = GUICreate("Type test", 400, 130)
GUICtrlCreateLabel("Type the following sentence:" & @CRLF & $Random, 10, 10)
$Start = GUICtrlCreateButton("Start", 10, 45, 50)
$Input = GUICtrlCreateInput("", 10, 80, 380, 20)
$Label = GUICtrlCreateLabel("", 10, 110, 300)

GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = -3
        Exit
    Case $nMsg = $Start
        GUICtrlSetData($Input, "")
        GUICtrlSetState($Input, $GUI_FOCUS)
        $x = TimerInit()
        Do
            $xx = TimerDiff($x)
        Until GUICtrlRead($Input) == $Random
        $xxx = Round($xx / 1000, 1)
        GUICtrlSetData($Label, $xxx & " seconds.")
    EndSelect
WEnd

Func _SelectLanguage()
    $L_GUI = GUICreate("Select Language", 120, 210, -1, -1)
    GUICtrlCreateLabel("Select your language", 10, 10)
    $r_English = GUICtrlCreateRadio("English", 10, 30)
    $r_Nederlands = GUICtrlCreateRadio("Nederlands", 10, 50)
    $r_Deutsch = GUICtrlCreateRadio("Deutsch", 10, 70)
    $r_Francais = GUICtrlCreateRadio("Français", 10, 90)
    $r_Spanisch = GUICtrlCreateRadio("Spanisch", 10, 110)
    $r_Roumain = GUICtrlCreateRadio("Roumain", 10, 130)
    $r_Random = GUICtrlCreateRadio("Random", 10, 150)
    GUICtrlSetState($r_English, 1)
    $Select = GUICtrlCreateButton("Select", 10, 175, 70)
    
    GUISetState()
    While 2
        $nMsg2 = GUIGetMsg()
        Select
        Case $nMsg2 = -3
            Exit
        Case $nMsg2 = $Select
            If GUICtrlRead($r_English) = 1 Then
                $r_Language = "ENGLISH"
            ElseIf GUICtrlRead($r_Nederlands) = 1 Then
                $r_Language = "NEDERLANDS"
            ElseIf GUICtrlRead($r_Deutsch) = 1 Then
                $r_Language = "DEUTSCH"
            ElseIf GUICtrlRead($r_Francais) = 1 Then
                $r_Language = "FRANCAIS"
            ElseIf GUICtrlRead($r_Spanisch) = 1 Then
                $r_Language = "SPANISCH"
            ElseIf GUICtrlRead($r_Roumain) = 1 Then
                $r_Language = "ROUMAIN"
            Else
                $r_Language = "RANDOM"
            EndIf
            GUIDelete($L_GUI)
            ExitLoop
        EndSelect
    WEnd
    Return $r_Language
EndFunc     

Func _RandomSentence($Language)
    Local $Sentence[80]
    $Sentence[0] = "I want to stay, but I must go home now."
    $Sentence[1] = "I'll be home within an hour. Please wait."
    $Sentence[2] = "The war is over. Now we have peace."
    $Sentence[3] = "Open the window. I need some fresh air."
    $Sentence[4] = "Too many people died in the war. It's time for peace now."
    $Sentence[5] = "He was born in New York, but he grew up in Chicago."
    $Sentence[6] = "My hair isn't wet anymore. It's dry."
    $Sentence[7] = "Are you calling from your home?"
    $Sentence[8] = "You must repair that bike now."
    $Sentence[9] = "They should have brought an umbrella."
    $Sentence[10] = "You should pay attention to his words."
    $Sentence[11] = "You should not have listened to that bad advice."
    $Sentence[12] = "Could you tell me a bit more about yourself?"
    $Sentence[13] = "When we go to England we always visit our friends there."
    $Sentence[14] = "What kind of people do things like this?"
    $Sentence[15] = "He bought two pairs of shorts on holiday."
    $Sentence[16] = "If I were you I would have learned my lesson."
    $Sentence[17] = "When I go shopping I always buy some food."
    $Sentence[18] = "What kind of fairy tales do you believe in?"
    $Sentence[19] = "He had to work hard to get the job finished in time."
    $Sentence[20] = "Ik wil graag blijven, maar ik moet nu naar huis."
    $Sentence[21] = "Ik ben in een uur thuis. Wacht alsjeblieft."
    $Sentence[22] = "De oorlog is over. Nu hebben nu vrede."
    $Sentence[23] = "Open het raam. Ik heb frise lucht nodig."
    $Sentence[24] = "Te veel mensen zijn gestorven in de oorlog. Het is tijd voor vrede."
    $Sentence[25] = "Hij is geboren in New York, maar hij is opgegroeit in Chicago."
    $Sentence[26] = "Mijn haar is niet meer nat. Het is droog."
    $Sentence[27] = "Bel jij vanaf je eigen huis?"
    $Sentence[28] = "Je moet die fiest nu repareren."
    $Sentence[29] = "Ze hadden een paraplu mee moeten nemen."
    $Sentence[30] = "Je zou meer aandacht moeten geven aan wat hij zegt."
    $Sentence[31] = "Je zou niet moeten luisteren naar dat slechte advies."
    $Sentence[32] = "Kan je iets meer vertellen over jezelf?"
    $Sentence[33] = "Als we naar Engeland gaan, bezoeken we altijd onze vrienden."
    $Sentence[34] = "Wat voor soort persoon doet nou zoiets."
    $Sentence[35] = "Hij heeft twee paar korte broekken gekocht op vakantie."
    $Sentence[36] = "Als ik jou was had ik mij lesje wel geleerd."
    $Sentence[37] = "Als ik ga winkelen koop ik altijd wat te eten."
    $Sentence[38] = "In wat voor soort sprookjes geloof jij?"
    $Sentence[39] = "Hij moest heel hard werken om het op tijd af te krijgen."
    $Sentence[40] = "Ich würde gerne bleiben, aber ich muss jetzt nach hause."
    $Sentence[41] = "Ich bin vor einer Stunde wieder zurück, bitte warte."
    $Sentence[42] = "Der Krieg ist vorbei. Jetzt haben wir Frieden."
    $Sentence[43] = "Öffne das Fenster. Ich brauche etwas frische Luft."
    $Sentence[44] = "Zu viele Menschen starben im Krieg. Es ist zeit für Frieden."
    $Sentence[45] = "Er wurde in New York geboren, aber er ist in Chicago aufgewachsen."
    $Sentence[46] = "Mein Haar ist nicht mehr nass, es ist trocken."
    $Sentence[47] = "Rufst du von zuhause an?"
    $Sentence[48] = "Du musst das Fahrrad jetzt repariren."
    $Sentence[49] = "Sie sollten einen Regenschirm mitbringen."
    $Sentence[50] = "Du solltest seinen worten aufmerksamkeit schenken."
    $Sentence[51] = "Du solltest diesem schlechtem Rat nicht folgen."
    $Sentence[52] = "Könntest du mir etwas mehr über dich erzählen."
    $Sentence[53] = "Wann gehen wir nach England, wir besuchen immer unsere Freunde dort."
    $Sentence[54] = "Welche Menschen denken so etwas."
    $Sentence[55] = "Er hat im Urlaub zwei paar Hosen gekauft."
    $Sentence[56] = "Wenn ich du wäre, hätte ich meine Aufgaben gelernt."
    $Sentence[57] = "Wenn ich einkaufen gehe, kaufe ich immer etwas zu essen."
    $Sentence[58] = "An welches Märchen glaubst du?"
    $Sentence[59] = "Er musste hart arbeiten um es in dieser zeit zu schaffen."
    $Sentence[60] = "Je veux rester, mais je dois rentrer maintenant."
    $Sentence[61] = "La guerre est terminé. Maintenant nous avons la paix."
    $Sentence[62] = "Je serai à la maison dans une heure. Attendez s'il vous plaît."
    $Sentence[63] = "Ouvrez la fenêtre. J'ai besoin d'un peu d'air frais."
    $Sentence[64] = "Trop de personnes sont mortes dans la guerre. C'est le temps pour la paix maintenant."
    $Sentence[65] = "Il est né à New York, mais il a grandi à Chicago."
    $Sentence[66] = "Mes cheveux ne sont pas humides désormais. C'est sec."
    $Sentence[67] = "Appelez-vous de votre maison?"
    $Sentence[68] = "Tu dois réparer ce vélo maintenant."
    $Sentence[69] = "Ils devraient avoir apporté un parapluie."
    $Sentence[70] = "Vous devriez prêter l'attention à ses mots."
    $Sentence[71] = "Vous ne devriez pas avoir écouté ce mauvais conseil."
    $Sentence[72] = "Pourriez-vous me dire un peu plus de vous?"
    $Sentence[73] = "Quand nous allons en Angleterre nous visitons toujours nos amis là."
    $Sentence[74] = "Quel genre de gens font des choses comme ça?"
    $Sentence[75] = "Il a acheté 2 paires de shorts en vacances."
    $Sentence[76] = "Si j'étais toi j'aurais appris ma leçon."
    $Sentence[77] = "Quand je vais faire les courses j'achète toujours de la nourriture."
    $Sentence[78] = "En quel sorte de conte de fée vous croyez?"
    $Sentence[79] = "Il doit travailler dur pour avoir son travail terminé a temps."
    
    #cs
    $Sentence[100] = "Vreau sa ramân, dar trebuie sa merg acasa acum."
    $Sentence[101] = "Voi fi acasa într-o ora. Te rog asteapta-ma."
    $Sentence[102] = "Razboiul s-a terminat. Acum avem pace."
    $Sentence[103] = "Deschide fereastra. Am nevoie de putin aer curat."
    $Sentence[104] = "Prea multi oameni au murit în acest razboi. E timpul pentru pace acum."
    $Sentence[105] = "S-a nascut în New York, dar a crescut în Chicago."
    $Sentence[106] = "Parul meu nu este mai umed. Este uscat."
    $Sentence[107] = "Suni de la tine de acasa?"
    $Sentence[108] = "Trebuie sa repari aceasta bicicleta acum."
    $Sentence[109] = "Ei ar fi trebuit sa îsi aduca o umbrela"
    $Sentence[110] = "Ar trebui sa acorzi atentie cuvintelor mele."
    $Sentence[111] = "Nu ar fi trebuit sa asculti sfatul rau."
    $Sentence[112] = "Poti sa-mi spui un pic mai multe despre tine?"
    $Sentence[113] = "Cand merg în Anglia întotdeauna am prieteni de vizitat acolo."
    $Sentence[114] = "Ce fel de oameni fac lucruri de genul asta?"
    $Sentence[115] = "El a cumparat doua perechi de pantaloni scurti în vacanta."
    $Sentence[116] = "Daca as fi în locul tau mi-as fi învatat lectia."
    $Sentence[117] = "Când ma duc la cumparaturi întotdeauna cumpar ceva de mancare."
    $Sentence[118] = "În ce fel de basme crezi?"
    $Sentence[119] = "El a trebuit sa munceasca din greu pentru a termina munca la timp."
    #ce
    
    If $Language = "ENGLISH" Then
        Return $Sentence[Random(0, 19, 1)]
    ElseIf $Language = "NEDERLANDS" Then
        Return $Sentence[Random(20, 39)]
    ElseIf $Language = "DEUTSCH" Then
        Return $Sentence[Random(40, 59, 1)]
    ElseIf $Language = "FRANCAIS" Then
        Return $Sentence[Random(60, 79, 1)]
    ; ElseIf $Language = "SPANISCH" Then
        ; Return $Sentence[Random(80, 99)]
    ;ElseIf $Language = "ROUMAIN" Then
        ; Return $Sentence[Random(100, 119)]
    Else
        Return $Sentence[Random(0, 79, 1)]
    EndIf
EndFunc

Credits for Translating!

"$uiCide!?" for Nederlands (Almar Mulder)

"DeviL" for Deutsch (Andreas Untch)

"» 'Błɑck.Bird « " for Francais (Benoit)

"Andreik" for Roumain

AlmarM

Edited by AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Link to comment
Share on other sites

Haha ^^,

Im getting all around 8 - 8.3 @ What kind of fairy tales do you believe in?

AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Link to comment
Share on other sites

Haha ^^,

Im getting all around 8 - 8.3 @ What kind of fairy tales do you believe in?

AlmarM

For me it is quite difficult as I do not know english very well. >_<

I want to see how fast you can write in romanian language. :)

When the words fail... music speaks.

Link to comment
Share on other sites

Whahaha, im Dutch :idiot:

But give me a normal romanian sectence than >_<

AlmarM

I know you're Dutch but I think you know much better than me english. :)

A phrase in romanian.

Pot sa scriu o fraza foarte repede ca sa testez noul meu program.

When the words fail... music speaks.

Link to comment
Share on other sites

I know you're Dutch but I think you know much better than me english. :)

A phrase in romanian.

I did "Pot sa scriu o fraza foarte repede ca sa testez noul meu program.".

I had 14.8 sec >_<

AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Link to comment
Share on other sites

I tested how fast I can type.

I tested myself with 10 random sentence's

The war is over. Now we have peace.

5.2

He was born in New York, but he grew up in Chicago.

13.6

My hair isn't wet anymore. It's dry.

6.7

You should pay attention to his words.

6.5

You should not have listened to that bad advice.

7.4

Could you tell me a bit more about yourself?

7.6

They should have brought an umbrella.

4.9

When I go shopping I always buy some food.

6.2

You must repair that bike now.

3.6

What kind of people do things like this?

5.1

Avg: 6.7

Nice éh :P?

AlmarM

Edited by AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Link to comment
Share on other sites

There was no war. You laughed my result but I never felt offended at all.

It is important you can write fast, but there are a lot of important things.

What?

Im just showing my results at 10 random sentence's.

Just my avg typ speed.

AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Link to comment
Share on other sites

What?

Im just showing my results at 10 random sentence's.

Just my avg typ speed.

AlmarM

:P:( Sorry, I thought you were glad I wrote more slowly, and now you tired of us all show results.

I have not noticed that the phrase was a test.

The war is over. Now we have peace.

I hope not to start the third world war. :idea:

Sorry again.

When the words fail... music speaks.

Link to comment
Share on other sites

:P:( Sorry, I thought you were glad I wrote more slowly, and now you tired of us all show results.

I have not noticed that the phrase was a test.

I hope not to start the third world war. :idea:

Sorry again.

Hehe, im not glad you are typing slower as me.

Dude, your a WAY better scripter as me :P

So I cant say anything to you ;)

And about the world war 3, no thank you :P

AlmarM

P.S.

You dont need to say sorry :)

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Link to comment
Share on other sites

You can change the _RandomSentence function for more languages like this:

Func _RandomSentence($LANGUAGE)
    Local $Sentence[100]
    $Sentence[0] = "I want to stay, but I must go home now."
    $Sentence[1] = "I'll be home within an hour. Please wait."
    $Sentence[2] = "The war is over. Now we have peace."
    $Sentence[3] = "Open the window. I need some fresh air."
    $Sentence[4] = "Too many people died in the war. It's time for peace now."
    $Sentence[5] = "He was born in New York, but he grew up in Chicago."
    $Sentence[6] = "My hair isn't wet anymore. It's dry."
    $Sentence[7] = "Are you calling from your home?"
    $Sentence[8] = "You must repair that bike now."
    $Sentence[9] = "They should have brought an umbrella."
    $Sentence[10] = "You should pay attention to his words."
    $Sentence[11] = "You should not have listened to that bad advice."
    $Sentence[12] = "Could you tell me a bit more about yourself?"
    $Sentence[13] = "When we go to England we always visit our friends there."
    $Sentence[14] = "What kind of people do things like this?"
    $Sentence[15] = "He bought two pairs of shorts on holiday."
    $Sentence[16] = "If I were you I would have learned my lesson."
    $Sentence[17] = "When I go shopping I always buy some food."
    $Sentence[18] = "What kind of fairy tales do you believe in?"
    $Sentence[19] = "He had to work hard to get the job finished in time."
    .
    .
    .
    $Sentence[99]
    If $LANGUAGE = "ENGLISH" Then
        Return $Sentence[Random(0,19,1)]
    ElseIf $LANGUAGE = "FRENCH" Then
        Return $Sentence[Random(20,39,1)]
    ElseIf $LANGUAGE = "DUTCH" Then
        Return $Sentence[Random(40,59,1)]
    ElseIf $LANGUAGE = "GERMAN" Then
        Return $Sentence[Random(60,79,1)]
    ElseIf $LANGUAGE = "SPANISH" Then
        Return $Sentence[Random(80,99,1)]
    EndIf
EndFunc

When the words fail... music speaks.

Link to comment
Share on other sites

Hmmm, good Idea... Could you help me with building it into my script? :P

AlmarM

EDIT: Nevermind, I got the point :(. Can you still help me with some languages? Like Romanian :idea:

Edited by AlmarM

Minesweeper

A minesweeper game created in autoit, source available.

_Mouse_UDF

An UDF for registering functions to mouse events, made in pure autoit.

2D Hitbox Editor

A 2D hitbox editor for quick creation of 2D sphere and rectangle hitboxes.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...