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.
bene devo dire che il problema è risolto
l exe non si apre più e nel progetto non c'è piu neanche il form
va bhe , riscrivero tutto.
domanda quando lancio build che compila l exe vorrei dargli un nome appropriato, basta riniminarlo nella cartella?
Caro Tom, ormai sei in rotta di avvicinamento del tuo agognato motore "thunderbird lightning" per scripts esosi e dai report pantagruelici... ricorda che comunque saro' felice per te, se riuscirai ad aver bisogno di un nuovo deposito alla Paperon de Paperoni...Confermo! Adesso non si blocca + nemmeno con benchmark test assurdi.... da classe 5 by 90 e oltre!
Al riguardo della tua spettacolare function
aRet = ClassificaRitardo(classe, EstrazioneFin, sorte, aruote, , numeri)
due domandine importantissime...
1) se interrompo lo script dopo poco il valore mostrato in output come ra massimo... è quello finale... o mentre opera l'elaborazione potrebbe cambiare? Te lo chiedo perchè ho fatto un rapido test e i valori dell'elaborato volutamente interrotto e quello lasciato andare fino alla fine coincidono...
2) come faccio a sapere la ruota che viene elaborata quando se ne scelgono più di una? In altre parole... come faccio recuperare il parametro ruota da Dim aRet() As STRUCT_VALORI_MIGLIORI ?
stringamessaggio = StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore & " --> classe : " & aRet(k).Classe & " - ruota : " & NomeRuota(aruote) <- al posto di questo... che mi evidenzia le ruote unite analizzate cosa devo scrivere per vedere la singola ruota elaborata tra le selezionate?
La nuova dll è superrima! S. Luigi Da Roma
Si. Ma generalmente si associa il nome dell'eseguibile al nome del progetto...bene devo dire che il problema è risolto
l exe non si apre più e nel progetto non c'è piu neanche il form
va bhe , riscrivero tutto.
domanda quando lancio build che compila l exe vorrei dargli un nome appropriato, basta riniminarlo nella cartella?
Call ImpostaBrowser("C:\Program Files\Mozilla Firefox\firefox.exe")
Dim colonneintegrali As Long
Dim classe As Long
Dim sorte As Long
Dim aruote As Variant
ReDim numeri(0) As Long
Dim stringamessaggio As String
classe = InputBox("classe", , 2)
sorte = InputBox("sorte", , 2)
aruote = ScegliRuota
ScegliNumeri(numeri)
colonneintegrali = InitSviluppoIntegrale(numeri, classe)
Scrivi
Scrivi "Analisi della ruota o delle ruote (unite) " & NomeRuota(aruote)
Scrivi "Per la sorte di " & NomeSorteLotto(sorte)
Scrivi "Classe di sviluppo " & classe
Scrivi "Ordinamento valori per ritardo decrescente"
Scrivi "Gruppo base analizzato " & StringaNumeri(numeri) & " di classe " & UBound(numeri)
Scrivi
Dim k As Long
Dim aRet() As STRUCT_VALORI_MIGLIORI
Scrivi ("Classifica Ritardo")
Scrivi "Elaborazione con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi
aRet = ClassificaRitardo(classe, EstrazioneFin, sorte, aruote, , numeri)
For k = 1 To UBound(aRet)
Scrivi (StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore)
stringamessaggio = StringaNumeri(aRet(k).aNumeri) & " --> " & aRet(k).Valore & " --> classe : " & aRet(k).Classe & " - ruota : " & NomeRuota(aruote)
Messaggio(stringamessaggio, True)
AvanzamentoElaborazione(k, UBound(aRet))
frmScript.lblMessaggio = "Ruota analizzata " & NomeRuota(aruote) & " sorte di ricerca " & sorte & " classe di sviluppo " & classe & " colonne integrali totali " & colonneintegrali & " - Tempo passato: " & TempoElaborazioneSecondi
If k Mod 100 = 0 Then DoEvents
If bScriptInterrotto Then Exit For
Next
Scrivi
Scrivi TempoElaborazioneSecondi
Scrivi
Penso che sia dovuto al tuo filtro che taglia poco... o non abbastanza da rientrare nei limiti imposti dalla dll... forse dovresti badare di piu' a questo parametro cercando di essere piu' selettivo.Raga mi spiace ma devo segnalarvi un altro bug
Prima della nuova dll se facevo uno sviluppo in classe 69 da 72 ovvero con tre punti riduzionali di differenza non dava alcun problema... mentre adesso stranamente mi da questo messaggio...
Vedi l'allegato 2253269
Ad ogni modo riproverò a fare la stessa operazione con la precedente dll e vi aggiorno come pretendi che ci sia ..l o devi esportare da quell o che hai fatot tut e che avevisolo tubene devo dire che il problema è risolto
l exe non si apre più e nel progetto non c'è piu neanche il form
va bhe , riscrivero tutto.
domanda quando lancio build che compila l exe vorrei dargli un nome appropriato, basta riniminarlo nella cartella?
ho fatto un aggiornamento per le combinazioni da 69 che non funzionavano ...
DDLLScript_per_utenti
MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.www.mediafire.com
per la ruota non te lo dice ,sapendo il ritardo devi fare uan funzione che la va a cercare .
S. LUIGI da Roma SEI COME IL TONNO... 
INSUPERABILEEEEEEEEEEEEE 
ok però sono sbagliati se danno questo errore
[ Description ("") ]
[ FormDesignerId ("9071B6C7-83BB-4828-B3A6-353AFFBD9C25") ]
[ PredeclaredId ]
Class mfrTerni
Sub New()
End Sub
Private Sub Form_Load()
Label4.Caption = ""
Label4.Caption = EstrazioneIni & " [" & DataEstrazione(EstrazioneIni) & "]"
Label5.Caption = ""
Label5.Caption = EstrazioneFin & " [" & DataEstrazione(EstrazioneFin) & "]"
End Sub
Private Sub Command1_Click()
Dim sR As String
Dim idEstr As Long, R As Long, p1 As Long, p2 As Long, p3 As Long, k As Long, k1 As Long, PresMin As Long, max As Long, pres As Long
Dim aStat(88, 89, 90) As Long
Dim aR() As Long
Dim aPresMin() As Variant
Dim t1 As LongLong
aR = ScegliRuote(False)
t1 = Timer
sR = ""
For R = 1 To UBound(aR)
sR = sR & NomeRuota(aR(R), True) & "."
Next
aPresMin = Array(0, 4, 4, 6, 8, 10, 12, 14, 16, 18, 18, 18)
PresMin = aPresMin(UBound(aR))
Label6.Caption = RimuoviLastChar(sR, ".")&" "
Label3.Caption = " Terni Vergini"
Label7.Caption = "Terni con presenza >= " & PresMin
For idEstr = EstrazioneIni To EstrazioneFin
For R = 1 To UBound(aR)
ReDim aE(5) As Long
Call GetArrayNumeriRuota(idEstr, aR(R), aE)
If aE(1) > 0 Then
Call OrdinaVettore(aE, 1)
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
aStat(aE(p1), aE(p2), aE(p3)) += 1
Next
Next
Next
End If
Next
Next
For p1 = 1 To 88
For p2 = p1 + 1 To 89
For p3 = p2 + 1 To 90
pres = aStat(p1, p2, p3)
If aStat(p1, p2, p3) = 0 Then
k += 1
List1.AddItem FormatSpace(k, 5) & " | " & Format2(p1) & "." & Format2(p2) & "." & Format2(p3)
ElseIf aStat(p1, p2, p3) >= PresMin Then
If max < aStat(p1, p2, p3) Then max = aStat(p1, p2, p3)
k1 += 1
List2.AddItem FormatSpace(k1, 5) & " | " & Format2(p1) & "." & Format2(p2) & "." & Format2(p3) & " | " & aStat(p1, p2, p3)
End If
Next
Next
Next
Label8.Caption = "terni vergini Filtrati: " & k
Label9.Caption = "terni Presenza min Filtrati: " & k1 & vbCrLf & "Presenza massima rintracciata:" & max
Label10.Caption = " Elaborato in " & Round(Timer - t1,2) & " secondi"
End Sub
Function FormatSpace(n As Variant, nChar As Long) As String
Dim L As Long
Dim t As String
t = CStr(n)
L = Len(n)
If L < nChar Then t = Space(nChar - L) & t
Return t
End Function
End Class Sub GetPresenzeTerni()
Dim frm As New mfrTerni
frm.Show 1
frm.Close
Set frm = Nothing
End Sub Public Sub MyScriptRoutine()
' IN QUESTA ROUTINE VA SCRITTO IL PROPRIO CODICE COME SE FOSSE LA SUB MAIN DI SPAZIOMETRIA
' ATTENZIONE NON CAMBIARE NOME ALLA ROUTINE
call GetPresenzeTerni()
End SubLuigi mi raccomando sta attento ai grissiniSuper
prova a zipparlo , rinominarlo in txt e inserirlo qui come allegato
