Ciao @Gabrieleno90 , leggendo le tue richieste ricordo il mio stesso interesse verso il gioco del VC... Ad oggi gioco sempre e solo a questo, ma senza molto intraprendere tutti i dati statistici del caso: questo non perchè non siano utili, anzi... ma mi sento di dirti che non bisogna fossilizzarsi sulla base statistica, ma molto sull'istinto !!! E come già avevo detto in altra discussione: il resto lo fa solo la fortuna !!!
Sistemistica VinciCasa Thread Completo!
- Creatore Discussione Gabrieleno90
- Data di inizio
Mike58
Advanced Member >PLATINUM PLUS<
Ciao Raga, 2 nozioni circa il vincicasa, il gioco è iniziato il 9-7-2014 e sono state estratti ad oggi circa 1462.
Chiaro all'inizio anch'io mi sono cimentato con tale lotteria con risultanti non eclatanti.
Infatti + di qualche 2-3 punti non ho ottenuto, tenendo presente che la colonna costa 2 euro per una vincita minima di 2 euro al gioco per me non valeva la pena giocarci, al punto che qualche volta non sono neanche andato a ritirare i 2 euro vinti.
Cosi come l'altra lotteria MillionDay stesso discorso troppo poco il premio delle vincite minime.
Invece tutt'altra cosa è a mio avviso il SiVinceTuTTo che gioca 12 numeri con costo giocata di 5 euro, una volta a settimana (Mercoledì) con un premio minimo del 2 punti che paga almeno 10 euro.
Chiaro il VinciCasa gioca 5 su 40 Numeri
il MillionDay gioca 5 su 55 Numeri
il SiVinceTuTTo gioca 6 su 90 Numeri
Poi ognuno di noi è affascinato dalla propria lotteria.
Ciao
Chiaro all'inizio anch'io mi sono cimentato con tale lotteria con risultanti non eclatanti.
Infatti + di qualche 2-3 punti non ho ottenuto, tenendo presente che la colonna costa 2 euro per una vincita minima di 2 euro al gioco per me non valeva la pena giocarci, al punto che qualche volta non sono neanche andato a ritirare i 2 euro vinti.
Cosi come l'altra lotteria MillionDay stesso discorso troppo poco il premio delle vincite minime.
Invece tutt'altra cosa è a mio avviso il SiVinceTuTTo che gioca 12 numeri con costo giocata di 5 euro, una volta a settimana (Mercoledì) con un premio minimo del 2 punti che paga almeno 10 euro.
Chiaro il VinciCasa gioca 5 su 40 Numeri
il MillionDay gioca 5 su 55 Numeri
il SiVinceTuTTo gioca 6 su 90 Numeri
Poi ognuno di noi è affascinato dalla propria lotteria.
Ciao
Mike58
Advanced Member >PLATINUM PLUS<
Altro script Numeri in posizioni
Codice:
Sub Main
Dim sFile,T,V,nEsiti
sFile = GetDirectoryAppData & "VinciCasa.txt"
Call ApriBaseDatiFT(sFile,5,",",40)
Ini = 1
fin = EstrazioniArchivioFT
Tot = fin - Ini
Med = Int(Tot/8)
Scrivi "Estrazioni Attive : " & Tot
Scrivi "Media Frequenza : " &(Med),1
T = Array(T,"Numero","P1","P2","P3","P4","P5","Pres","Rit","Sto","InCr","+ Media","- Media")
Call InitTabella(T,1,,2,5)
For x = 1 To 40
ReDim ff(5)
For y = 1 To 5
ReDim pos(5)
pos(y) = True
ff(y) = EstrattoFrequenzaFT(x,Ini,fin,pos)
fft = EstrattoFrequenzaFT(x,Ini,fin)
rit = EstrattoRitardoFT(x,Ini,fin)
sto = EstrattoStoricoFT(x,Ini,fin)
If ff(y) = 0 Then ff(y) = "-"
Incr = EstrattoIncrStoricoFT(x,Ini,fin)
If Incr = 0 Then Incr = "-"
spMedia = fft - Med
stMedia = Med - fft
If spMedia >= 0 Then
spMedia = spMedia
Else
spMedia = "-"
End If
If stMedia > 0 Then
stMedia = stMedia
Else
stMedia = "-"
End If
Next
V = Array(V,Format2(x),ff(1),ff(2),ff(3),ff(4),ff(5),fft,rit,sto,Incr,spMedia,stMedia)
Call AddRigaTabella(V)
Call SetColoreCella(7,3,0)
Call SetColoreCella(8,7,5)
Call SetColoreCella(9,4,0)
Call SetColoreCella(1,1,5)
If rit = 0 Then Call SetColoreCella(8,2,4)
If rit = 0 Then Call SetColoreCella(1,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella(,,,,1)
aP = Array(aP,"Posizioni","Numeri Presenti","Min","Max","Q.Tà","Ritardo","Verifica")
Call InitTabella(aP)
For xx = 1 To 5
ReDim aPos(5)
aPos(xx) = True
'aPos(2) = True
'aPos(3) = True
'aPos(4) = True
'aPos(5) = True
For nn = 1 To 40
'Nu(1) = n
'If SerieFreqFT(Ini,fin,Nu,1,aPos) > 0 Then
If EstrattoFrequenzaFT(nn,Ini,fin,aPos) > 0 Then
kk = kk + 1
ReDim Preserve rigaP(kk)
rigaP(kk) = nn
min = MinimoV(rigaP,1,- 1)
max = MassimoV(rigaP)
sr = SerieRitardoFT(ini,fin,rigaP,1)
Call VerificaEsitoFT(rigaP,fin,1,,esito1,,es2)
End If
Next
If kk > 0 Then
aV = Array(aV,xx,StringaNumeri(rigaP),min,max,kk,sr,es2)
Call AddRigaTabella(aV)
End If
'riga = ""
kk = 0
Next
Call CreaTabella()
For yy = 1 To 40
n = EstrattoFrequenzaFT(yy,Ini,fin)
m = EstrattoRitardoFT(yy,Ini,fin)
o = EstrattoStoricoFT(yy,Ini,fin)
i = EstrattoIncrStoricoFT(yy,Ini,fin)
If n > Med Then
kn = kn + 1
ReDim Preserve aNum(kn)
aNum(kn) = yy
ReDim Preserve aRit(kn)
'aRit(kn) = m
riga = riga & Format2(m) & " "
End If
Next
Scrivi "Numeri per Gioco : " & StringaNumeri(aNum,,1) & " ( " & kn & " )",1
'Scrivi "Numeri in Ritardo : " & StringaNumeri(aRit,,1),1,,,1
Scrivi "Numeri in Ritardo : " & riga,1,,,1
ess = fin - 30
Scrivi
Scrivi "Ultimi Esiti Numeri in Esame"
Scrivi String(60,"-")
Scrivi "Pr Info Data Esiti Esito "
Scrivi String(60,"-")
For ex = ess To fin
Call VerificaEsitoFT(aNum,ex,1,1,esito,clp,es1,id)
If esito <> "" Then
k = k + 1
Scrivi k & vbTab,0,0
Scrivi GetInfoEstrazioneFT(id) & vbTab,0,0
Scrivi es1 & vbTab,0,0
Scrivi esito
If esito = "Ambo" Then am = am + 1
If esito = "Terno" Then Ter = Ter + 1
If esito = "Quaterna" Then qua = qua + 1
If esito = "Cinquina" Then cinq = cinq + 1
End If
Next
Scrivi
Scrivi "Ambi.......... " & am
Scrivi "Terni......... " & Ter
Scrivi "Quaterne...... " & qua
Scrivi "Cinquina...... " & cinq
End SubGabrieleno90
Member
Diciamo che e buono, ti da una casa, e poi i numeri sono pochi, più o meno 40 non 50 su million, anche perché li e più difficile prendere quel milione non credi?
Gabrieleno90
Member
Grazie mille, molto interessante, vedo che ne sforni tanti, ma quanti ne hai di vincicasa?
A proposito, mi spiegheresti questo?
Mike58
Advanced Member >PLATINUM PLUS<
x gabriele, sono i numeri in posizione, nell'esempio il num 2 è sortito 165 volte in casella 1 e 23 volte casella 2, può anche voler dire che 1-2 è sortito 23 volte.
Poi evidenze del 2 è ultima sortita come vedi ha ritardo zero mentre gli altri dati si riferiscono alle presenze nel numero e al ritardo storico.
Mentre + media, come vedi media ferquenza = 182 e la freq 188 del numero 2 e sopra la media di 6, viceversa se sotto la media.
Di script ne ho e ne adatto tanti, chiaro mi diletto a crearli se il progetto mi stimola.
Per Gabby non conosco il metodo in questione non leggo tutto del forum, se ti interessa prova a fare una richiesta ex-novo se non c'entra con la lotteria di questo post con tutti i dettagli del caso.
Ciao
Poi evidenze del 2 è ultima sortita come vedi ha ritardo zero mentre gli altri dati si riferiscono alle presenze nel numero e al ritardo storico.
Mentre + media, come vedi media ferquenza = 182 e la freq 188 del numero 2 e sopra la media di 6, viceversa se sotto la media.
Di script ne ho e ne adatto tanti, chiaro mi diletto a crearli se il progetto mi stimola.
Per Gabby non conosco il metodo in questione non leggo tutto del forum, se ti interessa prova a fare una richiesta ex-novo se non c'entra con la lotteria di questo post con tutti i dettagli del caso.
Ciao
Si... ma non credere che avendo solo 40 numeri sia più facile: io credevo la stessa cosa !! Questo è vero solo statisticamente, ma posso assicurarti che ha la stessa sorte del superenalotto !!!
Gabrieleno90
Member
Lo so lo so, non sono un gioccherellone, per ora sto solo valutando.. dimmi un po', giochi solo a vincicasa?
Si si... solo a questo !!!
Gabrieleno90
Member
Io stavo pensando anche alleurojeckpot, sembrerebbe interessante, oppure al millions, ma solo una volta a settimana..
Io sono dell'idea che sia meglio seguirne solo una, oltretutto anche per una questione economica !! Anche perchè, al 99% a vincere è sempre Sisal !!!!
Gabrieleno90
Member
Su questo sono d'accordo con te, ma sai, mai dire mai, tipo oggi non gioco a vincicasa, gioco ogni tanto, e poi su questi giochi ci sto mettendo 10€.
Una domanda come mai non stai più scrivendo sul post di nikor?
Io a Nikor lo seguo fin da quando ha aperto il thread sul Vincicasa... Spesso non commento, anche perchè io non sono alla sua altezza nella ricerca statistica del gioco.... Comunque "faccio sentire la mia presenza" mettendo dei like ai suoi post.... Io spesso non scrivo, ma leggo sempre e tutto !!!!
Gabrieleno90
Member
Dai mi fa molto piacere, vediamo di collaborare assieme tutti quanti per battere il banco ok? Come si fa a contattarti privatamente?
Volentieri.... Sul contatto privato non saprei aiutarti: so che è vietato... anche se non ci sarebbe niente di male !!
Gabrieleno90
Member
Su questo sono d'accordo anche io, purtroppo e vietato, ma come si fa a scambiarci il contatto per analizzare assieme se non c'e lo permettono? uffi
Gabrieleno90
Member
uno script per gli ambi + frequenti.
P.s. per utilizzare lo script bisogna avere l'archivio con nome VinciCasa nella cartella di spaziometria.
Codice:Sub Main Dim sFileBd Dim sChrSep sfile = GetDirectoryAppData & "vincicasa.txt" 'sfile = ScegliFile("C:\.....\Desktop\.txt") Call ApriBaseDatiFT(sfile,5,",",40) '================================================= Dim T,V Ini = 1'EstrazioneFin - estr fin = EstrazioniArchivioFT Tot = fin - Ini + 1 qa = CInt(InputBox("Quanti Ambi Vuoi Visualizzare",,10)) Scrivi "Presenze VinciCasa",1,,,1,3,,1 Scrivi "Range Inizio : " & GetInfoEstrazioneFT(Ini) Scrivi "Range Fine : " & GetInfoEstrazioneFT(fin) Scrivi "Totali Estraz.: " & Tot 'Scrivi "Media Presenza: " & Int(Tot/11) Scrivi Dim F(4005,4) 'Scrivi "Ambi più Frequenti - Fr - Rit",1 T = Array(T,"N","Ambo + freq","Freq","Ritardo") Call InitTabella(T,1,,3,5) For xx = 1 To 89 For yy = xx + 1 To 90 af = AmboFrequenzaFT(xx,yy,Ini,fin) ar = AmboRitardoFT(xx,yy,Ini,fin) 'If af > 3 Then kf = kf + 1 F(kf,1) = "Ambo Freq... " F(kf,2) = Format2(xx) & "." & Format2(yy) F(kf,3) = af F(kf,4) = ar 'End If Next Next Call OrdinaMatrice(F,- 1,3) For xy = 1 To qa 'Scrivi F(xy,1) & F(xy,2) & " - " & F(xy,3) & " - Ritarda da... " & F(xy,4) V = Array(V,xy,F(xy,2),F(xy,3), F(xy,4)) Call AddRigaTabella(V) Next CreaTabella 'Scrivi Scrivi "Script By Mike58",1,,,1,3 End Sub
Buonaserara Mike, vorrei chiederti un altro favore. Vorrei introdurre nel mio script la ricerca di quaterna e cinquina sul tabellone analitico. È possibile?
Allegati
Ultima modifica:
Gabrieleno90
Member
Sub Main
Dim sFile
Dim sRecord
Dim k,nu(5),nuV(90),nuR(1),cad(5)
Dim idEstr
Scrivi " Script Per Archivio **** VINCICASA **** By Mike58 **** ",1,1,2,4,4
' scrivo un file che leggero successivamente con le ultime estrazioni
sFile = "C:\Users\Gabriele Carta\AppData\Roaming\spaziometria\vincicasa.txt"
'Call ScriviFileEstrazioni(sFile,1)
' da ora in poi tutte le funzioni da utilizzare sono quelle che terminano con FT
' che servono per lavorare su archivi di file di testo
If ApriBaseDatiFT(sFile,5,",",40) Then
Ini = EstrazioneIni
'kk = kk + 1
idEstr = EstrazioniArchivioFT
kk = idEstr - Ini + 1
ScegliNumeri(nuV)
sRecord = "L'archivio letto va da " & GetInfoEstrazioneFT(1) & " a " & GetInfoEstrazioneFT(EstrazioniArchivioFT)
Call Scrivi(sRecord)
Scrivi "Estrazioni analizzate..." & kk
Scrivi
Scrivi "------ Elenco Estrazioni ------",1
Scrivi
Scrivi "Verifica Numeri Giocati.... " & StringaNumeri(nuV),1,1,,1,3
For es = Ini To idEstr
For p = 1 To 5
nu(p) = EstrattoFT(es,p)
'If EstrattoFrequenzaFT(nu(p),Ini,es) > 1 Then nu(p) = 0
Next
Call VerificaEsitoFT(nuV,es,1,1,esito,,estratti,id)
somma = nu(1) + nu(2) + nu(3) + nu(4) + nu(5)
Scrivi FormatSpace(IndiceAnnualeFT(es),2) & " " & " " & DataEstrazioneFT(es) & " " & StringaNumeri(nu,,1) & " Peso...." & _
FormatSpace(somma,3),0,0
Scrivi " - " & estratti & " " & esito
Next
Scrivi "------------------Analitico----------------------"
For es = idEstr To Ini Step - 1' To idEstr
For p = 1 To 5
nu(p) = EstrattoFT(es,p)
cad(p) = EstrattoFT(es,p)
If EstrattoFrequenzaFT(nu(p),es,idEstr) > 1 Then nu(p) = "--"
If EstrattoFrequenzaFT(cad(p),es,idEstr) = 1 Then cad(p) = "--"
Next
Scrivi DataEstrazioneFT(es) & " " & StringaNumeri(nu,,1) & " - Ritarda da.... " & idEstr - es,0,0
Scrivi vbTab & " Caduti " & StringaNumeri(cad,,1)
Next
Scrivi
' preimposto i titoli delle colonne
ReDim aTitoli(4)
aTitoli(1) = "Numero"
aTitoli(2) = "Frequenza"
aTitoli(3) = "Ritardo"
aTitoli(4) = " Rit.Prec "
' inizializzo la tabella
Call InitTabella(aTitoli,1,,,5)
For k = 1 To 40 ' ciclo numeri
nuR(1) = k
Call StatisticaFormazioneFT(nuR,1,rit,max,Incr,fre,Ini,idEstr)
sf = EstrattoFrequenzaFT(k,Ini,idEstr)
rp1 = EstrattoRitardoFT(k,Ini,idEstr - 1)
ReDim aValori(4) ' abbiamo 2 titoli quindi anche qui dimensioniamo con 2 colonne
aValori(1) = Format2(k) ' numero
aValori(2) = fre'EstrattoFrequenzaFT(k,Ini,idEstr) ' valore della frequenza
aValori(3) = rit'EstrattoRitardoFT(k,Ini,idEstr)
If rit = 0 Then aValori(4) = rp1
If rit > 0 Then aValori(4) = " - "
Call AddRigaTabella(aValori,,,3)
Call SetColoreCella(1,3,1)
If pari(k) And sf > 0 Then par = par + 1
If dispari(k) And sf > 0 Then ds = ds + 1
If k > 0 And k < 10 And sf > 0 Then dc1 = dc1 + 1
If k > 10 And k < 21 And sf > 0 Then dc2 = dc2 + 1
If k > 20 And k < 31 And sf > 0 Then dc3 = dc3 + 1
If k > 30 And k < 41 And sf > 0 Then dc4 = dc4 + 1
If sf > 0 Then us = us + 1
If rit = kk Then Call SetColoreCella(1,2,4)
If rit = 0 Then Call SetColoreCella(3,3,1)
If aValori(4) = kk - 1 Then Call SetColoreCella(4,4,2)
Next
' ora che ho terminato l'analisi e ho finito di accodare le righe
' creo la tabella e la ordino per la colonna 2 che rappresenta la frequenza
Call CreaTabella(0,,,,1)
End If
Scrivi "Numeri Pari......" & par
Scrivi "Numeri dispari..." & ds
Scrivi "1° Decina...01-09....." & dc1
Scrivi "2° Decina...10-19....." & dc2
Scrivi "3° Decina...20-29....." & dc3
Scrivi "4° Decina...30-40....." & dc4
Scrivi
Scrivi "Numeri usciti...." & us,1
Scrivi "Rimasti.........." & 40 - us,1
ReDim nd1(10)
For k1 = 1 To 40
kk1 = EstrattoFrequenzaFT(k1,Ini,idEstr)
kk2 = EstrattoRitardoFT(k1,Ini,idEstr)
riga = riga & kk1 & " "
rita = rita & Format2(kk2) & " "
Next
Scrivi
Scrivi "01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40",1,1,,0,3
Scrivi String(150,"-")
Scrivi riga,1,1,,1,3
Scrivi rita,1,1,,2,3
End Sub
Da questo codice esce la tabella analitica postata poco fa ok?
Il problema e che quella tabella mi da solamente Ambo e terno, ma non la Quaterna o Cinquina Mike capito?
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 23 aprile 2024Bari4722342050Cagliari3314860262Firenze6122441926Genova2112578255Milano6605117030Napoli0523255273Palermo2344497165Roma8237593471Torino2642661558Venezia5706685484Nazionale2179490301Estrazione Simbolotto
Genova
2402190327
