Novità

PER UNO SCRIPTER VOLENTEROSO

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
QUI GLI SCRIPT RELATIVI AL LIMITE DI ROTTURA 315

If n(1) & lt; & gt; numeri(r,1) Or m(1) & lt; & gt; numeri(r,2)Or o(1) & lt; & gt; numeri(r,3) Then
mi dice che è previsto Then

forse bisogna cambiare lt -gt
grazie

Ciao ...

si devi sostituire tutti quegli operatori logici ... non convertiti correttamente,

forse perchè mal scritti nel file originale ... o forse perchè esso non è stato incluso tra i Tag specifici.

Per la correzione:

L significa Less o Minore ...

G significa Great o Maggiore ...

T significa Than o di ...

Sostituendo secondo queste indicazioni lo script "dovrebbe" essere riportato allo stato originale ...

però si deve prestare attenzione a non dimenticare o trascurare nulla.

Dando "logicità" ... secondo la descrizione del metodo.

Questo debug lo lascio alla vostra opera e rendicontazione.

:)

Esempio di ripristino sul file presente al messaggio #9


Codice:
Sub Main()
'' > Sostituito con: >
'' < Sostituito con: < 
  
 'ottimo X RITARDATARI'
 Dim n(1)
 Dim m(1)
 Dim o(1)
 Dim numeri(14,3)
 Dim am(3)
 Dim posta(1)
 Dim ruote(1)
 posta(1) = 1
 r = ScegliRuota
 ruote(1) = r
 
 ini = 7441 ' data 4-5-2005
 fin = EstrazioneFin
 co=0
 For es = ini To fin
 Messaggio (es)
 'For r = 2 To 3
 

 n(1) = NumeroPosRit(es,r,1)
 m(1) = NumeroPosRit(es,r,2)
 o(1) = NumeroPosRit(es,r,3)
 If n(1) <> numeri(r,1) Or m(1) <> numeri(r,2)Or o(1) <> numeri(r,3) Then
 rt1 = SerieRitardo(Ini,es,n,ruote,1)
 rt2 = SerieRitardo(Ini,es,m,ruote,1)
 rt3 = SerieRitardo(Ini,es,o,ruote,1)
 st1 = SerieStorico(Ini,es,n,ruote,1)
 st2 = SerieStorico(Ini,es,m,ruote,1)
 st3 = SerieStorico(Ini,es,o,ruote,1)
 somritardo = rt1 + rt2 + rt3
 mediart =(rt1 + rt2 + rt3)/3
 mediast =(st1 + st2)
 dif = somritardo
 If dif > 315 Then
 casi=casi+1
 Scrivi String(60,"=")&" Caso n° "&casi,1
 Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & _
 Format2(n(1)) & " - - > > con ritardo di " & rt1,1
 Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & _
 Format2(m(1)) & " - - > > con ritardo di " & rt2,1
 Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & _
 Format2(o(1)) & " - - > > con ritardo di " & rt3,1
 ColoreTesto 1
 Scrivi
 Scrivi somritardo & " somma totale dei 3 ritardi per ruota ",1
 Scrivi mediart & " < - - - - - - media ritardo attuale ",1
 Scrivi mediast & " < - - - - - - media ritardo storico ",1
 Scrivi st1 & " < - - - ritardo storico- 1° ritardatario",1
 Scrivi st2 & " < - - - ritardo storico- 2° ritardatario ",1
 Scrivi st3 & " < - - - ritardo storico- 3° ritardatario ",1
 ColoreTesto 2
 Scrivi " 315-"& somritardo & " = "& dif &" ATTENZIONE!!!!! " & dif1 & " rottura somma raggiunta!! ",1
 ColoreTesto 0
 am(1) = n(1)
 am(2) = m(1)
 am(3) = o(1)
 ImpostaGiocata 1,am,ruote,posta,30,1 
Gioca es
 numeri(r,1) = am(1)
 numeri(r,2) = am(2)
 numeri(r,3) = am(3)
 Scrivi
 End If
 End If
 Next
 Scrivi : Scrivi "Casi Rilevati "& CInt (co)
 ScriviResoconto
 End Sub

PS: Lo script, ormai obsoleto, utilizza "un trucco" per evitare un bug ... che fu corretto successivamente nella istruzione "siglaruota"

Tuttavia cosi' facendo con l' introduzione della Nazionale ... creerebbe un altro errore.

Con due caratteri non è possibile distinguere Na = Napoli da Na = Nazionale.

Ho pertanto abbreviato le indicazioni delle ruote in "Nap" , "Naz" ... troncando dopo il terzo carattere.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 luglio 2025
    Bari
    22
    33
    04
    68
    47
    Cagliari
    09
    52
    27
    21
    47
    Firenze
    05
    33
    72
    17
    08
    Genova
    76
    67
    65
    68
    45
    Milano
    75
    52
    46
    34
    22
    Napoli
    40
    23
    71
    12
    22
    Palermo
    44
    89
    39
    01
    31
    Roma
    89
    04
    05
    82
    26
    Torino
    05
    59
    85
    88
    24
    Venezia
    69
    45
    75
    44
    30
    Nazionale
    28
    85
    16
    03
    83
    Estrazione Simbolotto
    Nazionale
    39
    26
    40
    23
    24

Ultimi Messaggi

Indietro
Alto