Novità

Script x Ambata e Ambo a fine mese HELP

costbat

Member
Salve
Siccome sono assai imbranato (causa memoria) negli script, avrei bisogno di una mano.
Lo script che vedete (prima che Baffo Luigi Claudio & C si inc., spiego che non l’ho formattato perchè altrimenti per leggere i commenti dovevo andare fin dietro lo schermo del monitor), serve ad ogni fine mese per prendere il 3° estratto di BA , sommarci un numero a piacere (meglio sommarci lo zero) e giocarlo come ambata su BA-CA. Questo sono riuscito a farlo smanettando lo script di altri (vedi le note all’interno dello stesso).
Quello che non riesco a fare è di estrapolare anche i 10 numeri in cadenza con l’ambata e giocarli a gruppi di 4 o 5 numeri per ambo sempre su BA-CA
Nelle mie statistiche cartacee l’ambo in cadenza ha una frequenza di uscita molto buona e se si riuscisse a verificarlo con lo script sarebbe il max.
Se l’anima pia volesse anche cimentarsi nell’inserire le altre 2 condizioni segnate nelle note interne (partire a giocare dopo 2, 3 o più colpi ed anche aumentare la posta di gioco in corsa), potremmo così tutti verificare la soluzione più conveniente ad ogni fine mese.
Grazie infinite
Codice:
' 25/10/2011 da Lottoced/area download/da PFCA a KJO .
' Ultima del mese +0 (VA' MEGLIO). al 3° estr. di BA e giocare su BA-CA x ambata. Da Sistemare per l'Ambo in cadenza.
' Devo sistemare per avere anche la cadenza (10num), se posso aumentare automatic. la posta dopo alcuni colpi nulli
' e se posso provare a far partire le giocate dopo alcuni colpi per vedere se conviene.
Sub Main()
Dim ruote(10)
Dim num(10)
Dim posta(3) ' puoi giocare per ambata, ambo e terno
posta(1) = 5 ' < - - - posta per estratto
'posta(2) = 1   ' < - - - posta per ambo da inserire appena trovo come estrarre anche la cadenza dell'ambata

r = InputBox("Quale Ruota vuoi analizzare:"," Scegli la Ruota 1=BA, 2=CA, 11=TT, 12=NZ ",1)
es = InputBox("0 = ultima, 1 = prima, 2 = seconda, etc. del mese","Scegli l'estrazione",0)
ne = InputBox("Quanti estratti vuoi utilizzare: 1, 2, 3, 4, 5"," Scegli la quantità di estratti",1)

If ne = 1 Then ' questo è il mio caso che voglio utilizzare un solo estratto
ne1 = InputBox("In quale posizione è l'estratto:","Scegli la posizione dell'estratto",3)
End If

' pf = InputBox("Quale Numero vuoi sommare all'estratto:"," Con il fuori x",11)
pf = InputBox("Quale Numero vuoi sommare all'estratto:"," Con il fuori 90",0)
k = InputBox("Quante Estrazioni successive vuoi giocare:","Per quanti colpi",10)
ric = InputBox("Su quante Estrazioni vuoi fare la ricerca:","Scegli la quantita di estrazioni da analizzare",180)
nr = InputBox("Su quante Ruote vuoi giocare: 1 - 2 ","Scegli il numero delle Ruote su cui giocare",2)

If nr = 2 Then      ' questo è il mio caso (2 ruote sulle quali giocare)

ruote(1) = InputBox("Scegli la prima Ruota di gioco:"," 1° Ruota",1)     'BA 
ruote(2) = InputBox("Scegli la seconda Ruota di gioco:"," 2° Ruota",2)   'CA   
End If

na = InputBox("Vuoi sommare o sottrarre un Altro numero all' Ambata?"," 1 = Sì  ;  2 = No",2)

If na = 1 Then
ss = InputBox("Sommare = 1 Sottrarre = 2 ","Digita la scelta",1)
na1 = InputBox("Quale numero?","Digita il numero",30)
End If

ini = EstrazioneFin - ric
fin = EstrazioneFin
For n = ini To fin
Messaggio(n)

'If IndiceMensile(es + 1) <= 1 Then    ' così dovrebbe trovare l'ultima dal mese anche se è appena stata fatta
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
n1 = Estratto(n,r,1)
n2 = Estratto(n,r,2)
n3 = Estratto(n,r,3)
n4 = Estratto(n,r,4)
n5 = Estratto(n,r,5)

If ne = 1 Then ' questo è il mio caso di un solo estratto su BA da prendere
numb = Estratto(n,r,ne1) ' numero estrazioni decise, ruota scelta , posizione dell'estratto deciso sopra
End If

If numb > 90 Then ' non dovrebbe succedere mai
rs = Int(numb/pf) 'altrimenti il divide by zero farebbe un casino
ris = 0
For f = 1 To rs
ris = numb -(pf * f)
If ris < 90 Then Exit For
Next
Else
ris = Fuori90(numb + pf) ' ris è l'Ambata fatta da: numb che è il numero in 3a posizione + pf che vale 0 (e non 11)
End If

If na = 1 Then ' scelta fatta per sommare o sottrarre qualcosa all'ambata, non è il mio caso
'posta(2) = 1    ' < - - - posta per Ambo
'posta(3) = 0    ' < - - - posta per terno
num(1) = ris ' è il numero da cui partire (3° di BA)
'num(2) = DiametraleD(ris)   ' asteriscato per eliminare un'altro numero che non mi serve(Diametrale in decina)

If ss = 1 Then ' la scelta 1 serve se vuoi sommare qualcosa all'ambata, non è il mio caso
num(3) = Fuori90(ris + na1) ' num(3) sarebbe un'altro numero per ambo (ris = ambata ,  e poi na1 = + 30 all'ambata)
End If

If ss = 2 Then ' non dovrebbe passare di qui perchè na=2
If num(1) > na1 Then
num(3) = num(1) - na1
End If
If num(1) < na1 Then
num(3) = na1 - num(1)
End If
End If
End If

If na = 2 Then ' na=2 significa non sommare 30 all'ambata (e provo ad estrarre la cadenza CAZZO che dà spesso l'ambo)
num(1) = ris ' è l'Ambata
'num(2) = Cadenza(ris)     ' mi dà solo il primo numero di quella cadenza
'num(3) = Cadenza(num(2))  ' con(ris) e con (num(2)) non dà niente dipiù di quello sopra
'num(4) = DiametraleD(ris) ' diametrale in decina

Scrivi "-----------------------------------------------------------------------------------"
ColoreTesto 1
Scrivi "Ruota di ricerca: " & FormatSpace(NomeRuota(r),10) & " Data Estraz.: " & DataEstrazione(n) & " Estratti: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5
Scrivi "Estratti del giorno: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5 & " estratto scelto = " & numb & " Estratto + " & pf & " = " & num(1)
Scrivi "Ambata: " & num(1) & " Per sorti maggiori: " & num(1) & "-" & num(2)
ColoreTesto 0
Scrivi "-----------------------------------------------------------------------------------"
End If
ColoreTesto 2
If nr = 1 Then
Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10)
ColoreTesto 0
Scrivi "--------------------------------------------------------------------------------"
End If
If nr = 2 Then
Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10) & " 2° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(2)),10)
ColoreTesto 0
Scrivi "--------------------------------------------------------------------------------"
End If
ImpostaGiocata 1,num,ruote,posta,k,1 'con ,1 dopo il k si ferma a qualsiasi esito verificato
'ImpostaGiocata 2,num,ruote,posta,k,2  'con ,2 si ferma all'Ambo. Da inserire quando avrò anche la cadenza
'Gioca n,- 1        'cosi ti fà vedere solo le estrazioni vincenti
Gioca n 'cosi ti fà vedere tutti i colpi
End If
Next
ColoreTesto 1
Scrivi ""
Call TestoInBandaPassante("Script di pfca per kjo e modificato ALLA MENO PEGGIO da Costbat(N.B. VA' MEGLIO +0 degli altri sommativi)")
Scrivi ""
ColoreTesto 0
ScriviResoconto
End Sub
L’ultima di genn. il 3° estratto di BA è il 18 perciò andrebbe giocato su BA-CA, attenzione che è già uscito anche a CA 2 colpi fà , giocare poi la cadenza 8-18-28-38-ecc. x Ambo sulle 2 ruote, negli ultimi 20 colpi quelli che mancano sono il 38 e 58 ma non vuol dire.
Ciao
 
Manca la progressione e ti ho inserito le cadenze in blocco decina ed attesa x ritardare l'inizio giocata.
(se c'e lambo nel blocco decine, è automatico che ci sia nel sistema a quartine con garanzia ambo)

ciao

Codice:
' 25/10/2011 da Lottoced/area download/da PFCA a KJO .
' Ultima del mese + 0 (VA' MEGLIO). al 3° estr. di BA e giocare su BA-CA x ambata. Da Sistemare per l'Ambo in cadenza.
' Devo sistemare per avere anche la cadenza (10num), se posso aumentare automatic. la posta dopo alcuni colpi nulli
' e se posso provare a far partire le giocate dopo alcuni colpi per vedere se conviene.
Sub Main()
	Dim ruote(10)
	Dim num(10)
	Dim num1(10)
	Dim posta(5) ' puoi giocare per ambata
	Dim posta1(5) ' puoi giocare per ambata, ambo e terno
	posta(1) = 5 ' < - - - posta per estratto
	posta1(2) = 1
	posta1(3) = 1 ' < - - - posta per ambo da inserire appena trovo come estrarre anche la cadenza dell'ambata
	r = InputBox("Quale Ruota vuoi analizzare:"," Scegli la Ruota 1=BA, 2=CA, 11=TT, 12=NZ ",1)
	es = InputBox("0 = ultima, 1 = prima, 2 = seconda, etc. del mese","Scegli l'estrazione",0)
	ne = InputBox("Quanti estratti vuoi utilizzare: 1, 2, 3, 4, 5"," Scegli la quantità di estratti",1)
	If ne = 1 Then ' questo è il mio caso che voglio utilizzare un solo estratto
		ne1 = InputBox("In quale posizione è l'estratto:","Scegli la posizione dell'estratto",3)
	End If
	' pf = InputBox("Quale Numero vuoi sommare all'estratto:"," Con il fuori x",11)
	pf = InputBox("Quale Numero vuoi sommare all'estratto:"," Con il fuori 90",0)
	k = InputBox("Quante Estrazioni successive vuoi giocare:","Per quanti colpi",10)
	ric = InputBox("Su quante Estrazioni vuoi fare la ricerca:","Scegli la quantita di estrazioni da analizzare",180)
	nr = InputBox("Su quante Ruote vuoi giocare: 1 - 2 ","Scegli il numero delle Ruote su cui giocare",2)
	If nr = 2 Then ' questo è il mio caso (2 ruote sulle quali giocare)
		ruote(1) = InputBox("Scegli la prima Ruota di gioco:"," 1° Ruota",1) 'BA
		ruote(2) = InputBox("Scegli la seconda Ruota di gioco:"," 2° Ruota",2) 'CA
	End If
	na = InputBox("Vuoi sommare o sottrarre un Altro numero all' Ambata?"," 1 = Sì  ;  2 = No",2)
	If na = 1 Then
		ss = InputBox("Sommare = 1 Sottrarre = 2 ","Digita la scelta",1)
		na1 = InputBox("Quale numero?","Digita il numero",30)
	End If
	ini = EstrazioneFin - ric
	fin = EstrazioneFin
	For n = ini To fin
		Messaggio(n)
		'If IndiceMensile(es + 1) <= 1 Then    ' così dovrebbe trovare l'ultima dal mese anche se è appena stata fatta
		If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
			n1 = Estratto(n,r,1)
			n2 = Estratto(n,r,2)
			n3 = Estratto(n,r,3)
			n4 = Estratto(n,r,4)
			n5 = Estratto(n,r,5)
			If ne = 1 Then ' questo è il mio caso di un solo estratto su BA da prendere
				numb = Estratto(n,r,ne1) ' numero estrazioni decise, ruota scelta , posizione dell'estratto deciso sopra
			End If
			If numb > 90 Then ' non dovrebbe succedere mai
				rs = Int(numb/pf) 'altrimenti il divide by zero farebbe un casino
				ris = 0
				For f = 1 To rs
					ris = numb -(pf * f)
					If ris < 90 Then Exit For
				Next
			Else
				ris = Fuori90(numb + pf) ' ris è l'Ambata fatta da: numb che è il numero in 3a posizione + pf che vale 0 (e non 11)
			End If
			If na = 1 Then ' scelta fatta per sommare o sottrarre qualcosa all'ambata, non è il mio caso
				'posta(2) = 1    ' < - - - posta per Ambo
				'posta(3) = 0    ' < - - - posta per terno
				num(1) = ris ' è il numero da cui partire (3° di BA)
				'num(2) = DiametraleD(ris)   ' asteriscato per eliminare un'altro numero che non mi serve(Diametrale in decina)
				If ss = 1 Then ' la scelta 1 serve se vuoi sommare qualcosa all'ambata, non è il mio caso
					num(3) = Fuori90(ris + na1) ' num(3) sarebbe un'altro numero per ambo (ris = ambata ,  e poi na1 = + 30 all'ambata)
				End If
				If ss = 2 Then ' non dovrebbe passare di qui perchè na=2
					If num(1) > na1 Then
						num(3) = num(1) - na1
					End If
					If num(1) < na1 Then
						num(3) = na1 - num(1)
					End If
				End If
			End If
			If na = 2 Then ' na=2 significa non sommare 30 all'ambata (e provo ad estrarre la cadenza CAZZO che dà spesso l'ambo)
				num(1) = ris ' è l'Ambata
				
				num1(2) = Fuori90(Cadenza(ris)+90)     ' mi dà solo il primo numero di quella cadenza
				num1(3) = Cadenza(ris)+10
				num1(4) = Cadenza(ris)+20
				num1(5) = Cadenza(ris)+30
				num1(6) = Cadenza(ris)+40
				num1(7) = Cadenza(ris)+50
				num1(8) = Cadenza(ris)+60
				num1(9) = Cadenza(ris)+70
				num1(10) = Cadenza(ris)+80
				'num(3) = Cadenza(num(2))  ' con(ris) e con (num(2)) non dà niente dipiù di quello sopra
				'num(4) = DiametraleD(ris) ' diametrale in decina
				Scrivi "-----------------------------------------------------------------------------------"
				ColoreTesto 1
				Scrivi "Ruota di ricerca: " & FormatSpace(NomeRuota(r),10) & " Data Estraz.: " & DataEstrazione(n) & " Estratti: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5
				Scrivi "Estratti del giorno: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5 & " estratto scelto = " & numb & " Estratto + " & pf & " = " & num(1)
				Scrivi "Ambata: " & num(1) & " Per sorti maggiori: " & num(1) & "-" & num(2)
				ColoreTesto 0
				Scrivi "-----------------------------------------------------------------------------------"
			End If
			ColoreTesto 2
			If nr = 1 Then
				Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10)
				ColoreTesto 0
				Scrivi "--------------------------------------------------------------------------------"
			End If
			If nr = 2 Then
				Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10) & " 2° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(2)),10)
				ColoreTesto 0
				Scrivi "--------------------------------------------------------------------------------"
			End If
			attesa = 1 'serva a dare estrazioni di attesa prina di giocare che occorre aggiungere a K per mantenere i colpi 
			ImpostaGiocata 1,num,ruote,posta,(k+attesa),1,attesa 'con ,1 dopo il k si ferma a qualsiasi esito verificato
			ImpostaGiocata 2,num1,ruote,posta1,(k+attesa),2,attesa  'con ,2 si ferma all'Ambo. Da inserire quando avrò anche la cadenza
			'Gioca n,- 1       'cosi ti fà vedere solo le estrazioni vincenti
			'Gioca n'  'cosi ti fà vedere tutti i colpi
			Gioca n,,,1 'cosi ti fà vedere tutti icolpi e gli estratti
		End If
	Next
	ColoreTesto 1
	Scrivi ""
	Call TestoInBandaPassante("Script di pfca per kjo e modificato ALLA MENO PEGGIO da Costbat(N.B. VA' MEGLIO +0 degli altri sommativi)")
	Scrivi ""
	ColoreTesto 0
	ScriviResoconto
End Sub
 
Manca la progressione e ti ho inserito le cadenze in blocco decina ed attesa x ritardare l'inizio giocata.
(se c'e lambo nel blocco decine, è automatico che ci sia nel sistema a quartine con garanzia ambo)

ciao

Codice:
' 25/10/2011 da Lottoced/area download/da PFCA a KJO .
' Ultima del mese + 0 (VA' MEGLIO). al 3° estr. di BA e giocare su BA-CA x ambata. Da Sistemare per l'Ambo in cadenza.
' Devo sistemare per avere anche la cadenza (10num), se posso aumentare automatic. la posta dopo alcuni colpi nulli
' e se posso provare a far partire le giocate dopo alcuni colpi per vedere se conviene.
Sub Main()
    Dim ruote(10)
    Dim num(10)
    Dim num1(10)
    Dim posta(5) ' puoi giocare per ambata
    Dim posta1(5) ' puoi giocare per ambata, ambo e terno
    posta(1) = 5 ' < - - - posta per estratto
    posta1(2) = 1
    posta1(3) = 1 ' < - - - posta per ambo da inserire appena trovo come estrarre anche la cadenza dell'ambata
    r = InputBox("Quale Ruota vuoi analizzare:"," Scegli la Ruota 1=BA, 2=CA, 11=TT, 12=NZ ",1)
    es = InputBox("0 = ultima, 1 = prima, 2 = seconda, etc. del mese","Scegli l'estrazione",0)
    ne = InputBox("Quanti estratti vuoi utilizzare: 1, 2, 3, 4, 5"," Scegli la quantità di estratti",1)
    If ne = 1 Then ' questo è il mio caso che voglio utilizzare un solo estratto
        ne1 = InputBox("In quale posizione è l'estratto:","Scegli la posizione dell'estratto",3)
    End If
    ' pf = InputBox("Quale Numero vuoi sommare all'estratto:"," Con il fuori x",11)
    pf = InputBox("Quale Numero vuoi sommare all'estratto:"," Con il fuori 90",0)
    k = InputBox("Quante Estrazioni successive vuoi giocare:","Per quanti colpi",10)
    ric = InputBox("Su quante Estrazioni vuoi fare la ricerca:","Scegli la quantita di estrazioni da analizzare",180)
    nr = InputBox("Su quante Ruote vuoi giocare: 1 - 2 ","Scegli il numero delle Ruote su cui giocare",2)
    If nr = 2 Then ' questo è il mio caso (2 ruote sulle quali giocare)
        ruote(1) = InputBox("Scegli la prima Ruota di gioco:"," 1° Ruota",1) 'BA
        ruote(2) = InputBox("Scegli la seconda Ruota di gioco:"," 2° Ruota",2) 'CA
    End If
    na = InputBox("Vuoi sommare o sottrarre un Altro numero all' Ambata?"," 1 = Sì  ;  2 = No",2)
    If na = 1 Then
        ss = InputBox("Sommare = 1 Sottrarre = 2 ","Digita la scelta",1)
        na1 = InputBox("Quale numero?","Digita il numero",30)
    End If
    ini = EstrazioneFin - ric
    fin = EstrazioneFin
    For n = ini To fin
        Messaggio(n)
        'If IndiceMensile(es + 1) <= 1 Then    ' così dovrebbe trovare l'ultima dal mese anche se è appena stata fatta
        If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
            n1 = Estratto(n,r,1)
            n2 = Estratto(n,r,2)
            n3 = Estratto(n,r,3)
            n4 = Estratto(n,r,4)
            n5 = Estratto(n,r,5)
            If ne = 1 Then ' questo è il mio caso di un solo estratto su BA da prendere
                numb = Estratto(n,r,ne1) ' numero estrazioni decise, ruota scelta , posizione dell'estratto deciso sopra
            End If
            If numb > 90 Then ' non dovrebbe succedere mai
                rs = Int(numb/pf) 'altrimenti il divide by zero farebbe un casino
                ris = 0
                For f = 1 To rs
                    ris = numb -(pf * f)
                    If ris < 90 Then Exit For
                Next
            Else
                ris = Fuori90(numb + pf) ' ris è l'Ambata fatta da: numb che è il numero in 3a posizione + pf che vale 0 (e non 11)
            End If
            If na = 1 Then ' scelta fatta per sommare o sottrarre qualcosa all'ambata, non è il mio caso
                'posta(2) = 1    ' < - - - posta per Ambo
                'posta(3) = 0    ' < - - - posta per terno
                num(1) = ris ' è il numero da cui partire (3° di BA)
                'num(2) = DiametraleD(ris)   ' asteriscato per eliminare un'altro numero che non mi serve(Diametrale in decina)
                If ss = 1 Then ' la scelta 1 serve se vuoi sommare qualcosa all'ambata, non è il mio caso
                    num(3) = Fuori90(ris + na1) ' num(3) sarebbe un'altro numero per ambo (ris = ambata ,  e poi na1 = + 30 all'ambata)
                End If
                If ss = 2 Then ' non dovrebbe passare di qui perchè na=2
                    If num(1) > na1 Then
                        num(3) = num(1) - na1
                    End If
                    If num(1) < na1 Then
                        num(3) = na1 - num(1)
                    End If
                End If
            End If
            If na = 2 Then ' na=2 significa non sommare 30 all'ambata (e provo ad estrarre la cadenza CAZZO che dà spesso l'ambo)
                num(1) = ris ' è l'Ambata
                
                num1(2) = Fuori90(Cadenza(ris)+90)     ' mi dà solo il primo numero di quella cadenza
                num1(3) = Cadenza(ris)+10
                num1(4) = Cadenza(ris)+20
                num1(5) = Cadenza(ris)+30
                num1(6) = Cadenza(ris)+40
                num1(7) = Cadenza(ris)+50
                num1(8) = Cadenza(ris)+60
                num1(9) = Cadenza(ris)+70
                num1(10) = Cadenza(ris)+80
                'num(3) = Cadenza(num(2))  ' con(ris) e con (num(2)) non dà niente dipiù di quello sopra
                'num(4) = DiametraleD(ris) ' diametrale in decina
                Scrivi "-----------------------------------------------------------------------------------"
                ColoreTesto 1
                Scrivi "Ruota di ricerca: " & FormatSpace(NomeRuota(r),10) & " Data Estraz.: " & DataEstrazione(n) & " Estratti: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5
                Scrivi "Estratti del giorno: " & n1 & "-" & n2 & "-" & n3 & "-" & n4 & "-" & n5 & " estratto scelto = " & numb & " Estratto + " & pf & " = " & num(1)
                Scrivi "Ambata: " & num(1) & " Per sorti maggiori: " & num(1) & "-" & num(2)
                ColoreTesto 0
                Scrivi "-----------------------------------------------------------------------------------"
            End If
            ColoreTesto 2
            If nr = 1 Then
                Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10)
                ColoreTesto 0
                Scrivi "--------------------------------------------------------------------------------"
            End If
            If nr = 2 Then
                Scrivi " 1° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(1)),10) & " 2° Ruota di gioco: " & FormatSpace(NomeRuota(ruote(2)),10)
                ColoreTesto 0
                Scrivi "--------------------------------------------------------------------------------"
            End If
            attesa = 1 'serva a dare estrazioni di attesa prina di giocare che occorre aggiungere a K per mantenere i colpi 
            ImpostaGiocata 1,num,ruote,posta,(k+attesa),,attesa 'con ,1 dopo il k si ferma al 1°    ------- esito verificato
            ImpostaGiocata 2,num1,ruote,posta1,(k+attesa),,attesa  ' con ,2 si ferma al 1° Ambo verificato. Da inserire quando avrò anche la cadenza
            'Gioca n,- 1       'cosi ti fà vedere solo le estrazioni vincenti
            'Gioca n'  'cosi ti fà vedere tutti i colpi
            Gioca n,,,1 'cosi ti fà vedere tutti icolpi e gli estratti
        End If
    Next
    ColoreTesto 1
    Scrivi ""
    Call TestoInBandaPassante("Script di pfca per kjo e modificato ALLA MENO PEGGIO da Costbat(N.B. VA' MEGLIO +0 degli altri sommativi)")
    Scrivi ""
    ColoreTesto 0
    ScriviResoconto
End Sub
 
Ultima modifica:
x costbat con funzione di LuigiB dell'ultima del mese

x costbat con funzione di LuigiB dell'ultima del mese

Ti ho fatto lo script da zero, senza pretese.
ma con la funzione che determina con esattezza L'ultima del mese.
In altri modi ti potrebbe falsare qualcosa
(cosa già discussa in passato e accertata)
è per quello che luigi creò la funzione apposita.


Codice:
Sub Main
    Dim ruote(2)
    Dim posta(1)
    Dim poste(2)
    Dim n(1)
    Dim cad(9)
    ruote(1) = 1
    ruote(2) = 2
    posta(1) = 1' posta per ambata
    poste(2) = 1' posta per ambo
    clp = 9' numero colpi di gioco
    ini = 8400' diminuisci se vuoi andare più a ritroso nel tempo
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        If IsUltimaDelMese(es) Then
            a = Estratto(es,1,3)' 3° estratto di bari
            n(1) = Fuori90(a + 0)' al posto dello zero metti quello che vuoi
            cad(1) = Cadenza(n(1))'il primo numero della cadenza
            cad(2) = cad(1) + 10
            cad(3) = cad(1) + 20
            cad(4) = cad(1) + 30
            cad(5) = cad(1) + 40
            cad(6) = cad(1) + 50
            cad(7) = cad(1) + 60
            cad(8) = cad(1) + 70
            cad(9) = cad(1) + 80
            co = co + 1
            ImpostaGiocata 1,n,ruote,posta,clp,1
            ImpostaGiocata 2,cad,ruote,poste,clp,2
            Gioca es
        End If
    Next
    Scrivi
    Scrivi String(65,"•")
    ColoreTesto 2
    Scrivi "casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(65,"•")
    TestoInBandaPassante " ***** Listato by Baffoblu ***** ",1,3,0
    ScriviResoconto
End Sub
Function IsUltimaDelMese(idEstr)
    Dim sData,sDataNew
    Dim idGiornoSettimana
    Dim gMancanti
    Dim nMeseCorr
    sData = Replace(DataEstrazione(idEstr),".","/")
    nMeseCorr = Month(sData)
    idGiornoSettimana = WeekDay(sData)
    Select Case idGiornoSettimana
    Case vbTuesday ' martedi
        gMancanti = 2
    Case vbThursday ' giovedi
        gMancanti = 2
    Case vbSaturday ' sabato
        gMancanti = 3
    End Select
    sDataNew = DateAdd("d",gMancanti,sData)
    If Month(sDataNew) <> nMeseCorr Then
        IsUltimaDelMese = True
    Else
        IsUltimaDelMese = False
    End If
End Function
 
opps.... claudio mi ha battuto sul tempo....

ma la funzione di ultima del mese se la scordata.!

.....bacchettate, bacchettate.....:):):)


X costbat

ho letto solo quello che hai scritto sopra,
non ho letto il tuo script, perchè troppo incasinato,
comunque le altre richieste mi sembra te le faccia claudio...

 
Ultima modifica di un moderatore:
opps.... claudio mi ha battuto sul tempo....

ma la funzione di ultima del mese se la scordata.!

.....bacchettate, bacchettate.....:):):)


X costbat

ho letto solo quello che hai scritto sopra,
non ho letto il tuo script, perchè troppo incasinato,
comunque le altre richieste mi sembra te le faccia claudio...


ce la ha gia la riga remmata x il ultima mese ... 'If IndiceMensile(es + 1) <= 1 Then ' così dovrebbe trovare l'ultima dal mese anche se è appena stata fatta

anche se non specifica come la tua che io non ho nell'help e quini no a "memoria" :):):)

ciao
 
Ultima modifica:
ce la ha gia la riga remmata x il ultima mese ... 'If IndiceMensile(es + 1) <= 1 Then ' così dovrebbe trovare l'ultima dal mese anche se è appena stata fatta

anche se non specifica come la tua che io non ho nell'help e quini no a "memoria" :):):)

ciao


Tempo fa ci fu un lungo dibattito sulla questione
del fine mese, appunto perchè essa non capita sempre
nella stessa maniera, e qualsiasi "scappatoia" è da
ritenersi errata, anche se sembrano funzionare,
ma sono limitate.
Per quello luigi creò la funzione che la determinava
con assoluta certezza.
 
Grazie Claudio e Baffo, (baffo stai punito, come ti permetti di dire che lo script è incasinato, zio ciccione).
Stavo vedendo le iene, ho preso un nervoso guardando il servizio sulle farmacie che rubano alle ASL cioe a noi e su un assicuratore che voleva il pizzo per liquidare un danno, che ho spento tutto e sono venuto qui nel forum.
Qui ci sono delle persone splendide e che non mi pare facciano quello che fanno per i soldi, CAZZAROLA.
Ora salvo i vari script da voi postati e provo.
Grazie ancora.
Ciao
 
Ultima modifica:
Tempo fa ci fu un lungo dibattito sulla questione
del fine mese, appunto perchè essa non capita sempre
nella stessa maniera, e qualsiasi "scappatoia" è da
ritenersi errata, anche se sembrano funzionare,
ma sono limitate.
Per quello luigi creò la funzione che la determinava
con assoluta certezza.


me lo ricodo, è solo che non è nell'help e non la ricordavo ciao
 
Vanno tutti e 2 come schegge.
Quello di Claudio, che partendo dalla mia crosta ha dovuto faticare sicuramente di più, mi dà anche la possibilità di saltare qualche colpo.
Quello di Baffo mi fà un nervoso, sembra tutto così semplice.
Proverò a fondere quello semplice aggiungendoci alcuni inputbox e l'istruzione "attesa" di Claudio.
Vi ringrazio.
Ciao
P.S. La function del fine mese, funziona solo da quando ci sono 3 estraz. settimanali (ho provato ad andare indietro
di molto per vedere come si comportava e salta dei mesi), ma va bene lo stesso.
 
Vanno tutti e 2 come schegge.
Quello di Claudio, che partendo dalla mia crosta ha dovuto faticare sicuramente di più, mi dà anche la possibilità di saltare qualche colpo.
Quello di Baffo mi fà un nervoso, sembra tutto così semplice.
Proverò a fondere quello semplice aggiungendoci alcuni inputbox e l'istruzione "attesa" di Claudio.
Vi ringrazio.
Ciao
P.S. La function del fine mese, funziona solo da quando ci sono 3 estraz. settimanali (ho provato ad andare indietro
di molto per vedere come si comportava e salta dei mesi), ma va bene lo stesso.

Allora innanzi tutto gli script vanno
sempre postati formattati, ecco perchè
ti ho detto che era incasinato,
oltretutto pieno di cose inutili
al tuo scopo.

La formattazione serve sempre,
sopratutto a chi non la fatto,
e deve consumarsi gli occhi per
decifrare tutti i passaggi,
per portare aiuto.

Io ho lasciato perdere lo script
che avevi postato, appunto per quel
motivo, ma mi sono limitato a leggere
quello che richiedevi nel messaggio
iniziale.

Quindi ho costruito quello script
che tutto sommato è semplice.

Esatto, fai una fusione con le altre istruzioni
che ti servono.

Quella funzione di fine mese
è stata progettata da Luigi appositamente
per le 3 estrazioni settimanali,
appunto perchè c'erano problemi per
determinare con esattezza il fine mese.

Se vuoi controllare le estrazioni
del passato "lontano", bisogna
apportare modifiche o usare altri modi.
 
OK Thank.
Tornando al discorso iniziale, non c'è nessuna istruzione che pemetta di aumentare la posta in maniera automatica dopo alcuni colpi?
Grazie.
Ciao
 
ti avevo scritto:

"Manca la progressione e ti ho inserito le cadenze in blocco decina ed attesa x ritardare l'inizio giocata."

personalmente no la inserisco mai anche se richiesto xchè è un modo di giocare che ritengo "azzardo".

Sul web circolano molti incoscienti che ignari del rischio spesso si auto distruggono finanziariamente.
 
X Claudio8
Si ho visto le possibilità inserite nello script da te corretto e sono daccordo con tè sugli incoscienti ma non appartengo a quella categoria, io giochero 6-7 volte all'anno ma mi piace smanettare con i numeri.
Purtroppo quelli che si dissanguano giocando sempre di più sperando di rifarsi, non li fermiamo ne tè ne io. Basta vedere le macchinette nei bar, prolificano come le rotonde in strada.
Ciao.
 
x cosbat

La penso come claudio sulle progressioni.
Sono cose che vanno attentamente studiate
a tavolino.
Ritengo che vadano usate con metodi
ultratestati a lungo termine con
percentuali di affidabilità molto alte.

 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16

Ultimi Messaggi

Indietro
Alto