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
    giovedì 23 luglio 2026
    Bari
    76
    59
    64
    45
    15
    Cagliari
    58
    75
    33
    44
    42
    Firenze
    84
    04
    10
    15
    82
    Genova
    89
    81
    74
    02
    65
    Milano
    17
    48
    04
    07
    75
    Napoli
    31
    54
    18
    26
    33
    Palermo
    30
    57
    78
    06
    29
    Roma
    85
    75
    08
    09
    62
    Torino
    40
    18
    13
    66
    73
    Venezia
    13
    78
    59
    23
    04
    Nazionale
    34
    59
    37
    27
    86
    Estrazione Simbolotto
    Nazionale
    41
    05
    38
    30
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto