Avis aux compétiteurs : ouverture des scripting games 2008

Version imprimable

19/02/2008, 15h23
RadPAT

Avis aux compétiteurs : ouverture des scripting games 2008

Salut à tous,

depuis ce week end, le challenge winter scripting games 2008 de microsoft est ouvert :

http://www.microsoft.com/technet/scr...s/default.mspx

Il y a un niveau débutant et un niveau avancé, plus un challenge "mort subite" :evilred:
A vos éditeurs VBS...

A++
19/02/2008, 17h58
ced600

Je viens de finir l'event2 de "mort subite"

J'ai aussi débugué un fichier vbs fournis dans le zip, je ne sais pas à quoi il sert.
Enfin presque débugué, il compare la date avec un >, faut que change cela. Je crois me souvenir qu'il y a un comparetodate. Une recherche sur le forum et ce sera fait. On vera demain.
19/02/2008, 18h08
RadPAT

Salut Ced600,

l'epreuve 2 de la mort subite n'est pas très compliquée, par contre j'ai échoué à l'épreuve 1 c'était une sorte de QCM et mon anglais n'est pas top.
Le zip c'est le competitor pack avec des fichiers qui te seront utiles pour les épreuves que tu retrouves ici en francais (je me suis pastillé tout en anglais avant de découvrir ce lien )

http://www.microsoft.com/technet/scr...a/summary.mspx

J'ai envoyé mes scripts hier soir et mes premiers résultats sont encourageants...

A++
19/02/2008, 18h15
ced600

Citation:

Envoyé par RadPAT

Salut Ced600,

l'epreuve 2 de la mort subite n'est pas très compliquée, par contre j'ai échoué à l'épreuve 1 c'était une sorte de QCM et mon anglais n'est pas top.
Le zip c'est le competitor pack avec des fichiers qui te seront utiles pour les épreuves que tu retrouves ici en francais (je me suis pastillé tout en anglais avant de découvrir ce lien )

http://www.microsoft.com/technet/scr...a/summary.mspx

J'ai envoyé mes scripts hier soir et mes premiers résultats sont encourageants...

A++

:king:

Perso j'ai pas le temps de tout faire, donc j'en ferais un de temps à autre
19/02/2008, 18h20
RadPAT

Dans ce cas, je te conseille ces 2 là :

compter les points au bowling :
http://www.microsoft.com/technet/scr.../bevent10.mspx

faire un jeu de blackjack :
http://www.microsoft.com/technet/scr.../aevent10.mspx

Bon courage.

A++
19/02/2008, 18h44
ced600

La première c'est pas trop compliqué, plusieurs façon de le faire, cela resemble un peu à la calculatrice polonaise que j'avais fait en c.

Par contre le blackjack est plus dure (et plus chiant).
19/02/2008, 19h09
RadPAT

Citation:

Envoyé par ced600

Par contre le blackjack est plus dure (et plus chiant).

moi je l'ai fait avec un HTA, ca passe tout seul.

A++

Ils l'ont vraiment fait !!!!
Ils ont utilisé le redim pour l'event 2 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Const ForReading = 1
 
Dim arrFileLines()
i = 0
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Scripts\Vertical.txt", ForReading)
 
Do Until objFile.AtEndOfStream
     Redim Preserve arrFileLines(i)
     arrFileLines(i) = objFile.ReadLine
     i = i + 1
Loop
 
objFile.Close
 
For i = 1 to 4
    For Each strLine in arrFileLines
        strCharacters = strCharacters & Mid(strLine, i, 1)
    Next
Next
 
Wscript.Echo strCharacters

Incroyable je ne pensais pas qu'ils étaient aussi barbare 8O

Je préfère ma solution avec un dictionnaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim line
Dim result
Dim path
 
'path of the file
path = "C:\temp\vertical.txt"
 
Set Dico = CreateObject("Scripting.Dictionary")
Set FSOosf = CreateObject("Scripting.FileSystemObject")
Set Ftxt =  FSOosf.OpenTextFile(path)
 
Do While Ftxt.AtEndOfStream <> True
    line = Ftxt.ReadLine
	for i = 1 to len(line)
		if Dico.Exists(i) then
			Dico(i) = Dico(i) & Mid (line, i, 1)
		else
			Dico.Add i, Mid (line, i, 1)
		end if
	next
	i = 0
Loop
 
Ftxt.Close
Set FSOosf = nothing
Set Ftxt = nothing
 
for i = 1 to Dico.count
	result = result & Dico(i)
next
 
Wscript.Echo result

21/02/2008, 11h39
omen999

Citation:

Envoyé par RadPAT

moi je l'ai fait avec un HTA, ca passe tout seul.

ah bon, on a le droit d'utiliser des composants tiers :question: 8O
21/02/2008, 19h25
RadPAT

Citation:

Envoyé par omen999

ah bon, on a le droit d'utiliser des composants tiers :question: 8O

l'utlisation d'un HTA est même imposée sur cette epreuve :

http://www.microsoft.com/technet/scr...8/bevent8.mspx

A++