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.
Ciao Salvo e altri x spaziometria
- Creatore Discussione DRAGON8698
- Data di inizio
-
- Tag
- listato gargiulo
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Dragon8698, I Legend, Rudivall
GRAZIE
purtroppo causa cambio compute, gli script eseguiti con Spaziometria nel mio computer sono di una lentezza esasperante quindi non ho potuto provarlo per più cicli, ho controllato solo l'esempio nelle spiegazioni, vi consiglio di procurarvi il programma TwinBasic perché in seguito userò quello per fare gli script, non l'ho fatto adesso con TwinBasic perche l'antivirus che uso mi blocca il suddetto programma, ma appena mi scade l'antivirus lo cambio
Dragon8698, I Legend, Rudivall
GRAZIE
purtroppo causa cambio compute, gli script eseguiti con Spaziometria nel mio computer sono di una lentezza esasperante quindi non ho potuto provarlo per più cicli, ho controllato solo l'esempio nelle spiegazioni, vi consiglio di procurarvi il programma TwinBasic perché in seguito userò quello per fare gli script, non l'ho fatto adesso con TwinBasic perche l'antivirus che uso mi blocca il suddetto programma, ma appena mi scade l'antivirus lo cambio
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer,X,EsClp
Dim R1,R2,P1,P2,P3,P4,Salvo50,Sp,Z
Dim DM12,DM23,DM34,DM41,Caso,Casi
Dim RetNum,RetVinc,Ambetti,Ambetto
Dim Ruo(2),Po2(2),L(4),M(4)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10145))'10146 ESEMPIO NELL'ARTICOLO
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
Cer = CInt(InputBox(" Vuoi visualizzare i cerchi ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Ambetti = CInt(InputBox(" Vuoi giocare gli ambetti? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(1) & " LA BOMBA CICLOMETRICA di ANGELO GARGIULO - SCRIPT SALVO50" & Space(1),1,,4,,3,,1
Po2(2) = 1
Sp = " "
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And C > 0 Then
If A <> C And A <> D And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 18 And DM23 = 27 And DM34 = 18 And DM41 = 27 _
Or DM12 = 27 And DM23 = 18 And DM34 = 27 And DM41 = 18 _
Or DM12 = 18 And DM23 = 27 And DM34 = 18 And DM41 = 27 _
Or DM12 = 27 And DM23 = 18 And DM34 = 27 And DM41 = 18 Then
'---------------------------------
If DM12 = 18 And DM23 = 27 And DM34 = 18 And DM41 = 27 Then
Z = M(1)
End If
If DM12 = 27 And DM23 = 18 And DM34 = 27 And DM41 = 18 Then
Z = M(4)
End If
If DM12 = 18 And DM23 = 27 And DM34 = 18 And DM41 = 27 Then
Z = M(3)
End If
If DM12 = 27 And DM23 = 18 And DM34 = 27 And DM41 = 18 Then
Z = M(2)
End If
L(1) = Fuori90(Z + 9)
L(2) = Fuori90(L(1) + 18)
L(3) = Fuori90(L(2) + 27)
L(4) = Fuori90(L(3) + 18)
'Ambo1(1) = L(1) : Ambo1(2) = L(3)
'Ambo2(1) = L(2) : Ambo2(2) = L(4)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,L,Ruo,Po2,Clp
Gioca Es,1
If Ambetti = 1 Then
Scrivi Space(19) & "AMBETTI",1,,,2
EsClp = Es + Clp
If EsClp > FIn Then EsClp = FIn
For X = Es + 1 To EsClp
Ambetto = VerificaAmbetto(L,R1,X,RetNum,RetVinc)
If Ambetto > 0 Then
Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
Scrivi " Ambetto su " & RetNum & Space(4) & " Vincita di " & RetVinc,1
Ambetto = 0
End If
Ambetto = VerificaAmbetto(L,R2,X,RetNum,RetVinc)
If Ambetto > 0 Then
Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)),1,0
Scrivi " Ambetto su " & RetNum & Space(4) & " Vincita di " & RetVinc,1
Ambetto = 0
End If
Next
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Xeroxs
Grazie dei complimenti, a riguardo della lentezza penso sia di winows10 (nel primo post avevo detto che avevo Windows11 mi ero sbagliato, perché il computer me l'ha comprato mio figlio e mi aveva detto che mi comprava windows11 invece ha trovato molto più conveniente comprare Windows10) perché anche nel portatile ho windows10 ed anche li con un altro antivirus il programma Spaziometria è lentissimo, a riguardo di Twinbasic l'antivirus è AVG, mentre scrivevo questo post ho pensato che potevo mettere twinbasic nel portatile è vedere se anche l'altro antivirus me lo blocca
L
LuigiB
Guest
Ciao Salvo , è strano che l'antivitus ti blocchi twinbasic come è pure strano che spaziometria vada cosi lento .. ad ogni modo nel nuovo ambiente con le impostazioni di default ci ha messo 8 secondi,
ecco lo script
ecco lo script
Codice:
Public Sub MyScriptRoutine()
Dim FIn& , Ini&, A&, B&, C&, D&, Clp&, Es&, Cer&, X&, EsClp&
Dim R1&, R2&, P1&, P2&, P3&, P4&, Salvo50$, Sp$, Z&
Dim DM12&, DM23&, DM34&, DM41&, Caso&, Casi&
Dim RetNum$, RetVinc&, Ambetti&, Ambetto&
ReDim Ruo&(2)
ReDim Po2(5) As Boolean
ReDim L&(4)
ReDim M&(4)
Dim aOrdM As Variant
Dim nFatte& , nDaFare&
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare", Salvo50, 10145))'10146 ESEMPIO NELL'ARTICOLO
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?", Salvo50, 13))
Cer = CInt(InputBox(" Vuoi visualizzare i cerchi ciclometrico? SI = 1, NO un qualsiasi altro numero ", Salvo50, 1))
Ambetti = CInt(InputBox(" Vuoi giocare gli ambetti? SI = 1, NO un qualsiasi altro numero ", Salvo50, 1))
Po2(2) = 1
nDaFare = FIn - (Ini - 1)
Scrivi Space(1) & " LA BOMBA CICLOMETRICA di ANGELO GARGIULO - SCRIPT SALVO50" & Space(1), 1, , 4, , 3, , 1
Po2(2) = 1
Sp = " "
For Es = Ini To FIn
Messaggio Es
nFatte + = 1
AvanzamentoElaborazione (nFatte, nDaFare)
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es, R1, P1)
B = Estratto(Es, R1, P2)
For R2 = R1 + 1 To 11
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es, R2, P3)
D = Estratto(Es, R2, P4)
If A > 0 And C > 0 Then
If A <> C And A <> D And B <> C And B <> D Then
M(1) = A: M(2) = B: M(3) = C: M(4) = D
aOrdM = OrdinaVettore (M, 1, 1)
DM12 = Distanza(aOrdM(1), aOrdM(2)): DM23 = Distanza(aOrdM(2), aOrdM(3))
DM34 = Distanza(aOrdM(3), aOrdM(4)): DM41 = Distanza(aOrdM(4), aOrdM(1))
If DM12 = 18 And DM23 = 27 And DM34 = 18 And DM41 = 27 _
Or DM12 = 27 And DM23 = 18 And DM34 = 27 And DM41 = 18 _
Or DM12 = 18 And DM23 = 27 And DM34 = 18 And DM41 = 27 _
Or DM12 = 27 And DM23 = 18 And DM34 = 27 And DM41 = 18 Then
'---------------------------------
If DM12 = 18 And DM23 = 27 And DM34 = 18 And DM41 = 27 Then
Z = aOrdM(1)
End If
If DM12 = 27 And DM23 = 18 And DM34 = 27 And DM41 = 18 Then
Z = aOrdM(4)
End If
If DM12 = 18 And DM23 = 27 And DM34 = 18 And DM41 = 27 Then
Z = aOrdM(3)
End If
If DM12 = 27 And DM23 = 18 And DM34 = 27 And DM41 = 18 Then
Z = aOrdM(2)
End If
L(1) = FuoriX(Z + 9)
L(2) = FuoriX(L(1) + 18)
L(3) = FuoriX(L(2) + 27)
L(4) = FuoriX(L(3) + 18)
'Ambo1(1) = L(1) : Ambo1(2) = L(3)
'Ambo2(1) = L(2) : Ambo2(2) = L(4)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89, "*") & " Casi Totali " & FormatString(CStr(Casi), "0000", 0), 1, , , vbRed
Scrivi String(80, "*") & " Estrazione " & (Es) & " caso " & FormatString((Caso), "0000", 0), 1, , , vbRed
Scrivi
ReDim MatrCasella(4, 1) As Long
MatrCasella(1, 0) = R1
MatrCasella(1, 1) = P1
MatrCasella(2, 0) = R1
MatrCasella(2, 1) = P2
MatrCasella(3, 0) = R2
MatrCasella(3, 1) = P3
MatrCasella(4, 0) = R2
MatrCasella(4, 1) = P4
Call DisegnaEstrazione(Es, GetArrayNomiRuote, , MatrCasella)
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M, True, True, True, True
DisegnaCerchioCiclometrico L, True, True, True, True
End If
Scrivi
Scrivi
Ruo(1) = R1: Ruo(2) = R2
ImpostaGiocata L, Po2, Po2, , Clp, , Ruo
Gioca Es, GetArrayNomiRuote, GetArrayNomSorteLotto, , True
If Ambetti = 1 Then
Scrivi Space(19) & "AMBETTI", 1, , , 2
EsClp = Es + Clp
If EsClp > FIn Then EsClp = FIn
For X = Es + 1 To EsClp
Ambetto = VerificaAmbetto(L, R1, X, RetNum, GetArrayNomiRuote)
If Ambetto > 0 Then
Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)), 1 , 0
Scrivi " Ambetto su " & RetNum & Space(4), 1
Ambetto = 0
End If
Ambetto = VerificaAmbetto(L, R2, X, RetNum, GetArrayNomiRuote)
If Ambetto > 0 Then
Scrivi(" Estrazione n." & Format2(X) & " del " & DataEstrazione(X)), 1 , 0
Scrivi " Ambetto su " & RetNum & Space(4) & " Vincita di " & RetVinc, 1
Ambetto = 0
End If
Next
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If bScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso : " & TempoElaborazioneSecondi
End SubCiao, purtroppo un problema che hai nel nuovo PC e AVG e penso che sia la versione gratuita, mi sembra strano venduto con questo antivirus, i PC non sono più venduti con la 10 quindi se lo hai acquistato ora e proprio strano anche perché puoi passare alla 11 quando vuoi poi dipende se hai home o pro come versione.
Avg e un antivirus che mangia risorse dipende dalla tua ram e dal processore ma se hai almeno 8 giga con i3 o i5 sei a cavallo e quindi cambia antivirus e ripulisce tutto e vedrai che sarai più che felice.
Tieni conto che avg e quello che blocca molti falsi positivi più di tutti insieme a norton.... rallenta qualunque pc
Avg e un antivirus che mangia risorse dipende dalla tua ram e dal processore ma se hai almeno 8 giga con i3 o i5 sei a cavallo e quindi cambia antivirus e ripulisce tutto e vedrai che sarai più che felice.
Tieni conto che avg e quello che blocca molti falsi positivi più di tutti insieme a norton.... rallenta qualunque pc
L
LuigiB
Guest
io mi affido al normale windows defender di windows 10 e soprattutto sto attento quando navigo . ad ogni modo ogni antivirus che si rispetti ha la possibilità di inserire nella white list i programmi che non deve bloccare
salvo50
Advanced Member >PLATINUM PLUS<
Ho 16 giga di ram
Riguardo a l'antivirus ha fatto tutto mio figlio non lo so se è la versione, gratuita, devo chiedere.
L
LuigiB
Guest
io ho trovato queste istruzioni per segnalae ad avg di non scocciare su alcuni programmi
support.avg.com
Come escludere elementi dalle scansioni di AVG AntiVirus | AVG
Come escludere alcuni elementi dalla scansione di AVG Internet Security e AVG AntiVirus.
support.avg.com
salvo50
Advanced Member >PLATINUM PLUS<
Grazieio ho trovato queste istruzioni per segnalae ad avg di non scocciare su alcuni programmi
Come escludere elementi dalle scansioni di AVG AntiVirus | AVG
Come escludere alcuni elementi dalla scansione di AVG Internet Security e AVG AntiVirus.
Ciao.
Fidati e avg e credo sia free, puoi anche disinstallarlo, tanto hai antivirus di windows che è meglio. Poi se vuoi ci sono offerte a poco per buoni antivirus...
Con 16 giga non puoi avere problemi...
Quando rientro ti dico dove controllare poche cose al volo...
Se avg è free poi neanche ti protegge..
Se non fai operazioni bancarie puoi restare solo con quello di windows che è già installato
Fidati e avg e credo sia free, puoi anche disinstallarlo, tanto hai antivirus di windows che è meglio. Poi se vuoi ci sono offerte a poco per buoni antivirus...
Con 16 giga non puoi avere problemi...
Quando rientro ti dico dove controllare poche cose al volo...
Se avg è free poi neanche ti protegge..
Se non fai operazioni bancarie puoi restare solo con quello di windows che è già installato
salvo50
Advanced Member >PLATINUM PLUS<
Grazie, appena posso decido cosa fare.
Io no, ma mio nipote si, grazie
salvo50
Advanced Member >PLATINUM PLUS<
Ho disinstallato AVG, adesso ho Windows defender firewall
Adesso TwinBasic non si blocca più, ho messo i due file
Utility_VSGIOCHI
Vsdllgiochi.dll
nella cartella dove c'è TwinBASIC applicazione
ed ho lanciato Utility_VSGIOCHI
ed ho fatto la registrazione
ed è apparso un nuovo file Vsdllgiochi.tbl
poi ho aperto il passo 2
scusa la domanda forse stupida, ma nei settings, dove sarebbe?
Poi non ho capito il nome dello script che hai fatto
Grazie
Adesso TwinBasic non si blocca più, ho messo i due file
Utility_VSGIOCHI
Vsdllgiochi.dll
nella cartella dove c'è TwinBASIC applicazione
ed ho lanciato Utility_VSGIOCHI
ed ho fatto la registrazione
ed è apparso un nuovo file Vsdllgiochi.tbl
poi ho aperto il passo 2
scusa la domanda forse stupida, ma nei settings, dove sarebbe?
Poi non ho capito il nome dello script che hai fatto
Grazie
L
LuigiB
Guest
ciao Salvo terminata la registrazione e aperto il progetto twinbasic devi andare in settings e scegliere vsgiochi.dll dalal lista di sotto mettere il baffo per farka andare nella lista di sopra.
fatto questo salva il progetto e poi lancialo
fatto questo salva il progetto e poi lancialo
L
LuigiB
Guest
devi fare doppioclick sul progettto che hai scaricato dentro passo_2
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 10 gennaio 2025Bari4061118637Cagliari3102516887Firenze7355345218Genova1140278220Milano8071651910Napoli5030030136Palermo6642437689Roma0522623539Torino1758628669Venezia4389140440Nazionale6476354019Estrazione Simbolotto
Bari
0807373338
