Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
STO. BA CA FI GE MI NA PA RO TO VE
01 1379 1149 1170 992 1291 1119 1198 1164 1237 1047
02 1024 1176 1056 1104 1086 850 796 993 1341 1280
03 839 1053 1001 989 1022 1255 1040 1088 1247 1072
04 1090 1329 1302 1462 1432 1204 1162 1186 1085 1214
05 984 976 1100 870 1271 951 1207 1064 1282 1235
06 1118 1039 1221 986 1116 1100 1117 1218 962 1290
STO. BA CA FI GE MI NA PA RO TO VE
01 1379 1149 1170 992 1291 1191 1198 1164 1237 1047
02 1244 1176 1336 1104 1099 1183 1280 993 1341 1324
03 1110 1053 1001 989 1024 1255 1040 1132 1454 1072
04 1221 1329 1350 1462 1432 1204 1162 1186 1140 1335
05 984 976 1101 925 1479 951 1207 1148 1282 1235
06 1208 1148 1221 1060 1116 1100 1117 1218 1124 1290
STORICO DELLE "SOMME DEI 5 RITARDI DETERMINATI" Tabella By Joe
NU BA CA FI GE MI NA PA RO TO VE
01 1379 1149 1170 992 1291 1191 1198 1164 1237 1047
02 1244 1176 1336 1104 1099 1183 1280 993 1341 1324
03 1110 1053 1001 989 1024 1255 1040 1132 1454 1072
04 1221 1329 1350 1462 1432 1204 1162 1186 1140 1335
05 984 976 1101 925 1479 951 1207 1148 1282 1235
06 1208 1148 1221 1060 1116 1100 1117 1218 1124 1290
07 1173 1070 1336 1088 1268 1190 1224 1330 1197 1115
08 1163 1060 1187 1411 1112 1114 1166 1808 1266 1106
09 970 1093 1444 1070 1288 974 1107 1224 1103 1251
10 1019 1411 1089 1000 1175 1016 1263 1265 1079 1181
11 1159 940 1193 1145 1054 1162 1323 1334 1252 1078
12 910 1234 1052 1096 1204 1244 1229 1059 971 1050
13 1033 1170 1251 1299 1322 1131 1203 1341 1399 1265
14 1422 1256 1100 1212 996 1111 1506 1024 1212 1413
15 1074 989 1049 1055 1086 1298 1029 1134 1149 1197
16 1392 1345 1237 1260 1372 1058 1073 1127 1313 1309
17 1267 1414 1266 1348 1256 1334 1094 999 1486 1159
18 1143 1152 1523 1104 1272 1104 1009 920 1203 1194
19 1346 1303 1339 979 1064 1075 935 1446 1352 1022
20 1334 971 1035 1155 1134 1559 1253 1440 1314 1138
21 1291 1263 1296 1183 1022 1304 996 1127 1073 1392
22 944 1286 1181 1159 1278 1066 1232 1206 1240 913
23 1369 1600 1195 920 1358 1181 1113 1416 1128 1135
24 1461 1046 1310 1209 1382 932 1167 932 1431 1137
25 1301 1319 933 1004 1142 1397 1156 1096 1520 1255
26 1005 1126 1475 1475 1157 1059 1056 1321 1589 1605
27 1129 1294 1067 1111 1293 1184 1231 1158 1184 1129
28 1701 1096 1028 1235 1595 1179 1163 974 1387 1020
29 1302 1084 1199 1191 1091 944 1354 1683 1069 1076
30 1160 1408 1121 1233 1260 1067 965 1225 1032 977
31 1133 1382 1273 1099 1286 977 1149 1267 1223 1190
32 1260 1152 1010 1515 1246 1067 977 1198 1121 1258
33 975 1221 1125 1134 1351 1675 1143 937 1339 1293
34 1040 1619 1242 1106 1075 1264 1240 1430 1053 1199
35 1110 1387 980 987 1177 1277 1241 1138 1261 1073
36 1567 1260 1018 1026 1238 1282 1068 1245 1381 1124
37 1015 1193 1234 1046 1203 953 1070 1169 974 1280
38 1571 1197 1677 1173 1216 1124 939 984 1312 1356
39 1065 1123 1036 1218 1328 1144 907 1230 1006 1300
40 1001 993 1079 1035 1370 1170 1001 1082 1227 1054
41 1255 909 1339 1073 1322 1301 1018 1151 1253 1186
42 1057 1157 1257 1307 1376 1064 1414 1236 1327 1156
43 1353 1142 1061 900 1292 1049 1198 1156 1027 1295
44 1035 1009 978 924 1070 1058 1282 1299 1276 1115
45 1492 1050 1381 876 1197 1136 1066 1229 1509 1047
46 1342 940 1398 905 1033 1231 1349 1557 1156 1059
47 1673 1290 1321 1010 1075 1063 1344 1106 1034 1717
48 1383 1011 1216 1036 1654 1774 1155 1236 1377 1033
49 1302 1112 1281 1196 1429 1016 1191 1091 1101 1240
50 1346 1036 1196 1017 1231 1232 1460 1218 1416 1398
51 970 1266 1426 1479 1094 1193 1242 1268 1271 1217
52 1004 1060 1363 1053 1283 1109 1329 1306 1523 1331
53 1098 1222 1081 941 1038 1108 1279 1341 1204 1346
54 1043 1130 1266 1152 1222 1168 952 1065 995 1171
55 1515 1078 1295 1453 892 1238 1046 1053 1274 1058
56 1063 1618 1109 1014 1531 1104 1190 1106 1168 1537
57 1537 1153 1155 1159 1288 1094 1161 1318 1033 1160
58 1378 1372 1224 1131 1585 1018 1079 1284 1405 1222
59 1314 1353 1245 1213 1073 1164 1359 1098 1097 1220
60 1052 1298 1241 1481 1059 1153 1313 1177 1271 1215
61 1402 1139 1489 1320 1273 1172 1188 1144 1199 1361
62 1658 1323 1290 1283 1028 1160 953 949 1147 1236
63 1637 1197 1173 1129 1536 937 1204 1034 1512 1243
64 1424 1043 938 1083 1335 1072 1225 1438 1221 1024
65 1145 1052 1114 1063 1116 1185 1103 1225 1375 1014
66 1082 1466 1328 996 1078 1640 1001 1319 1162 1135
67 1274 1244 1155 1391 1316 1433 964 1535 1166 1509
68 1151 1414 1266 1320 889 1344 1034 1314 1249 1609
69 1033 1148 1058 1064 1183 1273 1013 1425 1061 1208
70 1269 948 1243 1106 1331 1118 1574 1127 1207 962
71 1312 1403 1468 1012 1085 1326 1015 1164 1054 1123
72 1052 1042 981 1070 1210 1112 1352 1047 1222 1336
73 1241 896 1208 1105 1043 1523 985 1280 1403 1395
74 988 947 1257 1134 1543 1263 1349 1251 1489 1170
75 1088 1004 1206 1077 1269 1103 1116 991 1054 1089
76 1092 1386 1465 1084 1115 1240 1114 1316 942 1280
77 1237 999 1266 1183 1230 1029 966 1320 998 1107
78 1215 1002 1055 1077 1117 1248 1322 1301 1386 1178
79 1414 1157 1012 1161 1216 1289 1016 1070 1315 1181
80 1322 1071 1346 1141 1091 1116 1172 1179 1089 1138
81 1136 1159 1461 971 972 1443 1665 1221 1148 1073
82 1304 946 1385 1166 1411 1500 1163 1241 957 1103
83 1122 919 1265 1268 1360 1090 1183 1277 1076 1119
84 1192 1304 1095 1385 1216 892 1398 1354 1044 1123
85 1489 1057 1346 912 1617 1123 1081 912 894 1205
86 1067 984 974 1105 1103 1217 1072 1003 1196 979
87 943 925 1128 1002 1304 1469 1038 1274 1282 1134
88 1090 1243 1145 925 1010 1241 1122 1129 1274 1011
89 1089 1061 1508 1062 1610 1102 1239 1047 983 1102
90 1655 1015 1427 1135 918 998 1075 1133 1057 1249
Dal 07/01/1871 al 21/03/2020
Option Explicit
Sub Main
00:01:02
nu BA CA FI GE MI NA PA RO To VE
01 1379 1149 1170 992 1291 1191 1198 1164 1237 1047
02 1244 1176 1336 1104 1099 1183 1280 993 1341 1324
03 1110 1053 1001 989 1024 1255 1040 1132 1454 1072
04 1221 1329 1350 1462 1432 1204 1162 1186 1140 1335
05 984 976 1101 925 1479 951 1207 1148 1282 1235
06 1208 1148 1221 1060 1116 1100 1117 1218 1124 1290
07 1173 1070 1336 1088 1268 1190 1224 1330 1197 1115
08 1163 1060 1187 1411 1112 1114 1166 1808 1266 1106
09 970 1093 1444 1070 1288 974 1107 1224 1103 1251
10 1019 1411 1089 1000 1175 1016 1263 1265 1079 1181
11 1159 940 1193 1145 1054 1162 1323 1334 1252 1078
12 910 1234 1052 1096 1204 1244 1229 1059 971 1050
13 1033 1170 1251 1299 1322 1131 1203 1341 1399 1265
14 1422 1256 1100 1212 996 1111 1506 1024 1212 1413
15 1074 989 1049 1055 1086 1298 1029 1134 1149 1197
16 1392 1345 1237 1260 1372 1058 1073 1127 1313 1309
17 1267 1414 1266 1348 1256 1334 1094 999 1486 1159
18 1143 1152 1523 1104 1272 1104 1009 920 1203 1194
19 1346 1303 1339 979 1064 1075 935 1446 1352 1022
20 1334 971 1035 1155 1134 1559 1253 1440 1314 1138
21 1291 1263 1296 1183 1022 1304 996 1127 1073 1392
22 944 1286 1181 1159 1278 1066 1232 1206 1240 913
23 1369 1600 1195 920 1358 1181 1113 1416 1128 1135
24 1461 1046 1310 1209 1382 932 1167 932 1431 1137
25 1301 1319 933 1004 1142 1397 1156 1096 1520 1255
26 1005 1126 1475 1475 1157 1059 1056 1321 1589 1605
27 1129 1294 1067 1111 1293 1184 1231 1158 1184 1129
28 1701 1096 1028 1235 1595 1179 1163 974 1387 1020
29 1302 1084 1199 1191 1091 944 1354 1683 1069 1076
30 1160 1408 1121 1233 1260 1067 965 1225 1032 977
31 1133 1382 1273 1099 1286 977 1149 1267 1223 1190
32 1260 1152 1010 1515 1246 1067 977 1198 1121 1258
33 975 1221 1125 1134 1351 1675 1143 937 1339 1293
34 1040 1619 1242 1106 1075 1264 1240 1430 1053 1199
35 1110 1387 980 987 1177 1277 1241 1138 1261 1073
36 1567 1260 1018 1026 1238 1282 1068 1245 1381 1124
37 1015 1193 1234 1046 1203 953 1070 1169 974 1280
38 1571 1197 1677 1173 1216 1124 939 984 1312 1356
39 1065 1123 1036 1218 1328 1144 907 1230 1006 1300
40 1001 993 1079 1035 1370 1170 1001 1082 1227 1054
41 1255 909 1339 1073 1322 1301 1018 1151 1253 1186
42 1057 1157 1257 1307 1376 1064 1414 1236 1327 1156
43 1353 1142 1061 900 1292 1049 1198 1156 1027 1295
44 1035 1009 978 924 1070 1058 1282 1299 1276 1115
45 1492 1050 1381 876 1197 1136 1066 1229 1509 1047
46 1342 940 1398 905 1033 1231 1349 1557 1156 1059
47 1673 1290 1321 1010 1075 1063 1344 1106 1034 1717
48 1383 1011 1216 1036 1654 1774 1155 1236 1377 1033
49 1302 1112 1281 1196 1429 1016 1191 1091 1101 1240
50 1346 1036 1196 1017 1231 1232 1460 1218 1416 1398
51 970 1266 1426 1479 1094 1193 1242 1268 1271 1217
52 1004 1060 1363 1053 1283 1109 1329 1306 1523 1331
53 1098 1222 1081 941 1038 1108 1279 1341 1204 1346
54 1043 1130 1266 1152 1222 1168 952 1065 995 1171
55 1515 1078 1295 1453 892 1238 1046 1053 1274 1058
56 1063 1618 1109 1014 1531 1104 1190 1106 1168 1537
57 1537 1153 1155 1159 1288 1094 1161 1318 1033 1160
58 1378 1372 1224 1131 1585 1018 1079 1284 1405 1222
59 1314 1353 1245 1213 1073 1164 1359 1098 1097 1220
60 1052 1298 1241 1481 1059 1153 1313 1177 1271 1215
61 1402 1139 1489 1320 1273 1172 1188 1144 1199 1361
62 1658 1323 1290 1283 1028 1160 953 949 1147 1236
63 1637 1197 1173 1129 1536 937 1204 1034 1512 1243
64 1424 1043 938 1083 1335 1072 1225 1438 1221 1024
65 1145 1052 1114 1063 1116 1185 1103 1225 1375 1014
66 1082 1466 1328 996 1078 1640 1001 1319 1162 1135
67 1274 1244 1155 1391 1316 1433 964 1535 1166 1509
68 1151 1414 1266 1320 889 1344 1034 1314 1249 1609
69 1033 1148 1058 1064 1183 1273 1013 1425 1061 1208
70 1269 948 1243 1106 1331 1118 1574 1127 1207 962
71 1312 1403 1468 1012 1085 1326 1015 1164 1054 1123
72 1052 1042 981 1070 1210 1112 1352 1047 1222 1336
73 1241 896 1208 1105 1043 1523 985 1280 1403 1395
74 988 947 1257 1134 1543 1263 1349 1251 1489 1170
75 1088 1004 1206 1077 1269 1103 1116 991 1054 1089
76 1092 1386 1465 1084 1115 1240 1114 1316 942 1280
77 1237 999 1266 1183 1230 1029 966 1320 998 1107
78 1215 1002 1055 1077 1117 1248 1322 1301 1386 1178
79 1414 1157 1012 1161 1216 1289 1016 1070 1315 1181
80 1322 1071 1346 1141 1091 1116 1172 1179 1089 1138
81 1136 1159 1461 971 972 1443 1665 1221 1148 1073
82 1304 946 1385 1166 1411 1500 1163 1241 957 1103
83 1122 919 1265 1268 1360 1090 1183 1277 1076 1119
84 1192 1304 1095 1385 1216 892 1398 1354 1044 1123
85 1489 1057 1346 912 1617 1123 1081 912 894 1205
86 1067 984 974 1105 1103 1217 1072 1003 1196 979
87 943 925 1128 1002 1304 1469 1038 1274 1282 1134
88 1090 1243 1145 925 1010 1241 1122 1129 1274 1011
89 1089 1061 1508 1062 1610 1102 1239 1047 983 1102
90 1655 1015 1427 1135 918 998 1075 1133 1057 1249
End Sub
Ciao Joe e ciao ilegend il fatto che a me torni 1460 per il 14 su VE da cosa potrebbe dipendere? ? Grz
Ciao joe ,
--- omesso
se vuoi potresti postare i dati separati da un carattere ?
cosi magari i due output si possono confrontare con foglio di calcolo
ciao
Dal fatto che 1460 è il "ritardo corrente".
Ok grazie Joe. Quindi attualmente... il record di ra posizionale "storico" l'avrebbe, se non erro e guardando la tua tabella-report, l'8 su RO con 1808 estrazioni su una delle 5 posizioni giusto?
Ciao raga, avevo ravvisato anch'io errori sullo storico e pertanto ho voluto verificare con una mia versione.
eccola fate le vostre verifiche.
Codice:Sub Main Dim Mat(90,16),Nu(1),Ru(1),T,V Ini = 3950'EstrazioneIni fin = EstrazioneFin scelta = CInt(InputBox("1 = Ritardo Corrente" & Chr(13) & "2 = Ritardo Storico","Scelta Ritardo",1)) righe = CInt(InputBox("Quante righe visualizzo",,10)) ResetTimer For r = 1 To 11 If r = 11 Then r = 12 If scelta = 1 Then Scrivi "Ritadi Correnti di Posizioni",1 If scelta = 2 Then Scrivi "Ritardi storici di Posizioni",1 T = Array(T,"k","Ruota","Num","RP1","RP2","RP3","RP4","RP5","SOMMA_RP","Min","Max","FP1","FP2","FP3","FP4","FP5") Call InitTabella(T,RGB(187,187,187),,,5) k = 0 For n = 1 To 90 Nu(1) = n ReDim rit(5),fre(5) For p = 1 To 5 ReDim pos(5) pos(p) = True If scelta = 1 Then rit(p) = EstrattoRitardoTurbo(r,n,Ini,fin,,,pos) If scelta = 2 Then rit(p) = EstrattoStoricoTurbo(r,n,Ini,fin,,,pos) fre(p) = EstrattoFrequenzaTurbo(r,n,Ini,fin,,,pos) Next min = MinimoV(rit,1,- 1) max = MassimoV(rit) somRit = rit(1) + rit(2) + rit(3) + rit(4) + rit(5) k = k + 1 Mat(k,1) = k Mat(k,2) = SiglaRuota(r) Mat(k,3) = Nu(1) Mat(k,4) = rit(1) Mat(k,5) = rit(2) Mat(k,6) = rit(3) Mat(k,7) = rit(4) Mat(k,8) = rit(5) Mat(k,9) = somRit Mat(k,10) = min Mat(k,11) = max Mat(k,12) = fre(1) Mat(k,13) = fre(2) Mat(k,14) = fre(3) Mat(k,15) = fre(4) Mat(k,16) = fre(5) Next Call Messaggio("ATTENDERE Elaborazione...... " & TempoTrascorso) Call OrdinaMatrice(Mat,- 1,9) Call AvanzamentoElab(1,11,r) For x = 1 To righe V = Array(V,x,Mat(x,2),Mat(x,3),Mat(x,4),Mat(x,5),Mat(x,6),Mat(x,7),Mat(x,8),Mat(x,9),Mat(x,10),Mat(x,11),Mat(x,12),Mat(x,13),Mat(x,14),Mat(x,15),Mat(x,16)) Call AddRigaTabella(V) Call SetColoreCella(3,3,0) Call SetColoreCella(9,3,0) For xx = 4 To 8 If V(xx) = V(10) And V(10) > 99 Then Call SetColoreCella((xx),7,5) Next For yy = 10 To 11 Call SetColoreCella((yy),6,0) Next Next CreaTabella Next End Sub
Sub Main
Dim Mat(90,21),Nu(1),Ru(1),T,V
Ini = EstrazioneIni
fin = EstrazioneFin
scelta = CInt(InputBox("1 = Ritardo Corrente" & Chr(13) & "2 = Ritardo Storico","Scelta Ritardo",1))
righe = CInt(InputBox("Quante righe visualizzo",,10))
ResetTimer
For r = 1 To 11
If r = 11 Then r = 12
If scelta = 1 Then Scrivi "Ritadi Correnti di Posizioni",1
If scelta = 2 Then Scrivi "Ritardi storici di Posizioni",1
T = Array(T,"k","Ruota","Num","RP1","RP2","RP3","RP4","RP5","SOMMA_RP","Min","Max","FP1","FP2","FP3","FP4","FP5","Cum1","Cum2","Cum3","Cum4","Cum5")
Call InitTabella(T,RGB(187,187,187),,,5)
k = 0
For n = 1 To 90
Nu(1) = n
ReDim rit(5),fre(5)
For p = 1 To 5
ReDim pos(5)
pos(p) = True
If scelta = 1 Then rit(p) = EstrattoRitardoTurbo(r,n,Ini,fin,,,pos)
If scelta = 2 Then rit(p) = EstrattoStoricoTurbo(r,n,Ini,fin,,,pos)
fre(p) = EstrattoFrequenzaTurbo(r,n,Ini,fin,,,pos)
Next
min = MinimoV(rit,1,- 1)
max = MassimoV(rit)
somRit = rit(1) + rit(2) + rit(3) + rit(4) + rit(5)
minF = MinimoV(fre,1,-1)
maxF = MassimoV(fre)
somFre = fre(1)+fre(2)+fre(3)+fre(4)+fre(5)
'--------------------------------------------------
cum1 = rit(1)+fre(1)
cum2 = rit(2)+fre(2)
cum3 = rit(3)+fre(3)
cum4 = rit(4)+fre(4)
cum5 = rit(5)+fre(5)
k = k + 1
Mat(k,1) = k
Mat(k,2) = SiglaRuota(r)
Mat(k,3) = Nu(1)
Mat(k,4) = rit(1)
Mat(k,5) = rit(2)
Mat(k,6) = rit(3)
Mat(k,7) = rit(4)
Mat(k,8) = rit(5)
Mat(k,9) = somRit
Mat(k,10) = min
Mat(k,11) = max
Mat(k,12) = fre(1)
Mat(k,13) = fre(2)
Mat(k,14) = fre(3)
Mat(k,15) = fre(4)
Mat(k,16) = fre(5)
Mat(k,17) = cum1
Mat(k,18) = cum2
Mat(k,19) = cum3
Mat(k,20) = cum4
Mat(k,21) = cum5
Next
Call Messaggio("ATTENDERE Elaborazione...... " & TempoTrascorso)
Call OrdinaMatrice(Mat,- 1,9)
Call AvanzamentoElab(1,11,r)
For x = 1 To righe
V = Array(V,x,Mat(x,2),Mat(x,3),Mat(x,4),Mat(x,5),Mat(x,6),Mat(x,7),Mat(x,8),Mat(x,9),Mat(x,10),Mat(x,11),Mat(x,12),Mat(x,13),Mat(x,14),Mat(x,15),Mat(x,16),Mat(x,17),Mat(x,18),Mat(x,19),Mat(x,20),Mat(x,21))
Call AddRigaTabella(V)
Call SetColoreCella(3,3,0)
Call SetColoreCella(9,3,0)
For xx = 4 To 8
If V(xx) = V(10) And V(10) > 99 Then Call SetColoreCella((xx),7,5)
Next
For xy = 17 To 21
Call SetColoreCella((xy),4,0)
Next
For yy = 10 To 11
Call SetColoreCella((yy),6,0)
Next
Next
CreaTabella
Next
End Sub