TABELLA NUMERI UGUALI ISOTOPI

PRODRIVE
Messaggi: 454
Iscritto il: 22/08/2013, 15:21

TABELLA NUMERI UGUALI ISOTOPI

Messaggio da PRODRIVE » 26/03/2014, 11:52

DA USARE X ABBINAMENTO O CONVERGENZA

Allegati
20-01-2014 16;39;11.jpg
Ultima modifica di PRODRIVE il 26/03/2014, 11:54, modificato 1 volta in totale.

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

Re: TABELLA NUMERI UGUALI ISOTOPI

Messaggio da Tatoo64 » 26/03/2014, 12:22

GRAZIE PRODRIVE,UNA BELLA RICERCA UNENDO QUESTI CON QUELLI DI NERISOLE E VEDIAMO SE PER CASO DANNO RISULTATI PIU' ALTI COME TERNI........... SPEREM...
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
carmen
Messaggi: 898
Iscritto il: 29/02/2012, 0:03

Re: TABELLA NUMERI UGUALI ISOTOPI

Messaggio da carmen » 26/03/2014, 13:10

grazie pro :abb: :esor:
carmen

nerisole
Messaggi: 1829
Iscritto il: 27/10/2011, 15:24

Re: TABELLA NUMERI UGUALI ISOTOPI

Messaggio da nerisole » 26/03/2014, 14:51

grazie PRODRIVE

PER CONTO DI NERISOLE INSERISCO LA SUA TABELLA COSI LE ABBIAMO TUTTE E DUE SOTT'OCCHIO

Codice: Seleziona tutto

TABELLA DI CONVERSIONE ESTRATTI ISOTOPI 

NUMERO SPIA 01 AMBATE E AMBO IN GIOCO : 80.69 
NUMERO SPIA 02 AMBATE E AMBO IN GIOCO : 79.19 
NUMERO SPIA 03 AMBATE E AMBO IN GIOCO : 13.60 
NUMERO SPIA 04 AMBATE E AMBO IN GIOCO : 40.15 
NUMERO SPIA 05 AMBATE E AMBO IN GIOCO : 06.62 
NUMERO SPIA 06 AMBATE E AMBO IN GIOCO : 84.72 
NUMERO SPIA 07 AMBATE E AMBO IN GIOCO : 89.48 
NUMERO SPIA 08 AMBATE E AMBO IN GIOCO : 55.67 
NUMERO SPIA 09 AMBATE E AMBO IN GIOCO : 15.44 
NUMERO SPIA 10 AMBATE E AMBO IN GIOCO : 03.11 
NUMERO SPIA 11 AMBATE E AMBO IN GIOCO : 39.81 
NUMERO SPIA 12 AMBATE E AMBO IN GIOCO : 40.32 
NUMERO SPIA 13 AMBATE E AMBO IN GIOCO : 85.18 
NUMERO SPIA 14 AMBATE E AMBO IN GIOCO : 72.83 
NUMERO SPIA 15 AMBATE E AMBO IN GIOCO : 35.36 
NUMERO SPIA 16 AMBATE E AMBO IN GIOCO : 64.55 
NUMERO SPIA 17 AMBATE E AMBO IN GIOCO : 35.45 
NUMERO SPIA 18 AMBATE E AMBO IN GIOCO : 55.46 
NUMERO SPIA 19 AMBATE E AMBO IN GIOCO : 71.19 
NUMERO SPIA 20 AMBATE E AMBO IN GIOCO : 64.36 
NUMERO SPIA 21 AMBATE E AMBO IN GIOCO : 68.89 
NUMERO SPIA 22 AMBATE E AMBO IN GIOCO : 40.51 
NUMERO SPIA 23 AMBATE E AMBO IN GIOCO : 46.23 
NUMERO SPIA 24 AMBATE E AMBO IN GIOCO : 71.49 
NUMERO SPIA 25 AMBATE E AMBO IN GIOCO : 19.90 
NUMERO SPIA 26 AMBATE E AMBO IN GIOCO : 12.86 
NUMERO SPIA 27 AMBATE E AMBO IN GIOCO : 88.43 
NUMERO SPIA 28 AMBATE E AMBO IN GIOCO : 14.72 
NUMERO SPIA 29 AMBATE E AMBO IN GIOCO : 85.28 
NUMERO SPIA 30 AMBATE E AMBO IN GIOCO : 02.82 
NUMERO SPIA 31 AMBATE E AMBO IN GIOCO : 65.83 
NUMERO SPIA 32 AMBATE E AMBO IN GIOCO : 88.84 
NUMERO SPIA 33 AMBATE E AMBO IN GIOCO : 70.09 
NUMERO SPIA 34 AMBATE E AMBO IN GIOCO : 12.47 
NUMERO SPIA 35 AMBATE E AMBO IN GIOCO : 74.85 
NUMERO SPIA 36 AMBATE E AMBO IN GIOCO : 72.09 
NUMERO SPIA 37 AMBATE E AMBO IN GIOCO : 88.75 
NUMERO SPIA 38 AMBATE E AMBO IN GIOCO : 57.06 
NUMERO SPIA 39 AMBATE E AMBO IN GIOCO : 03.71 
NUMERO SPIA 40 AMBATE E AMBO IN GIOCO : 47.28 
NUMERO SPIA 41 AMBATE E AMBO IN GIOCO : 13.46
NUMERO SPIA 42 AMBATE E AMBO IN GIOCO : 87.30 
NUMERO SPIA 43 AMBATE E AMBO IN GIOCO : 89.40 
NUMERO SPIA 44 AMBATE E AMBO IN GIOCO : 66.26 
NUMERO SPIA 45 AMBATE E AMBO IN GIOCO : 58.86 
NUMERO SPIA 46 AMBATE E AMBO IN GIOCO : 16.75 
NUMERO SPIA 47 AMBATE E AMBO IN GIOCO : 89.43 
NUMERO SPIA 48 AMBATE E AMBO IN GIOCO : 53.19 
NUMERO SPIA 49 AMBATE E AMBO IN GIOCO : 84.59 
NUMERO SPIA 50 AMBATE E AMBO IN GIOCO : 45.08 
NUMERO SPIA 51 AMBATE E AMBO IN GIOCO : 10.19 
NUMERO SPIA 52 AMBATE E AMBO IN GIOCO : 51.78 
NUMERO SPIA 53 AMBATE E AMBO IN GIOCO : 78.05 
NUMERO SPIA 54 AMBATE E AMBO IN GIOCO : 43.88 
NUMERO SPIA 55 AMBATE E AMBO IN GIOCO : 18.72 
NUMERO SPIA 56 AMBATE E AMBO IN GIOCO : 81.36 
NUMERO SPIA 57 AMBATE E AMBO IN GIOCO : 85.62 
NUMERO SPIA 58 AMBATE E AMBO IN GIOCO : 06.56 
NUMERO SPIA 59 AMBATE E AMBO IN GIOCO : 56.05 
NUMERO SPIA 60 AMBATE E AMBO IN GIOCO : 06.38 
NUMERO SPIA 61 AMBATE E AMBO IN GIOCO : 41.81 
NUMERO SPIA 62 AMBATE E AMBO IN GIOCO : 72.42 
NUMERO SPIA 63 AMBATE E AMBO IN GIOCO : 45.86
NUMERO SPIA 64 AMBATE E AMBO IN GIOCO : 86.19 
NUMERO SPIA 65 AMBATE E AMBO IN GIOCO : 88.70 
NUMERO SPIA 66 AMBATE E AMBO IN GIOCO : 17.89 
NUMERO SPIA 67 AMBATE E AMBO IN GIOCO : 81.44 
NUMERO SPIA 68 AMBATE E AMBO IN GIOCO : 68.56 
NUMERO SPIA 69 AMBATE E AMBO IN GIOCO : 10.77 
NUMERO SPIA 70 AMBATE E AMBO IN GIOCO : 71.19 
NUMERO SPIA 71 AMBATE E AMBO IN GIOCO : 85.24 
NUMERO SPIA 72 AMBATE E AMBO IN GIOCO : 12.08 
NUMERO SPIA 73 AMBATE E AMBO IN GIOCO : 05.38 
NUMERO SPIA 74 AMBATE E AMBO IN GIOCO : 85.33 
NUMERO SPIA 75 AMBATE E AMBO IN GIOCO : 11.53 
NUMERO SPIA 76 AMBATE E AMBO IN GIOCO : 89.20 
NUMERO SPIA 77 AMBATE E AMBO IN GIOCO : 74.38 
NUMERO SPIA 78 AMBATE E AMBO IN GIOCO : 74.3 
NUMERO SPIA 79 AMBATE E AMBO IN GIOCO : 76.29 
NUMERO SPIA 80 AMBATE E AMBO IN GIOCO : 69.33 
NUMERO SPIA 81 AMBATE E AMBO IN GIOCO : 66.23 
NUMERO SPIA 82 AMBATE E AMBO IN GIOCO : 36.18 
NUMERO SPIA 83 AMBATE E AMBO IN GIOCO : 60.16 
NUMERO SPIA 84 AMBATE E AMBO IN GIOCO : 82.12 
NUMERO SPIA 85 AMBATE E AMBO IN GIOCO : 57.31
NUMERO SPIA 86 AMBATE E AMBO IN GIOCO : 57.53 
NUMERO SPIA 87 AMBATE E AMBO IN GIOCO : 72.18 
NUMERO SPIA 88 AMBATE E AMBO IN GIOCO : 32.14 
NUMERO SPIA 89 AMBATE E AMBO IN GIOCO : 27.8 
NUMERO SPIA 90 AMBATE E AMBO IN GIOCO : 81.77 

Le due ambate andranno giocate esclusivamente sulla ruota di ricavo, mentre l'ambo va anche su “TUTTE” e per ruota secca 
Ultima modifica di Tatoo64 il 26/03/2014, 18:09, modificato 1 volta in totale.
vivi e lascia vivere

Immagine

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: TABELLA NUMERI UGUALI ISOTOPI

Messaggio da SeeLe8 » 26/03/2014, 19:21

Quindi ora a GE-MI-TO abbiamo la terzina 85.24.41, giusto?
Immagine

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

Re: TABELLA NUMERI UGUALI ISOTOPI

Messaggio da DjNomade » 26/03/2014, 22:22

Ho provato ad unirli.........

Ciauz



Codice: Seleziona tutto


' 26/3/2014
'http://www.pentambo.info/forum/viewtopic.php?f=22&t=4652&sid=62627740b8828fe97ea437e089fec94b#p23605


Sub main()
Dim nu1(5),nu2(5),nu3(5),nu4(5),nu5(5),amb(10),ruota(2),ruote(1),ruot(1)
Dim posta(5),poste(5),post(5),pos1(1),pos2(1),poste3(3)
Dim posta1(6),posta2(7),posta3(8),posta4(9),posta5(10)


posta(1)=1:posta(2)=1.50:posta(3)=0.50


ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8650)'7850 inizio 2008
k=InputBox ("per quanti colpi?","colpi di gioco",13)
ini=ce
fin=EstrazioneFin
Scrivi "========================================TABELLA NUMERI UGUALI ISOTOPI",1
Scrivi "========================================NERISOLE + PRODRIVE",1
Scrivi "===================================================Listato DjNomade",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin

'If IndiceMensile(es+1)=1 Then 
'If IndiceMensile (es+1)=1 Or es=EstrazioneFin Then
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)



For r = 1 To 10
For r1 =r+1 To 12
If r1= 11 Then r1= 12
For p = 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r1,p)
If a = b Then

n1=a





casi=casi+1:Scrivi String(44,"=")&" TABELLA NUMERI UGUALI ISOTOPI",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r)& " - "&StringaEstratti(es,r)&" ] [ "&_
Format2(n1)&" ] in "&(p)&"^Posizione",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(n1)&" ] in "&(p)&"^Posizione",1
Scrivi

 

If n1 =1 Then amb(1)=80:amb(2)=69:amb(3)=1
If n1 =2 Then amb(1)=79:amb(2)=19:amb(3)=89
If n1 =3 Then amb(1)=13:amb(2)=60:amb(3)=87
If n1 =4 Then amb(1)=40:amb(2)=15:amb(3)=85
If n1 =5 Then amb(1)=6:amb(2)=62:amb(3)=83
If n1 =6 Then amb(1)=84:amb(2)=72:amb(3)=81
If n1 =7 Then amb(1)=89:amb(2)=48:amb(3)=79
If n1 =8 Then amb(1)=55:amb(2)=67:amb(3)=77
If n1 =9 Then amb(1)=15:amb(2)=44:amb(3)=75
If n1 =10 Then amb(1)=3:amb(2)=11:amb(3)=73
If n1 =11 Then amb(1)=39:amb(2)=81:amb(3)=71
If n1 =12 Then amb(1)=40:amb(2)=32:amb(3)=69
If n1 =13 Then amb(1)=85:amb(2)=18:amb(3)=67
If n1 =14 Then amb(1)=72:amb(2)=83:amb(3)=65
If n1 =15 Then amb(1)=35:amb(2)=36:amb(3)=63
If n1 =16 Then amb(1)=64:amb(2)=55:amb(3)=61
If n1 =17 Then amb(1)=35:amb(2)=45:amb(3)=59
If n1 =18 Then amb(1)=55:amb(2)=46:amb(3)=57
If n1 =19 Then amb(1)=71:amb(2)=19:amb(3)=55
If n1 =20 Then amb(1)=64:amb(2)=36:amb(3)=53
If n1 =21 Then amb(1)=68:amb(2)=89:amb(3)=51
If n1 =22 Then amb(1)=40:amb(2)=51:amb(3)=49
If n1 =23 Then amb(1)=46:amb(2)=23:amb(3)=47
If n1 =24 Then amb(1)=71:amb(2)=49:amb(3)=45
If n1 =25 Then amb(1)=19:amb(2)=90:amb(3)=43
If n1 =26 Then amb(1)=12:amb(2)=86:amb(3)=41
If n1 =27 Then amb(1)=88:amb(2)=43:amb(3)=39
If n1 =28 Then amb(1)=14:amb(2)=72:amb(3)=37
If n1 =29 Then amb(1)=85:amb(2)=28:amb(3)=35
If n1 =30 Then amb(1)=2:amb(2)=82:amb(3)=33
If n1 =31 Then amb(1)=65:amb(2)=83:amb(3)=31
If n1 =32 Then amb(1)=88:amb(2)=84:amb(3)=29
If n1 =33 Then amb(1)=70:amb(2)=09:amb(3)=27
If n1 =34 Then amb(1)=12:amb(2)=47:amb(3)=25
If n1 =35 Then amb(1)=74:amb(2)=85:amb(3)=23
If n1 =36 Then amb(1)=72:amb(2)=9:amb(3)=21
If n1 =37 Then amb(1)=88:amb(2)=75:amb(3)=19
If n1 =38 Then amb(1)=57:amb(2)=06:amb(3)=17
If n1 =39 Then amb(1)=03:amb(2)=71:amb(3)=15
If n1 =40 Then amb(1)=47:amb(2)=28:amb(3)=13
If n1 =41 Then amb(1)=13:amb(2)=46:amb(3)=11
If n1 =42 Then amb(1)=87:amb(2)=30:amb(3)=09
If n1 =43 Then amb(1)=89:amb(2)=40:amb(3)=07
If n1 =44 Then amb(1)=66:amb(2)=26:amb(3)=05
If n1 =45 Then amb(1)=58:amb(2)=86:amb(3)=03
If n1 =46 Then amb(1)=16:amb(2)=75:amb(3)=01
If n1 =47 Then amb(1)=89:amb(2)=43:amb(3)=89
If n1 =48 Then amb(1)=53:amb(2)=19:amb(3)=87
If n1 =49 Then amb(1)=84:amb(2)=59:amb(3)=85
If n1 =50 Then amb(1)=45:amb(2)=8:amb(3)=83
If n1 =51 Then amb(1)=10:amb(2)=19:amb(3)=81
If n1 =52 Then amb(1)=51:amb(2)=78:amb(3)=79
If n1 =53 Then amb(1)=78:amb(2)=05:amb(3)=77
If n1 =54 Then amb(1)=43:amb(2)=88:amb(3)=75
If n1 =55 Then amb(1)=18:amb(2)=72:amb(3)=73
If n1 =56 Then amb(1)=81:amb(2)=36:amb(3)=71
If n1 =57 Then amb(1)=85:amb(2)=62:amb(3)=69
If n1 =58 Then amb(1)=06:amb(2)=56:amb(3)=67
If n1 =59 Then amb(1)=56:amb(2)=05:amb(3)=65
If n1 =60 Then amb(1)=06:amb(2)=38:amb(3)=63
If n1 =61 Then amb(1)=41:amb(2)=81:amb(3)=61
If n1 =62 Then amb(1)=72:amb(2)=42:amb(3)=59
If n1 =63 Then amb(1)=45:amb(2)=86:amb(3)=57
If n1 =64 Then amb(1)=86:amb(2)=19:amb(3)=55
If n1 =65 Then amb(1)=88:amb(2)=70:amb(3)=53
If n1 =66 Then amb(1)=17:amb(2)=89:amb(3)=51
If n1 =67 Then amb(1)=81:amb(2)=44:amb(3)=49
If n1 =68 Then amb(1)=68:amb(2)=56:amb(3)=47
If n1 =69 Then amb(1)=10:amb(2)=77:amb(3)=45
If n1 =70 Then amb(1)=71:amb(2)=19:amb(3)=43
If n1 =71 Then amb(1)=85:amb(2)=24:amb(3)=41
If n1 =72 Then amb(1)=12:amb(2)=08:amb(3)=39
If n1 =73 Then amb(1)=05:amb(2)=38:amb(3)=37
If n1 =74 Then amb(1)=85:amb(2)=33:amb(3)=35
If n1 =75 Then amb(1)=11:amb(2)=53:amb(3)=33
If n1 =76 Then amb(1)=89:amb(2)=20:amb(3)=31
If n1 =77 Then amb(1)=74:amb(2)=38:amb(3)=29
If n1 =78 Then amb(1)=74:amb(2)=03:amb(3)=27
If n1 =79 Then amb(1)=76:amb(2)=29:amb(3)=25
If n1 =80 Then amb(1)=69:amb(2)=33:amb(3)=23
If n1 =81 Then amb(1)=66:amb(2)=23:amb(3)=21
If n1 =82 Then amb(1)=36:amb(2)=18:amb(3)=19
If n1 =83 Then amb(1)=60:amb(2)=16:amb(3)=17
If n1 =84 Then amb(1)=82:amb(2)=12:amb(3)=15
If n1 =85 Then amb(1)=57:amb(2)=31:amb(3)=13
If n1 =86 Then amb(1)=57:amb(2)=53:amb(3)=11
If n1 =87 Then amb(1)=72:amb(2)=18:amb(3)=9
If n1 =88 Then amb(1)=32:amb(2)=14:amb(3)=7
If n1 =89 Then amb(1)=27:amb(2)=08:amb(3)=5
If n1 =90 Then amb(1)=81:amb(2)=77:amb(3)=3
ruota(1)=r
ruota(2)=r1:co=0




nu1(1)=amb(1)
nu1(2)=amb(2)
nu1(3)=amb(3)
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k







Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi "========================================TABELLA NUMERI UGUALI ISOTOPI",1
Scrivi "========================================NERISOLE + PRODRIVE",1
Scrivi "==============================================Listato DjNomade",1
End Sub 


Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: TABELLA NUMERI UGUALI ISOTOPI

Messaggio da SeeLe8 » 26/03/2014, 22:25

GRANDEEEEEEEEEEEEEEEEEEEEEEEEE

:good: :good: :good: :good: :good: :good: :good:


mazza che lavoro!! :shock:
ti sei riscritto tutte le tabelle? :o
Ultima modifica di SeeLe8 il 26/03/2014, 22:25, modificato 1 volta in totale.
Immagine

nerisole
Messaggi: 1829
Iscritto il: 27/10/2011, 15:24

Re: TABELLA NUMERI UGUALI ISOTOPI

Messaggio da nerisole » 27/03/2014, 0:13

grazie mille

che capolavoro ha fatto



Immagine
vivi e lascia vivere

Immagine

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

Re: TABELLA NUMERI UGUALI ISOTOPI

Messaggio da Tatoo64 » 27/03/2014, 13:30

GRANDE DJNOMADE COME SEMPRE SUPER............... MA SE NON SBAGLIO LA PREVISIONE CONTEMPLA ANCHE LA GIOCATA DELL'AMBATA PRINCIPALE ALLA QUALE VANNO POI ABBINATI I NUMERI DELLE DUE TABELLE.
CIOE' PRENDIAMO L'ESTRAZIONE DEL 25-03-2014 DOPPIA AMBATA 2 A GE E TO = 2+2= 04

AMBATA 04, ABBINAMENTI 85 DI PRO E 40-15 DI NERISOLE

04-85 / 04-40 / 04-15 QUARTINA 04-85-40-15

SEMPRE CHE IO ABBIA CAPITO BENE............... ATTENDIAMO CONFERMA DA PRO E NERISOLE...


GIUSTAMENTE COME HA DETTO PRO I NUMERI GIUSTI SONO DOPPIO 2 = 79.19 + 89 UNENDO LE TABELLE, IO HO SBAGLIATO PERCHE' HO PRESO LA SOMMA DELLE DUE AMBATE DA CUI HO FATTO LA RICERCA.
QUINDI LA QUARTINA FINALE E' 04-79-19-89
Ultima modifica di Tatoo64 il 27/03/2014, 20:23, modificato 1 volta in totale.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: TABELLA NUMERI UGUALI ISOTOPI

Messaggio da SeeLe8 » 27/03/2014, 14:19

Ho aggiunto il numero ripetuto
però non so come fare a fargli visualizzare solo gli esiti di ambo

Codice: Seleziona tutto

    ' 26/3/2014
    'http://www.pentambo.info/forum/viewtopic.php?f=22&t=4652&sid=62627740b8828fe97ea437e089fec94b#p23605


    Sub Main()
    Dim nu1(5),nu2(5),nu3(5),nu4(5),nu5(5),amb(10),ruota(2),ruote(1),ruot(1)
    Dim posta(5),poste(5),post(5),pos1(1),pos2(1),poste3(3)
    Dim posta1(6),posta2(7),posta3(8),posta4(9),posta5(10)


    posta(1)=1:posta(2)=1.50:posta(3)=0.50


    ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8650)'7850 inizio 2008
    k=InputBox ("per quanti colpi?","colpi di gioco",13)
    ini=ce
    fin=EstrazioneFin
    Scrivi "========================================TABELLA NUMERI UGUALI ISOTOPI",1
    Scrivi "========================================NERISOLE + PRODRIVE",1
    Scrivi "===================================================Listato DjNomade",1
    Scrivi String(70,"="),1
    Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
    For es=ini To EstrazioneFin

    'If IndiceMensile(es+1)=1 Then
    'If IndiceMensile (es+1)=1 Or es=EstrazioneFin Then
    Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)



    For r = 1 To 10
    For r1 =r+1 To 12
    If r1= 11 Then r1= 12
    For p = 1 To 5
    a = Estratto(es,r,p)
    b = Estratto(es,r1,p)
    If a = b Then

    n1=a





    casi=casi+1:Scrivi String(44,"=")&" TABELLA NUMERI UGUALI ISOTOPI",1
    Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r)& " - "&StringaEstratti(es,r)&" ] [ "&_
    Format2(n1)&" ] in "&(p)&"^Posizione",1
    Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
    Format2(n1)&" ] in "&(p)&"^Posizione",1
    Scrivi

     

    If n1 =1 Then amb(1)=80:amb(2)=69:amb(3)=1
    If n1 =2 Then amb(1)=79:amb(2)=19:amb(3)=89
    If n1 =3 Then amb(1)=13:amb(2)=60:amb(3)=87
    If n1 =4 Then amb(1)=40:amb(2)=15:amb(3)=85
    If n1 =5 Then amb(1)=6:amb(2)=62:amb(3)=83
    If n1 =6 Then amb(1)=84:amb(2)=72:amb(3)=81
    If n1 =7 Then amb(1)=89:amb(2)=48:amb(3)=79
    If n1 =8 Then amb(1)=55:amb(2)=67:amb(3)=77
    If n1 =9 Then amb(1)=15:amb(2)=44:amb(3)=75
    If n1 =10 Then amb(1)=3:amb(2)=11:amb(3)=73
    If n1 =11 Then amb(1)=39:amb(2)=81:amb(3)=71
    If n1 =12 Then amb(1)=40:amb(2)=32:amb(3)=69
    If n1 =13 Then amb(1)=85:amb(2)=18:amb(3)=67
    If n1 =14 Then amb(1)=72:amb(2)=83:amb(3)=65
    If n1 =15 Then amb(1)=35:amb(2)=36:amb(3)=63
    If n1 =16 Then amb(1)=64:amb(2)=55:amb(3)=61
    If n1 =17 Then amb(1)=35:amb(2)=45:amb(3)=59
    If n1 =18 Then amb(1)=55:amb(2)=46:amb(3)=57
    If n1 =19 Then amb(1)=71:amb(2)=19:amb(3)=55
    If n1 =20 Then amb(1)=64:amb(2)=36:amb(3)=53
    If n1 =21 Then amb(1)=68:amb(2)=89:amb(3)=51
    If n1 =22 Then amb(1)=40:amb(2)=51:amb(3)=49
    If n1 =23 Then amb(1)=46:amb(2)=23:amb(3)=47
    If n1 =24 Then amb(1)=71:amb(2)=49:amb(3)=45
    If n1 =25 Then amb(1)=19:amb(2)=90:amb(3)=43
    If n1 =26 Then amb(1)=12:amb(2)=86:amb(3)=41
    If n1 =27 Then amb(1)=88:amb(2)=43:amb(3)=39
    If n1 =28 Then amb(1)=14:amb(2)=72:amb(3)=37
    If n1 =29 Then amb(1)=85:amb(2)=28:amb(3)=35
    If n1 =30 Then amb(1)=2:amb(2)=82:amb(3)=33
    If n1 =31 Then amb(1)=65:amb(2)=83:amb(3)=31
    If n1 =32 Then amb(1)=88:amb(2)=84:amb(3)=29
    If n1 =33 Then amb(1)=70:amb(2)=09:amb(3)=27
    If n1 =34 Then amb(1)=12:amb(2)=47:amb(3)=25
    If n1 =35 Then amb(1)=74:amb(2)=85:amb(3)=23
    If n1 =36 Then amb(1)=72:amb(2)=9:amb(3)=21
    If n1 =37 Then amb(1)=88:amb(2)=75:amb(3)=19
    If n1 =38 Then amb(1)=57:amb(2)=06:amb(3)=17
    If n1 =39 Then amb(1)=03:amb(2)=71:amb(3)=15
    If n1 =40 Then amb(1)=47:amb(2)=28:amb(3)=13
    If n1 =41 Then amb(1)=13:amb(2)=46:amb(3)=11
    If n1 =42 Then amb(1)=87:amb(2)=30:amb(3)=09
    If n1 =43 Then amb(1)=89:amb(2)=40:amb(3)=07
    If n1 =44 Then amb(1)=66:amb(2)=26:amb(3)=05
    If n1 =45 Then amb(1)=58:amb(2)=86:amb(3)=03
    If n1 =46 Then amb(1)=16:amb(2)=75:amb(3)=01
    If n1 =47 Then amb(1)=89:amb(2)=43:amb(3)=89
    If n1 =48 Then amb(1)=53:amb(2)=19:amb(3)=87
    If n1 =49 Then amb(1)=84:amb(2)=59:amb(3)=85
    If n1 =50 Then amb(1)=45:amb(2)=8:amb(3)=83
    If n1 =51 Then amb(1)=10:amb(2)=19:amb(3)=81
    If n1 =52 Then amb(1)=51:amb(2)=78:amb(3)=79
    If n1 =53 Then amb(1)=78:amb(2)=05:amb(3)=77
    If n1 =54 Then amb(1)=43:amb(2)=88:amb(3)=75
    If n1 =55 Then amb(1)=18:amb(2)=72:amb(3)=73
    If n1 =56 Then amb(1)=81:amb(2)=36:amb(3)=71
    If n1 =57 Then amb(1)=85:amb(2)=62:amb(3)=69
    If n1 =58 Then amb(1)=06:amb(2)=56:amb(3)=67
    If n1 =59 Then amb(1)=56:amb(2)=05:amb(3)=65
    If n1 =60 Then amb(1)=06:amb(2)=38:amb(3)=63
    If n1 =61 Then amb(1)=41:amb(2)=81:amb(3)=61
    If n1 =62 Then amb(1)=72:amb(2)=42:amb(3)=59
    If n1 =63 Then amb(1)=45:amb(2)=86:amb(3)=57
    If n1 =64 Then amb(1)=86:amb(2)=19:amb(3)=55
    If n1 =65 Then amb(1)=88:amb(2)=70:amb(3)=53
    If n1 =66 Then amb(1)=17:amb(2)=89:amb(3)=51
    If n1 =67 Then amb(1)=81:amb(2)=44:amb(3)=49
    If n1 =68 Then amb(1)=68:amb(2)=56:amb(3)=47
    If n1 =69 Then amb(1)=10:amb(2)=77:amb(3)=45
    If n1 =70 Then amb(1)=71:amb(2)=19:amb(3)=43
    If n1 =71 Then amb(1)=85:amb(2)=24:amb(3)=41
    If n1 =72 Then amb(1)=12:amb(2)=08:amb(3)=39
    If n1 =73 Then amb(1)=05:amb(2)=38:amb(3)=37
    If n1 =74 Then amb(1)=85:amb(2)=33:amb(3)=35
    If n1 =75 Then amb(1)=11:amb(2)=53:amb(3)=33
    If n1 =76 Then amb(1)=89:amb(2)=20:amb(3)=31
    If n1 =77 Then amb(1)=74:amb(2)=38:amb(3)=29
    If n1 =78 Then amb(1)=74:amb(2)=03:amb(3)=27
    If n1 =79 Then amb(1)=76:amb(2)=29:amb(3)=25
    If n1 =80 Then amb(1)=69:amb(2)=33:amb(3)=23
    If n1 =81 Then amb(1)=66:amb(2)=23:amb(3)=21
    If n1 =82 Then amb(1)=36:amb(2)=18:amb(3)=19
    If n1 =83 Then amb(1)=60:amb(2)=16:amb(3)=17
    If n1 =84 Then amb(1)=82:amb(2)=12:amb(3)=15
    If n1 =85 Then amb(1)=57:amb(2)=31:amb(3)=13
    If n1 =86 Then amb(1)=57:amb(2)=53:amb(3)=11
    If n1 =87 Then amb(1)=72:amb(2)=18:amb(3)=9
    If n1 =88 Then amb(1)=32:amb(2)=14:amb(3)=7
    If n1 =89 Then amb(1)=27:amb(2)=08:amb(3)=5
    If n1 =90 Then amb(1)=81:amb(2)=77:amb(3)=3
    ruota(1)=r
    ruota(2)=r1:co=0




    nu1(1)=amb(1)
    nu1(2)=amb(2)
    nu1(3)=amb(3)
    nu1(4)=n1
    co=co+1
    ImpostaGiocata co,nu1,ruota,posta,k







    Gioca es
    End If
    Next
    Next
    Next
    Next
    ScriviResoconto
    Scrivi "========================================TABELLA NUMERI UGUALI ISOTOPI",1
    Scrivi "========================================NERISOLE + PRODRIVE",1
    Scrivi "==============================================Listato DjNomade",1
    End Sub

Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti