per Cipisto una cortesia

[Roby]

Ciao Cipisto, mi servirebbe un modulo a 90 a 9 numeri per testare un metodo. Esempio: inserisci :
25-32-42-53-67-82-81-73-71
26-33-43-54-68-83-82-74-72
27-34-44-55-69-84-83-75-73
e cosi'via fino a 90

ti ringrazio anticipatamente

 

[imported_n/a]

quote:Originally posted by matematico

Ciao Cipisto, mi servirebbe un modulo a 90 a 9 numeri per testare un metodo. Esempio: inserisci :
25-32-42-53-67-82-81-73-71
26-33-43-54-68-83-82-74-72
27-34-44-55-69-84-83-75-73
e cosi'via fino a 90
in listato

ti ringrazio anticipatamente

 

[cipisto]

ciao matematico, questo fine settimana non ci sono quindi nel caso tu non ne abbia bisogno subito posso fartelo. fammi capire, hai bisogno di qualche tipo di interazione con il listato? correggi la mia interpretazione... con 90 numeri a 9 vengono fuori 706.252.528.630 combinazioni possibili, quindi sicuramente ho capito male io. fammi sapere ciao.


Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[imported_n/a]

ciao, intendevo una cosa simile che io ho gia' in foglio excel....ma a me serve a 9 numeri anziche' 5 :

Attenzione 0 vale 90 (0=90)

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

buona giornata....se non e' un lavoro lungo sarei felicissimo di averlo al piu' presto

 

[cipisto]

ok ho giocato in modo orribile con stringhe e numeri ma credo che il risultato sia quello che volevi:

Sub main()
Dim sSerie
Dim iNum(8)
Dim k
Dim i
Dim iTmp

   sSerie = Trim(InputBox("Inserisci la serie da nove numeri" & vbCrLf & vbCrLf _
                        & "Separa i numeri con un punto '.'" & vbCrLf & _
                          "I numeretti falli precedere dallo zero '0'" & vbCrLf _
                        & "Esempio: '78.56.01.54.90.06.21.03.74'", "Inserisci Serie"))
   If Len(sSerie) <> 26 Then
      MsgBox "La Serie inserita non risulta corretta", 48 + 0, "Controllo Serie"
      Exit Sub
   End If

   k = 1
   For i = LBound(iNum) To UBound(iNum)
      iNum(i) = Mid(sSerie, k, 2)
      k = k + 3
   Next

   For i = 0 To 90
      For k = LBound(iNum) To UBound(iNum)
         iTmp = Fuori90((Int(iNum(k)) + i))
         If Len(iTmp) = 1 Then iTmp = "0" & iTmp
         If iTmp = 90 Then iTmp = "00"
         If k < UBound(iNum) Then
            Scrivi iTmp & "|", False, False
         Else
            Scrivi iTmp, False, False
         End If
      Next
      Scrivi Chr(13), False, True
   Next
End Sub

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[cipisto]

Esempio con serie di partenza 25-32-42-53-67-82-81-73-71. Sono 91 righe perchè nella prima riga viene riportata la serie inserita:


25|32|42|53|67|82|81|73|71
26|33|43|54|68|83|82|74|72
27|34|44|55|69|84|83|75|73
28|35|45|56|70|85|84|76|74
29|36|46|57|71|86|85|77|75
30|37|47|58|72|87|86|78|76
31|38|48|59|73|88|87|79|77
32|39|49|60|74|89|88|80|78
33|40|50|61|75|00|89|81|79
34|41|51|62|76|01|00|82|80
35|42|52|63|77|02|01|83|81
36|43|53|64|78|03|02|84|82
37|44|54|65|79|04|03|85|83
38|45|55|66|80|05|04|86|84
39|46|56|67|81|06|05|87|85
40|47|57|68|82|07|06|88|86
41|48|58|69|83|08|07|89|87
42|49|59|70|84|09|08|00|88
43|50|60|71|85|10|09|01|89
44|51|61|72|86|11|10|02|00
45|52|62|73|87|12|11|03|01
46|53|63|74|88|13|12|04|02
47|54|64|75|89|14|13|05|03
48|55|65|76|00|15|14|06|04
49|56|66|77|01|16|15|07|05
50|57|67|78|02|17|16|08|06
51|58|68|79|03|18|17|09|07
52|59|69|80|04|19|18|10|08
53|60|70|81|05|20|19|11|09
54|61|71|82|06|21|20|12|10
55|62|72|83|07|22|21|13|11
56|63|73|84|08|23|22|14|12
57|64|74|85|09|24|23|15|13
58|65|75|86|10|25|24|16|14
59|66|76|87|11|26|25|17|15
60|67|77|88|12|27|26|18|16
61|68|78|89|13|28|27|19|17
62|69|79|00|14|29|28|20|18
63|70|80|01|15|30|29|21|19
64|71|81|02|16|31|30|22|20
65|72|82|03|17|32|31|23|21
66|73|83|04|18|33|32|24|22
67|74|84|05|19|34|33|25|23
68|75|85|06|20|35|34|26|24
69|76|86|07|21|36|35|27|25
70|77|87|08|22|37|36|28|26
71|78|88|09|23|38|37|29|27
72|79|89|10|24|39|38|30|28
73|80|00|11|25|40|39|31|29
74|81|01|12|26|41|40|32|30
75|82|02|13|27|42|41|33|31
76|83|03|14|28|43|42|34|32
77|84|04|15|29|44|43|35|33
78|85|05|16|30|45|44|36|34
79|86|06|17|31|46|45|37|35
80|87|07|18|32|47|46|38|36
81|88|08|19|33|48|47|39|37
82|89|09|20|34|49|48|40|38
83|00|10|21|35|50|49|41|39
84|01|11|22|36|51|50|42|40
85|02|12|23|37|52|51|43|41
86|03|13|24|38|53|52|44|42
87|04|14|25|39|54|53|45|43
88|05|15|26|40|55|54|46|44
89|06|16|27|41|56|55|47|45
00|07|17|28|42|57|56|48|46
01|08|18|29|43|58|57|49|47
02|09|19|30|44|59|58|50|48
03|10|20|31|45|60|59|51|49
04|11|21|32|46|61|60|52|50
05|12|22|33|47|62|61|53|51
06|13|23|34|48|63|62|54|52
07|14|24|35|49|64|63|55|53
08|15|25|36|50|65|64|56|54
09|16|26|37|51|66|65|57|55
10|17|27|38|52|67|66|58|56
11|18|28|39|53|68|67|59|57
12|19|29|40|54|69|68|60|58
13|20|30|41|55|70|69|61|59
14|21|31|42|56|71|70|62|60
15|22|32|43|57|72|71|63|61
16|23|33|44|58|73|72|64|62
17|24|34|45|59|74|73|65|63
18|25|35|46|60|75|74|66|64
19|26|36|47|61|76|75|67|65
20|27|37|48|62|77|76|68|66
21|28|38|49|63|78|77|69|67
22|29|39|50|64|79|78|70|68
23|30|40|51|65|80|79|71|69
24|31|41|52|66|81|80|72|70
25|32|42|53|67|82|81|73|71


Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[imported_n/a]

Ciao Cipisto, l'esempio e' perfetto ma nel listato mi da' errore

su questa riga la num. 31 :

Scrivi iTmp & "|", False, False


aspetto tuo aiuto quando puoi grazie

 

[cipisto]

inutile dire che a me non da errore ... dove sono non ho il programma, posso consigliarti di fare una prova. sostituisci il carattere fra virgolette "|" con un punto "." o "-" prova e fammi sapere

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[imported_n/a]

Grazie Cipisto , funziona perfettamente anche se ho dovuto fare delle piccole modifiche[:I]..sai forse e' per via della versione L8 5...a buon rendere

Buona domenica !

 

[cipisto]

non avendo la versione 5 non posso testarlo, mi interesserebbe sapere che modifiche hai fatto .
Ciao

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[imported_n/a]

Magari avessi fatto io le modifiche[:I]...ho chiesto un aiutino a Danilo e ce l'abbiamo fatta...ecco il listato modificato:

Sub main()
Dim sSerie
Dim iNum(8)
Dim k
Dim i
Dim iTmp

sSerie = Trim(InputBox("Inserisci la serie da nove numeri" & vbCrLf & vbCrLf _
& "Separa i numeri con un punto '.'" & vbCrLf & _
"I numeretti falli precedere dallo zero '0'" & vbCrLf _
& "Esempio: '78.56.01.54.90.06.21.03.74'", "Inserisci Serie"))
If Len(sSerie) <> 26 Then
MsgBox "La Serie inserita non risulta corretta", 48 + 0, "Controllo Serie"
Exit Sub
End If

k = 1
For i = Lbound(iNum) To UBound(iNum)
iNum(i) = Mid(sSerie, k, 2)
k = k + 3
Next

For i = 0 To 90
For k = Lbound(iNum) To UBound(iNum)
iTmp = Fuori90((Int(iNum(k)) + i))
If Len(iTmp) = 1 Then iTmp = "0" & iTmp
If iTmp = 90 Then iTmp = "00"
If k < UBound(iNum) Then
Scrivi iTmp & "|"
Else
Scrivi iTmp
End If
Next
Scrivi Chr(13)
Next
End Sub
Ciao

 

[cipisto]

dai uno sguardo al forum di danilo ti ho postato una versione corretta, che lascia le serie in ordine come prima. ciao

Esistono solo due cose infinite: l'universo e la stupidità umana. Sulla prima delle due non ho prove.(A.Einstein)

 

[imported_n/a]

che dire ..sei un grande il listato ora e' doc.


Ciao e buona serata