Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
SCRIPT BY BLACK " Per Gli Amanti Della Matematica Sommativa "
Salve a tutti, vorrei chiedere una cosa. Se io volessi fare delle ricerche alla 1° o 2° ect del mese come potrei fare? Non si potrebbe implementare una inputbox con queste scelte? Inoltre non si potrebbe implementare anche in un'altra inputbox la scelta per figure decine ect?
Grazie per eventuali risposte
R
Roby
Guest
Salve a tutti, vorrei chiedere una cosa. Se io volessi fare delle ricerche alla 1° o 2° ect del mese come potrei fare? Non si potrebbe implementare una inputbox con queste scelte? Inoltre non si potrebbe implementare anche in un'altra inputbox la scelta per figure decine ect?
Grazie per eventuali risposte
Ciao Laken, il metodo è creato ad hoc per l'ultima del mese con la condizione della spia
in cadenza, se cambi questi valori il metodo si sfasa completamente e diventa inutilizzabile
Non è facile aggiungere decine e figure, bisogna trovare tutte le condizioni
e fare un nuovo metodo/script
Se vuoi provare a cambiare l'indice basta inserire:
if indicemensile(es)= "quello che vuoi" then ...... e mettere l'apice davanti a If IsUltimaDelMese (es) Then, oppure cancellarlo direttamente
Ciao
Ciao Blak, posso chiederti se è possibile su questo script far visualizzare il resoconto finale, quindi sapere quanti casi positivi e negativi (con i colpi impostati ci sono effettivamente?).
Grazie e buona giornata
MI EDITO
Come non detto, controllavo l'uscita dell'ambo su una sola ruota, grazie.
Grazie e buona giornata
MI EDITO
Come non detto, controllavo l'uscita dell'ambo su una sola ruota, grazie.
Ultima modifica:
Sub Main()ColoreTesto 1 :Scrivi:Scrivi String(120,"@"),1 : ColoreTesto 2
Scrivi String(25," ")&"ULTIMA ESTRAZIONE DEL MESE CON SPIA IN CADENZA DEL 3°ESTRATTO DI VENEZIA"
Scrivi:Scrivi String(47," ")&"METODO E SCRIPT BY BLACKMORE"
ColoreTesto 1:Scrivi String(120,"@"),1 :Scrivi
ColoreTesto 0: Scrivi "MODULI: INDICE MENSILE / SPIE IN CADENZA" : Scrivi
Dim ruota(10)
Dim am(5)
Dim cinquina(5)
Dim poste(5)
poste(2)= 2
poste(3)= 1.50
poste(4)= 0.50
r1=InputBox ("1° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",1)
r2=InputBox ("2° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",2)
ce=InputBox("ESTRAZIONE DI PARTENZA N° ?","Metodo e Script By BLACKMORE",7600)
k=InputBox ("QUANTI COLPI DI GIOCO ?","Metodo e Script By BLACKMORE",10) '<<<<<<<<<<<<<<COLPI DI GIOCO
ini=ce
fin=EstrazioneFin
Messaggio " [ Ultima del Mese + condizione Cadenza 3°di Venezia By BLACKMORE ]"
For es=ini To EstrazioneFin
Call AvanzamentoElab(Ini,fin,es)
If IsUltimaDelMese (es) Then
n1=Cadenza(Estratto(es,VE_,3))
casi=casi+1
ColoreTesto 1:Scrivi String(113,"@")& " " & casi & "°CASO",1 : ColoreTesto 1
ColoreTesto 2:Scrivi DataEstrazione(es)&" "&SiglaRuota(10)& ": "&StringaEstratti(es,10)&" [ Ultima Estrazione del Mese : Cadenza del "& (3) &"° Estratto di " & NomeRuota(10) & " = " & Format2(n1)& " ]",1
ColoreTesto 0: Scrivi
If n1 = 0 Then am(1)=Fuori90(Estratto(es,BA_,1)+Estratto(es,CA_,5)+07):am(2)=Fuori90(Estratto(es,CA_,2)+Estratto(es,NA_,4)+24):am(3)=Fuori90(Estratto(es,RO_,3)+Estratto(es,VE_,5)+62):am(4)=Fuori90(Estratto(es,CA_,3)+Estratto(es,PA_,4)+78):am(5)=Fuori90(Estratto(es,MI_,3)+Estratto(es,NA_,2)+52)
If n1 = 1 Then am(1)=Fuori90(Estratto(es,BA_,5)+Estratto(es,FI_,2)+18):am(2)=Fuori90(Estratto(es,MI_,5)+Estratto(es,NA_,4)+19):am(3)=Fuori90(Estratto(es,FI_,5)+Estratto(es,MI_,3)+62):am(4)=Fuori90(Estratto(es,CA_,1)+Estratto(es,TO_,5)+46):am(5)=Fuori90(Estratto(es,MI_,4)+Estratto(es,VE_,3)+61)
If n1 = 2 Then am(1)=Fuori90(Estratto(es,GE_,5)+Estratto(es,NA_,4)+13):am(2)=Fuori90(Estratto(es,BA_,2)+Estratto(es,RO_,2)+35):am(3)=Fuori90(Estratto(es,CA_,2)+Estratto(es,VE_,4)+62):am(4)=Fuori90(Estratto(es,GE_,3)+Estratto(es,NA_,4)+42):am(5)=Fuori90(Estratto(es,BA_,3)+Estratto(es,NA_,1)+81)
If n1 = 3 Then am(1)=Fuori90(Estratto(es,NA_,4)+Estratto(es,PA_,3)+82):am(2)=Fuori90(Estratto(es,NA_,4)+Estratto(es,TO_,1)+37):am(3)=Fuori90(Estratto(es,FI_,3)+Estratto(es,RO_,4)+48):am(4)=Fuori90(Estratto(es,CA_,2)+Estratto(es,VE_,2)+21):am(5)=Fuori90(Estratto(es,GE_,3)+Estratto(es,NA_,3)+26)
If n1 = 4 Then am(1)=Fuori90(Estratto(es,PA_,2)+Estratto(es,RO_,4)+02):am(2)=Fuori90(Estratto(es,BA_,5)+Estratto(es,FI_,2)+32):am(3)=Fuori90(Estratto(es,CA_,2)+Estratto(es,GE_,4)+62):am(4)=Fuori90(Estratto(es,GE_,3)+Estratto(es,MI_,2)+76):am(5)=Fuori90(Estratto(es,MI_,4)+Estratto(es,RO_,5)+24)
If n1 = 5 Then am(1)=Fuori90(Estratto(es,PA_,5)+Estratto(es,TO_,1)+01):am(2)=Fuori90(Estratto(es,CA_,5)+Estratto(es,NA_,3)+58):am(3)=Fuori90(Estratto(es,NA_,1)+Estratto(es,TO_,2)+76):am(4)=Fuori90(Estratto(es,RO_,2)+Estratto(es,VE_,4)+14):am(5)=Fuori90(Estratto(es,BA_,3)+Estratto(es,MI_,3)+36)
If n1 = 6 Then am(1)=Fuori90(Estratto(es,CA_,3)+Estratto(es,VE_,2)+04):am(2)=Fuori90(Estratto(es,CA_,4)+Estratto(es,NA_,4)+67):am(3)=Fuori90(Estratto(es,BA_,2)+Estratto(es,MI_,4)+34):am(4)=Fuori90(Estratto(es,FI_,1)+Estratto(es,TO_,4)+31):am(5)=Fuori90(Estratto(es,GE_,4)+Estratto(es,TO_,4)+50)
If n1 = 7 Then am(1)=Fuori90(Estratto(es,BA_,2)+Estratto(es,RO_,5)+59):am(2)=Fuori90(Estratto(es,BA_,3)+Estratto(es,CA_,3)+57):am(3)=Fuori90(Estratto(es,PA_,3)+Estratto(es,RO_,5)+34):am(4)=Fuori90(Estratto(es,CA_,4)+Estratto(es,PA_,3)+26):am(5)=Fuori90(Estratto(es,GE_,1)+Estratto(es,TO_,2)+29)
If n1 = 8 Then am(1)=Fuori90(Estratto(es,GE_,1)+Estratto(es,NA_,5)+46):am(2)=Fuori90(Estratto(es,MI_,1)+Estratto(es,RO_,4)+43):am(3)=Fuori90(Estratto(es,BA_,5)+Estratto(es,TO_,2)+27):am(4)=Fuori90(Estratto(es,CA_,3)+Estratto(es,VE_,5)+14):am(5)=Fuori90(Estratto(es,FI_,4)+Estratto(es,MI_,5)+75)
If n1 = 9 Then am(1)=Fuori90(Estratto(es,FI_,5)+Estratto(es,TO_,4)+08):am(2)=Fuori90(Estratto(es,BA_,2)+Estratto(es,MI_,5)+41):am(3)=Fuori90(Estratto(es,MI_,3)+Estratto(es,VE_,1)+81):am(4)=Fuori90(Estratto(es,MI_,3)+Estratto(es,NA_,3)+26):am(5)=Fuori90(Estratto(es,CA_,2)+Estratto(es,MI_,2)+07)
ruota(1)=r1:ruota(2) = r2 :co=0
Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)
rip=0
If NumeriRipetuti(am) Then
rip=1
While NumeriRipetuti(am)
For x=1 To 4
For y=x+1 To 5
If am(x)=amThen am
Next
Next
Wend
End If
Rem fine formula
cinquina(1)=am(1)
cinquina(2)=am(2)
cinquina(3)=am(3)
cinquina(4)=am(4)
cinquina(5)=am(5)
co=co+1
ImpostaGiocata co,cinquina,ruota,poste,k,3 '<<<<<<<< CAMBIARE PER INTERROMPERE ALL'AMBO O TERNO
Gioca es ',1' TOGLI IL PRIMO APICE LASCIANDO SOLAMENTE (,1) PER NON FAR VEDERE TUTTI GLI ESITI
End If
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi
ColoreTesto 1:Scrivi String(47,"*") & " Matematica Sommativa By BLACKMORE " & String(47,"*"),1
ColoreTesto 0:Scrivi:Scrivi:ScriviResoconto
End Sub
'Funzione creata da Joe
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
Ciao Blak, Lo script non da l'ultima previsione, si ferma al 31/01. Potresti inserirlo ancora? Premetto che l'adopero con LottoDesk; può forse dipendere da questo?
Grazie
Ultima modifica:
R
Roby
Guest
L' ambata è il 3.. ma 4 ambi su 2 ruote forse sono troppi da giocare...
Specialmente se non dovesse uscire un tubo...
Codice:[B]31.01.2013 VE: 78.37.79.49.57 [ Ultima Estrazione del Mese : Cadenza del 3° Estratto di Venezia = 09 ] Estrazione generatrice del pronostico 08646 [ 14 - 31/01/2013] G 0001 [COLOR="#0000CD"]Numeri in gioco : 03.85.59.14.50 su BA CA per Ambo,Terno,Quaterna In corso per altre 10 estrazioni[/COLOR][/B]
Doppia ambata 3 su Bari e Cagliari
La chiudiamo qui...
Ciao
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 14 novembre 2025Bari0952436873Cagliari1644015728Firenze4161733022Genova4656682974Milano5643667165Napoli3681522447Palermo6772493584Roma8448837107Torino5345108705Venezia4648134925Nazionale1654868384Estrazione Simbolotto
Torino
0817450138
