Compétition PurePunch Juillet-Août 2014

[graph100]

Mouarf la réponse !

Il est cool ton jeu huitbit j'ai réussi quelques fois sur plein d'essais, il faut un certain coup de main, et de la chance
J'adore son aspect bien rétro

[Frenchy Pilou]

http://www.youtube.com/watch?v=wk-UD7dd8Bg

[SPH]

http://www.youtube.com/watch?v=wk-UD7dd8Bg

J'adooore

[SPH]

au moins tu as crée un jeux pas comme SPH

http://www.purebasic.fr/french/viewtopi ... =2&t=13708

[Lemaquis]

au moins tu as crée un jeux pas comme SPH

http://www.purebasic.fr/french/viewtopi ... =2&t=13708

et alors j'ai horreur du scrabble jeux pour les vieux

[Cool Dji]

Y'a de l'ambiance sur ce PurePunch

Entre les "bien fait pour Cool Dji", les "j'aime pas ce que tu fais" et les "t'es qu'une s.....", je me marre tous les matins : merci les gars

En tous les cas, y'a de la production aussi coté code ; des petits trucs bien sympa vu les contraintes techniques.

Enjoy !

[djes]

http://www.youtube.com/watch?v=wk-UD7dd8Bg

Merci !

[Lemaquis]

comment on vote ?
je vote pour Huitbit qui as fait un énorme boulot .

[microdevweb]

Bonjour,

Voici mon code (peut'être top tard)

Statistique loto Belge, en rouge les espace entre sortie du numéro en vert le numéro est sortie. Ça télécharge tous les tirage depuis l’invention du loto en Belgique; J'aime pas vraiment développer aussi brouillon mais avec si peut de ligne?.
42 lignes avec l’entête

Code : Tout sélectionner

;*****************************************************************************
;*
;* July-August 2014 PurePunch contest
;* PureBasic 5.22
;* 50 lines of 80 chars, 2 months delay
;*
;* Name     :  Microdevweb / Bielen Pierre
;* Author   : Microdevweb / Bielen Pierre
;* Date     : 30-08-2014
;* Notes    : Statistique loto Belge
;*
;*****************************************************************************
Structure Tirage:List Num$():EndStructure:Global NewMap myTirage.Tirage()
InitNetwork()
ReceiveHTTPFile("http://www.loterie-nationale.be/Controls/Draw/"+
"DownloadResults.ashx?productId="+
"cb2916c1-fea5-49ae-9576-a478249aa07f&StartDate"+
"=20040101&EndDate=20151201&ExportData=True","re.csv")
OpenFile(0,"re.csv"):ReadString(0):While Eof(0)=0:Txt$=ReadString(0):Nb+1:
AddMapElement(myTirage(),Str(Nb)):For N=2 To 8
AddElement(myTirage()\Num$()):myTirage()\Num$()=StringField(Txt$,N,";"):Next
Wend
CloseFile(0)
OpenWindow(0,0,0,800,600,"Loto",#PB_Window_Maximize|#PB_Window_SystemMenu):
W=WindowWidth(0):H=WindowHeight(0)
CanvasGadget(0,0,0,W,30):ScrollAreaGadget(1,0,30,W,H-30,W-5,Nb*20):
CanvasGadget(2,0,0,W,Nb*20):CloseGadgetList()
SetGadgetAttribute(1,#PB_ScrollArea_InnerWidth,W-10):
SetGadgetAttribute(1,#PB_ScrollArea_InnerHeight,Nb*20)
WB=(W-100)/45:StartDrawing(CanvasOutput(0)):Box(0,0,W,30,$00D7FF):X=50
For N=1 To 45
DrawText(X,10,Str(N),$000000,$00D7FF):X+WB:Next:StopDrawing()
StartDrawing(CanvasOutput(2)):Box(0,0,W,Nb*20,$D3D3D3)
X=40
Box(X,0,W-100,Nb*20,$0000FF)
For N=1 To 45 
		Y=0
		For R=Nb To 1 Step -1
			ForEach myTirage(Str(R))\Num$()
				If Val(myTirage(Str(R))\Num$())=N
					Box(X,Y,WB,20,$2FFFAD)
				EndIf
			Next
			DrawText(0,Y,Str(R),$000000,$D3D3D3)
			Line(0,Y,W-60,1,$000000)
			Y+20 
		Next
		Line(X,0,1,Nb*20,$000000)
		X+WB 
Next
StopDrawing()
Repeat: :Until WaitWindowEvent()=#PB_Event_CloseWindow

Edit par TazNormand

Réduction de ton code aux normes 80 colonnes à l'arrache

Voila ce que ça fait

[falsam]

Aie Aie Aie tu vas être hors concours je pense. Quel dommage de respecter la date limite et ne pas respecter les contraintes de publication

PS : Quelques lignes depassent largement les 80 caracteres et ça pique les yeux.

[microdevweb]

Ben oui dommage, alors que j'avais la place (il me restait 20 lignes). On peur modifier le message?

[majikeyric]

Bien sur

[microdevweb]

Merci TazNormand,

J'allais le faire

Code : Tout sélectionner

OpenFile(0,"D:\PurePunch\Loto.pb")
N=0
While Eof(0)=0
      Txt$=ReadString(0)
      N+1
      Debug "Ligne: "+Str(N)+" Nbr Caractères: "+Str(Len(Txt$))
Wend  
CloseFile(0)

Bête de ne pas avoir fait cela avant

[Lemaquis]

microdevweb c'est sympas ta création

[microdevweb]

Merci Lemaquis,