Programmino che vede i numeri meno usciti. VINCENTE???

[koppuzzo]

ciao a tutti.

oggi voglio postare un piccolo programma in basic che tutti potete adoperare che calcola sugli ultimi 90 numeri inseriti i numeri che non sono usciti.

Giocando sul ritardo nella vincita può essere un buon aiuto per vincere qualcosina

Qualcuno può modificarlo, ad esempio cambiando 89 in 99 o 79, oppure se mi dite le vostre esigenze lo modifico io. Può essere una buona base per fare altri calcoli. Possiamo calcolare ad esempio le coppie sugli ultimi 30. Quello che cacchio volete. Per me è una ficata.

digitate su google "just basic download" e scaricatelo sul vostro pc. Poi fate "nuovo programma" e fate copia incolla delle righe sotto. Salvate sul vostro pc con un nome. Per lanciarlo cliccate sul triangolino in alto. Poi modulate la finestra in modo da avere una colonna lunga e stretta sulla destra del vostro pc e stringete la finestra della roulette dove state giocando in modo da avere entrambe le finestre aperte e cliccabili senza che l'una si sovrapponga all'altra. Dopo che avrete fatto la puntata, per inserire il nuovo numero cliccate affianco ai due punti dove dice "ultimo numero:"  non so se mi sono spiegato.

E ve ne darò anche un altro prossimamente. Sembrano programmini stupidi ma con un pò di studio si può vincere ve l'assicuro. L'unica pecca è che bisogna inserire prima 90 numeri.

comunque ecco il codice. buon gioco

20 DIM N(999)
25 CO=89
28 FOR X=1 TO 89
30 INPUT " INSERISCI NUMBERO:";N(X)
32 NEXT X
90 CO=CO+1
93 INPUT "ULTIMO NUMBERO:";N(CO)
95 TT=0
96 CT1=0
97 FOR X=CO-89 TO CO
98 IF N(X)=TT THEN CT1=CT1+1
99 NEXT X
100 IF CT1=0 THEN GOTO 110 ELSE GOTO 120
110 PRINT "     ";TT
115 PRINT
120 TT=TT+1
125 IF TT=37 THEN GOTO 90
130 GOTO 96

 

 

 

[koppuzzo]

Oltre a giocare i numeri che tira fuori applicando una montante provate ad aspettare che visualizzi più di 7 numeri in modo che ci sia un ritardo dei ritardatari. Un'altra prova che ho fatto e aspettare che tira fuori sei numeri segnarli e giocarli oltranza per 30 volte senza tenere conto dei nuovi numeri che tira fuori. Ho notato che con una spesa di 30 x 6 = 180 ne prende sei o sette in genere raggiungendo un piccolo attivo.

Provate voi e ditemi

[shadow]

Vedere quelle righe di codice, mi ha fatto tornare indietro con gli anni, ai primi listati sul mitico VIC-20...che dire...bei tempi 

 

[theguru]

Ho provato. Esce "inserisci numero:". Io inserisco un numero qualsiasi (persino 115) e il programma dice "inserisci numero:". Fa sempre così al'infinito. Come mai?

The Guru

[koppuzzo]

Chiede per 90 volte prima di iniziare a visualizzare numeri. Ma forse visto che prevede la roulette sarebbe meglio inserire numeri da zero a 36 credo. Altrimenti devo inserire anche il controllo dei valori. Dai

Shadow si l'ho fatto col commodore 64 infatti. comunque gira e qualcuno ci potrebbe anche vincere

[koppuzzo]

Ho capito, vi devo sbalordire. Domani gli faccio un piccolo aggiornamento....

[Satori]

3 ore fa, koppuzzo dice:

Chiede per 90 volte prima di iniziare a visualizzare numeri. Ma forse visto che prevede la roulette sarebbe meglio inserire numeri da zero a 36 credo. Altrimenti devo inserire anche il controllo dei valori. Dai

Shadow si l'ho fatto col commodore 64 infatti. comunque gira e qualcuno ci potrebbe anche vincere

Koppuzzo, mi hai aperto il cuore ... col Commodore 64. Mio primo computer, tanti anni fa. Ho pochissimi rimpianti, uno di questi è di averlo abbandonato (verbo che si usa per le persone, lo so). Non mi capacito di come possa avero fatto. A prescindere, tifo per te.

Grazie.

[shadow]

Quando ho ricevuto in regalo il mio primo pc, l'ormai storico VIC-20, me ne sono da subito innamorato. Tanti bei ricordi...ogni volta che qualcosa li riporta in vita, lasciano sempre un velo di malinconia che avvolge il cuore. 

[koppuzzo]

A chi lo dici. All'epoca avevo programmato il Commodore 64 per giocare a poker. Molto base, ma faceva il suo dovere. Con una variabile casuale lo facevo anche bleffare. Era commovente quando lo scoprivo.

Bando alle ciance ragazzi. Vi posto la nuova versione di programma che inizia a pronosticare già dopo 25 numeri. Ho aggiunto la ricerca del terzo quando non ci sono tripli numeri negli ultimi 24. Dopo 95 numeri invece tira fuori i numeri non ancora usciti e quelli usciti una sola volta che probabilmente si ripeteranno sui quali ognuno potrà fare una propria statistica. Per theguru ho aggiunto anche un minimo controllo sui numeri.

Io oggi ho vinto soldi veri con questo programmino. Anche se questa è solo una piccola parte del mio programma roulette, in tutto sono 1900 righe, è già vincente. Se lo provate e mi trovate difetti vi sarei grato.

4 PRINT
5 PRINT " AMMAZZACASINO' IL FORUM CHE TI FA VINCERE"
6 PRINT:PRINT:PRINT
7 PRINT " (BY KOPPUZZO)"
8 PRINT
9 PRINT " ISTRUZIONI: INSERIRE I NUMERI USCITI E PREMERE INVIO"
10 PRINT " DOPO AVER INSERITO 24 NUMERI IL SISTEMA POTREBBE"
11 PRINT " PRONOSTICARE NUMERI PIENI. CONTINUARE AD INSERIRE."
12 PRINT:PRINT
13 PRINT "                                                BUONA FORTUNA!!"
14 PRINT
20 DIM N(999)
25 CO=23
28 FOR X=1 TO 23
30 INPUT " INSERISCI NUMERO:";N(X)
31 IF N(X)>36 THEN GOTO 32 ELSE GOTO 40
32 PRINT " NUMERO ERRATO, INSERISCI DI NUOVO "
33 GOTO 30
40 NEXT X
90 CO=CO+1
93 INPUT "ULTIMO NUMERO:";N(CO)
94 IF N(X)>36 THEN GOTO 95 ELSE GOTO 97
95 PRINT " NUMERO ERRATO, INSERISCI DI NUOVO "
96 GOTO 93
97 PRINT
195 TT=0:CT3=0
196 CT1=0
197 FOR X=CO-23 TO CO
198 IF N(X)=TT THEN CT1=CT1+1
199 NEXT X
200 IF CT1>2 THEN CT3=CT3+1
220 TT=TT+1
225 IF TT=37 THEN GOTO 232
230 GOTO 196
232 IF CT3=0 THEN GOTO 235 ELSE GOTO 270
235 TT=0
236 CT1=0
237 FOR X=CO-23 TO CO
238 IF N(X)=TT THEN CT1=CT1+1
239 NEXT X
240 IF CT1=2 THEN GOTO 245 ELSE GOTO 255
245 PRINT "     ";TT
250 PRINT
255 TT=TT+1
260 IF TT=37 THEN GOTO 90
265 GOTO 236
270 IF CO>95 THEN GOTO 295 ELSE GOTO 90
295 TT=0
296 CT1=0
297 FOR X=CO-95 TO CO
298 IF N(X)=TT THEN CT1=CT1+1
299 NEXT X
300 IF CT1=0 THEN GOTO 310 ELSE GOTO 320
310 PRINT "  Mai uscito   ";TT
320 TT=TT+1
325 IF TT=37 THEN GOTO 395
330 GOTO 296
395 TT=0:PRINT
396 CT1=0
397 FOR X=CO-95 TO CO
398 IF N(X)=TT THEN CT1=CT1+1
399 NEXT X
400 IF CT1=1 THEN GOTO 410 ELSE GOTO 420
410 PRINT "  Uscito 1 volta   ";TT
420 TT=TT+1
425 IF TT=37 THEN GOTO 90
430 GOTO 396

Modificato: 19 novembre 2016 da koppuzzo

[koppuzzo]

Mi sono accorto che ci vorrebbe una modifica perché tira fuori troppi numeri usciti una volta sola. 

325 IF TT=37 THEN GOTO 390
330 GOTO 296

390 IF CO<115 THEN GOTO 90
395 TT=0:PRINT
396 CT1=0
397 FOR X=CO-115 TO CO

Modificato: 19 novembre 2016 da koppuzzo

[koppuzzo]

modificare anche la riga 260 perché altrimenti i due controlli sono in antagonismo. Sto continuando con le prove e ho già pensato una modifica importante al controllo sui primi 25 che lo porterà dall'attuale redditività del 30% al 50%. La posterò in giornata dopo averla collaudata. intanto cambiare la riga 260.

260 IF TT=37 THEN GOTO 270

[theguru]

Lo riproverò più tardi, però tanta stima per chi, come Koppuzzo, programma in basic.

Tra i miei ricordi sul Commodore64 (fu l'unica volta che non riuscii a dormire la vigilia di Natale), che conservo ancora gelosamente, un programmino che dopo non so quante righe di comando, faceva il rumore dello sparo...

The Guru

[tonino]

[koppuzzo]

Che volevi dire Tonino? io non ho messo ulteriori aggiornamenti al mio programma perché vedo che non interessa.

Solo theguru lo ha provato, senza ulteriori commenti tra l'altro.

Modificato: 23 novembre 2016 da koppuzzo

[shadow]

Beh forse se provi a creare un eseguibile, lo proveranno altri. Molti non hanno questa passione, ne tantomeno gli piace installare compilatori o simili. Ti consigliere anche di inserire un opzione per importare permanenze, può esserre noioso inserire i numeri manualmente. 

Modificato: 23 novembre 2016 da shadow

[Lopez19]

Io ho provato sia prima versione che dopo le correzioni, non è che mi siano usciti risultati strabilianti. Dopo la correzione è andato peggio. Ho giocato aspettando che pronosticasse almeno 7 numeri. Massa pari per 5 colpi

Saluti

[Satori]

2 ore fa, koppuzzo dice:

Che volevi dire Tonino? io non ho messo ulteriori aggiornamenti al mio programma perché vedo che non interessa.

Solo theguru lo ha provato, senza ulteriori commenti tra l'altro.

Ciao, koppuzzo,

io sarei curioso di provare il tuo programma, ma non  ho la più pallida idea di come trasformare in qualcosa che funzioni le righe che hai postato. Non è una critica, è che proprio di questa roba so meno di nulla. Se mi dai qualcosa da scaricare e basta, lo provo.

Grazie. 

[koppuzzo]

è quello che volevo sentire... critiche!

per quanto riguarda l'eseguibile purtroppo non ne sono capace, una volta me lo aveva fatto Beppe ma era per un altra versione e quindi per usare questo bisogna per forza caricarlo dal just basic. Mi dispiace.

ho apportato delle modifiche ulteriori per renderlo migliore ma purtroppo per settarlo bisogna provarlo. Se poi mi dite eventuali difetti vedrò di perfezionarlo. A Lopez volevo dire che ho allungato l'intervallo di scan fino agli ultimi 26 e non più 23 al rigo 197 in modo che si accorcia il rischio ed ho tolto la parte finale dei numeri usciti una volta sola perché ci vuole un'altro controllo per attivarlo e qui non c'è spazio. Mentre i numeri mai usciti lo ho lasciati. Adesso quando trova assenza di numeri usciti più di 2 volte negli ultimi 27 numeri e meno di 7 coppie avvia la visualizzazione delle coppie presenti negli ultimi 28 numeri per la ricerca del terzo, si ferma dopo aver preso il terzo. Dopodichè ci sarà un nuovo controllo. Se parte troppo presto si potrebbe cambiare il 7 alla riga 232 in 6.

4 PRINT
5 PRINT " AMMAZZACASINO' IL FORUM CHE TI FA VINCERE"
6 PRINT:PRINT:PRINT
7 PRINT " (BY KOPPUZZO)"
8 PRINT
9 PRINT " ISTRUZIONI: INSERIRE I NUMERI USCITI E PREMERE INVIO"
10 PRINT " DOPO AVER INSERITO 24 NUMERI IL SISTEMA POTREBBE"
11 PRINT " PRONOSTICARE NUMERI PIENI. CONTINUARE AD INSERIRE."
12 PRINT:PRINT
13 PRINT "                                                BUONA FORTUNA!!"
14 PRINT
20 DIM N(999)
25 CO=26
28 FOR X=1 TO 26
30 INPUT " INSERISCI NUMERO:";N(X)
31 IF N(X)>36 THEN GOTO 32 ELSE GOTO 40
32 PRINT " NUMERO ERRATO, INSERISCI DI NUOVO "
33 GOTO 30
40 NEXT X
90 CO=CO+1
93 INPUT " ULTIMO NUMERO:";N(CO)
94 IF N(X)>36 THEN GOTO 95 ELSE GOTO 97
95 PRINT " NUMERO ERRATO, INSERISCI DI NUOVO "
96 GOTO 93
97 PRINT
110 IF NG3>0 THEN GOTO 235
195 TT=0:CT2=0:CT3=0
196 CT1=0
197 FOR X=CO-26 TO CO
198 IF N(X)=TT THEN CT1=CT1+1
199 NEXT X
200 IF CT1>2 THEN CT3=CT3+1
210 IF CT1=2 THEN CT2=CT2+1
220 TT=TT+1
225 IF TT=37 THEN GOTO 232
230 GOTO 196
231 IF CT3=1 AND NG3=1 THEN NG3=0
232 IF CT3=0 AND CT2<7 THEN NG3=1
234 IF NG3=1 THEN GOTO 235 ELSE GOTO 270
235 TT=0
236 CT1=0
237 FOR X=CO-26 TO CO
238 IF N(X)=TT THEN CT1=CT1+1
239 NEXT X
240 IF CT1=2 THEN GOTO 245 ELSE GOTO 255
245 PRINT "     ";TT
250 PRINT
255 TT=TT+1
260 IF TT=37 THEN GOTO 270
265 GOTO 236
270 IF CO>90 THEN GOTO 295 ELSE GOTO 90
295 TT=0
296 CT1=0
297 FOR X=CO-90 TO CO
298 IF N(X)=TT THEN CT1=CT1+1
299 NEXT X
300 IF CT1=0 THEN GOTO 310 ELSE GOTO 320
310 PRINT "  Mai uscito   ";TT
320 TT=TT+1
325 IF TT=37 THEN GOTO 90
330 GOTO 296
 

[Lopez19]

Va bene koppuzzo lo ricarico e lo provo, poi ti dico. Devo sempre registrare le prime 99 permanenze e poi vado avanti a oltranza oppure è cambiato qualcosa ? Aspetto sempre la previsione con almeno 7 numeri ?

[koppuzzo]

No dovrebbe pronosticare già dopo 30 numeri, però se ne inserisci 90 è meglio. Forse puoi anche cambiare la riga 237 con 23 al posto di 26 se visualizza troppi numeri. Punta sempre. Vedi come va 

[shadow]

Visto che hai questa passione, perché non usi un compilatore più evoluto?...Avendo le basi del linguaggio Basic potresti passare al Visual Basic, c'è la versione Express che è gratuita. 

[Lopez19]

Test effettuato su permanenza roulette live Cleopatra. Ho giocato esattamente la previsione come si presentava a massa pari senza interruzioni. Questi i risultati (spero che si capisca):

NUMERI IN GIOCO        PEZZI    VINTI    SALDO    TOTALE

17-21-24-28        -4    0    -4    -4
17-19-21-24-28        -5    0    -5    -9
17-19-21-24-27-28    -6    0    -6    -15
17-19-21-24-27-28    -6    +36    +30    +15
17-21-24-27-28        -5    0    -5    +10
17-21-24-27-28        -5    0    -5    +5
17-21-24-27-28        -5    0    -5    0
17-21-24-27-28        -5    +36    31    +31
17-21-27        -3    0    -3    +28
17-21-27        -3    0    -3    +25
17-21-27        -3    0    -3    +22
20-21-27        -3    +36    +33    +55
20-27            -2    0    -2    +53
20-27            -2    0    -2    +51
20-24-27        -3    0    -3    +48
20-24            -2    0    -2    +46
0-20-24            -3    0    -3    +43
0-20-24            -3    0    -3    +40
0-20            -2    0    -2    +38
0-20            -2    0    -2    +36
0-20            -2    +36    +34    +70        
20            -1    0    -1    +69            
20            -1    0    -1    +68
5-20            -2    0    -2    +67
5-20-21            -3    0    -3    +64
5-7-20            -3    0    -3    +61
5-7-20-29        -4    0    -4    +57    
5-7-19-20-29        -5    0    -5    +52
5-7-19-20-29        -5    36    +31    +83
5-19-20-29        -4    0    -4    +79
5-20-21-29        -4    0    -4    +75
5-18-20-21        -4    0    -4    +71
18-20-21        -3    0    -3    +68
18-20-21        -3    0    -3    +65
18-20-21-25        -4    0    -4    +61
18-20-21-25        -4    0    -4    +57
18-21-25        -3    36    +33    +90
21-25            -2    0    -2    +88
25            -1    0    -1    +87
0-25            -2    0    -2    +85
0-25            -2    0    -2    +83
0-25-32            -3    +36    +33    +116
0-25            -2    0    -2    +114            
25            -1    0    -1    +113
18-29            -2    0    -2    +111
18-29            -2    0    -2    +109
18-29            -2    0    -2    +107
18-29            -2    0    -2    +105
7-18-29-34        -4    +36    +32    +137
7-29-34            -3    0    -3    +134
7-29-34            -3    0    -3    +131
29-34            -2    0    -2    +129
34            -1    0    -1    +128
34            -1    0    -1    +127
33-34            -2    0    -2    +125    
33-34            -2    0    -2    +123
33-34            -2    36    +34    +157
18-33            -2    0    -2    +155
11-18-33        -3    0    -3    +152    
11-16-18        -3    0    -3    +149
11-16-18        -3    0    -3    +146
11-16-18        -3    0    -3    +143
8-11-18-33        -4    +36    +32    +175
8-33            -2    0    -2    +173
8-23-33            -3    0    -3    +170
8-21-23-33        -4    0    -4    +166
8-12-21-23-33        -5    0    -5    +161
8-12-21-23-32-33    -6    0    -6    +155
8-12-21-23-33        -5    0    -5    +150
8-12-21-23-33        -5    0    -5    +145
8-12-15-21-23-33    -6    0    -5    +139

 

[koppuzzo]

Quindi ha vinto????

Ma vieniiiiii

Lopez sei un grande. Solo non capisco perché c'è sempre uno zero. E comunque peccato che hai chiuso con una serie negativa.

E questo è solo una bozza. Si devo provare col visual basic 

Modificato: 24 novembre 2016 da koppuzzo

[Lopez19]

Non ho giocato, ho preso una permanenza a caso delle mie e l'ho controllata con il tuo programmino. Purtroppo qui sul forum si disallineano le colonne in ogni caso si legge così: parto dalla prima riga

17-21-24-28        -4    0    -4    -4        

17-21-24-28 sono i numeri che dice di mettere in gioco il tuo programma

-4    i pezzi messi in gioco

0    vincita pezzi (essendo 0 non ho vinto in questo caso)

-4    saldo della singola giocata

-4 saldo totale (essendo la prima corrisponde al saldo della giocata)

---------------------------------------------------------------------------------------------------------

Seconda riga  17-19-21-24-28        -5    0    -5    -9

17-19-21-24-28 numeri da mettere in gioco

-5 pezzi in gioco

0 nessun pezzo vinto

-5 saldo della giocata

-9 saldo totale (5 di questa riga più il totale della precedente)

Passo ora alla 4° riga

17-19-21-24-27-28    -6    +36    +30    +15

17-19-21-24-27-28 numeri da mettere in gioco

-6 pezzi messi in gioco

+36 pezzi vinti 

+30 saldo della singola giocata

+15 saldo totale

Spero che così sia più chiaro il saldo alla fine è +139

Ho provato a seguire in diretta (stessa roulette) i numeri che uscivano e mi pare avrebbe chiuso in attivo anche oggi) anche se non di molto (c'è stata una serie molto lunga con sempre 8-10 numeri che non sono usciti e che avrebbe eroso molto del capitale). in più ho preso diversi pali nel senso che è capitato diverse volte che magari è uscito il numero in mezzo ad altri 2. Esempio puntavo 26 e 32 ed è uscito lo 0 oppure puntavo 2 e 4 ed è uscito il 21 ma penso sia normale. Provo a fare  altri test poi ti aggiorno  

 

Modificato: 24 novembre 2016 da Lopez19

[theguru]

Nulla di personale, Koppuzzo!

E' che sto lavorando tanto!

Nel weekend se riesco provo l'ultima versione....

The Guru