gianbru73 |
|
| CITAZIONE (*Sym98* @ 8/4/2012, 22:59) Sera, approfitto di questo post per farvi gli auguri. Perchè come ben sapete, oggi è Pasqua. Si, io programmo anche per Pasqua.  Comunque, perdonate la pigrizia ma non mi andava di fare la GUI per un programma del genere...Si tratta di una serie di MsgBox e InputBox che chiedono in modo meno gentile possibile di eseguire dei calcoli basilari a mente, senza l'aiuto della calcolatrice. Tuttavia, al 90% delle volte sbaglierete. Per mettervi un pò di stress, la durata delle MsgBox a partire dalla seconda è di 5 secondi. Ah, vi informo anche di aver preso una precauzione inutile, ovvero quella di nascondere i numeri per non darvi la possibilità di ri-eseguire i calcoli con calma, ma l'ho fatto soprattutto perchè così il codice è più figo.  P.S = Non è una vera e propria protezione, non vantatevi di essere riusciti a bypassarla perchè c'è riuscito anche il mio gatto. Detto questo, sono quasi sicuro che non riuscirete a fare i calcoli.  Source: CODICE MsgBox(64, "", "Cerca di fare questi calcoli in un massimo di 5 secondi, senza usare la calcolatrice." _
& " Sono semplici, ma sei troppo stupido per riuscire a farli correttamente." & @CRLF & "P.S = Non provare a barare, ho un sistema di sicurezza che ti fregherà.")
Global $End = Dec(00000008), $x = $End & StringTrimRight(Hex($End), 7), $y = ($x /2) * 25
Global $NewX = $x / 2, $TOT = 1000, $String = (($x / (($y * 2) / 25)) & StringTrimRight(Hex($End), 7)), $_NewX = $NewX + $String, $NewX = $_NewX
For $i = 1 to $End
If $i = 1 Then MsgBox(0, "", "Parti da " & $y & ", e aggiungi a poco a poco il resto del conteggio")
If $i <> 1 Then
If Not IsInt($i / 2) Then
MsgBox(0, $i, "Aggiungi " & $y, 5)
$_TOT = $TOT + $y
Global $TOT = $_TOT
Else
MsgBox(0, $i, "Aggiungi " & $NewX - $String, 5)
Global $_NewX = $NewX - $String
Global $NewX = $_NewX
$_TOT = $TOT + $NewX
Global $TOT = $_TOT
EndIf
EndIf
Next
$Risposta = InputBox("", "Quanto risulta?")
MsgBox(0,"", "Secondo i tuoi calcoli il tuo totale è " & $Risposta)
If $Risposta <> $TOT Then MsgBox(0, "", "Mi dispiace, ma hai sbagliato. Anzi no, non mi dispiace affatto. :trollface")
If $Risposta = $TOT Then MsgBox(0, "", "Hai barato, vero?") Indovinato a primo colpo.....  |
| | |
