nengogreg.sb (questo è il programma) xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Start0: TextWindow.Left=10 TextWindow.Top = 10 TextWindow.ForegroundColor = "Cyan" TextWindow.WriteLine("NENGO - Calendario giapponese") TextWindow.WriteLine(" ") TextWindow.WriteLine("Il programma converte tra una data in stile occidentale e una data giapponese basata sul sistema delle ere NENGO ") TextWindow.WriteLine(" ") TextWindow.WriteLine("Da stile occidentale a Nengo o da Nengo a stile occidentale? (0,1)") ans1 = TextWindow.ReadNumber() If ans1= 1 Then Goto Start1 EndIf Start: TextWindow.ForegroundColor = "White" TextWindow.Write("Data Gregoriana/Giuliana? ") anno = TextWindow.ReadNumber() For k = 0 to 246 nomenengo =File.ReadLine(Program.Directory + "\nengo.txt" , 3*k+1) iniznengo = File.ReadLine(Program.Directory + "\nengo.txt" , 3*k+2) finenengo = File.ReadLine(Program.Directory + "\nengo.txt" , 3*k+3) If anno >= iniznengo And anno <=finenengo Then annengo = anno - iniznengo + 1 TextWindow.ForegroundColor = "Red" TextWindow.WriteLine("L'anno " + anno + " dC corrisponde all'anno " + annengo + " dell'era " + nomenengo ) Goto Conclusione EndIf EndFor Conclusione: TextWindow.ForegroundColor = "Cyan" TextWindow.WriteLine(" ") TextWindow.WriteLine("Ripetere? (0=no, 1=yes)") ans = TextWindow.ReadNumber() If ans = 1 Then Goto Start EndIf If ans = 0 Then Goto Start0 EndIf Start1: TextWindow.ForegroundColor = "White" TextWindow.Write("Era nengo? ") eranengo = TextWindow.Read() TextWindow.Write("Anno nengo? ") yearnengo = TextWindow.ReadNumber() For j = 0 to 246 nomenengo = File.ReadLine(Program.Directory + "\nengo.txt" , 3*j+1) iniznengo = File.ReadLine(Program.Directory + "\nengo.txt" , 3*j+2) finenengo = File.ReadLine(Program.Directory + "\nengo.txt" , 3*j+3) If nomenengo = eranengo Then era = eranengo annog = iniznengo + yearnengo -1 TextWindow.ForegroundColor = "Green" TextWindow.WriteLine("L'anno " + yearnengo + " dell'era " + eranengo + " corrisponde all'anno occidentale " + annog ) Goto Conclusione1 EndIf EndFor Conclusione1: TextWindow.ForegroundColor = "Cyan" TextWindow.WriteLine(" ") TextWindow.WriteLine("Ripetere? (0=no, 1=yes)") ans2 = TextWindow.ReadNumber() If ans2 = 1 then Goto Start1 EndIf xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx nengo.txt (questi sono i dati) xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx An'ei 1272 1281 Angen 1175 1177 Anna 968 970 Ansei 1854 1860 Antei 1227 1229 Bunmei 1469 1487 Bunpo 1317 1319 Bunchu 1372 1375 Bun'ei 1264 1275 Bunji 1185 1190 Bunka 1804 1818 Bunki 1501 1504 Bunkyu 1861 1864 Bunna 1352 1356 Bunnan 1444 1449 Bun'o 1260 1261 Bunroku 1592 1596 Bunryaku 1234 1235 Bunsei 1818 1830 Bunsho 1466 1467 Chogen 1028 1037 Choho 999 1004 Choji 1104 1106 Chokan 1163 1165 Chokyo 1487 1489 Chokyu 1040 1044 Choroku 1457 1460 Choryaku 1037 1040 Chosho 1132 1135 Chotoku 995 999 Chowa 1012 1017 Daido 806 810 Daiei 1521 1528 Daiji 1126 1131 Enkyo 1744 1748 Enkyu 1069 1074 En'o 1239 1240 Enryaku 782 806 Entoku 1489 1492 Eicho 1096 1097 Eien 987 989 Eiho 1081 1084 Eiji 1141 1142 Eikan 983 985 Eikyo 1429 1441 Eikyu 1113 1118 Eiman 1165 1166 Einin 1293 1299 Eiryaku 1160 1161 Eiroku 1558 1570 Eisho 1046 1053 Eisho 1504 1521 Eiso 989 990 Eitoku 1381 1384 Eiwa 1375 1379 Enbun 1356 1361 Enpo 1673 1681 Encho 923 931 Engen 1336 1340 Engi 901 923 Enkyo 1308 1311 Genbun 1736 1741 Genchu 1384 1392 Gen'ei 1118 1120 Genji 1864 1865 Genkei 877 885 Genki 1570 1573 Genko 1321 1324 Genkyu 1204 1206 Genna 1615 1624 Gennin 1224 1225 Gen'o 1319 1321 Genroku 1688 1704 Genryaku 1184 1185 Gentoku 1329 1331 Hakuchi 650 655 Heiji 1159 1160 Heisei 1988 2018 Hoan 1120 1124 Hoei 1704 1711 Hoen 1135 1141 Hogen 1156 1159 Hoji 1247 1249 Hoki 770 781 Horeki (horyaku) 1751 1764 Hotoku 1449 1452 Jian 1021 1024 Jingo-keiun 767 770 Jinki 724 729 Jiryaku 1065 1069 Jisho 1177 1181 Joei 1232 1233 Jogan 859 877 Jogen 1207 1211 Jogen 967 978 Joho 1074 1077 Joji 1362 1368 Jokyo 1684 1688 Jokyu 1219 1222 Joo 1222 1224 Joo 1652 1655 Jotoku 1097 1099 Jowa 1345 1350 Juei 1182 1184 Kaei 1848 1854 Kagen 1303 1306 Kaho 1094 1096 Kakei 1387 1389 Kakitsu 1441 1444 Kanbun 1661 1673 Kanpo 1741 1744 Kanpyo 889 898 Kan'ei 1624 1644 Kan'en 1748 1751 Kangen 1243 1247 Kanji 1087 1094 Kanki 1229 1232 Kanko 1004 1012 Kanna 985 987 Kannin 1017 1021 Kan'o 1350 1352 Kansei 1789 1801 Kansho 1460 1466 Kantoku 1044 1046 Kao 1169 1171 Karoku 1225 1227 Karyaky 1326 1329 Kasho 1106 1108 Kasho 848 851 Katei 1235 1238 Keian 1648 1652 Keicho 1596 1615 Keio 1865 1868 Keiun 704 708 Kenmu 1334 1336 Kenpo 1213 1219 Kencho 1249 1256 Ken'ei 1206 1207 Kengen 1302 1303 Kenji 1275 1278 Kenkyu 1190 1199 Kennin 1201 1204 Kenryaku 1211 1213 Kentoku 1370 1372 Koan 1278 1288 Koan 1361 1362 Kocho 1261 1264 Koei 1342 1345 Kogen 1256 1257 Kohei 964 968 Koho 1142 1144 Koji 1555 1558 Koji 1844 1848 Koka 1340 1346 Kokoku 1340 1346 Konin 810 824 Koo 1389 1390 Koryaku 1379 1381 Kosho 1455 1457 Kowa 1099 1104 Kowa 1381 1384 Kyoho 1716 1736 Kyoroku 1528 1532 Kyotoku 1452 1455 Kyowa 1801 1804 Kyuan 1145 1151 Kyuju 1154 1156 Man'en 1860 1861 Manji 1658 1661 Manju 1024 1028 Meiji 1868 1912 Meio 1492 1501 Mireki 1655 1658 Meitoku 1390 1394 Meiwa 1764 1772 Ninpei 1151 1154 Nin'an 1166 1169 Ninji 1240 1243 Ninju 851 854 Ninna 885 889 Oan 1368 1375 Ocho 1311 312 Oei 1394 1428 Oho 1161 1163 Onin 1467 1469 Otoku 1084 1087 Owa 961 964 Reiki 715 717 Ryakunin 1238 1239 Ryakuo 1338 1342 Saiko 854 857 Shitoku 1384 1387 Shoan 1171 1175 Shoan 1171 1175 Shoan 1299 1302 Shocho 1428 1429 Shochu 1324 1326 Shogen 1259 1260 Shoei 931 998 Shohei 1346 1370 Shoho 1644 1648 Shoji 1199 1201 Shoka 1257 1259 Shokei 1332 1333 Shoo 1288 1293 Shoryaku 990 995 Shotai 898 901 Shotoku 1711 1716 Showa 1312 1317 Showa 834 848 Showa 1926 1989 Shucho 686 701 Taiho 701 704 Taika 645 650 Taisho 1912 1926 Ten'an 857 859 Tenbun 1532 1555 Tencho 824 834 Ten'ei 1110 1113 Ten'en 973 976 Tengen 978 983 Tengi 1053 1058 Tengyo 938 947 Tenji 1124 1126 Tenju 1375 1381 Tenmei 1781 1789 Tenna 1681 1684 Tennin 1108 1110 Ten'o 781 782 Tenpo 1830 1844 Tenpuku 1233 1244 Tenpyo 729 749 Tenpyo-hoji 757 765 Tenpyo-jingo 765 767 Tenpyo-kanpo 749 749 Tenpyo-shoho 749 757 Tenroku 970 973 Tenryaku 947 957 Tensho 1131 1132 Tensho 1573 1592 Tentoku 957 961 Ten'yo 1144 1145 Tokuji 1306 1308 Wado 708 715 Yoro 717 724 Yowa 1181 1182