xMIKE58

Zetrix · 2 Novembre 2023

Mike ma se scrivo negli spazi " -- " dopo li scrive anche nella tabella oppure no..
va bene dopo vedrò se riesco a scrivere meglio la tabella
con tutti quei If e End If mi sono incasinato un po e ho combinato un pasticcio
comunque il problema e che nella tabella non scrive il segno + ma soltanto il segno -
e il segno + ce lo devo scrivere io nella tabella..e devo trovare un modo per far scrivere il segno + nella tabella..
esempio se scrivo i numeri 62 14= -48 e se scrivo 14 62= +48 in algebra sono due differenti calcoli..
ma con ABS non scrive il segno + e devo trovare un altro modo per scrivere in tabella

Mike58 · 2 Novembre 2023

E' cosi per il segno + devi scriverlo tu (come hai fatto) , poi però devi stare attento quando lo richiami che non lo hai fatto diventare NumeroStringa anzichè NumeroInteger , in questo caso non puoi usarlo per fare operazioni.

E' pure così come dici circa il pasticcio (anch'io mi sono perso) capita !!! a mente fresca puoi trovare la/le soluzioni + caparbietà e ingegno.
Ciao

Zetrix · 2 Novembre 2023

Mike quanto scrivo gli script combino tanti pasticci e dopo riprovo a scrivere dove sono stati fatti gli errori
comunque scrivere i numeri in tabella non e tanto difficile il problema e scrivere bene gli if e end if ad ogni riga che si vuole scrivere il calcolo e questo e uno dei problemi che le tabelle non sono scritte bene..

ciao

Zetrix · 2 Novembre 2023

WOW MIKE sono riuscito a scrivere i segni + e - nella tabella si deve scrivere una formula megaspaziale!
e difficile scrivere questa formula MIKE forse neanche te riesci a scrivere questa formula..
ecco la tabella adesso i risultati sono esatti..

Mike58 · 2 Novembre 2023

Bravo Wow.
Vedi i sostantivi
Ingegno e Caparbietà quando si vuole si oltrepassa un limite.

Zetrix · 2 Novembre 2023

Codice:

  If A > C Then N5 =(A - C) : N5 =("-") & N5 Else If A < C Then N5 = Fuori90(90 - A + C) : N5 =("+") & N5
         If B > D Then N6 =(B - D) : N6 =("-") & N6 Else If B < D Then N6 = Fuori90(90 - B + D) : N6 =("+") & N6
         If C > E Then N7 =(C - E) : N7 =("-") & N7 Else If C < E Then N7 = Fuori90(90 - C + E) : N7 =("+") & N7

grazie Mike questa e la formula megaspaziale si deve scrivere in questo modo..

Zetrix · 2 Novembre 2023

Codice:

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7
   Dim A,B,C,D,E,X,Y,R
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10
   Dim A2,B2,C2,D2
   Dim S1,S2,S3
   '
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For R = 1 To 10
         '
         A = Estratto(es,R,1)
         B = Estratto(es,R,2)
         C = Estratto(es,R,3)
         D = Estratto(es,R,4)
         E = Estratto(es,R,5)
         '
         '---------------------------------
         ReDim MatriceCaselleDaEvid(5,1)
         '
         MatriceCaselleDaEvid(1,0) = R
         MatriceCaselleDaEvid(1,1) = 1
         '
         MatriceCaselleDaEvid(2,0) = R
         MatriceCaselleDaEvid(2,1) = 2
         '
         MatriceCaselleDaEvid(3,0) = R
         MatriceCaselleDaEvid(3,1) = 3
         '
         MatriceCaselleDaEvid(4,0) = R
         MatriceCaselleDaEvid(4,1) = 4
         '
         MatriceCaselleDaEvid(5,0) = R
         MatriceCaselleDaEvid(5,1) = 5
         Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
         '
         T1 = Array(T1,"  ","  ","  ","  ","  ","  ","  ","  ")
         'Call InitTabella(T1)
         '-------------------------------
         '-------------------------------
         T1 = Array(T1,Format2(A)," ",Format2(B)," ",Format2(C)," ",Format2(D)," ",Format2(E))
         Call InitTabella(T1)
         Call SetColoreCella(1,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(0,0,255),RGB(255,255,255))
         '-------------------------------
         '---------
         N1 = Abs(A - B)
         N2 = Abs(B - C)
         N3 = Abs(C - D)
         N4 = Abs(D - E)
         '---------------------------------
         If A < B And B > C And C < D And D > E Then
            T2 = Array(T2,"  ",("+" & N1)," ",("-" & N2)," ",("+" & N3)," ",("-" & N4)," ")
            Call AddRigaTabella(T2)
            Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
            Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         Else
            If A > B And B < C And C > D And D < E Then
               T2 = Array(T2,"  ",("-" & N1)," ",("+" & N2)," ",("-" & N3)," ",("+" & N4)," ")
               Call AddRigaTabella(T2)
               Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
               Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
            End If
         End If
         '--------------------------------
         '-------------------------------
         '---------
         '---------------------------------
         If A > C Then N5 =(A - C) : N5 =("-") & N5 Else If A < C Then N5 = Fuori90(90 - A + C) : N5 =("+") & N5
         If B > D Then N6 =(B - D) : N6 =("-") & N6 Else If B < D Then N6 = Fuori90(90 - B + D) : N6 =("+") & N6
         If C > E Then N7 =(C - E) : N7 =("-") & N7 Else If C < E Then N7 = Fuori90(90 - C + E) : N7 =("+") & N7
         '-----------------------------------------
         T3 = Array(T3,"  ","  ",(N5),"  ",(N6),"  ",(N7)," "," ")
         Call AddRigaTabella(T3)
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         '---------------------------------------------------------------------
         '--------------------------------
         '
         If A > D Then N8 =(A - D) : N8 =("-") & N8 Else If A < D Then N8 = Fuori90(90 - A + D) : N8 =("+") & N8
         If B > E Then N9 =(B - E) : N9 =("-") & N9 Else If B < E Then N9 = Fuori90(90 - B + E) : N9 =("+") & N9
         '---------
         '---------------------------------
         T4 = Array(T4,"  ","  ","  ",(N8),"  ",(N9),"  ","  "," ")
         Call AddRigaTabella(T4)
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         If A > E Then N10 =(A - E) : N10 =("-") & N10 Else If A < E Then N10 = Fuori90(90 - A + E) : N10 =("+") & N10
         '---------------------------------
         T5 = Array(T5," "," "," "," ",(N10)," "," "," "," ")
         Call AddRigaTabella(T5)
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         '--------------------------------
         '
         '---------------------------------
         T6 = Array(T6," "," "," "," "," "," "," "," "," ")
         Call AddRigaTabella(T6)
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         Call SetTableWidth("19%")
         CreaTabella
      Next
   Next
End Sub

Mike l'errore stava che scrivevo i segni + e - nella tabella invece si doveva
scrivere una formula con if e then
adesso i risultati sono esatti..

ciao

Mike58 · 2 Novembre 2023

Non ho ben controllato, ma perchè alcune ruote la tabella e decrescente 5-4-3-2-1 e altre non rispetta quest'ordine ?
poi sicuramente sei tu che devi andare oltre le semplici vedute ed aiutare i codici e algoritmi matematici.

26		37		13		79		53
	+11		-24		+66		-26
		-13		+42		+40
			+53		+16
				+27

62	38		04		61	55
	-58		+23		+51
		-1		+17
			-7

Zetrix · 2 Novembre 2023

Codice:

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7
   Dim A,B,C,D,E,X,Y,R
   Dim N1,N2,N3,N4,N5,N6,N7,N8,N9,N10
   Dim A2,B2,C2,D2
   Dim S1,S2,S3
   '
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For R = 1 To 12
      If R = 11 Then R = 12 End If
         '
         A = Estratto(es,R,1)
         B = Estratto(es,R,2)
         C = Estratto(es,R,3)
         D = Estratto(es,R,4)
         E = Estratto(es,R,5)
         '
         '---------------------------------
         ReDim MatriceCaselleDaEvid(5,1)
         '
         MatriceCaselleDaEvid(1,0) = R
         MatriceCaselleDaEvid(1,1) = 1
         '
         MatriceCaselleDaEvid(2,0) = R
         MatriceCaselleDaEvid(2,1) = 2
         '
         MatriceCaselleDaEvid(3,0) = R
         MatriceCaselleDaEvid(3,1) = 3
         '
         MatriceCaselleDaEvid(4,0) = R
         MatriceCaselleDaEvid(4,1) = 4
         '
         MatriceCaselleDaEvid(5,0) = R
         MatriceCaselleDaEvid(5,1) = 5
         Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
         '
         T1 = Array(T1,"  ","  ","  ","  ","  ","  ","  ","  ")
         'Call InitTabella(T1)
         '-------------------------------
         '-------------------------------
         T1 = Array(T1,Format2(A)," ",Format2(B)," ",Format2(C)," ",Format2(D)," ",Format2(E))
         Call InitTabella(T1)
         Call SetColoreCella(1,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(3,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(5,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(7,RGB(0,0,255),RGB(255,255,255))
         Call SetColoreCella(9,RGB(0,0,255),RGB(255,255,255))
         '-------------------------------
         '---------
         If A > B Then N1 =(A - B) : N1 =("-") & N1 Else If A < B Then N1 =(B - A) : N1 =("+") & N1
         If B > C Then N2 =(B - C) : N2 =("-") & N2 Else If B < C Then N2 =(C - B) : N2 =("+") & N2
         If C > D Then N3 =(C - D) : N3 =("-") & N3 Else If C < D Then N3 =(D - C) : N3 =("+") & N3
         If D > E Then N4 =(D - E) : N4 =("-") & N4 Else If D < E Then N4 =(E - D) : N4 =("+") & N4
         '
         T2 = Array(T2,"  ",(N1)," ",(N2)," ",(N3)," ",(N4)," ")
         Call AddRigaTabella(T2)
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(8,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         '-------------------------------
         '---------
         '---------------------------------
         If A > C Then N5 =(A - C) : N5 =("-") & N5 Else If A < C Then N5 =(C - A) : N5 =("+") & N5
         If B > D Then N6 =(B - D) : N6 =("-") & N6 Else If B < D Then N6 =(D - B) : N6 =("+") & N6
         If C > E Then N7 =(C - E) : N7 =("-") & N7 Else If C < E Then N7 =(E - C) : N7 =("+") & N7
         '-----------------------------------------
         T3 = Array(T3,"  ","  ",(N5),"  ",(N6),"  ",(N7)," "," ")
         Call AddRigaTabella(T3)
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(7,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         '---------------------------------------------------------------------
         '--------------------------------
         '
         If A > D Then N8 =(A - D) : N8 =("-") & N8 Else If A < D Then N8 =(D - A) : N8 =("+") & N8
         If B > E Then N9 =(B - E) : N9 =("-") & N9 Else If B < E Then N9 =(E - B) : N9 =("+") & N9
         '---------
         '---------------------------------
         T4 = Array(T4,"  ","  ","  ",(N8),"  ",(N9),"  ","  "," ")
         Call AddRigaTabella(T4)
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(6,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         If A > E Then N10 =(A - E) : N10 =("-") & N10 Else If A < E Then N10 =(E - A) : N10 =("+") & N10
         '---------------------------------
         T5 = Array(T5," "," "," "," ",(N10)," "," "," "," ")
         Call AddRigaTabella(T5)
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         '--------------------------------
         '
         '---------------------------------
         T6 = Array(T6," "," "," "," "," "," "," "," "," ")
         Call AddRigaTabella(T6)
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         '--------------------------------
         Call SetTableWidth("19%")
         CreaTabella
      Next
   Next
End Sub

Mike prova questo script lo sistemato meglio lo script nell'altro script avevo messo delle condizioni con i segni + e -
nella 1 riga..
ho aggiunto anche la nazionale..

Mike58 · 2 Novembre 2023

OK lo trovo corretto nel suo output.

Ciao

Zetrix · 2 Novembre 2023

Mike adesso ti farò vedere come si calcolano le equazioni con l'algebra nella tabella
la 1 riga scrive la 1 equazione dell'algebra
la 2 riga scrive la 2 equazione dell'algebra
-20+37=+17 __________ +37+1=+38 ___________+1-3=-2__________le equazioni sono esatte..
calcoliamo sulla 2 riga l'ambata
sulla 3 riga da lo stesso risultato +18+35=+53
ma il calcolo si fa sulla 2 riga perche le equazioni sono gia esatte..

Numeri in gioco 53 su FI per Estratto
[FI] [.. .. 53 .. ..] C.1 Estratto 02211 [31/10/2023] [87.17.53.89.18]

Zetrix · 2 Novembre 2023

Numeri in gioco 72 su FI per Estratto
[FI] [.. 72 .. .. ..] C.8 Estratto 02212 [02/11/2023] [36.72.38.44.48]

Mike questa e l'algebra il 72 non usciva da 14 estr su tutte..

ciao

Zetrix · 2 Novembre 2023

Mike ai tanti modi per calcolare l'ambata
le equazioni della 1 riga e il risultato della 4 riga
le equazioni della 2 riga e il risultato della 3 riga

Codice:

10 +
23 +
6 +
4 +
--------------------------
43 =

Zetrix · 3 Novembre 2023

Numeri in gioco 70 su BA per Estratto
[BA] [.. 70 .. .. ..] C.1 Estratto 02213 [03/11/2023] [80.70.23.05.67]

Mike se vuoi tentare di fare ambo o ambetto devi abbinare l'ultimo numero estratto
esempio l'ambo e 70 81 piu ambetto
in altri casi puo calcolare il diametrale dell'ultimo numero estratto e questo ambo gioca su tutte

Zetrix · 4 Novembre 2023

Codice:

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

Mike ho fatto questa tabella con gli script se vogliamo calcolare la somma media di un numero
esempio se vogliamo calcolare la somma media del numero 59
si mette sempre l'1 davanti e diventa 1+59=60 : 2=30 (somma media)
poi ho fatto un altro script che conta i numeri e li somma..
esempio se vogliamo contare la somma da 1 a 59 e se vogliamo fare un calcolo piu veloce
senza contare e sommare tutti i numeri nella calcolatrice basta fare questo calcolo..
in conclusione per la somma media per ogni singolo numero devono essere considerati
soltanto i numeri dispari..

Codice:

1
59 +
--------------------------
60 =
 
2 ÷
--------------------------
30 =
 
 
30
59 ×
--------------------------
1770 =

Codice:

1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20+21+22+23+24+25+26+27+28+29+30+31+32+33+34+35+36+37+38+39+40+41+42+43+44+45+46+47+48+49+50+51+52+53+54+55+56+57+58+59=1770

da 1 a 59 la somma e 1770

1770 : 59 = 30 la somma media

1 + 59 = 60 la somma comune

sto vedendo se integrare questa somma media per ogni singolo numero sulle estr..
e fare una tecnica

Zetrix · 4 Novembre 2023

[BA] [.. .. .. 35 ..] C.3 Estratto 02207 [24/10/2023] [29.74.34.35.46]
[BA] [.. .. 35 .. ..] C.5 Estratto 02209 [27/10/2023] [31.54.35.44.57]

[TT] [BA][31 .. 35 .. ..] C.5 Ambo 02209 [27/10/2023] [31.54.35.44.57]

Mike bisogna attenzionare anche al numero 56 il numero centrale..
90-56=34 ----numero a 90
or 56--54 ----numeretti a 10

Mike58 · 4 Novembre 2023

Zetrix, non Ti posso seguire.... prendo una pausa dal forum.

Rafele ‘o Ruoss’ · 4 Novembre 2023

Zetrix ha scritto:
Vedi l'allegato 2271196

[BA] [.. .. .. 35 ..] C.3 Estratto 02207 [24/10/2023] [29.74.34.35.46]
[BA] [.. .. 35 .. ..] C.5 Estratto 02209 [27/10/2023] [31.54.35.44.57]

[TT] [BA][31 .. 35 .. ..] C.5 Ambo 02209 [27/10/2023] [31.54.35.44.57]

Mike bisogna attenzionare anche al numero 56 il numero centrale..
90-56=34 ----numero a 90
or 56--54 ----numeretti a 10

zetrix complimenti per l'impegno notevole, volevo chiederti potresti descrivermi in breve come ricavare la giocata ?di primo acchitto mi sembra di capire che bisogna sfruttare i segni piu con il fuori 90 ma con quale esecuzione?grazie

Zetrix · 4 Novembre 2023

va bene Mike ho voluto mettere una soluzione di gioco per l'ambo
dopo vedi tu con lo script i risultati del gioco sia per l'estratto e sia per l'ambo..

Zetrix · 4 Novembre 2023

Rafele ‘o Ruoss’ ha scritto:
zetrix complimenti per l'impegno notevole, volevo chiederti potresti descrivermi in breve come ricavare la giocata ?di primo acchitto mi sembra di capire che bisogna sfruttare i segni piu con il fuori 90 ma con quale esecuzione?grazie

grazie per i complimenti per ricavare l'ambata si deve fare una equazione sulla 3 riga
se consideriamo la 1 riga i numeri estratti

3 riga = -11-19-25=-55 si addiziona a +90 quanto abbiamo un numero negativo cioe con il segno -
-55+90=35
or si puo fare sulla 4 riga
4 riga = -2-53=-55 da lo stesso risultato /1 e 4 / 2 e 5 /
per tentativo dell'ambo su ruota e tutte bisogna considerare l'ultimo numero estratto che e una spia
ma bisogna attenzionare anche al numero centrale il 56 che e un altra spia..
da questo numero centrale si possono calcolare altri abb..
questa equazione si puo fare anche con carta e penna sulle estr
devi considerare i numeri in 1 e 3 / 2 e 4 / 3 e 5 / ma si devono scrivere esatti i segni + e -
se no ti da una equazione sbagliata perche con l'algebra devi considerare sempre i segni + e -
queste equazioni si possono fare con un programmino che e gratis
se vuoi ti scrivo il link

questo e il programmino soltanto che calcola solo l'equazione sui numeri
come detto prima se da un numero negativo bisogna addizionare +90

PIANETA GRATIS - Software - Portabile - Scolastici

xMIKE58

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Banned

Advanced Premium Member

Advanced Premium Member