Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Tutto e di + - CONCORSO: LE PEGGIO COSE CHE SI POSSONO FARE CON IL CODICE
Forum - Tutto e di + - CONCORSO: LE PEGGIO COSE CHE SI POSSONO FARE CON IL CODICE

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
HeDo (Founder Member)
Guru^2


Messaggi: 2765
Iscritto: 21/09/2007

Segnala al moderatore
Postato alle 11:04
Sabato, 01/10/2011
Tanto per cazzeggiare un po vorrei aprire questo concorso per raccogliere LE PEGGIO COSE che si possono fare scrivendo codice.
Apro come domanda, così i voti verranno conteggiati.

Postate in massa!

EDIT: Piero ha disgraziatamente impedito a chi apre una domanda di postare una risposta... mah... aprire un fake non sarebbe etico quindi rispondo editando il mio post...

1) palese violazione del principio eccezione/valore di ritorno.

Codice sorgente - presumibilmente Tutto e di +

  1. A pippo() {
  2.  
  3.     try {
  4.  
  5.         [codice che funziona una volta su 10]
  6.  
  7.     } catch {
  8.  
  9.         return null;
  10.     }
  11.  
  12. }




2) Variabili autoesplicative

Codice sorgente - presumibilmente Tutto e di +

  1. int a, b, c, d, e, f, aa, bb, cc, dd, ee, ff, aaa, bbb, ccc, ddd, eee, fff;


Ultima modifica effettuata da HeDo il 01/10/2011 alle 11:15


Ingegnere Informatico
https://ldlagency.it
PM Quote
Avatar
Loryea (Normal User)
Pro


Messaggi: 165
Iscritto: 02/09/2011

Segnala al moderatore
Postato alle 12:07
Sabato, 01/10/2011
Allora, ecco il mio programma:
Una SIMULAZIONE di un virus, scaricabile in formato -.zip e con codice seguente:
Codice sorgente - presumibilmente Delphi

  1. Program VIRUS;
  2. Uses Crt,Graph,Dos;
  3. var Scheda,Modo:Integer;
  4. Begin
  5. Scheda:=Detect;
  6. Initgraph(Scheda,Modo,'C:\FPC');
  7. Rectangle(0,0,1500,900);
  8. Outtext('Ciao, ');
  9. Outtext('Bello questo programma vero? ');
  10. delay(2000);
  11. Sound(340);
  12. delay(1000);
  13. Sound(340);
  14. delay(500);
  15. Sound(340);
  16. delay(500);
  17. Sound(340);
  18. delay(250);
  19. Sound(340);
  20. delay(250);
  21. Sound(340);
  22. delay(250);
  23. Sound(340);
  24. delay(250);
  25. Sound(340);
  26. delay(250);
  27. Sound(340);
  28. delay(2000);
  29. Nosound;
  30. Clrscr;
  31. Outtext('VIRUS... ');
  32. Delay(1000);
  33. Clrscr;
  34. Outtext('VIRUS... ');
  35. Delay(1000);
  36. Clrscr;
  37. Outtext('VIRUS... ');
  38. Delay(1000);
  39. Clrscr;
  40. Outtext('VIRUS... ');
  41. Delay(1000);
  42. Clrscr;
  43. Outtext('VIRUS... ');
  44. SetFillStyle(1,12);
  45. Floodfill(4,4,12);
  46. Outtext('Distruzione HARDWARE... ');
  47. Delay(1000);
  48. Outtext('Distruzione WINDOWS... ');
  49. Delay(1000);
  50. Outtext('Distruzione BROWSER... ');
  51. Delay(2000);
  52. Outtext('Distruzione Completata... ');
  53. Delay(5000);
  54. Exec('shutdown','/s');
  55. readln;
  56. end.





Loryea ha allegato un file: Virus finto.zip (48911 bytes)
Clicca qui per scaricare il file


Il computer non è una macchina intelligente che aiuta le persone stupide, anzi, è una macchina stupida che funziona solo nelle mani delle persone intelligenti

Umberto Eco
PM Quote
Avatar
walker93 (Member)
Expert


Messaggi: 460
Iscritto: 31/01/2010

Segnala al moderatore
Postato alle 12:25
Sabato, 01/10/2011
io inserisco il  programma back(capirete perchè)...

Codice sorgente - presumibilmente VB.NET

  1. End Function
  2.         End If
  3.             Return True
  4.             Next
  5.                 Console.WriteLine("back")
  6.             For i = count To 20
  7.         Else
  8.             Return False
  9.             Loop Until count > 10
  10.                 count += 1
  11.             Do
  12.         If count = 0 Then
  13.     Public Function back(ByVal count As Integer) As Boolean


:rotfl::rotfl:


Il software è come il sesso, è meglio quando è libero.
Linus Torvalds, Conferenza della Free Software Foundation, 1996 (attribuito)

Non provare mai a spiegare il computer a un profano. È più facile spiegare il sesso a una vergine.
Robert Anson Heinle
PM Quote
Avatar
TheKaneB (Member)
Guru^2


Messaggi: 1787
Iscritto: 26/06/2009

Segnala al moderatore
Postato alle 14:46
Sabato, 01/10/2011
Codice sorgente - presumibilmente C++

  1. #include <stdio.h>
  2. int a(int x)
  3. {
  4.   return x*x + x - 12;
  5. }
  6.  
  7. int dummy()
  8. {
  9.   return 3;
  10. }
  11.  
  12. int main()
  13. {
  14.   int* buf = (int *) a;
  15.   int len = (int *)dummy - (int *)a;
  16.   for (; len>0; len--) printf("%x ",*buf++);
  17.   return a(dummy());
  18. }



L'ho caricato anche qui http://codepad.org/yGLGyKFT

:rofl:
Bambini non fatelo a casa... :pat: :rotfl:

PS: qualcuno sa dirmi cosa sono quei numeri che da in output? ^_^

Ultima modifica effettuata da TheKaneB il 01/10/2011 alle 15:35


Software Failure: Guru Meditation
Forum su Informatica, Elettronica, Robotica e Tecnologia: http://www.nonsoloamiga.com
PM Quote
Avatar
pierotofy (Admin)
Guru^2


Messaggi: 6166
Iscritto: 04/12/2003

Segnala al moderatore
Postato alle 17:57
Sabato, 01/10/2011
Dump del segmento text tra a(int x) e dummy()? :-|

Ultima modifica effettuata da pierotofy il 01/10/2011 alle 20:50


Seguimi su Twitter: http://www.twitter.com/pierotofy

Fai quello che ti piace, e fallo bene.
PM Quote
Avatar
Ultimo (Member)
Expert


Messaggi: 555
Iscritto: 22/05/2010

Segnala al moderatore
Postato alle 19:02
Sabato, 01/10/2011

Posto il mostro sort, un ordinatore di 6 numeri perfettamente funzionante,
il quale non fa uso di cicli. :d:_doubt:

Codice sorgente - presumibilmente VB.NET

  1. '-----------------------------------------------------------------
  2.  
  3.                 ' Mette in ordine i numeri dal più piccolo al più grande
  4.  
  5.                 Dim TextboxE1r As Integer
  6.                 Dim TextboxE2r As Integer
  7.                 Dim TextboxE3r As Integer
  8.                 Dim TextboxE4r As Integer
  9.                 Dim TextboxE5r As Integer
  10.                 Dim TextboxE6r As Integer
  11.                 'Dim Crono As New Stopwatch
  12.  
  13.                 'Crono.Reset()
  14.                 'Crono.Start()
  15.  
  16.                 If E1 < E2 And E1 < E3 And E1 < E4 And E1 < E5 And E1 < E6 Then
  17.                     TextboxE1r = E1
  18.                 End If
  19.  
  20.                 If E2 < E1 And E2 < E3 And E2 < E4 And E2 < E5 And E2 < E6 Then
  21.                     TextboxE1r = E2
  22.                 End If
  23.  
  24.                 If E3 < E2 And E3 < E1 And E3 < E4 And E3 < E5 And E3 < E6 Then
  25.                     TextboxE1r = E3
  26.                 End If
  27.  
  28.                 If E4 < E2 And E4 < E3 And E4 < E1 And E4 < E5 And E4 < E6 Then
  29.                     TextboxE1r = E4
  30.                 End If
  31.  
  32.                 If E5 < E2 And E5 < E3 And E5 < E4 And E5 < E1 And E5 < E6 Then
  33.                     TextboxE1r = E5
  34.                 End If
  35.  
  36.                 If E6 < E2 And E6 < E3 And E6 < E4 And E6 < E5 And E6 < E1 Then
  37.                     TextboxE1r = E6
  38.                 End If
  39.                 '------------------------------------------------------------------
  40.                 If E1 > E2 And E1 < E3 And E1 < E4 And E1 < E5 And E1 < E6 Then
  41.                     TextboxE2r = E1
  42.                 End If
  43.                 If E1 > E3 And E1 < E2 And E1 < E4 And E1 < E5 And E1 < E6 Then
  44.                     TextboxE2r = E1
  45.                 End If
  46.                 If E1 > E4 And E1 < E2 And E1 < E3 And E1 < E5 And E1 < E6 Then
  47.                     TextboxE2r = E1
  48.                 End If
  49.                 If E1 > E5 And E1 < E2 And E1 < E3 And E1 < E4 And E1 < E6 Then
  50.                     TextboxE2r = E1
  51.                 End If
  52.                 If E1 > E6 And E1 < E2 And E1 < E3 And E1 < E4 And E1 < E5 Then
  53.                     TextboxE2r = E1
  54.                 End If
  55.                 'finito
  56.                 '------------------------------------------------------------------
  57.                 If E2 > E1 And E2 < E3 And E2 < E4 And E2 < E5 And E2 < E6 Then
  58.                     TextboxE2r = E2
  59.                 End If
  60.                 If E2 > E3 And E2 < E1 And E2 < E4 And E2 < E5 And E2 < E6 Then
  61.                     TextboxE2r = E2
  62.                 End If
  63.                 If E2 > E4 And E2 < E1 And E2 < E3 And E2 < E5 And E2 < E6 Then
  64.                     TextboxE2r = E2
  65.                 End If
  66.                 If E2 > E5 And E2 < E1 And E2 < E3 And E2 < E4 And E2 < E6 Then
  67.                     TextboxE2r = E2
  68.                 End If
  69.                 If E2 > E6 And E2 < E1 And E2 < E3 And E2 < E4 And E2 < E5 Then
  70.                     TextboxE2r = E2
  71.                 End If
  72.                 'finito
  73.                 '--------------------------------------------------------------------
  74.                 If E3 > E2 And E3 < E1 And E3 < E4 And E3 < E5 And E3 < E6 Then
  75.                     TextboxE2r = E3
  76.                 End If
  77.                 If E3 > E1 And E3 < E2 And E3 < E4 And E3 < E5 And E3 < E6 Then
  78.                     TextboxE2r = E3
  79.                 End If
  80.                 If E3 > E4 And E3 < E1 And E3 < E2 And E3 < E5 And E3 < E6 Then
  81.                     TextboxE2r = E3
  82.                 End If
  83.                 If E3 > E5 And E3 < E1 And E3 < E2 And E3 < E4 And E3 < E6 Then
  84.                     TextboxE2r = E3
  85.                 End If
  86.                 If E3 > E6 And E3 < E1 And E3 < E2 And E3 < E4 And E3 < E5 Then
  87.                     TextboxE2r = E3
  88.                 End If
  89.                 'finito
  90.                 '--------------------------------------------------------------------
  91.                 If E4 > E2 And E4 < E3 And E4 < E1 And E4 < E5 And E4 < E6 Then
  92.                     TextboxE2r = E4
  93.                 End If
  94.                 If E4 > E1 And E4 < E2 And E4 < E3 And E4 < E5 And E4 < E6 Then
  95.                     TextboxE2r = E4
  96.                 End If
  97.                 If E4 > E3 And E4 < E1 And E4 < E2 And E4 < E5 And E4 < E6 Then
  98.                     TextboxE2r = E4
  99.                 End If
  100.                 If E4 > E5 And E4 < E1 And E4 < E2 And E4 < E3 And E4 < E6 Then
  101.                     TextboxE2r = E4
  102.                 End If
  103.                 If E4 > E6 And E4 < E1 And E4 < E2 And E4 < E3 And E4 < E5 Then
  104.                     TextboxE2r = E4
  105.                 End If
  106.                 'finito
  107.                 '----------------------------------------------------------------------
  108.                 If E5 > E2 And E5 < E3 And E5 < E4 And E5 < E1 And E5 < E6 Then
  109.                     TextboxE2r = E5
  110.                 End If
  111.                 If E5 > E1 And E5 < E2 And E5 < E3 And E5 < E4 And E5 < E6 Then
  112.                     TextboxE2r = E5
  113.                 End If
  114.                 If E5 > E3 And E5 < E1 And E5 < E2 And E5 < E4 And E5 < E6 Then
  115.                     TextboxE2r = E5
  116.                 End If
  117.                 If E5 > E4 And E5 < E1 And E5 < E2 And E5 < E3 And E5 < E6 Then
  118.                     TextboxE2r = E5
  119.                 End If
  120.                 If E5 > E6 And E5 < E1 And E5 < E2 And E5 < E3 And E5 < E4 Then
  121.                     TextboxE2r = E5
  122.                 End If
  123.                 'finito
  124.                 '-----------------------------------------------------------------
  125.                 If E6 > E2 And E6 < E3 And E6 < E4 And E6 < E5 And E6 < E1 Then
  126.                     TextboxE2r = E6
  127.                 End If
  128.                 If E6 > E1 And E6 < E2 And E6 < E3 And E6 < E4 And E6 < E5 Then
  129.                     TextboxE2r = E6
  130.                 End If
  131.                 If E6 > E3 And E6 < E1 And E6 < E2 And E6 < E4 And E6 < E5 Then
  132.                     TextboxE2r = E6
  133.                 End If
  134.                 If E6 > E4 And E6 < E1 And E6 < E2 And E6 < E3 And E6 < E5 Then
  135.                     TextboxE2r = E6
  136.                 End If
  137.                 If E6 > E5 And E6 < E1 And E6 < E2 And E6 < E3 And E6 < E4 Then
  138.                     TextboxE2r = E6
  139.                 End If
  140.                 'finito
  141.                 '------------------------------------------------------------------
  142.  
  143.                 If E1 > E2 And E1 > E3 And E1 < E4 And E1 < E5 And E1 < E6 Then
  144.                     TextboxE3r = E1
  145.                 End If
  146.                 If E1 > E2 And E1 > E4 And E1 < E3 And E1 < E5 And E1 < E6 Then
  147.                     TextboxE3r = E1
  148.                 End If
  149.                 If E1 > E2 And E1 > E5 And E1 < E3 And E1 < E4 And E1 < E6 Then
  150.                     TextboxE3r = E1
  151.                 End If
  152.                 If E1 > E2 And E1 > E6 And E1 < E3 And E1 < E4 And E1 < E5 Then
  153.                     TextboxE3r = E1
  154.                 End If
  155.                 If E1 > E3 And E1 > E4 And E1 < E2 And E1 < E5 And E1 < E6 Then
  156.                     TextboxE3r = E1
  157.                 End If
  158.                 If E1 > E3 And E1 > E5 And E1 < E2 And E1 < E4 And E1 < E6 Then
  159.                     TextboxE3r = E1
  160.                 End If
  161.                 If E1 > E3 And E1 > E6 And E1 < E2 And E1 < E4 And E1 < E5 Then
  162.                     TextboxE3r = E1
  163.                 End If
  164.                 If E1 > E4 And E1 > E5 And E1 < E2 And E1 < E3 And E1 < E6 Then
  165.                     TextboxE3r = E1
  166.                 End If
  167.                 If E1 > E4 And E1 > E6 And E1 < E2 And E1 < E3 And E1 < E5 Then
  168.                     TextboxE3r = E1
  169.                 End If
  170.                 If E1 > E5 And E1 > E6 And E1 < E2 And E1 < E3 And E1 < E4 Then
  171.                     TextboxE3r = E1
  172.                 End If
  173.                 '-------------------------------------------------------------------
  174.  
  175.                 If E1 > E5 And E1 > E2 And E1 < E6 And E1 < E3 And E1 < E4 Then
  176.                     TextboxE3r = E1
  177.                 End If
  178.                 If E1 > E5 And E1 > E3 And E1 < E6 And E1 < E2 And E1 < E4 Then
  179.                     TextboxE3r = E1
  180.                 End If
  181.                 If E1 > E5 And E1 > E4 And E1 < E6 And E1 < E2 And E1 < E3 Then
  182.                     TextboxE3r = E1
  183.                 End If
  184.                 If E1 > E4 And E1 > E2 And E1 < E6 And E1 < E3 And E1 < E5 Then
  185.                     TextboxE3r = E1
  186.                 End If
  187.                 If E1 > E4 And E1 > E3 And E1 < E6 And E1 < E2 And E1 < E5 Then
  188.                     TextboxE3r = E1
  189.                 End If
  190.                 If E1 > E3 And E1 > E2 And E1 < E6 And E1 < E4 And E1 < E5 Then
  191.                     TextboxE3r = E1
  192.                 End If
  193.                 '-------------------------------------------------------------------
  194.  
  195.                 If E2 > E1 And E2 > E3 And E2 < E4 And E2 < E5 And E2 < E6 Then
  196.                     TextboxE3r = E2
  197.                 End If
  198.                 If E2 > E1 And E2 > E4 And E2 < E3 And E2 < E5 And E2 < E6 Then
  199.                     TextboxE3r = E2
  200.                 End If
  201.                 If E2 > E1 And E2 > E5 And E2 < E3 And E2 < E4 And E2 < E6 Then
  202.                     TextboxE3r = E2
  203.                 End If
  204.                 If E2 > E1 And E2 > E6 And E2 < E3 And E2 < E4 And E2 < E5 Then
  205.                     TextboxE3r = E2
  206.                 End If
  207.                 If E2 > E3 And E2 > E4 And E2 < E1 And E2 < E5 And E2 < E6 Then
  208.                     TextboxE3r = E2
  209.                 End If
  210.                 If E2 > E3 And E2 > E5 And E2 < E1 And E2 < E4 And E2 < E6 Then
  211.                     TextboxE3r = E2
  212.                 End If
  213.                 If E2 > E3 And E2 > E6 And E2 < E1 And E2 < E4 And E2 < E5 Then
  214.                     TextboxE3r = E2
  215.                 End If
  216.                 If E2 > E4 And E2 > E5 And E2 < E1 And E2 < E3 And E2 < E6 Then
  217.                     TextboxE3r = E2
  218.                 End If
  219.                 If E2 > E4 And E2 > E6 And E2 < E1 And E2 < E3 And E2 < E5 Then
  220.                     TextboxE3r = E2
  221.                 End If
  222.                 If E2 > E5 And E2 > E6 And E2 < E1 And E2 < E3 And E2 < E4 Then
  223.                     TextboxE3r = E2
  224.                 End If
  225.                 '-------------------------------------------------------------------
  226.  
  227.                 If E2 > E5 And E2 > E6 And E2 < E1 And E2 < E3 And E2 < E4 Then
  228.                     TextboxE3r = E2
  229.                 End If
  230.                 If E2 > E5 And E2 > E3 And E2 < E1 And E2 < E6 And E2 < E4 Then
  231.                     TextboxE3r = E2
  232.                 End If
  233.                 If E2 > E5 And E2 > E4 And E2 < E1 And E2 < E6 And E2 < E3 Then
  234.                     TextboxE3r = E2
  235.                 End If
  236.                 If E2 > E4 And E2 > E6 And E2 < E1 And E2 < E3 And E2 < E5 Then
  237.                     TextboxE3r = E2
  238.                 End If
  239.                 If E2 > E4 And E2 > E3 And E2 < E1 And E2 < E6 And E2 < E5 Then
  240.                     TextboxE3r = E2
  241.                 End If
  242.                 If E2 > E3 And E2 > E6 And E2 < E1 And E2 < E4 And E2 < E5 Then
  243.                     TextboxE3r = E2
  244.                 End If
  245.                 '-------------------------------------------------------------------
  246.  
  247.                 If E3 > E2 And E3 > E1 And E3 < E4 And E3 < E5 And E3 < E6 Then
  248.                     TextboxE3r = E3
  249.                 End If
  250.                 If E3 > E2 And E3 > E4 And E3 < E1 And E3 < E5 And E3 < E6 Then
  251.                     TextboxE3r = E3
  252.                 End If
  253.                 If E3 > E2 And E3 > E5 And E3 < E1 And E3 < E4 And E3 < E6 Then
  254.                     TextboxE3r = E3
  255.                 End If
  256.                 If E3 > E2 And E3 > E6 And E3 < E1 And E3 < E4 And E3 < E5 Then
  257.                     TextboxE3r = E3
  258.                 End If
  259.                 If E3 > E1 And E3 > E4 And E3 < E2 And E3 < E5 And E3 < E6 Then
  260.                     TextboxE3r = E3
  261.                 End If
  262.                 If E3 > E1 And E3 > E5 And E3 < E2 And E3 < E4 And E3 < E6 Then
  263.                     TextboxE3r = E3
  264.                 End If
  265.                 If E3 > E1 And E3 > E6 And E3 < E2 And E3 < E4 And E3 < E5 Then
  266.                     TextboxE3r = E3
  267.                 End If
  268.                 If E3 > E4 And E3 > E5 And E3 < E2 And E3 < E3 And E3 < E6 Then
  269.                     TextboxE3r = E3
  270.                 End If
  271.                 If E3 > E4 And E3 > E6 And E3 < E2 And E3 < E3 And E3 < E5 Then
  272.                     TextboxE3r = E3
  273.                 End If
  274.                 If E3 > E5 And E3 > E6 And E3 < E2 And E3 < E1 And E3 < E4 Then
  275.                     TextboxE3r = E3
  276.                 End If
  277.                 If E3 > E5 And E3 > E2 And E3 < E1 And E3 < E6 And E3 < E4 Then
  278.                     TextboxE3r = E3
  279.                 End If
  280.                 If E3 > E5 And E3 > E6 And E3 < E1 And E3 < E2 And E3 < E4 Then
  281.                     TextboxE3r = E3
  282.                 End If
  283.                 If E3 > E5 And E3 > E4 And E3 < E1 And E3 < E2 And E3 < E6 Then
  284.                     TextboxE3r = E3
  285.                 End If
  286.                 If E3 > E4 And E3 > E2 And E3 < E1 And E3 < E6 And E3 < E5 Then
  287.                     TextboxE3r = E3
  288.                 End If
  289.                 If E3 > E4 And E3 > E6 And E3 < E1 And E3 < E2 And E3 < E5 Then
  290.                     TextboxE3r = E3
  291.                 End If
  292.                 If E3 > E6 And E3 > E2 And E3 < E1 And E3 < E4 And E3 < E5 Then
  293.                     TextboxE3r = E3
  294.                 End If
  295.                 '------------------------------------------------------------------
  296.  
  297.                 If E4 > E2 And E4 > E3 And E4 < E1 And E4 < E5 And E4 < E6 Then
  298.                     TextboxE3r = E4
  299.                 End If
  300.                 If E4 > E2 And E4 > E1 And E4 < E3 And E4 < E5 And E4 < E6 Then
  301.                     TextboxE3r = E4
  302.                 End If
  303.                 If E4 > E2 And E4 > E5 And E4 < E3 And E4 < E1 And E4 < E6 Then
  304.                     TextboxE3r = E4
  305.                 End If
  306.                 If E4 > E2 And E4 > E6 And E4 < E3 And E4 < E1 And E4 < E5 Then
  307.                     TextboxE3r = E4
  308.                 End If
  309.                 If E4 > E3 And E4 > E1 And E4 < E2 And E4 < E5 And E4 < E6 Then
  310.                     TextboxE3r = E4
  311.                 End If
  312.                 If E4 > E3 And E4 > E5 And E4 < E2 And E4 < E1 And E4 < E6 Then
  313.                     TextboxE3r = E4
  314.                 End If
  315.                 If E4 > E3 And E4 > E6 And E4 < E2 And E4 < E1 And E4 < E5 Then
  316.                     TextboxE3r = E4
  317.                 End If
  318.                 If E4 > E1 And E4 > E5 And E4 < E2 And E4 < E3 And E4 < E6 Then
  319.                     TextboxE3r = E4
  320.                 End If
  321.                 If E4 > E1 And E4 > E6 And E4 < E2 And E4 < E3 And E4 < E5 Then
  322.                     TextboxE3r = E4
  323.                 End If
  324.                 If E4 > E5 And E4 > E6 And E4 < E2 And E4 < E3 And E4 < E1 Then
  325.                     TextboxE3r = E4
  326.                 End If
  327.  
  328.                 If E4 > E5 And E4 > E2 And E4 < E1 And E4 < E3 And E4 < E6 Then
  329.                     TextboxE3r = E4
  330.                 End If
  331.                 If E4 > E5 And E4 > E3 And E4 < E1 And E4 < E2 And E4 < E6 Then
  332.                     TextboxE3r = E4
  333.                 End If
  334.                 If E4 > E5 And E4 > E6 And E4 < E1 And E4 < E2 And E4 < E3 Then
  335.                     TextboxE3r = E4
  336.                 End If
  337.                 If E4 > E6 And E4 > E2 And E4 < E1 And E4 < E3 And E4 < E5 Then
  338.                     TextboxE3r = E4
  339.                 End If
  340.                 If E4 > E6 And E4 > E3 And E4 < E1 And E4 < E2 And E4 < E5 Then
  341.                     TextboxE3r = E4
  342.                 End If
  343.                 If E4 > E3 And E4 > E2 And E4 < E1 And E4 < E6 And E4 < E5 Then
  344.                     TextboxE3r = E4
  345.                 End If
  346.                 '-------------------------------------------------------------------
  347.  
  348.                 If E5 > E2 And E5 > E3 And E5 < E4 And E5 < E1 And E5 < E6 Then
  349.                     TextboxE3r = E5
  350.                 End If
  351.                 If E5 > E2 And E5 > E4 And E5 < E3 And E5 < E1 And E5 < E6 Then
  352.                     TextboxE3r = E5
  353.                 End If
  354.                 If E5 > E2 And E5 > E1 And E5 < E3 And E5 < E4 And E5 < E6 Then
  355.                     TextboxE3r = E5
  356.                 End If
  357.                 If E5 > E2 And E5 > E6 And E5 < E3 And E5 < E4 And E5 < E1 Then
  358.                     TextboxE3r = E5
  359.                 End If
  360.                 If E5 > E3 And E5 > E4 And E5 < E2 And E5 < E1 And E5 < E6 Then
  361.                     TextboxE3r = E5
  362.                 End If
  363.                 If E5 > E3 And E5 > E1 And E5 < E2 And E5 < E4 And E5 < E6 Then
  364.                     TextboxE3r = E5
  365.                 End If
  366.                 If E5 > E3 And E5 > E6 And E5 < E2 And E5 < E4 And E5 < E1 Then
  367.                     TextboxE3r = E5
  368.                 End If
  369.                 If E5 > E4 And E5 > E1 And E5 < E2 And E5 < E3 And E5 < E6 Then
  370.                     TextboxE3r = E5
  371.                 End If
  372.                 If E5 > E4 And E5 > E6 And E5 < E2 And E5 < E3 And E5 < E1 Then
  373.                     TextboxE3r = E5
  374.                 End If
  375.                 If E5 > E1 And E5 > E6 And E5 < E2 And E5 < E3 And E5 < E4 Then
  376.                     TextboxE3r = E5
  377.                 End If
  378.  
  379.                 If E5 > E6 And E5 > E2 And E5 < E1 And E5 < E3 And E5 < E4 Then
  380.                     TextboxE3r = E5
  381.                 End If
  382.                 If E5 > E6 And E6 > E3 And E5 < E1 And E5 < E2 And E5 < E4 Then
  383.                     TextboxE3r = E5
  384.                 End If
  385.                 If E5 > E6 And E5 > E4 And E5 < E1 And E5 < E2 And E5 < E3 Then
  386.                     TextboxE3r = E5
  387.                 End If
  388.                 If E5 > E4 And E5 > E2 And E5 < E1 And E5 < E3 And E5 < E6 Then
  389.                     TextboxE3r = E5
  390.                 End If
  391.                 If E5 > E4 And E5 > E3 And E5 < E1 And E5 < E2 And E5 < E6 Then
  392.                     TextboxE3r = E5
  393.                 End If
  394.                 If E5 > E3 And E5 > E2 And E5 < E1 And E5 < E4 And E5 < E6 Then
  395.                     TextboxE3r = E5
  396.                 End If
  397.                 '------------------------------------------------------------------
  398.  
  399.                 If E6 > E2 And E6 > E3 And E6 < E4 And E6 < E5 And E6 < E1 Then
  400.                     TextboxE3r = E6
  401.                 End If
  402.                 If E6 > E2 And E6 > E4 And E6 < E3 And E6 < E5 And E6 < E1 Then
  403.                     TextboxE3r = E6
  404.                 End If
  405.                 If E6 > E2 And E6 > E5 And E6 < E3 And E6 < E4 And E6 < E1 Then
  406.                     TextboxE3r = E6
  407.                 End If
  408.                 If E6 > E2 And E6 > E1 And E6 < E3 And E6 < E4 And E6 < E5 Then
  409.                     TextboxE3r = E6
  410.                 End If
  411.                 If E6 > E3 And E6 > E4 And E6 < E2 And E6 < E5 And E6 < E1 Then
  412.                     TextboxE3r = E6
  413.                 End If
  414.                 If E6 > E3 And E6 > E5 And E6 < E2 And E6 < E4 And E6 < E1 Then
  415.                     TextboxE3r = E6
  416.                 End If
  417.                 If E6 > E3 And E6 > E1 And E6 < E2 And E6 < E4 And E6 < E5 Then
  418.                     TextboxE3r = E6
  419.                 End If
  420.  
  421.                 If E6 > E4 And E6 > E5 And E6 < E2 And E6 < E3 And E6 < E1 Then
  422.                     TextboxE3r = E6
  423.                 End If
  424.                 If E6 > E4 And E6 > E1 And E6 < E2 And E6 < E3 And E6 < E5 Then
  425.                     TextboxE3r = E6
  426.                 End If
  427.  
  428.                 If E6 > E5 And E6 > E1 And E6 < E2 And E6 < E3 And E6 < E4 Then
  429.                     TextboxE3r = E6
  430.                 End If
  431.  
  432.                 If E6 > E5 And E6 > E2 And E6 < E1 And E6 < E3 And E6 < E4 Then
  433.                     TextboxE3r = E6
  434.                 End If
  435.                 If E6 > E5 And E6 > E3 And E6 < E1 And E6 < E2 And E6 < E4 Then
  436.                     TextboxE3r = E6
  437.                 End If
  438.                 If E6 > E5 And E6 > E4 And E6 < E1 And E6 < E2 And E6 < E3 Then
  439.                     TextboxE3r = E6
  440.                 End If
  441.                 If E6 > E4 And E6 > E2 And E6 < E1 And E6 < E3 And E6 < E5 Then
  442.                     TextboxE3r = E6
  443.                 End If
  444.                 If E6 > E4 And E6 > E3 And E6 < E1 And E6 < E2 And E6 < E5 Then
  445.                     TextboxE3r = E6
  446.                 End If
  447.                 If E6 > E3 And E6 > E2 And E6 < E1 And E6 < E4 And E6 < E5 Then
  448.                     TextboxE3r = E6
  449.                 End If
  450.                 '---------------------------------------------------------------------------------
  451.  
  452.  
  453.                 If E1 > E2 And E1 > E3 And E1 > E4 And E1 < E5 And E1 < E6 Then
  454.                     TextboxE4r = E1
  455.                 End If
  456.                 If E1 > E2 And E1 > E3 And E1 > E5 And E1 < E4 And E1 < E6 Then
  457.                     TextboxE4r = E1
  458.                 End If
  459.                 If E1 > E2 And E1 > E3 And E1 > E6 And E1 < E4 And E1 < E5 Then
  460.                     TextboxE4r = E1
  461.                 End If
  462.                 If E1 > E2 And E1 > E4 And E1 > E5 And E1 < E3 And E1 < E6 Then
  463.                     TextboxE4r = E1
  464.                 End If
  465.                 If E1 > E2 And E1 > E4 And E1 > E6 And E1 < E3 And E1 < E5 Then
  466.                     TextboxE4r = E1
  467.                 End If
  468.                 If E1 > E2 And E1 > E5 And E1 > E6 And E1 < E3 And E1 < E4 Then
  469.                     TextboxE4r = E1
  470.                 End If
  471.                 If E1 > E3 And E1 > E4 And E1 > E5 And E1 < E2 And E1 < E6 Then
  472.                     TextboxE4r = E1
  473.                 End If
  474.                 If E1 > E3 And E1 > E4 And E1 > E6 And E1 < E2 And E1 < E5 Then
  475.                     TextboxE4r = E1
  476.                 End If
  477.                 If E1 > E3 And E1 > E5 And E1 > E6 And E1 < E2 And E1 < E4 Then
  478.                     TextboxE4r = E1
  479.                 End If
  480.                 If E1 > E4 And E1 > E5 And E1 > E6 And E1 < E2 And E1 < E3 Then
  481.                     TextboxE4r = E1
  482.                 End If
  483.                 '---------------------------------------------------------------------
  484.  
  485.                 If E1 > E4 And E1 > E5 And E1 > E2 And E1 < E6 And E1 < E3 Then
  486.                     TextboxE4r = E1
  487.                 End If
  488.                 If E1 > E4 And E1 > E5 And E1 > E3 And E1 < E6 And E1 < E2 Then
  489.                     TextboxE4r = E1
  490.                 End If
  491.                 If E1 > E2 And E1 > E4 And E1 > E3 And E1 < E6 And E1 < E5 Then
  492.                     TextboxE4r = E1
  493.                 End If
  494.                 If E1 > E3 And E1 > E5 And E1 > E2 And E1 < E6 And E1 < E4 Then
  495.                     TextboxE4r = E1
  496.                 End If
  497.                 If E1 > E3 And E1 > E5 And E1 > E4 And E1 < E6 And E1 < E2 Then
  498.                     TextboxE4r = E1
  499.                 End If
  500.                 If E1 > E3 And E1 > E4 And E1 > E2 And E1 < E6 And E1 < E5 Then
  501.                     TextboxE4r = E1
  502.                 End If
  503.                 If E1 > E2 And E1 > E5 And E1 > E3 And E1 < E6 And E1 < E4 Then
  504.                     TextboxE4r = E1
  505.                 End If
  506.                 If E1 > E2 And E1 > E5 And E1 > E4 And E1 < E6 And E1 < E3 Then
  507.                     TextboxE4r = E1
  508.                 End If
  509.                 '-------------------------------------------------------------------
  510.  
  511.                 If E2 > E1 And E2 > E3 And E2 > E4 And E2 < E5 And E2 < E6 Then
  512.                     TextboxE4r = E2
  513.                 End If
  514.                 If E2 > E1 And E2 > E3 And E2 > E5 And E2 < E4 And E2 < E6 Then
  515.                     TextboxE4r = E2
  516.                 End If
  517.                 If E2 > E1 And E2 > E3 And E2 > E6 And E2 < E4 And E2 < E5 Then
  518.                     TextboxE4r = E2
  519.                 End If
  520.                 If E2 > E1 And E2 > E4 And E2 > E5 And E2 < E3 And E2 < E6 Then
  521.                     TextboxE4r = E2
  522.                 End If
  523.                 If E2 > E1 And E2 > E4 And E2 > E6 And E2 < E3 And E2 < E5 Then
  524.                     TextboxE4r = E2
  525.                 End If
  526.                 If E2 > E1 And E2 > E5 And E2 > E6 And E2 < E3 And E2 < E4 Then
  527.                     TextboxE4r = E2
  528.                 End If
  529.                 If E2 > E3 And E2 > E4 And E2 > E5 And E2 < E1 And E2 < E6 Then
  530.                     TextboxE4r = E2
  531.                 End If
  532.                 If E2 > E3 And E2 > E4 And E2 > E6 And E2 < E1 And E2 < E5 Then
  533.                     TextboxE4r = E2
  534.                 End If
  535.                 If E2 > E3 And E2 > E5 And E2 > E6 And E2 < E1 And E2 < E4 Then
  536.                     TextboxE4r = E2
  537.                 End If
  538.                 If E2 > E4 And E2 > E5 And E2 > E6 And E2 < E1 And E2 < E3 Then
  539.                     TextboxE4r = E2
  540.                 End If
  541.                 '--------------------------------------------------------------------
  542.  
  543.                 If E2 > E4 And E2 > E5 And E2 > E6 And E2 < E1 And E2 < E3 Then
  544.                     TextboxE4r = E2
  545.                 End If
  546.                 If E2 > E4 And E2 > E5 And E2 > E3 And E2 < E1 And E2 < E6 Then
  547.                     TextboxE4r = E2
  548.                 End If
  549.                 If E2 > E6 And E2 > E4 And E2 > E3 And E2 < E1 And E2 < E5 Then
  550.                     TextboxE4r = E2
  551.                 End If
  552.                 If E2 > E3 And E2 > E5 And E2 > E6 And E2 < E1 And E2 < E4 Then
  553.                     TextboxE4r = E2
  554.                 End If
  555.                 If E2 > E3 And E2 > E5 And E2 > E4 And E2 < E1 And E2 < E6 Then
  556.                     TextboxE4r = E2
  557.                 End If
  558.                 If E2 > E3 And E2 > E4 And E2 > E6 And E2 < E1 And E2 < E5 Then
  559.                     TextboxE4r = E2
  560.                 End If
  561.                 If E2 > E6 And E2 > E5 And E2 > E3 And E2 < E1 And E2 < E4 Then
  562.                     TextboxE4r = E2
  563.                 End If
  564.                 If E2 > E6 And E2 > E5 And E2 > E4 And E2 < E1 And E2 < E3 Then
  565.                     TextboxE4r = E2
  566.                 End If
  567.                 '-------------------------------------------------------------------
  568.  
  569.                 If E3 > E1 And E3 > E2 And E3 > E4 And E3 < E5 And E3 < E6 Then
  570.                     TextboxE4r = E3
  571.                 End If
  572.                 If E3 > E2 And E3 > E1 And E3 > E5 And E3 < E4 And E3 < E6 Then
  573.                     TextboxE4r = E3
  574.                 End If
  575.                 If E3 > E2 And E3 > E2 And E3 > E6 And E3 < E4 And E3 < E5 Then
  576.                     TextboxE4r = E3
  577.                 End If
  578.                 If E3 > E2 And E3 > E4 And E3 > E5 And E3 < E1 And E3 < E6 Then
  579.                     TextboxE4r = E3
  580.                 End If
  581.                 If E3 > E2 And E3 > E4 And E3 > E6 And E3 < E1 And E3 < E5 Then
  582.                     TextboxE4r = E3
  583.                 End If
  584.                 If E3 > E2 And E3 > E5 And E3 > E6 And E3 < E1 And E3 < E4 Then
  585.                     TextboxE4r = E3
  586.                 End If
  587.                 If E3 > E1 And E3 > E4 And E3 > E5 And E3 < E2 And E3 < E6 Then
  588.                     TextboxE4r = E3
  589.                 End If
  590.                 If E3 > E1 And E3 > E4 And E3 > E6 And E3 < E2 And E3 < E5 Then
  591.                     TextboxE4r = E3
  592.                 End If
  593.                 If E3 > E1 And E3 > E5 And E3 > E6 And E3 < E2 And E3 < E4 Then
  594.                     TextboxE4r = E3
  595.                 End If
  596.                 If E3 > E4 And E3 > E5 And E3 > E6 And E3 < E2 And E3 < E1 Then
  597.                     TextboxE4r = E3
  598.                 End If
  599.                 '--------------------------------------------------------------------
  600.  
  601.                 If E3 > E4 And E3 > E5 And E3 > E2 And E3 < E1 And E3 < E6 Then
  602.                     TextboxE4r = E3
  603.                 End If
  604.                 If E3 > E4 And E3 > E5 And E3 > E6 And E3 < E1 And E3 < E2 Then
  605.                     TextboxE4r = E3
  606.                 End If
  607.                 If E3 > E2 And E3 > E4 And E3 > E6 And E3 < E1 And E3 < E5 Then
  608.                     TextboxE4r = E3
  609.                 End If
  610.                 If E3 > E6 And E3 > E5 And E3 > E2 And E3 < E1 And E3 < E4 Then
  611.                     TextboxE4r = E3
  612.                 End If
  613.                 If E3 > E6 And E3 > E5 And E3 > E4 And E3 < E1 And E3 < E2 Then
  614.                     TextboxE4r = E3
  615.                 End If
  616.                 If E3 > E6 And E3 > E4 And E3 > E2 And E3 < E1 And E3 < E5 Then
  617.                     TextboxE4r = E3
  618.                 End If
  619.                 If E3 > E2 And E3 > E5 And E3 > E6 And E3 < E1 And E3 < E4 Then
  620.                     TextboxE4r = E3
  621.                 End If
  622.                 If E3 > E2 And E3 > E5 And E3 > E4 And E3 < E1 And E3 < E6 Then
  623.                     TextboxE4r = E3
  624.                 End If
  625.                 '-------------------------------------------------------------------
  626.  
  627.                 If E4 > E1 And E4 > E2 And E4 > E3 And E4 < E5 And E4 < E6 Then
  628.                     TextboxE4r = E4
  629.                 End If
  630.                 If E4 > E2 And E4 > E3 And E4 > E5 And E4 < E1 And E4 < E6 Then
  631.                     TextboxE4r = E4
  632.                 End If
  633.                 If E4 > E2 And E4 > E3 And E4 > E6 And E4 < E1 And E4 < E5 Then
  634.                     TextboxE4r = E4
  635.                 End If
  636.                 If E4 > E2 And E4 > E1 And E4 > E5 And E4 < E3 And E4 < E6 Then
  637.                     TextboxE4r = E4
  638.                 End If
  639.                 If E4 > E2 And E4 > E1 And E4 > E6 And E4 < E3 And E4 < E5 Then
  640.                     TextboxE4r = E4
  641.                 End If
  642.                 If E4 > E2 And E4 > E5 And E4 > E6 And E4 < E3 And E4 < E1 Then
  643.                     TextboxE4r = E4
  644.                 End If
  645.                 If E4 > E3 And E4 > E1 And E4 > E5 And E4 < E2 And E4 < E6 Then
  646.                     TextboxE4r = E4
  647.                 End If
  648.                 If E4 > E3 And E4 > E1 And E4 > E6 And E4 < E2 And E4 < E5 Then
  649.                     TextboxE4r = E4
  650.                 End If
  651.                 If E4 > E3 And E4 > E5 And E4 > E6 And E4 < E2 And E4 < E1 Then
  652.                     TextboxE4r = E4
  653.                 End If
  654.                 If E4 > E1 And E4 > E5 And E4 > E6 And E4 < E2 And E4 < E3 Then
  655.                     TextboxE4r = E4
  656.                 End If
  657.                 '------------------------------------------------------------------
  658.  
  659.                 If E4 > E6 And E4 > E5 And E4 > E2 And E4 < E1 And E4 < E3 Then
  660.                     TextboxE4r = E4
  661.                 End If
  662.                 If E4 > E6 And E4 > E5 And E4 > E3 And E4 < E1 And E4 < E2 Then
  663.                     TextboxE4r = E4
  664.                 End If
  665.                 If E4 > E2 And E4 > E6 And E4 > E3 And E4 < E1 And E4 < E5 Then
  666.                     TextboxE4r = E4
  667.                 End If
  668.                 If E4 > E3 And E4 > E5 And E4 > E2 And E4 < E1 And E4 < E6 Then
  669.                     TextboxE4r = E4
  670.                 End If
  671.                 If E4 > E3 And E4 > E5 And E4 > E6 And E4 < E1 And E4 < E2 Then
  672.                     TextboxE4r = E4
  673.                 End If
  674.                 If E4 > E3 And E4 > E6 And E4 > E2 And E4 < E1 And E4 < E5 Then
  675.                     TextboxE4r = E4
  676.                 End If
  677.                 If E4 > E2 And E4 > E5 And E4 > E3 And E4 < E1 And E4 < E6 Then
  678.                     TextboxE4r = E4
  679.                 End If
  680.                 If E4 > E2 And E4 > E5 And E4 > E6 And E4 < E1 And E4 < E3 Then
  681.                     TextboxE4r = E4
  682.                 End If
  683.                 '-----------------------------------------------------------------
  684.  
  685.                 If E5 > E2 And E5 > E3 And E5 > E4 And E5 < E1 And E5 < E6 Then
  686.                     TextboxE4r = E5
  687.                 End If
  688.                 If E5 > E2 And E5 > E3 And E5 > E1 And E5 < E4 And E5 < E6 Then
  689.                     TextboxE4r = E5
  690.                 End If
  691.                 If E5 > E2 And E5 > E3 And E5 > E6 And E5 < E4 And E5 < E1 Then
  692.                     TextboxE4r = E5
  693.                 End If
  694.                 If E5 > E2 And E5 > E4 And E5 > E1 And E5 < E3 And E5 < E6 Then
  695.                     TextboxE4r = E5
  696.                 End If
  697.                 If E5 > E2 And E5 > E4 And E5 > E6 And E5 < E3 And E5 < E1 Then
  698.                     TextboxE4r = E5
  699.                 End If
  700.                 If E5 > E2 And E5 > E1 And E5 > E6 And E5 < E3 And E5 < E4 Then
  701.                     TextboxE4r = E5
  702.                 End If
  703.                 If E5 > E3 And E5 > E4 And E5 > E1 And E5 < E2 And E5 < E6 Then
  704.                     TextboxE4r = E5
  705.                 End If
  706.                 If E5 > E3 And E5 > E4 And E5 > E6 And E5 < E2 And E5 < E1 Then
  707.                     TextboxE4r = E5
  708.                 End If
  709.                 If E5 > E3 And E5 > E1 And E5 > E6 And E5 < E2 And E5 < E4 Then
  710.                     TextboxE4r = E5
  711.                 End If
  712.                 If E5 > E4 And E5 > E1 And E5 > E6 And E5 < E2 And E5 < E3 Then
  713.                     TextboxE4r = E5
  714.                 End If
  715.                 '--------------------------------------------------------------------
  716.  
  717.                 If E5 > E4 And E5 > E6 And E5 > E2 And E5 < E1 And E5 < E3 Then
  718.                     TextboxE4r = E5
  719.                 End If
  720.                 If E5 > E4 And E5 > E6 And E5 > E3 And E5 < E1 And E5 < E2 Then
  721.                     TextboxE4r = E5
  722.                 End If
  723.                 If E5 > E2 And E5 > E4 And E5 > E3 And E5 < E1 And E5 < E6 Then
  724.                     TextboxE4r = E5
  725.                 End If
  726.                 If E5 > E3 And E5 > E6 And E5 > E2 And E5 < E1 And E5 < E4 Then
  727.                     TextboxE4r = E5
  728.                 End If
  729.                 If E5 > E3 And E5 > E6 And E5 > E4 And E5 < E1 And E5 < E2 Then
  730.                     TextboxE4r = E5
  731.                 End If
  732.                 If E5 > E3 And E5 > E4 And E5 > E2 And E5 < E1 And E5 < E6 Then
  733.                     TextboxE4r = E5
  734.                 End If
  735.                 If E5 > E2 And E5 > E6 And E5 > E3 And E5 < E1 And E5 < E4 Then
  736.                     TextboxE4r = E5
  737.                 End If
  738.                 If E5 > E2 And E5 > E6 And E5 > E4 And E5 < E1 And E5 < E3 Then
  739.                     TextboxE4r = E5
  740.                 End If
  741.                 '--------------------------------------------------------------------
  742.  
  743.                 If E6 > E2 And E6 > E3 And E6 > E4 And E6 < E5 And E6 < E1 Then
  744.                     TextboxE4r = E6
  745.                 End If
  746.                 If E6 > E2 And E6 > E3 And E6 > E5 And E6 < E4 And E6 < E1 Then
  747.                     TextboxE4r = E6
  748.                 End If
  749.                 If E6 > E2 And E6 > E3 And E6 > E1 And E6 < E4 And E6 < E5 Then
  750.                     TextboxE4r = E6
  751.                 End If
  752.                 If E6 > E2 And E6 > E4 And E6 > E5 And E6 < E3 And E6 < E1 Then
  753.                     TextboxE4r = E6
  754.                 End If
  755.                 If E6 > E2 And E6 > E4 And E6 > E1 And E6 < E3 And E6 < E5 Then
  756.                     TextboxE4r = E6
  757.                 End If
  758.                 If E6 > E2 And E6 > E5 And E6 > E1 And E6 < E3 And E6 < E4 Then
  759.                     TextboxE4r = E6
  760.                 End If
  761.                 If E6 > E3 And E6 > E4 And E6 > E5 And E6 < E2 And E6 < E1 Then
  762.                     TextboxE4r = E6
  763.                 End If
  764.                 If E6 > E3 And E6 > E4 And E6 > E1 And E6 < E2 And E6 < E5 Then
  765.                     TextboxE4r = E6
  766.                 End If
  767.                 If E6 > E3 And E6 > E5 And E6 > E1 And E6 < E2 And E6 < E4 Then
  768.                     TextboxE4r = E6
  769.                 End If
  770.                 If E6 > E4 And E6 > E5 And E6 > E1 And E6 < E2 And E6 < E3 Then
  771.                     TextboxE4r = E6
  772.                 End If
  773.                 '---------------------------------------------------------------------
  774.  
  775.                 If E6 > E4 And E6 > E5 And E6 > E2 And E6 < E1 And E6 < E3 Then
  776.                     TextboxE4r = E6
  777.                 End If
  778.                 If E6 > E4 And E6 > E5 And E6 > E3 And E6 < E1 And E6 < E2 Then
  779.                     TextboxE4r = E6
  780.                 End If
  781.                 If E6 > E2 And E6 > E4 And E6 > E3 And E6 < E1 And E6 < E5 Then
  782.                     TextboxE4r = E6
  783.                 End If
  784.                 If E6 > E3 And E6 > E5 And E6 > E2 And E6 < E1 And E6 < E4 Then
  785.                     TextboxE4r = E6
  786.                 End If
  787.                 If E6 > E3 And E6 > E5 And E6 > E4 And E6 < E1 And E6 < E2 Then
  788.                     TextboxE4r = E6
  789.                 End If
  790.                 If E6 > E3 And E6 > E4 And E6 > E2 And E6 < E1 And E6 < E5 Then
  791.                     TextboxE4r = E6
  792.                 End If
  793.                 If E6 > E2 And E6 > E5 And E6 > E3 And E6 < E1 And E6 < E4 Then
  794.                     TextboxE4r = E6
  795.                 End If
  796.                 If E6 > E2 And E6 > E5 And E6 > E4 And E6 < E1 And E6 < E3 Then
  797.                     TextboxE4r = E6
  798.                 End If
  799.                 '---------------------------------------------------------------------------------
  800.  
  801.                 If E1 > E2 And E1 > E3 And E1 > E4 And E1 > E5 And E1 < E6 Then
  802.                     TextboxE5r = E1
  803.                 End If
  804.                 If E1 > E2 And E1 > E3 And E1 > E4 And E1 > E6 And E1 < E5 Then
  805.                     TextboxE5r = E1
  806.                 End If
  807.                 If E1 > E2 And E1 > E3 And E1 > E5 And E1 > E6 And E1 < E4 Then
  808.                     TextboxE5r = E1
  809.                 End If
  810.                 If E1 > E2 And E1 > E4 And E1 > E5 And E1 > E6 And E1 < E3 Then
  811.                     TextboxE5r = E1
  812.                 End If
  813.                 If E1 > E3 And E1 > E4 And E1 > E5 And E1 > E6 And E1 < E2 Then
  814.                     TextboxE5r = E1
  815.                 End If
  816.                 'finito
  817.                 '--------------------------------------------------------------------
  818.                 If E2 > E1 And E2 > E3 And E2 > E4 And E2 > E5 And E2 < E6 Then
  819.                     TextboxE5r = E2
  820.                 End If
  821.                 If E2 > E1 And E2 > E3 And E2 > E4 And E2 > E6 And E2 < E5 Then
  822.                     TextboxE5r = E2
  823.                 End If
  824.                 If E2 > E1 And E2 > E3 And E2 > E5 And E2 > E6 And E2 < E4 Then
  825.                     TextboxE5r = E2
  826.                 End If
  827.                 If E2 > E1 And E2 > E4 And E2 > E5 And E2 > E6 And E2 < E3 Then
  828.                     TextboxE5r = E2
  829.                 End If
  830.                 If E2 > E3 And E2 > E4 And E2 > E5 And E2 > E6 And E2 < E1 Then
  831.                     TextboxE5r = E2
  832.                 End If
  833.                 'finito
  834.                 '--------------------------------------------------------------------
  835.                 If E3 > E2 And E3 > E1 And E3 > E4 And E3 > E5 And E3 < E6 Then
  836.                     TextboxE5r = E3
  837.                 End If
  838.                 If E3 > E2 And E3 > E1 And E3 > E4 And E3 > E6 And E3 < E5 Then
  839.                     TextboxE5r = E3
  840.                 End If
  841.                 If E3 > E2 And E3 > E1 And E3 > E5 And E3 > E6 And E3 < E4 Then
  842.                     TextboxE5r = E3
  843.                 End If
  844.                 If E3 > E2 And E3 > E4 And E3 > E5 And E3 > E6 And E3 < E1 Then
  845.                     TextboxE5r = E3
  846.                 End If
  847.                 If E3 > E1 And E3 > E4 And E3 > E5 And E3 > E6 And E3 < E2 Then
  848.                     TextboxE5r = E3
  849.                 End If
  850.                 'finito
  851.                 '--------------------------------------------------------------------
  852.                 If E4 > E2 And E4 > E3 And E4 > E1 And E4 > E5 And E4 < E6 Then
  853.                     TextboxE5r = E4
  854.                 End If
  855.                 If E4 > E2 And E4 > E3 And E4 > E1 And E4 > E6 And E4 < E5 Then
  856.                     TextboxE5r = E4
  857.                 End If
  858.                 If E4 > E2 And E4 > E3 And E4 > E5 And E4 > E6 And E4 < E1 Then
  859.                     TextboxE5r = E4
  860.                 End If
  861.                 If E4 > E2 And E4 > E1 And E4 > E5 And E4 > E6 And E4 < E3 Then
  862.                     TextboxE5r = E4
  863.                 End If
  864.                 If E4 > E3 And E4 > E1 And E4 > E5 And E4 > E6 And E4 < E2 Then
  865.                     TextboxE5r = E4
  866.                 End If
  867.                 'finito
  868.                 '--------------------------------------------------------------------
  869.                 If E5 > E2 And E5 > E3 And E5 > E4 And E5 > E1 And E5 < E6 Then
  870.                     TextboxE5r = E5
  871.                 End If
  872.                 If E5 > E2 And E5 > E3 And E5 > E4 And E5 > E6 And E5 < E1 Then
  873.                     TextboxE5r = E5
  874.                 End If
  875.                 If E5 > E2 And E5 > E3 And E5 > E1 And E5 > E6 And E5 < E4 Then
  876.                     TextboxE5r = E5
  877.                 End If
  878.                 If E5 > E2 And E5 > E4 And E5 > E1 And E5 > E6 And E5 < E3 Then
  879.                     TextboxE5r = E5
  880.                 End If
  881.                 If E5 > E3 And E5 > E4 And E5 > E1 And E5 > E6 And E5 < E2 Then
  882.                     TextboxE5r = E5
  883.                 End If
  884.                 'finito
  885.                 '--------------------------------------------------------------------
  886.                 If E6 > E2 And E6 > E3 And E6 > E4 And E6 > E5 And E6 < E1 Then
  887.                     TextboxE5r = E6
  888.                 End If
  889.                 If E6 > E2 And E6 > E3 And E6 > E4 And E6 > E1 And E6 < E5 Then
  890.                     TextboxE5r = E6
  891.                 End If
  892.                 If E6 > E2 And E6 > E3 And E6 > E5 And E6 > E1 And E6 < E4 Then
  893.                     TextboxE5r = E6
  894.                 End If
  895.                 If E6 > E2 And E6 > E4 And E6 > E5 And E6 > E1 And E6 < E3 Then
  896.                     TextboxE5r = E6
  897.                 End If
  898.                 If E6 > E3 And E6 > E4 And E6 > E5 And E6 > E1 And E6 < E2 Then
  899.                     TextboxE5r = E6
  900.                 End If
  901.                 'finito
  902.                 '--------------------------------------------------------------------
  903.  
  904.                 If E1 > E2 And E1 > E3 And E1 > E4 And E1 > E5 And E1 > E6 Then
  905.                     TextboxE6r = E1
  906.                 End If
  907.  
  908.                 If E2 > E1 And E2 > E3 And E2 > E4 And E2 > E5 And E2 > E6 Then
  909.                     TextboxE6r = E2
  910.                 End If
  911.  
  912.                 If E3 > E2 And E3 > E1 And E3 > E4 And E3 > E5 And E3 > E6 Then
  913.                     TextboxE6r = E3
  914.                 End If
  915.  
  916.                 If E4 > E2 And E4 > E3 And E4 > E1 And E4 > E5 And E4 > E6 Then
  917.                     TextboxE6r = E4
  918.                 End If
  919.  
  920.                 If E5 > E2 And E5 > E3 And E5 > E4 And E5 > E1 And E5 > E6 Then
  921.                     TextboxE6r = E5
  922.                 End If
  923.  
  924.                 If E6 > E2 And E6 > E3 And E6 > E4 And E6 > E5 And E6 > E1 Then
  925.                     TextboxE6r = E6
  926.                 End If
  927.  
  928.                 'Crono.Stop()
  929.  
  930.                 '------------------------------------------------------------------------



   :om::idea:


Ultimo (Hai voluto la bicicletta ? ....)

Studiare LINQ, WPF, ASP.NET MVC, Entity Framwork, C#, Blend, XAML, Javascript, HTML5, CSS .....(tanta roba)

https://www.dropbox.com/s/c2aots5x4urgbhf/setup_game_sudoku ...
PM Quote
Avatar
GN (Member)
Guru


Messaggi: 771
Iscritto: 30/04/2011

Segnala al moderatore
Postato alle 22:00
Sabato, 01/10/2011
Paginetta in HTML+JS...

P.S.: secondo me era meglio postare come domanda, così le ciaffate più originali potevano ottenere punti.


GN ha allegato un file: Pagina.zip (457 bytes)
Clicca qui per scaricare il file

Ultima modifica effettuata da GN il 01/10/2011 alle 22:12


-
PM Quote
Avatar
Loryea (Normal User)
Pro


Messaggi: 165
Iscritto: 02/09/2011

Segnala al moderatore
Postato alle 11:56
Domenica, 02/10/2011
Testo quotato

Postato originariamente da GN:

Paginetta in HTML+JS...

P.S.: secondo me era meglio postare come domanda, così le ciaffate più originali potevano ottenere punti.



Una volta era una domanda... Comunque, Viva il mio programma.


Il computer non è una macchina intelligente che aiuta le persone stupide, anzi, è una macchina stupida che funziona solo nelle mani delle persone intelligenti

Umberto Eco
PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 13:31
Domenica, 02/10/2011
Codice sorgente - presumibilmente C++

  1. public static class Extensions
  2. {
  3.     public static IEnumerable<T> Loop<T>(this T item)
  4.     {
  5.         while(true)
  6.             yield return item;
  7.     }
  8. }
  9.  
  10. class Program
  11. {
  12.     static void Main(string args[])
  13.     {
  14.         var sum = (1).Loop().Sum();
  15.     }
  16. }



"Infelici sono quelli che hanno tanto cervello da vedere la loro stupidità."
(Fligende Blatter)

"Dubitare di se stessi è il primo segno d'intelligenza."
(Ugo Ojetti)
PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo