Novità

Ogni tanto mi viene un'idea in mente

G

gorilla81

Super member
Buona sera a tutti/e voi!
Sono alla presa con un mio modo di vedere il lotto ma senza una statistica non è facile capire quanto sia giusto questo mio modo di pensare...
Chiedo a chi possa aiutarmi nell'uso di Spaziometria (e ringrazio LuigiB, da quando lo ha messo a disposizione di tutti noi mi diverto un sacco a cercare previsioni vincenti), un listato in cui ad ogni estrazione viene sommato il primo estratto di bari a quello dell'estrazione precedente.

Spero qualcuno mi risponderà al più presto!

Buon proseguimento a tutti/e voi!!!
 
Eccoti lo script... Ciao

Codice: 
Sub main()
Dim ruota(10)
Dim ambata(1)
Dim posta(1)
posta(1) = 1
co=0
r = InputBox("Ruota di gioco?",,1) 
x =InputBox("Estrazione di partenza?",,8500)
k =InputBox("Colpi di gioco?",,10)
ini= x
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
Messaggio (es)
ruota(1)= r
casi=casi+1
a = Estratto(es-1,BA_,1) : b = Estratto(es,BA_,1)
ColoreTesto 1:Scrivi String (100,"*")&" Caso n° "& Format2(casi),1 : ColoreTesto 0
co=co+1 
Scrivi DataEstrazione(es-1)& "    " & SiglaRuota(1) & "    " & StringaEstratti(es-1,1)& "    " & Format2(a),1
Scrivi DataEstrazione(es)& "    " & SiglaRuota(1) & "    " & StringaEstratti(es,1)& "    " & Format2(b),1
ambata(1)= Fuori90(a+b)
ImpostaGiocata 1,ambata,ruota,posta,k,1
Gioca es,1
Next
ScriviResoconto
End Sub
 
Buona sera a tutti.

Chiedo gentilmente a Blackmore se può mettere in questo script,l'indice mensile.

Grazie
Janez57
 
Basta inserire If Indicemensile(es) = "l'estrazione che vuoi" Then, sotto For es=ini To fin
e aggiungere end if sotto gioca es,1
Ciao
 
Grazie mille Blackmore!!! Mi dici, per favore, qual'è la stringa se invece dell'addizione volessi fare la differenza fra i due numeri? E poi saresti così gentile da fare la stessa cosa anche per quanto riguarda il secondo estratto sempre di Bari? Grazie mille anticipatamente e scusa ancora per il disturbo!
 
Ultima modifica:
gorilla81 ha scritto:
Grazie mille Blackmore!!! Mi dici, per favore, qual'è la stringa se invece dell'addizione volessi fare la differenza fra i due numeri? E poi saresti così gentile da fare la stessa cosa anche per quanto riguarda il secondo estratto sempre di Bari? Grazie mille anticipatamente e scusa ancora per il disturbo!
Clicca per espandere...



Te l'ho scritto nel listato.... ciao !!!

Codice: 
'per la differenza: ambata(1) = differenza(a,b) e ambata(2) = differenza(c,d)
'per la distanza: ambata(1) = distanza(a,b) e ambata(2) = distanza(c,d)
Sub Main()
	Dim ruota(10)
	Dim ambata(10)
	Dim posta(1)
	posta(1) = 1
	co = 0
	r = InputBox("Ruota di gioco?",,1)
	x = InputBox("Estrazione di partenza?",,8500)
	k = InputBox("Colpi di gioco?",,10)
	ini = x
	fin = EstrazioneFin
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		Messaggio(es)
		p1 = 1 ' posizione = 1°
		p2 = 2 ' posizione = 2°
		ruota(1) = r
		casi = casi + 1
		a = Estratto(es - 1,BA_,p1) : b = Estratto(es,BA_,p1)
		c = Estratto(es - 1,BA_,p2) : d = Estratto(es,BA_,p2)
		Scrivi String(105,"*") & " Caso n° " & Format2(casi),1 : ColoreTesto 0
		co = co + 1
		ColoreTesto 1
		Scrivi DataEstrazione(es - 1) & "    " & SiglaRuota(1) & "    " & StringaEstratti(es - 1,1) & "     " & p1 & "°Estratto = " & Format2(a) & "    " & p2 & "°Estratto = " & Format2(c),1
		Scrivi DataEstrazione(es) & "    " & SiglaRuota(1) & "    " & StringaEstratti(es,1) & "     " & p1 & "°Estratto = " & Format2(b) & "    " & p2 & "°Estratto = " & Format2(d),1
		ColoreTesto 0
		ambata(1) = Fuori90(a + b) 'gioca la somma dei primi estratti di Bari
		ambata(2) = Fuori90(c + d) 'gioca la somma dei secondi estratti di Bari
		' se vuoi giocare solo un ambata metti l'apice (') davanti all'ambata che vuoi escludere
		ImpostaGiocata 1,ambata,ruota,posta,k,1
		Gioca es,1
	Next
	Scrivi:Scrivi:Scrivi:ScriviResoconto
End Sub
 
Scusa ancora, per cambiare la ruota degli estratti (esempio adesso era bari, se io volessi fare lo studio su cagliari) qual'è il valore da modificare?
 
Ho inserito un inputbox nel listato con l'indicazione
Ciao


Codice: 
'per la differenza: ambata(1) = differenza(a,b) e ambata(2) = differenza(c,d)
'per la distanza: ambata(1) = distanza(a,b) e ambata(2) = distanza(c,d)
Sub Main()
	Dim ruota(10)
	Dim ambata(10)
	Dim posta(1)
	posta(1) = 1
	co = 0
	rr= InputBox("Scegli la ruota degli estratti",,1) 'Qui cambi la ruota di ricerca degli estratti 
	r = InputBox("Ruota di gioco?",,1)                'Qui cambi la ruota di gioco 
	x = InputBox("Estrazione di partenza?",,8500)
	k = InputBox("Colpi di gioco?",,10)
	ini = x
	fin = EstrazioneFin
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		Messaggio(es)
		p1 = 1 ' posizione = 1°
		p2 = 2 ' posizione = 2°
		ruota(1) = r   
		casi = casi + 1
		a = Estratto(es - 1,rr,p1) : b = Estratto(es,rr,p1)
		c = Estratto(es - 1,rr,p2) : d = Estratto(es,rr,p2)
		Scrivi String(105,"*") & " Caso n° " & Format2(casi),1 : ColoreTesto 0
		co = co + 1
		ColoreTesto 1
		Scrivi DataEstrazione(es - 1) & "    " & SiglaRuota(rr) & "    " & StringaEstratti(es - 1,rr) & "     " & p1 & "°Estratto = " & Format2(a) & "    " & p2 & "°Estratto = " & Format2(c),1
		Scrivi DataEstrazione(es) & "    " & SiglaRuota(rr) & "    " & StringaEstratti(es,rr) & "     " & p1 & "°Estratto = " & Format2(b) & "    " & p2 & "°Estratto = " & Format2(d),1
		ColoreTesto 0
		ambata(1) = Fuori90(a + b) 'gioca la somma dei primi estratti di Bari
		ambata(2) = Fuori90(c + d) 'gioca la somma dei secondi estratti di Bari
		' se vuoi giocare solo un ambata metti l'apice (') davanti all'ambata che vuoi escludere
		ImpostaGiocata 1,ambata,ruota,posta,k,1
		Gioca es
	Next
	Scrivi:Scrivi:Scrivi:ScriviResoconto
End Sub
 
gorilla81 ha scritto:
Scusa ancora, per cambiare la ruota degli estratti (esempio adesso era bari, se io volessi fare lo studio su cagliari) qual'è il valore da modificare?
Clicca per espandere...

senza voler togliere nulla a black per cambiare le ruote devi laciare lo script e ti appare una finestra che chiede la ruota è ci è scritto 1 ovvero bari
se inserisci 2 andra a cagliari 3 a firenze e così via fino a 10 sono le ruote la 11 corrisponderebbe a tutte e 12 alla nazionale. speri di essere stato esaustivo
 
Grazie mille ragazzi! Ho provato a fare come dicevi tu Keeper prima di inserire la mia ultima richiesta ma nel listato mi sono accorto che veniva fuori ancora la ruota di Bari.
Buona giornata!
 
Ciao Keeper, nei listati precedenti non si poteva fare tramite la inputbox, nell'ultimo postato invece si
Gorilla copiati quello
Ciao
 
Gentilissimi ragazzi, adesso funziona alla perfezione!
Altri quesito...
1) se volessi giocare su più ruote?
2) se volessi giocare le 2 ambate per ambo?
3) se volessi abbinare alla prima ambata un numero per ambo?

Spero di non disturbarvi!
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 04 maggio 2026
    Bari
    22
    24
    23
    33
    09
    Cagliari
    40
    15
    22
    90
    51
    Firenze
    70
    02
    71
    41
    40
    Genova
    51
    80
    25
    69
    30
    Milano
    23
    28
    89
    02
    64
    Napoli
    16
    54
    41
    08
    56
    Palermo
    18
    25
    11
    66
    36
    Roma
    28
    07
    03
    47
    76
    Torino
    72
    24
    01
    07
    70
    Venezia
    10
    80
    17
    69
    13
    Nazionale
    06
    39
    41
    42
    38
    Estrazione Simbolotto
    Milano
    18
    31
    25
    04
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto