Petite gâterie pédagogique en PureBasic francophone

[Kwai chang caine]

Non, pas que toi, moi aussi j'ai bossé ici

Seul Jean Fli, célèbre comique inconnu du 20e siècle après Jean Claude.., aurait pu revendiquer une telle conversation, ainsi que les divers liens rocambolesques qui la compose.
Il n'aurait alors pas été surprenant de constater, que ce post est "A Fli jean"

[JohnJohnsonSHERMAN]

Je me disais bien qu'il allait repasser ici celui-là...

[Kwai chang caine]

Pos du tout...je porte jamais de chemises

[JohnJohnsonSHERMAN]

Ah... Ca fait commercialement-pas-génial-ement les habits froissés, KCC...
(Et puis de toute facon, osef de l'aspect commercial hein)

[Zorro]

avec le code Zarbi de Sherman

ce code retraduit en PB bien clean

Utilisation :
vous copier l'ensemble du code de sherman dans le press-papier (ctrl+c)
puis vous lancez ce code ci dessous (il va faire la traduction en Pb )
plus qu'a copier avec un Ctrl+v dans votre editeur

Code : Tout sélectionner

;***********************************************
;Titre  :*desembrouilleur de Sherman code
;Auteur  : Zorro
;Date  :26/10/2016
;Heure  :14:45:22
;Version Purebasic :  PureBasic 5.50 (Windows - x86)
;Version de l'editeur :EPB V2.64
; Libairies necessaire : Aucune 
;***********************************************

Structure bidon
		fonc.s
		index.i
		ordre.i
EndStructure
Structure pb
		fonc.s
		index.i
		ordre.i
EndStructure

Newlist bidon.bidon()
Newlist Pb.pb()

code$ = GetClipboardText()
nbr_ligne=countstring(Lcase(code$),"macro")
For i=1 to nbr_ligne
		ligne$=trim(mid(code$,1,FindString(code$,chr(10))))
		
		ligne$=Ltrim(StringField(Lcase(code$),1,"endmacro") +"endmacro")
		
		if ligne$<>""
				compteur=compteur+1 ; compte les lignes Macro
				nbr_ligne=nbr_ligne-1
		Endif
		mot_bidon.s=mid( Lcase(ligne$),1,Findstring(Lcase(ligne$),"endmacro")-1)
		mot_bidon.s=Ltrim(Stringfield(mot_bidon.s,2,"macro"))
		mot_bidon.s=Ltrim(Stringfield(mot_bidon.s,1,":"))
		mot_pb.s=StringField(ligne$,1,"endmacro")	
		mot_pb.s=mid(mot_pb.s,1,Findstring(ligne$,"endmacro"))
		poss=findstring(mot_pb.s,":")
		mot_pb.s=mid(mot_pb.s,poss+1,len(mot_pb.s)-1)
		mot_pb.s=Rtrim(mot_pb.s," ")
		mot_pb.s=Rtrim(mot_pb.s,":")
		AddElement(bidon())
		bidon()\fonc.s=mot_bidon.s
		bidon()\index.i=len(mot_bidon.s)
		bidon()\ordre.i=i-1
		AddElement(pb.s())
		pb()\fonc.s=mot_pb.s
		pb()\index.i=Len(mot_pb.s)
		pb()\ordre.i=i-1
		code$=removestring(Lcase(code$),ligne$,#PB_String_NoCase ,1) 
Next i
; trie des listes par ordre de grandeur
SortStructuredList(bidon(), #PB_Sort_Descending, OffsetOf(bidon\index.i), TypeOf(bidon\index.i))

; le Grand remplacement
compt=-1
Foreach bidon()	
		Foreach pb()
				if pb()\ordre =bidon()\ordre.i
						SelectElement(pb(),pb()\ordre.i)	
						code$=ReplaceString(Lcase(code$),trim(bidon()\fonc.s),trim(pb()\fonc.s),#PB_String_NoCase )	
						Break
				Endif
		Next
Next 
		

ClearClipboard()
SetClipboardText(code$)
debug code$

a l'inverse , il serai envisageable de faire un traducteur de code pb en Trucmuch zarbi

[JohnJohnsonSHERMAN]

En MLG Basic, s'il te plait Zorro !! Non mais

En plus il oublie les majuscules, et aussi...

Code : Tout sélectionner

openwindow(0,0,0,400,200,"mlg langage de déprogrammation", #pb_window_screencentered | #pb_window_systemmenu)
buttongadget(1,10,10,100,40,"headshot")

repeat
questcequilsepasse = waitwindowevent()
if questcequilsepasse = #pb_event_gadget and eventgadget() = 1
playsound(1)
if random(3,0) > 1 : end : endif
soundvolume(1,100)
endif
butelerepeatsi questcequilsepasse = #pb_event_closewindow ;<<<<<"butelerepeatsi"??? Nouvelle instruction de PB?
stopsound(1)
thisfuckingvar = troll/0
end

[Zorro]

correction de mon code
il fallait que je trie par ordre de taille
sinon ça pouvais poser probleme au moment de la correction

c'est reglé

le code maintenant donne ceci

Code : Tout sélectionner

lenomdelazik$ = "l'endroit ou que t'as foutu ta zik quoi..."
initsound()
loadsound(1,lenomdelazik$)

openwindow(0,0,0,400,200,"mlg langage de déprogrammation", #pb_window_screencentered | #pb_window_systemmenu)
buttongadget(1,10,10,100,40,"headshot")

repeat
		questcequilsepasse = waitwindowevent()
		if questcequilsepasse = #pb_event_gadget and eventgadget() = 1
				playsound(1)
				if random(3,0) > 1 : end : endif
				soundvolume(1,100)
		endif
until questcequilsepasse = #pb_event_closewindow
stopsound(1)
thisfuckingvar = troll/0
end 

[Kwai chang caine]

Et en plus ça marche....

I reste plus qu'au "canon à roulette" qu'à créer un embrouilleur SHERMAN de désembrouilleur ZORRO de code SHERMAN personalisateur de PB

Mal aux seins j'vous dit, mal aux seins quand certains vont voir le temps perdu ..

[Kwai chang caine]

Bon allez..puisqu'on est dans l'hémorragie temporelle chronophage...et que j'ai finit ma journée entiere (voir ma semaine) à faire du B4A
Mes mains tremblent, de ne pas avoir codé PB, vous m'avez fait envie avec vos conneries...alors j'ai eu aussi une idée (siiiii !!! ça m'arrive )

Pourquoi on ferait pas un langage pour la france profonde ???

Code : Tout sélectionner

Macro Opene_ouinedau : OpenWindow : EndMacro
Macro Mes_sage_requesteur : MessageRequester : EndMacro
Macro Ri_sailleze_ouinedau : ResizeWindow : EndMacro
Macro Ouaiyete_ouinedau_et_vante : WaitWindowEvent : EndMacro
Macro Et_vante : Event : EndMacro
Macro RuiPite : Repeat : EndMacro
Macro EuneTile : Until : EndMacro
Macro HaineDife : EndIf : EndMacro
Macro HaineDeu : End : EndMacro
Macro Diese_Perber_et_vante_ouinedau : #PB_Event_CloseWindow : EndMacro

If Opene_ouinedau(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
 
 Mes_sage_requesteur("Information", "Click to move the Window", 0)
 Ri_sailleze_ouinedau(0, 200, 200, #PB_Ignore, #PB_Ignore)   ; Move the window to the coordinate 200,200
 
 Mes_sage_requesteur("Information", "Click to resize the Window", 0)
 Ri_sailleze_ouinedau(0, #PB_Ignore, #PB_Ignore, 320, 200) ; Resize the window to 320,200
 
 RuiPite
 
  Et_vante = Ouaiyete_ouinedau_et_vante()
  
   If Et_vante = Diese_Perber_et_vante_ouinedau  ; If the user has pressed on the close button
    Quit = 1
   EndIf
  
  EuneTile Quit = 1
 
 HaineDife
 
 HaineDeu   ; All the opened 

Code d'origine

Code : Tout sélectionner

If OpenWindow(0, 100, 200, 195, 260, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

  MessageRequester("Information", "Click to move the Window", 0)
  ResizeWindow(0, 200, 200, #PB_Ignore, #PB_Ignore)   ; Move the window to the coordinate 200,200
  
  MessageRequester("Information", "Click to resize the Window", 0)
  ResizeWindow(0, #PB_Ignore, #PB_Ignore, 320, 200) ; Resize the window to 320,200
  
  ;
  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the Event
  ; isn't 0 and we just have to see what have happened...
  ;

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

End   ; All the opened 

[Zorro]

a partir du moment ou un code commence par des macro bien allignée comme celle-ci

Code : Tout sélectionner

Macro Opene_ouinedau : OpenWindow : EndMacro
Macro Mes_sage_requesteur : MessageRequester : EndMacro
Macro Ri_sailleze_ouinedau : ResizeWindow : EndMacro
Macro Ouaiyete_ouinedau_et_vante : WaitWindowEvent : EndMacro
Macro Et_vante : Event : EndMacro
Macro RuiPite : Repeat : EndMacro
Macro EuneTile : Until : EndMacro
Macro HaineDife : EndIf : EndMacro
Macro HaineDeu : End : EndMacro
Macro Diese_Perber_et_vante_ouinedau : #PB_Event_CloseWindow : EndMacro

mon desembrouilleurs fonctionne tres bien

si j'ai le courage et le temps, je ferai l'inverse , un embrouilleur de Pb (ou pas):)

[fweil]

Je ferai pas de commentaires ... mais ça pas un peu dégénéré en fin de compte ?

Donc je viens de faire un commentaire

[Kwai chang caine]

Ça les commentaires. .je sais faire.
Par contre "comment se taire" j'y travaille ....

[fweil]

L'esprit marin peut-être ?

Ben faut essayer, par exemple, de ne parler qu'au travers d'un programme ... généralement ça finit toujours par présenter des bugs. Vu qu'il y a forcément un OS dans le truc ... n'est-ce pas ...

Fortuitement, pour en revenir au présent post, j'ai commis ça pour faire un bundle entre un petit coup d'assembleur, un petit peu de ci et un petit peu de ça, mais c'est une expérience que j'ai fait à pas mal de reprises dans mon parcours du combattant (même en deux mots ça le fait aussi pour moi). Au début des années 80, je faisais des interfaces pour des développeurs peu versés sur les anglicismes avec une traduction permettant d'écrire le plus français possible en Fortran.

Avec les macros PB, ça permet de traiter un peu la chose, avec une certaine souplesse même si ça ne permet pas tout. Pour exercer l'appétit de connaissance de certains de mes élèves ça a un certain succès. Bon ça peut permettre de débuter dans l'envie de programmer. Après le reste ça se mesure à l'usure.

[JohnJohnsonSHERMAN]

J'adore le PioureBaysique Zpécial Péhizan , KCC.. Une exellente idée !! Gast!

Oh gast, c'tui zi a inventionné un machins ekchtraortinaire !! C'est'y qu'ya une charru' au moing?

[Kwai chang caine]

@DelaChenille
Merci mon gars
Mais attention, c'est "copiraillete"

Pour exercer l'appétit de connaissance de certains de mes élèves

Moi qui est toujours fini dernier..ou presque
Ca donne envie d'y retourner
Quand tu penses qui y'en a qui apprenent ça à l'école...ça m'aurait changer de Jeanne d'arc, et des "UNS" qui envahissent les autres

En attendant comme aurait pu dire "dodo la saumure"

Les MACROS, .....putain cette fois c'est évident, on voit bien ici leur utilité, nom d'une pipe en bois bandé.