SOMMARE LE CINQUINE

Avatar utente
DjNomade
Messaggi: 551
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: SOMMARE LE CINQUINE

Messaggio da DjNomade » 03/05/2014, 19:39

Enplein..... come si fa????? :dent:

Avatar utente
Enplein
Messaggi: 49
Iscritto il: 27/10/2011, 20:58

Re: SOMMARE LE CINQUINE

Messaggio da Enplein » 04/05/2014, 11:34

Ciao Dj, basta inserire il codice Int:
d=Int (c/2)
Ciao, Enplein.

Avatar utente
DjNomade
Messaggi: 551
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: SOMMARE LE CINQUINE

Messaggio da DjNomade » 04/05/2014, 12:10

Grazie Enplein...c'ero quasi arrivato... l'ho aggiunto


Codice: Seleziona tutto

        Sub main()
        Dim num2(10),ruote(10)
        Dim posta(5),poste(5)
        s1=CInt(InputBox("anno ",,2014))
        s2=CInt(InputBox("mese",,2))
        r1=CInt(InputBox("1°Ruota",,1))
        r2=CInt(InputBox("2°Ruota",,2))
        cl=InputBox ("per quanti colpi?","colpi di gioco",5)
        poste(2)=1
        For n=3950 To EstrazioneFin
        Ann=Anno(n)
        Mes=Mese(n)
              a=Fuori90(SommaEstratti(n,r1))
              b=Fuori90(SommaEstratti(n,r2))
              c=Fuori90(a+b)
              d=Int (c/2)
              'd=c/2
              If s1=Ann And s2=mes Then
                         Scrivi "------------------------------------------" 
                         s=DataEstrazione(n)&"  "& FormatSpace(NomeRuota(r1),10)& FormatSpace(a,3)
                       s=s+"  -  "& FormatSpace(NomeRuota(r2),10)& FormatSpace(b,3)
                       Scrivi s,1
                       

    ruote(1)=r1
    ruote(2)=r2


    num2(1)=a
    num2(2)=c
     ImpostaGiocata 1,num2,ruote,poste,cl
    num2(1)=a
    num2(2)=d
     ImpostaGiocata 2,num2,ruote,poste,cl
    num2(1)=b
    num2(2)=c
     ImpostaGiocata 3,num2,ruote,poste,cl
    num2(1)=b
    num2(2)=d
     ImpostaGiocata 4,num2,ruote,poste,cl

    Gioca n   
           End If
           
           Next   
    ScriviResoconto
        End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 3828
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: SOMMARE LE CINQUINE

Messaggio da Tatoo64 » 04/05/2014, 14:41

C'è un piccolo errore lo script non tiene conto che la divisione deve farla sul numero totale e non sul fuori 90.

ES:
01.03.2014 Bari 73 - Milano 62
sab 01.03.2014 [8810]
G 1: A 73.45 Ba Mi 5/5
negativo
G 2: A 73.22 Ba Mi 5/5
negativo
G 3: A 62.45 Ba Mi 5/5
negativo
G 4: A 62.22 Ba Mi 5/5

il 22 non è esatto quello giusto è 67 / 73+62 = 135-90 = 45, lo script divide la D invece deve dividere 135 che è la C.

grazie
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 551
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: SOMMARE LE CINQUINE

Messaggio da DjNomade » 04/05/2014, 16:17

Chi di noi ha l'archivio sballato?? hihihih
poi la C è col fuori 90


Codice: Seleziona tutto

------------------------------------------
01.03.2014  Bari      73   -  Milano    62 
sab 01.03.2014  [8815]
  G  1:  A    73.45   Ba Mi    5/5    
     negativo
  G  2:  A    73.22   Ba Mi    5/5    
     negativo
  G  3:  A    62.45   Ba Mi    5/5    
     negativo
  G  4:  A    62.22   Ba Mi    5/5    
     A  22.62            su Ba    1° colpo   [8816/04.03.2014]

------------------------------------------

questo è con l'ultima modifica col 67

Codice: Seleziona tutto

            Sub main()
            Dim num2(10),ruote(10)
            Dim posta(5),poste(5)
            s1=CInt(InputBox("anno ",,2014))
            s2=CInt(InputBox("mese",,2))
            r1=CInt(InputBox("1°Ruota",,1))
            r2=CInt(InputBox("2°Ruota",,2))
            cl=InputBox ("per quanti colpi?","colpi di gioco",5)
            poste(2)=1
            For n=3950 To EstrazioneFin
            Ann=Anno(n)
            Mes=Mese(n)
                  a=Fuori90(SommaEstratti(n,r1))
                  b=Fuori90(SommaEstratti(n,r2))
                  c=Fuori90(a+b)
                  c1=(a+b)
                  d=Int (c1/2)
                  'd=c/2
                  If s1=Ann And s2=mes Then
                             Scrivi "------------------------------------------"
                             s=DataEstrazione(n)&"  "& FormatSpace(NomeRuota(r1),10)& FormatSpace(a,3)
                           s=s+"  -  "& FormatSpace(NomeRuota(r2),10)& FormatSpace(b,3)
                           Scrivi s,1
                           

        ruote(1)=r1
        ruote(2)=r2


        num2(1)=a
        num2(2)=c
         ImpostaGiocata 1,num2,ruote,poste,cl
        num2(1)=a
        num2(2)=d
         ImpostaGiocata 2,num2,ruote,poste,cl
        num2(1)=b
        num2(2)=c
         ImpostaGiocata 3,num2,ruote,poste,cl
        num2(1)=b
        num2(2)=d
         ImpostaGiocata 4,num2,ruote,poste,cl

        Gioca n   
               End If
               
               Next   
        ScriviResoconto
            End Sub

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite