5.2 localhost:7325 1 0 3 0 0 1.0.3 1.0.3 2005/09/14 0 1 0 0 134217984 1 4 1768123448 81FBFBFBFBFBFBFBFCFCFCFCFCFCFCACACACACF5000000000000000000000000FB00002A002A002A002A2A00F500F500F500FCFBF50000000000000000000000FB002A002A2A2A2A2A2A2AF500F500FBFBFBFBFBFBFBFBFBFB00000000000000FB2A002A2A2A2A2A2A2A5500F500FBE3E3E3E3E3E3E3E3FBFB00000000000000FB002A2A2A2A2A2A2A2A2AF500FBE3E3E3E3E3E3E3E3FBE3FB00000000000000FB2A2A2A2A2A2A2A2A2A5500FBE3E3E3E3E3E3E3E3FBE3E3FB00000000000000FB002A2A2A2A2A2A2A552AFBFBFBFBFBFBFBFBFBFBE3E3E3FB00000000000000FB2A2A2A2A2A2A2A2A2A55FBE3E3E3E3E3E3E3E3FBE3E3E3FB00000000000000FB002A2A2A2A2A552A552AFBE3E3E3E3E3E3E3E3FBE3E3E3FB00000000000000FB2A2A2A552A552A552A55FBE3E3FFFFFFFFE3E3FBE3E3E3FB00000000000000FB00000000F500F500F500FBE3E3E3E3E3E3E3E3FBE3E3E3FB00000000000000FB000000F500F500F500F5FBE3FFFFFFFFFFFFE3FBE3E3E3FB00000000000000FC0000F500F500F500F500FBE3E3FFE3FFE3E3E3FBE3E3E3FB00000000000000FC000000F500F500F500F5FBE3E3FFE3FFE3FFE3FBE3E3E3FB00000000000000FC0000F500F500F500F500FBE3FFFAE3FAFFFAE3FBE3E3E3FB00000000000000FC000000F500F500F500F5FBE3E3E3E3E3E3E3E3FBE3E3E3FB00000000000000FC0000F500F500F500F500FBE3E3E3E3E3E3E3E3FBE3E3E3FB00000000000000FC000000F500F500F500F5FBE3E3E3E3E3E3E3E3FBE3E3E3FB00000000000000FC0000F500F500F500F500FBE3E3FFE3FAFFFFE3FBE3E3E3FB00000000000000FC000000F500F500F500F5FBE3FAFFFAFFE3E3E3FBE3E3E3FB00000000000000FC0000F500F500F500F500FBE3FFFFFFFFFFFFE3FBE3E3E3FB00000000000000FC000000F500F500F500F5FBE3FFFFFFFFE3E3E3FBE3E3E3FB00000000000000AC0000F500F500F500F500FBE3FFFFFFFFFFFFFAFBE3E3E3FB00000000000000AC000000F500F500F500F5FBE3E3FFFFFFFFE3E3FBE3E3E3FB00000000000000AC0000F500F500F500F500FBE3E3FFE3FFE3FFE3FBE3E3E3FB00000000000000AC000000F500F500F500F5FBE3E3FFE3FFFFE3FAFBE3E3E3FB00000000000000AC0000F500F500F500F500FBE3E3E3E3E3E3E3E3FBE3E3E3FBF6F50000000000AC00F500F500F500F5F5F5FBE3E3E3E3E3E3E3E3FBE3E3E3FBF8F7F6F5000000AC0000F500F500F500F5F5FBE3E3E3E3E3E3E3E3FBE3E3FBFFF9F8F72BF6F500AC00F500F500F5F5F5F5F5FBE3E3E3E3E3E3E3E3FBE3FBF7FFFAF9F8F8F7F500AC0000F5F5F5F5F5F5F5F5FBE3E3E3E3E3E3E3E3FBFBF6F7FFFAFA56F82BF500ACFDFDFDFDFDFDFDFDFDFEFBFBFBFBFBFBFBFBFBFBFFFFFFFFFAF956F7F60000 1229147683 FFFFE000800030008001FF808003FF808007FF80800FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFF80801FFEC0801FFCE0FFFFFFC0FFFFF000956AB800AFF5FF80DFEBFF80BFF7FF80FFEFFF80BFFFFF80FFFFFF80BFFFFF80FFFFFF80855FFF808ABFFF80955FFF808ABFFF80955FFF808ABFFF80955FFF808ABFFF80955FFF808ABFFF80955FFF808ABFFF80955FFF808ABFFF80955FFF808ABFFF80955FFFE0AAFFFFF8957FFFFEABFFFFFE9FFFFFFEFFFFFFFC 0 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 Na09 918D8AA892E88CB392A0 My Application (Mac OS X) 20971520 10289152 My Application AppName.exe 0 text R*ch TEXT 0 Mototyou 0 165 100001107 165 123 47 Mototyou 0 False False 16777215 0 E7B78FE58B98E5AE9AE58583E5B8B3 True False True False False False False 0 2 0 640 460 64 64 32000 32000 Mototyou 120 Window 0 1 MainListClear 0 9 0 9 0 134217984 Sub MainListClear() Dim i as Integer Dim j as Integer For i = 1 to 2000 For j = 1 to 8 MainList.Cell(i,j) = "" gFileReadRecord(i,j) = "" Next Next MainList.aListRefresh KariTotal.Text = "" KasiTotal.Text = "" AllKariTotal.Text = "" AllKasiTotal.Text = "" End Sub 1 ReadAccount tKamokuString as String,tKubun as Integer 0 225 0 225 0 134217984 Sub ReadAccount(tKamokuString as String,tKubun as Integer) Dim tFolderItem as FolderItem Dim tBinaryInput as BinaryStream Dim tKariDouble as Double Dim tKasiDouble as Double Dim tDateString(50) as String Dim tKariKingaku(50) as String Dim tKariKamoku(50) as String Dim tTekiyouString(50) as String Dim tBangouString(50) as String Dim tKasiKamoku(50) as String Dim tKasiKingaku(50) as String Dim tReadKubun(50) as String Dim tKamoku(50) as String Dim tTekiyou(50) as String Dim tBangou(50) as String Dim tKari(50) as String Dim tKasi(50) as String Dim tWriteKubun(50) as String Dim tKariCount as Integer Dim tKasiCount as Integer Dim tHyouziFlag as Integer Dim tHyouziGyou as Integer Dim tTotalKari as Double Dim tTotalKasi as Double Dim tKamokuFlag as Integer Dim SelectLineGyou as Integer Dim i as Integer Dim j as Integer tTotalKari = 0 tTotalKasi = 0 2F2FE5A3B2E4B88AE4BC9DE7A5A8496E646578E38395E382A1E382A4E383ABE38292E4BD9CE68890E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B2022E68CAFE69BBFE4BC9DE7A5A8E38387E383BCE382BF2229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tFolderItem = MakeFolder(tFolderItem.AbsolutePath + LeftB(DateField.Text,4)) 74466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B2022E68CAFE4BC9D22202B204C6566744228446174654669656C642E546578742C3429202B20222F22202B204D69644228446174654669656C642E546578742C372C322929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If tFolderItem <> Nil Then tBinaryInput = tFolderItem.OpenAsBinaryFile(False) If tBinaryInput <> Nil Then tBinaryInput.LittleEndian = True tHyouziGyou = 1'2 While tBinaryInput.EOF = False i = 0 tKariDouble = 0 tKasiDouble = 0 tKariCount = 0 tKasiCount = 0 Do i = i + 1 2F2FE697A5E4BB98202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tDateString(i) = Trim(tBinaryInput.ReadPString) 2F2FE5809FE696B9E98791E9A18D202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tKariKingaku(i) = Trim(tBinaryInput.ReadPString) tKariDouble = tKariDouble + ChangeSequence(tKariKingaku(i)) 2F2FE5809FE696B9E7A791E79BAEE795AAE58FB7202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tBinaryInput.Position = tBinaryInput.Position + 5 2F2FE5809FE696B9E7A791E79BAE202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tKariKamoku(i) = Trim(tBinaryInput.ReadPString) If tKariKamoku(i) <> "" Then tKariCount = tKariCount + 1 End If 2F2FE69198E8A681202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tTekiyouString(i) = Trim(tBinaryInput.ReadPString) 2F2FE795AAE58FB7202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tBangouString(i) = Trim(tBinaryInput.ReadPString) 2F2FE8B2B8E696B9E7A791E79BAEE795AAE58FB7202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tBinaryInput.Position = tBinaryInput.Position + 5 2F2FE8B2B8E696B9E7A791E79BAE202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tKasiKamoku(i) = Trim(tBinaryInput.ReadPString) If tKasiKamoku(i) <> "" Then tKasiCount = tKasiCount + 1 End If 2F2FE8B2B8E696B9E98791E9A18D202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tKasiKingaku(i) = Trim(tBinaryInput.ReadPString) tKasiDouble = tKasiDouble + ChangeSequence(tKasiKingaku(i)) 2F2FE58CBAE58886202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tReadKubun(i) = tBinaryInput.ReadPString If Len(tReadKubun(i)) = 2 Then 2F2FE4BA88E58299E7A9BAE99693E38080E694B9E8A18C202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tBinaryInput.Position = tBinaryInput.Position + 34 Else 2F2FE694B9E8A18C202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tBinaryInput.Position = tBinaryInput.Position + 2 End If tReadKubun(i) = Trim(tReadKubun(i)) If tKamokuFlag = 0 And (tKamokuString = tKariKamoku(i) Or tKamokuString = tKasiKamoku(i)) Then tKamokuFlag = 1 End If If tKubun <> 0 Then If Val(tReadKubun(i)) <> tKubun Then tKamokuFlag = 0 tKariDouble = 0 tKasiDouble = 0 End If End If Loop Until tKariDouble = tKasiDouble SelectLineGyou = 0 If tKamokuFlag = 1 Then If tKariCount = 1 And tKasiCount = 1 Then 2F2FEFBC91E5AFBEEFBC91202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F j = 0 If tKamokuString = tKariKamoku(i) Then j = j + 1 SelectLineGyou = SelectLineGyou + 1 tKamoku(j) = tKasiKamoku(i) tTekiyou(j) = tTekiyouString(i) tBangou(j) = tBangouString(i) tKari(j) = tKariKingaku(i) tKasi(j) = "0" tWriteKubun(j) = tReadKubun(j) tHyouziFlag = 1 End If If tKamokuString = tKasiKamoku(i) Then 'ElseIf tKamokuString = tKasiKamoku(i) Then j = j + 1 SelectLineGyou = SelectLineGyou + 1 tKamoku(j) = tKariKamoku(i) tTekiyou(j) = tTekiyouString(i) tBangou(j) = tBangouString(i) tKari(j) = "0" tKasi(j) = tKasiKingaku(i) tWriteKubun(j) = tReadKubun(j) tHyouziFlag = 1 End If ElseIf tKariCount > 1 And tKasiCount = 1 Then 2F2FE8A487E695B0E5AFBEEFBC91202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F For j = 1 to i If tKamokuString = tKariKamoku(j) Then SelectLineGyou = SelectLineGyou + 1 tKamoku(SelectLineGyou) = tKasiKamoku(1) tTekiyou(SelectLineGyou) = tTekiyouString(j) tBangou(SelectLineGyou) = tBangouString(j) tKari(SelectLineGyou) = tKariKingaku(j) tKasi(SelectLineGyou) = "0" tWriteKubun(SelectLineGyou) = tReadKubun(j) tHyouziFlag = 1 End If If tKamokuString = tKasiKamoku(j) Then SelectLineGyou = SelectLineGyou + 1 744B616D6F6B752853656C6563744C696E6547796F7529203D2022E8ABB8E58FA322202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tTekiyou(SelectLineGyou) = tTekiyouString(j) tBangou(SelectLineGyou) = tBangouString(j) tKari(SelectLineGyou) = "0" tKasi(SelectLineGyou) = tKasiKingaku(j) tWriteKubun(SelectLineGyou) = tReadKubun(j) tHyouziFlag = 1 End If Next ElseIf tKariCount = 1 And tKasiCount > 1 Then 2F2FEFBC91E5AFBEE8A487E695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F For j = 1 to i If tKamokuString = tKariKamoku(j) Then SelectLineGyou = SelectLineGyou + 1 744B616D6F6B752853656C6563744C696E6547796F7529203D2022E8ABB8E58FA322202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tTekiyou(SelectLineGyou) = tTekiyouString(j) tBangou(SelectLineGyou) = tBangouString(j) tKari(SelectLineGyou) = tKariKingaku(j) tKasi(SelectLineGyou) = "0" tWriteKubun(SelectLineGyou) = tReadKubun(j) tHyouziFlag = 1 End If If tKamokuString = tKasiKamoku(j) Then SelectLineGyou = SelectLineGyou + 1 tKamoku(SelectLineGyou) = tKariKamoku(1) tTekiyou(SelectLineGyou) = tTekiyouString(j) tBangou(SelectLineGyou) = tBangouString(j) tKari(SelectLineGyou) = "0" tKasi(SelectLineGyou) = tKasiKingaku(j) tWriteKubun(SelectLineGyou) = tReadKubun(j) tHyouziFlag = 1 End If Next ElseIf tKariCount > 1 And tKasiCount > 1 Then 2F2FE8A487E695B0E5AFBEE8A487E695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F For j = 1 to i If tKamokuString = tKariKamoku(j) Then SelectLineGyou = SelectLineGyou + 1 744B616D6F6B752853656C6563744C696E6547796F7529203D2022E8ABB8E58FA322202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tTekiyou(SelectLineGyou) = tTekiyouString(j) tBangou(SelectLineGyou) = tBangouString(j) tKari(SelectLineGyou) = tKariKingaku(j) tKasi(SelectLineGyou) = "0" tWriteKubun(SelectLineGyou) = tReadKubun(j) tHyouziFlag = 1 End If If tKamokuString = tKasiKamoku(j) Then SelectLineGyou = SelectLineGyou + 1 744B616D6F6B752853656C6563744C696E6547796F7529203D2022E8ABB8E58FA322202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tTekiyou(SelectLineGyou) = tTekiyouString(j) tBangou(SelectLineGyou) = tBangouString(j) tKari(SelectLineGyou) = "0" tKasi(SelectLineGyou) = tKasiKingaku(j) tWriteKubun(SelectLineGyou) = tReadKubun(j) tHyouziFlag = 1 End If Next End If If tHyouziFlag = 1 Then For j = 1 to SelectLineGyou gFileReadRecord(tHyouziGyou,1) = Right(tDateString(1),5) gFileReadRecord(tHyouziGyou,2) = tKamoku(j) gFileReadRecord(tHyouziGyou,3) = tWriteKubun(j) gFileReadRecord(tHyouziGyou,4) = tTekiyou(j) gFileReadRecord(tHyouziGyou,5) = tBangou(j) gFileReadRecord(tHyouziGyou,6) = SpaceSup(tKari(j),13) tTotalKari = tTotalKari + ChangeSequence(MainList.Cell(tHyouziGyou,5)) gFileReadRecord(tHyouziGyou,7) = SpaceSup(tKasi(j),13) tHyouziFlag = 0 tHyouziGyou = tHyouziGyou + 1 Next End If tKamokuFlag = 0 End If Wend tBinaryInput.Close KariTotal.Text = Format(tTotalKari,"-,#") KasiTotal.Text = Format(tTotalKasi,"-,#") AllKariTotal.Text = Format(tTotalKari + ChangeSequence(MainList.Cell(1,6)),"-,#") AllKasiTotal.Text = Format(tTotalKasi + ChangeSequence(MainList.Cell(1,7)),"-,#") End IF End If End Sub 1 ClearTransfer 0 7 4 7 4 134217984 Sub ClearTransfer() Dim i as Integer For i = 1 to 135 gKamoku(i) = "" gKingaku(i,1) = 0 gKingaku(i,2) = 0 Next End Sub 1 ReadTransfer tDateString as String,tKamokuName as String,tKamokuType as Integer,tKubun as Integer 0 42 0 42 0 134217984 Sub ReadTransfer(tDateString as String,tKamokuName as String,tKamokuType as Integer,tKubun as Integer) 2F2F4D61696E4C697374E381AEE4B880E8A18CE79BAEE381ABE7B9B0E3828AE8B68AE38197E38292E585A5E3828CE3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tFolderItem as FolderItem Dim tBinaryInput as BinaryStream Dim tReadString as String Dim i as Integer 2F2FE4BB8AE69C88E381AEE7B9B0E8B68AE38387E383BCE382BFE381AE466F6C6465724974656DE38292E5BE97E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B2022E68CAFE69BBFE4BC9DE7A5A8E38387E383BCE382BF2229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tFolderItem = MakeFolder(tFolderItem.AbsolutePath + LeftB(DateField.Text,4)) If tKubun = 0 Then 74466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B2022E7B9B0E8B68A22202B204C65667442287444617465537472696E672C3429202B20222F22202B204D696442287444617465537472696E672C372C322929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Else 74466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B20506F7075704D656E75312E54657874202B2022E7B9B0E8B68A22202B204C65667442287444617465537472696E672C3429202B20222F22202B204D696442287444617465537472696E672C372C322929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F End If 2F2F466F6C6465724974656DE3818CE5BE97E38289E3828CE3819FE38289202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If tFolderItem <> Nil Then 2F2FE68CAFE4BC9DE38387E383BCE382BFE38395E382A1E382A4E383ABE38292E4BD9CE68890E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tBinaryInput = tFolderItem.OpenAsBinaryFile(True) 2F2FE38395E382A1E382A4E383ABE3818CE9968BE38191E3819FE38289202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If tBinaryInput <> Nil Then tBinaryInput.LittleEndian = True i = 1 While tBinaryInput.EOF = False tReadString = Trim(tBinaryInput.ReadPString) If tReadString = tKamokuName Then MainList.Cell(1,6) = SpaceSup(Format(Val(Trim(tBinaryInput.ReadPString)),"-,#"),13) MainList.Cell(1,7) = SpaceSup(Format(Val(Trim(tBinaryInput.ReadPString)),"-,#"),13) If tKamokuType =2 Or tKamokuType = 3 Or tKamokuType = 5 Or tKamokuType = 7 Then MainList.Cell(1,8) = SpaceSup(Format(ABS(ChangeSequence(MainList.Cell(1,6)) - ChangeSequence(MainList.Cell(1,7))),"-,#"),13) Else MainList.Cell(1,8) = SpaceSup(Format(ChangeSequence(MainList.Cell(1,6)) - ChangeSequence(MainList.Cell(1,7)),"-,#"),13) End If Exit End If tBinaryInput.Position = tBinaryInput.Position + 67 Wend tBinaryInput.Close End If End If If MidB(tDateString,7,2) = "04" Then 4D61696E4C6973742E43656C6C28312C3429203D2022E5898DE38080E69C9FE38080E7B9B0E38080E8B68A22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Else 4D61696E4C6973742E43656C6C28312C3429203D2022E5898DE38080E69C88E38080E7B9B0E38080E8B68A22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F End If End Sub 1 ReadKamoku 0 10 6 10 6 134217984 Sub ReadKamoku() Dim tFolderItem as FolderItem Dim tBinaryInput as BinaryStream Dim tReadString as String Dim i as Integer Dim j as Integer i = 1 j = 1 2F2FE69198E8A681E58685E5AEB9E38395E382A1E382A4E383ABE381AEE38182E3828BE5A0B4E68980EFBC883D466F6C6465724974656DEFBC89E38292E5BE97E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 74466F6C6465724974656D203D20476574466F6C6465724974656D2867426173696350617468202B2022E8A8ADE5AE9A3AE58B98E5AE9AE7A791E79BAE2229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE38395E382A1E382A4E383ABE3818CE5AD98E59CA8E38197E381A6E38184E3828BEFBC883D466F6C6465724974656DE3818CE5AD98E59CA8E38197E381A6E38184E3828BEFBC89E381AAE38289202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If tFolderItem <> Nil Then 2F2FE3819DE381AEE38395E382A1E382A4E383ABE38292E8AAADE381BFE69BB8E3818DE383A2E383BCE38389E381A7E9968BE3818F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tBinaryInput = tFolderItem.OpenAsBinaryFile(True) 2F2FE38395E382A1E382A4E383ABE38292E9968BE3818FE38193E381A8E3818CE381A7E3818DE3828BEFBC883D7442696E617279496E707574E3818CE5AD98E59CA8E38197E381A6E38184E3828BEFBC89E381AAE38289202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If tBinaryInput <> Nil Then 2F2FE38395E382A1E382A4E383ABE381AEE69C80E5BE8CE381BEE381A7E8AAADE381BFE381A4E381A5E38191E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F While tBinaryInput.EOF = False 2F2FE58B98E5AE9AE7A791E79BAEE38292427574746F6E4E616D65E381B8E4BBA3E585A5202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.ButtonName(i,j) = Trim(tBinaryInput.ReadPString) 2F2FE3839CE382BFE383B3E381AEE889B2E38292427574746F6E436F6C6F72E381B8E4BBA3E585A5202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.ButtonColor(i,j) = Val(Trim(tBinaryInput.ReadPString)) + 1 2F2FE382B3E383BCE38389E795AAE58FB7E38292427574746F6E44617461E381B8E4BBA3E585A5202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.ButtonData1(i,j) = Trim(tBinaryInput.ReadPString) 2F2FE8AAADE381BFE9A39BE381B0E38197202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tBinaryInput.Position = tBinaryInput.Position + 27 j = j + 1 If j = MainButton.RowCount + 1Then i = i + 1 j = 1 End If If j = MainButton.RowCount And i = MainButton.ColCount Then Exit End If Wend tBinaryInput.Close End If End If End Sub 1 DataSort tKamokuType as Integer 0 70 0 70 0 134217984 Sub DataSort(tKamokuType as Integer) Dim tDay1(31) as Integer Dim tDay2(31) as Integer Dim tDayInteger as Integer Dim tLastDay as Integer Dim tFlag as Integer Dim i as Integer Dim tTotalKari as Double Dim tTotalKasi as Double dim tstring as string 2F2F537465702E31E38080E59084E697A5E4BB98E381AFE38184E3818FE381A4E381A5E381A4E38182E3828BE381AEE3818BEFBC9F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F For i = 1 to 2000 If gFileReadRecord(i,4) <> "" Then tDayInteger = Val(RightB(gFileReadRecord(i,1),2)) tDay1(tDayInteger) = tDay1(tDayInteger) + 1 Else Exit End If Next 2F2F537465702E32E38080E3819DE3828CE3819EE3828CE381AEE697A5E4BB98E381AEE58588E9A0ADE381AEE382A2E38389E383ACE382B9E38292E5BE97E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tFlag = 0 For i = 1 to 31 If tDay1(i) <> 0 And tFlag = 0 Then 2F2FE69C80E5889DE381AB7444617931E3818C30E381ABE381AAE381A3E3819FE381A8E38193E3828DE382927444617932E381AEE58588E9A0ADE381ABE6B1BAE5AE9AE38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tDay2(i) = 1 tFlag = 1 tLastDay = i ElseIf tDay1(i) <> 0 Then tDay2(i) = tDay1(tLastDay) + tDay2(tLastDay) tLastDay = i End If Next 2F2F537465702E33E38080E59084E382A2E38389E383ACE382B9E381ABE38387E383BCE382BFE38292E5B7AEE38197E8BEBCE38293E381A7E38184E3818F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F For i = 1 to 2000 If gFileReadRecord(i,4) <> "" Then tDayInteger = Val(RightB(gFileReadRecord(i,1),2)) MainList.Cell(tDay2(tDayInteger) + 1,1) = gFileReadRecord(i,1) MainList.Cell(tDay2(tDayInteger) + 1,2) = gFileReadRecord(i,2) MainList.Cell(tDay2(tDayInteger) + 1,3) = gFileReadRecord(i,3) MainList.Cell(tDay2(tDayInteger) + 1,4) = gFileReadRecord(i,4) MainList.Cell(tDay2(tDayInteger) + 1,5) = gFileReadRecord(i,5) MainList.Cell(tDay2(tDayInteger) + 1,6) = gFileReadRecord(i,6) MainList.Cell(tDay2(tDayInteger) + 1,7) = gFileReadRecord(i,7) tDay2(tDayInteger) = tDay2(tDayInteger) + 1 Else Exit End If Next For i = 2 to 2000 If MainList.Cell(i,4) <> "" Then tTotalKari = tTotalKari + ChangeSequence(MainList.Cell(i,6)) tTotalKasi = tTotalKasi + ChangeSequence(MainList.Cell(i,7)) If tKamokuType =2 Or tKamokuType = 3 Or tKamokuType = 5 Or tKamokuType = 7 Then MainList.Cell(i,8) = SpaceSup(Format(ABS(ChangeSequence(MainList.Cell(i - 1,8)) * (-1) + ChangeSequence(MainList.Cell(i,6)) - ChangeSequence(MainList.Cell(i,7))),"-,#"),13) Else MainList.Cell(i,8) = SpaceSup(Format(ChangeSequence(MainList.Cell(i - 1,8)) + ChangeSequence(MainList.Cell(i,6)) - ChangeSequence(MainList.Cell(i,7)),"-,#"),13) End If Else Exit End If Next KariTotal.Text = Format(tTotalKari,"-,#") KasiTotal.Text = Format(tTotalKasi,"-,#") AllKariTotal.Text = Format(tTotalKari + ChangeSequence(MainList.Cell(1,6)),"-,#") AllKasiTotal.Text = Format(tTotalKasi + ChangeSequence(MainList.Cell(1,7)),"-,#") End Sub 1 Close 1 0 1 0 134217984 Sub Close() End Sub 1 EnableMenuItems 2 28 2 28 134217984 Sub EnableMenuItems() AppleU.Enabled = True FilePageSetup.Enabled = True Print.Enabled = True End Sub 1 CancelClose 1 0 1 0 134217984 Function CancelClose() As Boolean End Function 1 Open 26 16 26 18 134217984 Sub Open() 2F2F323030302E31312E322020E8B5B7E58B95E69982E381ABE382ABE383ACE383B3E38380E383BCE382A6E382A4E383B3E38389E382A6E38292E9968BE3818FE38288E38186E381ABE5A489E69BB4202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2F323030322E31322E322020E383ACE383BCE382B6E383BCE38397E383AAE383B3E382BFE381ABE5AFBEE5BF9CE38082202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tDate as Date Dim tWindow as CalendarWindow Dim tFolderItem as FolderItem Dim FileReadFrom as TextInputStream gBasicPath = GetFolderItem("").AbsolutePath 2F2FE38080E38395E382A1E382A4E383ABE38292E9968BE3818F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B2022E8A8ADE5AE9A2229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 74466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B2022E58583E5B8B3E38397E383AAE383B3E382BFE383BCE8A8ADE5AE9A2229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If tFolderItem <> Nil Then //SP FileReadFrom=tFolderItem.OpenAsTextfile IF FileReadFrom <> Nil Then// 2# gPrintSettings = FileReadFrom.ReadAll FileReadFrom.Close ELSE// 2# END IF// 2# END IF//SP 6756657273696F6E537472696E67203D2022E7B78FE58B98E5AE9AE58583E5B8B32056657220322E302E332020323030302F30312F323722202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BDBFE794A8E4BC9AE7A4BEE5908D202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 67436F6D70616E7954797065203D2022E6B395E69C88E5B7A5E88AB8E7A4BE22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tDate = New Date 446174654669656C642E54657874203D205374722874446174652E5965617229202B2022E5B9B422202B205A65726F5375702874446174652E4D6F6E74682C3229202B2022E69C88E78FBEE59CA822202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE382A6E382A3E383B3E38389E382A6E381AEE4BD8DE7BDAEE38292E8AABFE695B4E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F if screen(0).width = 640 then left = 0 top = 20 end if 2F2FE383A1E382A4E383B3E383AAE382B9E38388E5889DE69C9FE58C96202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainList.columncount = 8 MainList.RowCount = 11 MainList.columnwidths "5,12,1,29,6,13,13,13" 4D61696E4C6973742E636F6C756D6E686561646572732022E697A5E4BB982CE7A791E79BAE2C2CE69198E38080E38080E38080E8A6812C2CE5809FE696B92CE8B2B8E696B92CE6AE8BE9AB9822202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainList.columnmasks "@,@,@,@,@,@,@" MainList.DrawUp "r0,l,l,l,l,l,r0" MainList.EditField = MainListField MainList.ScrollBar = MainListScrollBar MainList.EditMode = 1 MainList.GetReady 2F2FE383A1E382A4E383B3E3839CE382BFE383B3E5889DE69C9FE58C96202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE3839CE382BFE383B3E381AEE6A8AAE58897E695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.ColCount = 9 2F2FE3839CE382BFE383B3E381AEE7B8A6E8A18CE695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.RowCount = 15 2F2FE4BDBFE794A8E38395E382A9E383B3E38388202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.TextFont = "Osaka" 2F2FE4BDBFE794A8E38395E382A9E383B3E38388E382B5E382A4E382BA202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.TextSize = 10 2F2FE3839CE382BFE383B3E381AEE6A8AAE5B985202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.CellWidth = 68 2F2FE3839CE382BFE383B3E381AEE7B8A6E5B985202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.CellHeight = 14 2F2FE3839CE382BFE383B3E381AEE58B95E3818DE38080303D4D6F7573655570E38292E381A8E3828BE38080313DE587B9E38293E381A7E38184E3828BE381AEE381AFE5B8B8E381ABE381B2E381A8E381A4E38080323DE38282E38186E4B880E5BAA6E68ABCE38195E3828CE381AAE38184E381A8E688BBE38289E381AAE38184202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainButton.ButtonType = 1 MainButton.BadName = "***" ReadKamoku() PopupMenu1.ListIndex = 0 MainList.MoveCell(1,1) MainListField.Top = -100 2F2F3D3D3D3D3DE382ABE383ACE383B3E38380E383BCE382A6E382A4E383B3E38389E382A6E38292E9968BE3818F3D3D3D3D3D202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tWindow = New CalendarWindow 2F2FE382A6E382A3E383B3E38389E382A6E381AEE4BD8DE7BDAEE38292E8AABFE695B4E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F if screen(0).width = 640 then tWindow.Left = Mototyou.Left + Mototyou.Width - tWindow.Width - 1 Else tWindow.Left = Me.Left + Mototyou.Left + 1 end if tWindow.Top = 50//Me.Top + Me.Height + Mototyou.Top + 1 tWindow.ShowModal //==================================== End Sub 1 AppleU 3 25 3 25 134217984 Function Action As Boolean Dim tWindow as AboutWindow tWindow = New AboutWindow End Function 1 Print 2 0 2 0 134217984 Function Action As Boolean Dim tWindow as PrintMenu tWindow = New PrintMenu End Function 1 FilePageSetup 13 31 13 31 134217984 Function Action As Boolean Dim tFolderItem as FolderItem Dim tTextOutput as TextOutputStream Dim Pa as PrinterSetup Pa = New PrinterSetup Pa.SetupString = gPrintSettings If Pa.PageSetupDialog Then gPrintSettings = Pa.SetupString 2F2FE38080E38395E382A1E382A4E383ABE38292E9968BE3818F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 74466F6C6465724974656D203D204D616B65466F6C6465722867426173696350617468202B2022E8A8ADE5AE9A2229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 74466F6C6465724974656D203D20476574466F6C6465724974656D2874466F6C6465724974656D2E4162736F6C75746550617468202B2022E58583E5B8B3E38397E383AAE383B3E382BFE383BCE8A8ADE5AE9A2229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If tFolderItem <> Nil Then //SP tTextOutput=tFolderItem.CreateTextfile IF tTextOutput <> Nil Then// 2# tTextOutput.Write gPrintSettings tTextOutput.Close END IF//// 2# End If//SP END IF End Function 168 aList 0 1 MouseDrag 1 0 1 0 134217984 Sub MouseDrag(X As Integer, Y As Integer) End Sub 1 CellChange 1 0 1 0 134217984 Sub CellChange(Row as integer, Col as integer) End Sub 120 ScrollBar 0 1 ValueChanged 3 21 3 21 134217984 Sub ValueChanged() MainList.topIndex = MainListScrollBar.value MainListField.Enabled = False MainList.aListRefresh End Sub 156 EditField 0 1 KeyDown 1 0 1 0 134217984 Function KeyDown(Key As String) As Boolean End Function 192 CellButton 0 1 DropObject 1 0 1 0 134217984 Sub DropObject(obj As DragItem) End Sub 1 Close 1 0 1 0 134217984 Sub Close() End Sub 1 MouseClick 6 25 6 25 134217984 Sub MouseClick(Col as Integer,Row as Integer) KamokuName.Text = MainButton.ButtonName(Col,Row) KamokuName.Refresh 2F2FE383A1E382A4E383B3E383AAE382B9E38388E382AFE383AAE382A22032303030202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainListClear() 2F2FE7B9B0E3828AE8B68AE38197E38387E383BCE382BFE8AAADE381BFE8BEBCE381BF203F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F ReadTransfer(DateField.Text,MainButton.ButtonName(Col,Row),MainButton.ButtonColor(Col,Row),PopupMenu1.ListIndex) 2F2FE68CAFE4BC9DE38387E383BCE382BFE8AAADE381BFE8BEBCE381BFEFBC88E68CAFE4BC9DE38387E383BCE382BFE3818BE38289E58583E5B8B3E38292E4BD9CE68890EFBC893F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F ReadAccount(MainButton.ButtonName(Col,Row),PopupMenu1.ListIndex) 2F2FE697A5E4BB98E38191E381AEE382BDE383BCE383882036303331202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F DataSort(MainButton.ButtonColor(Col,Row)) 2F2FE383A1E382A4E383B3E383AAE382B9E38388E381AEE69BB4E696B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F MainList.aListRefresh End Sub 1 MouseDown 1 0 1 0 134217984 Sub MouseDown(Col as Integer,Row as Integer) End Sub 1 MouseUp 1 0 1 0 134217984 Sub MouseUp(Col as Integer,Row as Integer) End Sub 1 MouseExit 1 0 1 0 134217984 Sub MouseExit() End Sub 1 MouseEnter 1 0 1 0 134217984 Sub MouseEnter() End Sub 1 MouseMove 1 0 1 0 134217984 Sub MouseMove(X As Integer, Y As Integer) End Sub 1 MouseDrag 1 0 1 0 134217984 Sub MouseDrag(X As Integer, Y As Integer) End Sub 128 StaticText 0 108 Rectangle 0 128 StaticText 0 108 Rectangle 0 128 StaticText 0 108 Rectangle 0 108 Rectangle 0 128 StaticText 0 108 Rectangle 0 128 StaticText 0 108 Rectangle 0 128 StaticText 0 108 Rectangle 0 108 Rectangle 0 1 MouseMove 1 0 1 0 134217984 Sub MouseMove(X As Integer, Y As Integer) End Sub 128 StaticText 0 1 Open 1 0 1 0 134217984 Sub Open() End Sub 1 MouseMove 1 0 1 0 134217984 Sub MouseMove(X As Integer, Y As Integer) End Sub 128 StaticText 0 108 Rectangle 0 120 PushButton 0 1 Action 1 4 1 4 134217984 Sub Action() Quit End Sub 120 PushButton 0 1 LostFocus 1 0 1 0 134217984 Sub LostFocus() End Sub 1 Action 3 23 3 23 134217984 Sub Action() Dim tWindow as PrintMenu tWindow = New PrintMenu End Sub 120 PushButton 0 1 Action 11 17 11 17 134217984 Sub Action() Dim tWindow as CalendarWindow tWindow = New CalendarWindow 2F2FE382A6E382A3E383B3E38389E382A6E381AEE4BD8DE7BDAEE38292E8AABFE695B4E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F if screen(0).width = 640 then tWindow.Left = Mototyou.Left + Mototyou.Width - tWindow.Width - 1 Else tWindow.Left = Me.Left + Mototyou.Left + 1 end if tWindow.Top = Me.Top + Me.Height + Mototyou.Top + 1 tWindow.ShowModal End Sub 132 PopupMenu 0 1 Change 1 0 1 0 134217984 Sub Change() End Sub PushButton PushButton PushButton2 -2147483648 0 True 494 7 60 20 True False False False False 4F73616B61E28892E7AD89E5B985 12 False False False E58DB0E588B7 False False True 22 PushButton PushButton PushButton1 -2147483648 0 True 562 7 60 20 True False False False False 4F73616B61E28892E7AD89E5B985 12 False False False E7B582E4BA86 False False True 21 PushButton PushButton PushButton3 -2147483648 0 True 342 7 80 20 True False False False False 4F73616B61E28892E7AD89E5B985 12 False False False E382ABE383ACE383B3E38380E383BC False False True 23 Rectangle Rectangle Rectangle9 -2147483648 0 True 228 7 108 21 True False False False False True 15658734 1 0 0 20 StaticText StaticText DateField -2147483648 0 True 233 10 96 16 Rectangle9 True False False False False Osaka 12 False False False 0 0 False True 19 Canvas Canvas MainList -2147483648 0 True 11 34 602 143 True False False False False 0 True True False False 0 ScrollBar ScrollBar MainListScrollBar -2147483648 0 True 612 34 16 143 True False False False False 0 0 2000 True 1 10 True 1 EditField EditField MainListField -2147483648 0 False 11 57 80 16 MainList True False False False False 4F73616B61E28892E7AD89E5B985 12 False False False True False False False False False False True False 0 False 0 0 16777215 False 2 Rectangle Rectangle Rectangle1 -2147483648 0 True 11 193 352 18 True False False False False True 13434828 1 0 0 17 Rectangle Rectangle Rectangle2 -2147483648 0 True 443 193 88 18 True False False False False True 13434828 1 0 0 16 StaticText StaticText AllKasiTotal -2147483648 0 True 440 193 85 18 True False False False False 4F73616B61E28892E7AD89E5B985 12 False False False 2 0 False True 15 Rectangle Rectangle Rectangle3 -2147483648 0 True 527 193 86 18 True False False False False True 13434828 1 0 0 14 StaticText StaticText StaticText1 -2147483648 0 True 156 194 85 18 True False False False False Osaka 12 False False False E7B4AFE38080E38080E38080E38080E8A888 1 0 False True 13 Rectangle Rectangle Rectangle4 -2147483648 0 True 359 193 85 18 True False False False False True 13434828 1 0 0 12 StaticText StaticText AllKariTotal -2147483648 0 True 356 193 85 18 True False False False False 4F73616B61E28892E7AD89E5B985 12 False False False 2 0 False True 11 Rectangle Rectangle Rectangle5 -2147483648 0 True 11 176 352 18 True False False False False True 13434828 1 0 0 10 Rectangle Rectangle Rectangle6 -2147483648 0 True 443 176 88 18 True False False False False True 13434828 1 0 0 9 StaticText StaticText KasiTotal -2147483648 0 True 440 176 85 18 True False False False False 4F73616B61E28892E7AD89E5B985 12 False False False 2 0 False True 8 Rectangle Rectangle Rectangle7 -2147483648 0 True 527 176 86 18 True False False False False True 13434828 1 0 0 7 StaticText StaticText StaticText5 -2147483648 0 True 160 177 80 18 True False False False False Osaka 12 False False False E5BD93E38080E69C88E38080E59088E38080E8A888 1 0 False True 6 Rectangle Rectangle Rectangle8 -2147483648 0 True 359 176 85 18 True False False False False True 13434828 1 0 0 5 StaticText StaticText KariTotal -2147483648 0 True 356 176 85 18 True False False False False 4F73616B61E28892E7AD89E5B985 12 False False False 2 0 False True 4 Canvas Canvas MainButton -2147483648 0 True 13 230 614 212 True False False False False 0 True True False False 3 StaticText StaticText KamokuName -2147483648 0 True 13 2 115 27 True False False False False Osaka 18 False False False 1 0 False True 18 PopupMenu PopupMenu PopupMenu1 -2147483648 0 True 133 8 83 20 True False False False False 4F73616B61E28892E7AD89E5B985 12 False False False True E585A8E4BD930DE5B7A5E88AB8E7A4BE0D53797374656D0D46697368696E670DE7AEA1E79086 0 24 Menu 0 1 -2147483648 0 1 0 0 72 MenuItem 0 0 AppleU E68CAFE4BC9DE68993E8BEBCE381ABE381A4E38184E381A62E2E2E -2147483648 0 134217984 0 0 72 MenuItem 0 2 -2147483648 0 1 0 0 72 MenuItem 0 0 E38395E382A1E382A4E383AB -2147483648 0 134217984 0 0 72 MenuItem 0 0 FilePageSetup E794A8E7B499E8A8ADE5AE9A2E2E2E -2147483648 0 134217984 0 0 72 MenuItem 0 0 Print E58DB0E588B72E2E2E -2147483648 P 0 134217984 0 0 72 MenuItem 0 0 - -2147483648 0 134217984 0 0 72 MenuItem 0 0 FileQuit E7B582E4BA86 -2147483648 Q 0 134217984 0 1 72 QuitMenuItem 0 2 -2147483648 0 1 0 0 72 MenuItem 0 0 E7B7A8E99B86 -2147483648 0 134217984 0 0 72 MenuItem 0 0 EditUndo E58F96E3828AE6B688E38197 -2147483648 Z 0 134217984 0 0 72 MenuItem 0 0 - -2147483648 0 134217984 0 0 72 MenuItem 0 0 EditCut E382ABE38383E38388 -2147483648 X 0 134217984 0 0 72 MenuItem 0 0 EditCopy E382B3E38394E383BC -2147483648 C 0 134217984 0 0 72 MenuItem 0 0 EditPaste E3839AE383BCE382B9E38388 -2147483648 V 0 134217984 0 0 72 MenuItem 0 0 EditClear E382AFE383AAE382A2 -2147483648 0 134217984 0 0 72 MenuItem 0 2 -2147483648 0 1 0 0 72 MenuItem 0 2 -2147483648 0 1 0 0 72 MenuItem 0 aList 35 -1000 100001107 -1000 1 aList 168 Canvas 0 ColumnCount as integer ColumnWidth(32) as integer TopIndex as integer Cell(2000, 32) as String Header(32) as String CurrentRow as integer ClickPosX as integer ClickPosY as integer EditField as EditField Mask(32) as String ScrollBar as ScrollBar EditMode as integer ColumnDrawUp(32) as String RowCount as Integer Ver115 as String 1 ColumnWidths s as String 0 11 2 11 6 134217984 Sub ColumnWidths(s as String) dim i as integer // text length dim j as integer // current column dim t as string // current length dim c as string // current character j = 1 for i = 1 to len(s) c = mid(s, i, 1) if c = "," then ColumnWidth(j) = val(t) + 1 t = "" j = j + 1 if j > 32 then beep 6D7367626F7820226572726F723A614C697374E381AEE382ABE383A9E383A0E695B0E3818C3332E58897E38292E8B685E38188E381BEE38197E3819F22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F exit end if else if (asc(c) > asc("9") or asc(c) < asc("0")) then beep 6D7367626F7820226572726F723A614C697374E381AE436F6C756D6E576964746873E381A7E4B88DE6ADA3E381AAE69687E5AD97E3818CE68C87E5AE9AE38195E3828CE381BEE38197E3819F22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F exit else t = t + c end if end if next ColumnWidth(j) = val(t) + 1 End Sub 1 aListRefresh 0 2 0 2 0 134217984 Sub aListRefresh() Redraw Graphics End Sub 1 ColumnHeaders s as String 0 11 2 11 6 134217984 Sub ColumnHeaders(s as String) dim i as integer // text length dim j as integer // current column dim t as string // current length dim c as string // current character j = 1 for i = 1 to len(s) c = mid(s, i, 1) if c = "," then Header(j) = t t = "" j = j + 1 if j > 32 then beep 6D7367626F7820226572726F723A614C697374E381AEE38398E38383E38380E382ABE383A9E383A0E695B0E3818C3332E58897E38292E8B685E38188E381BEE38197E3819F22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F exit end if else t = t + c end if next Header(j) = t End Sub 1 Redraw g as Graphics 0 34 0 34 0 134217984 Sub Redraw(g as Graphics) dim w as integer dim h as integer dim i as integer dim j as integer dim ch as integer dim cw as integer dim x as integer w = g.width -2 h = g.height -2 ch = g.textheight + 2 cw = g.textheight / 2 g.forecolor = rgb(64, 128, 64) x = 0 for i = 1 to ColumnCount x = x + ColumnWidth(i) * cw g.drawline x, 16, x, h next RowCount = floor((h-15) / ch)-1 select case EditMode case 0 for i = 0 to RowCount x = 0 for j = 1 to ColumnCount if j = ClickPosX and i + TopIndex = ClickPosY then g.forecolor = rgb(0, 0, 64) g.fillrect x + 1, i * ch + 16, ColumnWidth(j) * cw - 1, ch g.forecolor = rgb(255, 255, 255) g.drawstring cell(TopIndex + i, j) , x + 4, i * ch + ch + 14 else if (i mod 2) = 0 then g.forecolor = rgb(192, 255, 192) else g.forecolor = rgb(255, 255, 255) end if g.fillrect x + 1, i * ch + 16, ColumnWidth(j) * cw - 1, ch g.forecolor = rgb(0, 0, 0) g.drawstring cell(TopIndex + i, j) , x + 4, i * ch + ch + 14 end if x = x + ColumnWidth(j) * cw next next case 1 for i = 0 to RowCount x = 0 for j = 1 to ColumnCount if i + TopIndex = ClickPosY then g.forecolor = rgb(0, 0, 64) g.fillrect x + 1, i * ch + 16, ColumnWidth(j) * cw - 1, ch g.forecolor = rgb(255, 255, 255) g.drawstring cell(TopIndex + i, j) , x + 4, i * ch + ch + 14 else if (i mod 2) = 0 then g.forecolor = rgb(192, 255, 192) else g.forecolor = rgb(255, 255, 255) end if g.fillrect x + 1, i * ch + 16, ColumnWidth(j) * cw - 1, ch g.forecolor = rgb(0, 0, 0) g.drawstring cell(TopIndex + i, j) , x + 4, i * ch + ch + 14 end if x = x + ColumnWidth(j) * cw next next end select End Sub 1 ClickCell X as integer, Y as integer 0 21 0 21 8 134217984 Sub ClickCell(X as integer, Y as integer) dim i as integer dim t as integer dim ch as integer dim cw as integer cw = Graphics.textheight / 2 ch = Graphics.textheight + 2 if Y > 16 then ClickPosY = (y - 16) / ch + TopIndex for i = 1 to ColumnCount if X < t + ColumnWidth(i) * cw then ClickPosX = i exit end if t = t + ColumnWidth(i) * cw next Redraw Graphics MoveCell ClickPosY, ClickPosX end if End Sub 1 MoveCell row as integer, column as integer 0 32 10 32 19 134217984 Sub MoveCell(row as integer, column as integer) dim i as integer dim t as integer dim ch as integer dim cw as integer for i = 1 to column - 1 t = t + ColumnWidth(i) next select case EditMode case 0 cw = Graphics.textheight / 2 ch = Graphics.textheight + 2 EditField.Top = -100 EditField.width = ColumnWidth(i) * cw + 1 EditField.Left = t * cw + Left EditField.Top = (row - TopIndex) * ch + Top + 16 CellChange ClickPosY, ClickPosX EditField.Visible = true EditField.Enabled = true If ColumnDrawUp(ClickPosX) = "l" Or ColumnDrawUp(ClickPosX) = "" Then EditField.LimitText = ColumnWidth(Column) - 1 ElseIf ColumnDrawUp(ClickPosX) = "r0" Then EditField.LimitText = ColumnWidth(Column) - 4 ElseIf ColumnDrawUp(ClickPosX) = "r1" Then EditField.LimitText = ColumnWidth(Column) - 6 ElseIf ColumnDrawUp(ClickPosX) = "r2" Then EditField.LimitText = ColumnWidth(Column) - 7 End If EditField.Text = cell(row, column) EditField.SetFocus case 1 CellChange ClickPosY, 0 Redraw Graphics end select End Sub 1 ColumnMasks s as String 0 11 2 11 6 134217984 Sub ColumnMasks(s as String) dim i as integer // text length dim j as integer // current column dim t as string // current length dim c as string // current character j = 1 for i = 1 to len(s) c = mid(s, i, 1) if c = "," then Mask(j) = t t = "" j = j + 1 if j > 32 then beep 6D7367626F7820226572726F723A614C697374E381AEE3839EE382B9E382AFE382ABE383A9E383A0E695B0E3818C3332E58897E38292E8B685E38188E381BEE38197E3819F22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F exit end if else t = t + c end if next Mask(j) = t End Sub 1 KeyPress s as String Boolean 0 66 0 66 8 134217984 Function KeyPress(s as String) As Boolean dim tstring as integer Select Case Asc(s) case 28 // up MoveLeft() EditField.Top = -100 case 29 // down MoveRight() EditField.Top = -100 case 30 // up MoveUp() EditField.Top = -100 case 31 // down MoveDown() EditField.Top = -100 case 13 // return if Mask(ClickPosX) = "0" then If ColumnDrawUp(ClickPosX) = "l" Or ColumnDrawUp(ClickPosX) = "" Then cell(ClickPosY, ClickPosX) = EditField.Text ElseIf ColumnDrawUp(ClickPosX) = "r0" And ChangeSequence(EditField.Text) <> 0 Then cell(ClickPosY, ClickPosX) = SpaceSup(Format(ChangeSequence(EditField.Text),"-,#"),ColumnWidth(ClickPosX) - 1) ElseIf ColumnDrawUp(ClickPosX) = "r1" And ChangeSequence(EditField.Text) <> 0 Then cell(ClickPosY, ClickPosX) = SpaceSup(Format(ChangeSequence(EditField.Text),"-,#.0"),ColumnWidth(ClickPosX) - 1) ElseIf ColumnDrawUp(ClickPosX) = "r2" And ChangeSequence(EditField.Text) <> 0 Then cell(ClickPosY, ClickPosX) = SpaceSup(Format(ChangeSequence(EditField.Text),"-,#.00"),ColumnWidth(ClickPosX) - 1) Else cell(ClickPosY, ClickPosX) = "" End If End If If Columncount = ClickPosX Then MoveRight() EditField.Top = -100 Else EditField.Text = "" ClickPosX = ClickPosX + 1 Editfield.Text = Cell(ClickPosY,ClickPosX) EditField.Top = -100 End If case 3 // enter if Mask(ClickPosX) = "0" then If ColumnDrawUp(ClickPosX) = "l" Or ColumnDrawUp(ClickPosX) = "" Then cell(ClickPosY, ClickPosX) = EditField.Text ElseIf ColumnDrawUp(ClickPosX) = "r0" And ChangeSequence(EditField.Text) <> 0 Then cell(ClickPosY, ClickPosX) = SpaceSup(Format(ChangeSequence(EditField.Text),"-,#"),ColumnWidth(ClickPosX) - 1) ElseIf ColumnDrawUp(ClickPosX) = "r1" And ChangeSequence(EditField.Text) <> 0 Then cell(ClickPosY, ClickPosX) = SpaceSup(Format(ChangeSequence(EditField.Text),"-,#.0"),ColumnWidth(ClickPosX) - 1) ElseIf ColumnDrawUp(ClickPosX) = "r2" And ChangeSequence(EditField.Text) <> 0 Then cell(ClickPosY, ClickPosX) = SpaceSup(Format(ChangeSequence(EditField.Text),"-,#.00"),ColumnWidth(ClickPosX) - 1) Else cell(ClickPosY, ClickPosX) = "" End If End If If Columncount = ClickPosX Then MoveRight() EditField.Top = -100 Else EditField.Text = "" ClickPosX = ClickPosX + 1 Editfield.Text = Cell(ClickPosY,ClickPosX) EditField.Top = -100 End If else if EditField.Top = -100 then MoveCell ClickPosY, ClickPosX end if if Mask(ClickPosX) = "@" then return true end if return false end select Redraw Graphics return false End Function 1 GetReady 0 2 58 2 58 134217984 Sub GetReady() ScrollBar.minimum = 1 ScrollBar.maximum = ScrollBar.Maximum - ScrollBar.PageStep End Sub 1 DrawUp tString as String 0 7 12 7 12 134217984 Sub DrawUp(tString as String) dim i as integer // text length dim j as integer // current column dim t as string // current length dim c as string // current character j = 1 for i = 1 to len(tString) c = mid(tString, i, 1) if c = "," then ColumnDrawUp(j) = t t = "" j = j + 1 if j > 32 then beep 6D7367626F7820226572726F723A614C697374E381AEE38398E38383E38380E382ABE383A9E383A0E695B0E3818C3332E58897E38292E8B685E38188E381BEE38197E3819F22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F exit end if else t = t + c end if next ColumnDrawUp(j) = t End Sub 1 MoveRight 0 3 0 3 0 134217984 Sub MoveRight() if ClickPosX < ColumnCount then ClickPosX = ClickPosX+ 1 MoveCell ClickPosY, ClickPosX else ClickPosX = 1 MoveDown() end if Editfield.Text = Cell(ClickPosY,ClickPosX) End Sub 1 MoveLeft 0 3 0 3 0 134217984 Sub MoveLeft() if ClickPosX > 1 then ClickPosX = ClickPosX - 1 MoveCell ClickPosY, ClickPosX else ClickPosX = ColumnCount MoveUp() end if Editfield.Text = Cell(ClickPosY,ClickPosX) End Sub 1 MoveUp 0 10 0 11 0 134217984 Sub MoveUp() if ClickPosY > 1 then ClickPosY = ClickPosY - 1 end if if ClickPosY < topIndex then topIndex = ClickPosY end if ScrollBar.value = topIndex //MainListEditField.Enabled = False Refresh MoveCell ClickPosY, ClickPosX Editfield.Text = Cell(ClickPosY,ClickPosX) End Sub 1 MoveDown 0 10 0 10 8 134217984 Sub MoveDown() if ClickPosX < 300 then ClickPosY = ClickPosY + 1 end if if ClickPosY > topIndex + rowCount then topIndex = ClickPosY - rowCount end if ScrollBar.value = topIndex //MainListEditField.Enabled = False Refresh MoveCell ClickPosY, ClickPosX Editfield.Text = Cell(ClickPosY,ClickPosX) End Sub 1 ChangeSequence tString as String Double 0 8 0 8 46 134217984 Function ChangeSequence(tString as String) As Double 2F2FE996A2E695B0E8AAACE6988EEFBC9AE382ABE383B3E3839EE381AEE6B7B7E38198E381A3E3819FE695B0E5AD97E69687E5AD97E58897E38292446F75626C65E381ABE38197E381A6E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A537472696E67202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A446F75626C65202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30372F30332846726929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tReturnDouble as Double tReturnDouble = Val(RemoveString(tString,",")) Return tReturnDouble End Function 1 SpaceSup tNumerical as String,tKeta as Integer String 0 6 14 6 14 134217984 Function SpaceSup(tNumerical as String,tKeta as Integer) As String Dim tString as String tString = " " + tNumerical tString = RightB(tString,tKeta) Return tString End Function 1 RemoveString tString as String,tRemoveString as String String 0 12 42 12 42 134217984 Function RemoveString(tString as String,tRemoveString as String) As String 2F2FE996A2E695B0E8AAACE6988EEFBC9AE69687E5AD97E58897E3818BE38289E38081E68C87E5AE9AE38195E3828CE3819FE69687E5AD97E4BBA5E5A496E38292E58F96E3828AE587BAE38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9AE69687E5AD97E58897E38081E69687E5AD97E58897E3818BE38289E58F96E3828AE999A4E3818DE3819FE38184E69687E5AD97202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE58F96E3828AE999A4E3818BE3828CE3819FE69687E5AD97E58897202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F2D2D2F2D2D282D2D2D29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939382F30392F32332857656429E38080E38193E381AEE382B3E383A1E383B3E38388E38292E4BB98E38191E3819F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim i as Integer Dim tReturnString as String tReturnString = "" For i = 1 to LenB(tString) tReturnString = tReturnString + Y_NthField(tString,tRemoveString,i) Next Return tReturnString End Function 1 CellChange Row as integer, Col as integer 1 Close 1 0 1 0 134217984 Sub Close() End Sub 1 MouseExit 1 0 1 0 134217984 Sub MouseExit() End Sub 1 MouseEnter 1 0 1 0 134217984 Sub MouseEnter() End Sub 1 MouseMove 1 0 1 0 134217984 Sub MouseMove(X As Integer, Y As Integer) End Sub 1 MouseDrag 1 0 1 0 134217984 Sub MouseDrag(X As Integer, Y As Integer) End Sub 1 Open 1 13 1 17 134217984 Sub Open() 47726170686963732E74657874666F6E743D224F73616B61E28892E7AD89E5B98522202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F TopIndex = 1 End Sub 1 MouseUp 1 0 1 0 134217984 Sub MouseUp(X As Integer, Y As Integer) End Sub 1 MouseDown 1 0 1 0 134217984 Function MouseDown(X As Integer, Y As Integer) As Boolean ClickCell X, Y End Function 1 Paint 1 0 46 0 134217984 Sub Paint(g As Graphics) dim w as integer dim h as integer dim i as integer dim j as integer dim g as Graphics dim ch as integer dim cw as integer dim x as integer g = Graphics w = g.width -2 h = g.height -2 cw = g.textheight / 2 ch = g.textheight + 2 g.forecolor = rgb(255, 255, 255) g.drawline 1, 15, 1, 1 // header leftline g.drawline 1, 1, w, 1 // header topline g.fillrect 1, 16, w, h - 16 g.forecolor = rgb(184, 184, 184) g.drawline w, 1, w, 14 g.drawline w, 14, 1, 14 x = 0 for i = 1 to ColumnCount x = x + ColumnWidth(i) * cw g.forecolor = rgb(64, 128, 64) g.drawline x, 1, x, 15 g.forecolor = rgb(255, 255, 255) g.drawline x+1, 1, x+1, 15 next g.forecolor = rgb(0, 0, 0) g.drawrect 0, 0, g.width-1, g.height-1 // frame g.drawline 0, 15, w, 15 // header underline x = 0 for i = 1 to ColumnCount g.drawstring Header(i), x + 4, 12 x = x + ColumnWidth(i) * cw next Redraw g End Sub AboutWindow 34 -1000 100001107 -1000 451 383 AboutWindow 4 False True 16777215 0 True False True False False False False 0 0 0 300 300 64 64 32000 32000 AboutWindow 120 Window 0 1 Open 1 26 1 26 134217984 Sub Open() AppNameText.Text =Mototyou.Title VerText.Text = gVersionString End Sub 108 Canvas 0 1 MouseDown 1 0 1 0 134217984 Function MouseDown(X As Integer, Y As Integer) As Boolean End Function 1 Paint 1 0 1 0 134217984 Sub Paint(g As Graphics) End Sub 128 StaticText 0 1 MouseMove 1 0 1 0 134217984 Sub MouseMove(X As Integer, Y As Integer) End Sub 120 PushButton 0 1 Action 1 5 1 5 134217984 Sub Action() Close End Sub 128 StaticText 0 128 StaticText 0 128 StaticText 0 1 MouseMove 1 0 1 0 134217984 Sub MouseMove(X As Integer, Y As Integer) End Sub Canvas Canvas Canvas1 -2147483648 0 True 75 165 146 64 True False False False False 0 True True False False 0 StaticText StaticText StaticText1 -2147483648 0 True 50 124 200 18 True False False False False Osaka 12 False False False Norizuki Industrial Arts Co.,Ltd. 0 0 False True 1 StaticText StaticText AppNameText -2147483648 0 True 50 36 200 35 True False False False False Osaka 18 False False False 1 0 False True 5 PushButton PushButton PushButton1 -2147483648 0 True 50 247 200 20 True False False False False Osaka 12 False False False OK True False True 2 StaticText StaticText StaticText3 -2147483648 0 True 50 142 200 16 True False False False False Osaka 12 False False False 53797374656DE9968BE799BA 1 0 False True 3 StaticText StaticText VerText -2147483648 0 True 50 76 200 16 True False False False False Osaka 12 False False False 1 0 False True 4 DateField 35 -1000 100001107 -1000 1 DateField 185 EditField 0 year as integer month as integer day as integer weekDay as integer date as date format as string currentPos as integer RedrawFlg as boolean 1 redraw 0 16 0 16 0 134217984 Sub redraw() RedrawFlg = true Text = format(Year, "0000") + "/" + format(Month, "00") + "/" + format(Day, "00") select case currentPos case 1 me.selstart = 0 me.sellength = 4 case 2 me.selstart = 5 me.sellength = 2 case 3 me.selstart = 8 me.sellength = 2 end select RedrawFlg = false End Sub 1 Inc 0 13 0 13 0 134217984 Sub Inc() select case currentPos case 1//Year IncYear() case 2//Month IncMonth() case 3//Day IncDay() end select Redraw End Sub 1 Dec 0 13 0 13 0 134217984 Sub Dec() select case currentPos case 1//Year DecYear() case 2//Month DecMonth() case 3//Day DecDay() end select Redraw End Sub 1 IsLeapYear Boolean 0 4 0 4 0 134217984 Function IsLeapYear() As Boolean 2F2FE382ABE383ACE383B3E38388E5B9B4E3818CE9968FE5B9B4E381AAE3828954727565202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F return (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)) //1920/1/1 Thursday End Function 1 GetDaysOfMonth Integer 0 4 21 4 21 134217984 Function GetDaysOfMonth() As Integer dim days as integer 2F2FE3819DE381AEE69C88E381AEE697A5E695B0E38292E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F days = val(Y_NthField("31,28,31,30,31,30,31,31,30,31,30,31", ",",month)) 2F2FE9968FE5B9B4E381AAE38289EFBC92E69C88E381ABEFBC91E58AA0E7AE97202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F if (month = 2) and IsLeapYear then days = days + 1 end if return days End Function 1 DecMonth 0 5 0 5 0 134217984 Sub DecMonth() Month = Month - 1 if Month = 0 then DecYear() Month = 12 end if End Sub 1 DecDay 0 3 0 3 0 134217984 Sub DecDay() Day = Day - 1 if Day = 0 then DecMonth() Day = GetDaysOfMonth() end if End Sub 1 IncMonth 0 6 0 6 0 134217984 Sub IncMonth() Month = Month + 1 if Month = 13 then Month = 1 IncYear() end if End Sub 1 IncDay 0 6 0 6 0 134217984 Sub IncDay() Day = Day + 1 if Day > GetDaysOfMonth() then Day = 1 IncMonth() end if End Sub 1 IncYear 0 5 0 5 0 134217984 Sub IncYear() Year = Year + 1 if Year > 2100 then Year = 2100 end if End Sub 1 DecYear 0 3 11 3 11 134217984 Sub DecYear() Year = Year - 1 if Year < 1920 then Year = 1920 end if End Sub 1 EnterField 1 LostFocus 1 0 1 0 134217984 Sub LostFocus() End Sub 1 TextChange 1 0 1 0 134217984 Sub TextChange() End Sub 1 KeyDown 3 0 3 10 134217984 Function KeyDown(Key As String) As Boolean select case key case chr(29) currentPos = currentPos + 1 if currentPos > 3 then currentPos = 1 end if case chr(28) currentPos = currentPos - 1 if currentPos < 1 then currentPos = 3 end if case chr(30) Inc() case chr(31) Dec() end select if Key < "0" or Key > "9" then redraw return true end if select case currentPos case 1 case 2 case 3 end select End Function 1 SelChange 5 0 11 6 134217984 Sub SelChange() if RedrawFlg = true then return end if if me.selstart < 4 then currentPos = 1 elseif me.selstart < 8 then currentPos = 2 else currentPos = 3 end if redraw End Sub 1 GotFocus 2 10 2 10 134217984 Sub GotFocus() redraw EnterField End Sub 1 Open 9 0 9 0 134217984 Sub Open() dim s as string me.date = new date Year = date.Year Month = date.Month Day = date.Day currentPos = 3 redraw End Sub MsgDlg 34 181 100001107 181 97 89 MsgDlg 2 False False 16777215 0 Untitled False False True False False False False 0 0 0 364 111 64 64 32000 32000 MsgDlg 132 Window 0 QuitMode as String DialogMode as String IconMode as string 1 SetMode tMode as string 0 23 46 23 46 134217984 Sub SetMode(tMode as string) 696620595F496E53747228312C744D6F64652C2022E4BF9DE5AD9822293C3E30207468656E202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 4D6573736167654361702E74657874203D2022E5A489E69BB4E58685E5AEB9E38292E4BF9DE5AD98E38197E381A6E7B582E4BA86E38197E381BEE38199E3818BEFBC9F22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F DialogMode = "Save" IconMode="Stop" end if 696620595F496E53747228312C744D6F64652C2022E6B3A8E6848F22293C3E30207468656E202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F IconMode="Note" end if 696620595F496E53747228312C744D6F64652C2022E8ADA6E5918A22293C3E30207468656E202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F IconMode="Caution" end if 696620595F496E53747228312C744D6F64652C2022E5819CE6ADA222293C3E30207468656E202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F IconMode="Stop" end if if Y_InStr(1,tMode, "OK")<>0 then DialogMode = "OK" end if 696620595F496E53747228312C744D6F64652C202243616E63656C22293C3E30206F7220595F496E53747228312C744D6F64652C2022E382ADE383A3E383B3E382BBE383AB22293C3E30207468656E202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F DialogMode = "OKCancel" end if select case DialogMode 636173652022E4BF9DE5AD9822202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 627574746F6E2830292E63617074696F6E203D22E4BF9DE5AD9822202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 627574746F6E2831292E63617074696F6E203D22E382ADE383A3E383B3E382BBE383AB22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 627574746F6E2832292E63617074696F6E203D22E4BF9DE5AD98E38197E381AAE3818422202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F button(0).visible = true button(1).visible = true button(2).visible = true case "OK" button(0).caption ="OK" button(0).visible = true button(1).visible = false button(2).visible = false case "OKCancel" button(0).caption ="OK" 627574746F6E2831292E63617074696F6E203D22E382ADE383A3E383B3E382BBE383AB22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F button(0).visible = true button(1).visible = true button(2).visible = false end select visible = true End Sub 1 SetMessage tMessage as String 0 2 0 2 0 134217984 Sub SetMessage(tMessage as String) MessageCap.text = tMessage End Sub 1 Open 1 0 1 0 134217984 Sub Open() End Sub 120 PushButton 0 1 Action 1 32 1 32 134217984 Sub Action(Index As Integer) QuitMode = Button(Index).caption hide End Sub 128 StaticText 0 108 Canvas 0 1 Paint 1 20 1 20 134217984 Sub Paint(g As Graphics) select case IconMode case "Note" g.DrawNoteIcon 0,0 case "Caution" g.DrawCautionIcon 0,0 case "Stop" g.DrawStopIcon 0,0 end select End Sub PushButton PushButton Button 0 0 True 289 78 60 20 True False False False False Osaka 12 False False False E4BF9DE5AD98 False False True 0 PushButton PushButton Button 1 0 True 171 78 84 20 True False False False False Osaka 12 False False False E382ADE383A3E383B3E382BBE383AB False False True 0 StaticText StaticText MessageCap -2147483648 0 True 59 13 290 50 True False False False False Osaka 12 False False False 5365744D6F64652022E4BF9DE5AD982CE8ADA6E5918A2CE5819CE6ADA22CE6B3A8E6848F2C4F4B2CE382ADE383A3E383B3E382BBE383AB22205365744D6573736167652022E8A1A8E7A4BAE38197E3819FE38184E58685E5AEB92220202F2053686F774D6F64616C202F20517569744D6F6465 0 0 True True 1 PushButton PushButton Button 2 0 True 27 78 88 20 True False False False False Osaka 12 False False False E4BF9DE5AD98E38197E381AAE38184 False False True 0 Canvas Canvas IconBox -2147483648 0 True 13 13 32 32 True False False False False 0 True True False False 2 Spin 35 -1000 100001107 -1000 1 Spin 124 Canvas 0 value as integer minimum as integer maximum as integer stepValue as integer 1 redraw g as graphics 0 32 32 32 32 134217984 Sub redraw(g as graphics) dim w as integer dim h as integer dim i as integer w = g.width -1 h = g.height -1 g.forecolor = rgb(0, 0, 0) g.drawline 1, 0, w - 1, 0 g.drawline w, 1, w, h - 1 g.drawline w - 1, h, 1, h g.drawline 0, h - 1, 0, 1 g.drawline 0, h/2, w, h/2 g.forecolor = rgb(208, 208, 208) g.fillrect 2, 2, w-3, h/2-2 g.forecolor = rgb(160, 160, 160) g.drawline w-1, 1, w-1, h/2-1 g.drawline w-1, h/2-1, 1, h/2-1 g.forecolor = rgb(255, 255, 255) g.drawline w-1, 1, 1, 1 g.drawline 1, 1, 1, h/2-1 g.forecolor = rgb(0, 0, 0) for i = 0 to 3 g.drawline w/2-i, 4+i, w/2+i, 4+i next g.forecolor = rgb(208, 208, 208) g.fillrect 2, h/2+2, w-3, h/2-2 g.forecolor = rgb(160, 160, 160) g.drawline w-1, h/2+1, w-1, h-1 g.drawline w-1, h-1, 1, h-1 g.forecolor = rgb(255, 255, 255) g.drawline w-1, h/2+1, 1, h/2+1 g.drawline 1, h/2+1, 1, h-1 g.forecolor = rgb(0, 0, 0) for i = 0 to 3 g.drawline w/2-i, h-4-i, w/2+i, h-4-i next End Sub 1 MouseClick 1 UpClick 1 DownClick 1 MouseMove 1 0 1 0 134217984 Sub MouseMove(X As Integer, Y As Integer) End Sub 1 Close 1 0 1 0 134217984 Sub Close() End Sub 1 Open 5 0 5 0 134217984 Sub Open() value = 0 maximum = 100 minimum = 0 stepValue = 1 End Sub 1 MouseDrag 1 0 1 0 134217984 Sub MouseDrag(X As Integer, Y As Integer) End Sub 1 MouseUp 5 0 5 0 134217984 Sub MouseUp(X As Integer, Y As Integer) dim g as Graphics g = me.graphics redraw g MouseClick End Sub 1 MouseDown 48 11 48 11 134217984 Function MouseDown(X As Integer, Y As Integer) As Boolean dim w as integer dim h as integer dim i as integer dim g as graphics g = me.Graphics w = g.width -1 h = g.height -1 if y < h/2 then g.forecolor = rgb(96, 96, 96) g.fillrect 2, 2, w-3, h/2-2 g.forecolor = rgb(160, 160, 160) g.drawline w-1, 1, w-1, h/2-1 g.drawline w-1, h/2-1, 1, h/2-1 g.forecolor = rgb(64, 64, 64) g.drawline w-1, 1, 1, 1 g.drawline 1, 1, 1, h/2-1 g.forecolor = rgb(255, 255, 255) for i = 0 to 3 g.drawline w/2-i, 4+i, w/2+i, 4+i next value = value + stepValue if value > maximum then value = maximum end if UpClick else g.forecolor = rgb(96, 96, 96) g.fillrect 2, h/2+2, w-3, h/2-2 g.forecolor = rgb(160, 160, 160) g.drawline w-1, h/2+1, w-1, h-1 g.drawline w-1, h-1, 1, h-1 g.forecolor = rgb(64, 64, 64) g.drawline w-1, h/2+1, 1, h/2+1 g.drawline 1, h/2+1, 1, h-1 g.forecolor = rgb(255, 255, 255) for i = 0 to 3 g.drawline w/2-i, h-4-i, w/2+i, h-4-i next value = value - stepValue if value < minimum then value = minimum end if DownClick end if return true End Function 1 Paint 2 0 2 0 134217984 Sub Paint(g As Graphics) redraw g End Sub Grobal 36 -1000 100001107 -1000 0 Grobal 52 0 gVersionString as String gBasicPath as String gKamoku(135) as String gKingaku(135,2) as Double gFileReadRecord(2000,8) as String gCompanyType as String gPrintSettings as String CalendarWindow 34 130 100001107 130 302 328 CalendarWindow 1 False False 16777215 0 E382ABE383ACE383B3E38380E383BC True False True False False False False 0 0 0 400 200 64 64 32000 32000 CalendarWindow 120 Window 0 1 Open 1 0 1 46 134217984 Sub Open() DateBufferField.Text = Mototyou.DateField.Text End Sub 132 MonthCalendar 0 1 MouseClick 1 0 1 75 134217984 Sub MouseClick() 446174654275666665724669656C642E54657874203D20537472284D652E5965617229202B2022E5B9B422202B205A65726F537570284D652E4D6F6E74682C3229202B2022E69C88E78FBEE59CA822202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F End Sub 120 PushButton 0 1 Action 2 15 2 15 134217984 Sub Action() Calendar.DecMonth Calendar.Redraw End Sub 120 PushButton 0 1 Action 1 0 1 8 134217984 Sub Action() Calendar.IncMonth Calendar.Redraw End Sub 120 PushButton 0 1 Action 3 9 3 22 134217984 Sub Action() Mototyou.DateField.Text = DateBufferField.Text Mototyou.MainListClear Mototyou.MainList.aListRefresh Mototyou.MainListScrollBar.Value = 1 Close End Sub 108 Rectangle 0 128 StaticText 0 108 Rectangle 0 128 StaticText 0 Canvas Canvas Calendar -2147483648 0 True 20 41 357 145 True False False False False 0 True True False False 0 PushButton PushButton PushButton1 -2147483648 0 True 296 13 35 20 True False False False False Osaka 12 False False False EFBC9CEFBC9C False False True 1 PushButton PushButton PushButton2 -2147483648 0 True 342 13 35 20 True False False False False Osaka 12 False False False EFBC9EEFBC9E False False True 2 PushButton PushButton PushButton3 -2147483648 0 True 138 12 60 20 True False False False False Osaka 12 False False False OK False False True 3 Rectangle Rectangle Rectangle9 -2147483648 0 True 504 8 108 21 True False False False False True 15658734 1 0 0 4 StaticText StaticText StaticText2 -2147483648 0 True 509 11 104 16 True False False False False Osaka 12 False False False 31393938E5B9B43132E69C88E78FBEE59CA8 0 0 False True 5 Rectangle Rectangle Rectangle1 -2147483648 0 True 25 12 108 21 True False False False False True 15658734 1 0 0 6 StaticText StaticText DateBufferField -2147483648 0 True 29 15 104 16 True False False False False Osaka 12 False False False 0 0 False True 7 CellButton 35 -1000 100001107 -1000 1 CellButton 192 Canvas 0 ButtonName(96,32) as String ColCount as Integer RowCount as Integer CellWidth as Integer CellHeight as Integer TextFont as String TextSize as Integer ButtonColor(96,32) as Integer ButtonData1(96,32) as String Ver110 as String ButtonType as Integer ButtonStatus(96,32) as Integer PushButtonCol as Integer PushButtonRow as Integer BadName as String gButtonColor(10) as Color gButtonColorDark(10) as Color ButtonData2(96,32) as String gButtonColorLight(10) as Color LeftMargin as Integer TopMargin as Integer 1 ChangeButtonColor 0 17 9 17 11 134217984 Sub ChangeButtonColor() 27E68C87E7A4BAE38195E3828CE381A6E38184E381AAE38184E38282E381AEE381AFE781B0E889B2202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(0)= RGB(100,100,100) 27E8B387E794A3EFBC88E99D92EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(1) = RGB(192,192,255) 27E8B2A0E582B5EFBC88E382AAE383ACE383B3E382B8EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(2) = RGB(255,192,192) 27E8B387E69CACEFBC88E9BB84E7B791EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(3) = RGB(192,255,192) 27E4BB95E585A5EFBC88E6B0B4E889B2EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(4) = RGB(192,255,255) 27E5A3B2E3828AE4B88AE38192EFBC88E9BB84E889B2EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(5) = RGB(255,236,192) 27E7B58CE8B2BBEFBC88E89684E38184E38394E383B3E382AFEFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(6) = RGB(255,192,255) 2722E596B6E6A5ADE5A496E58F8EE79B8AEFBC88E781B0E889B2EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(7) = RGB(192,192,192) 27E596B6E6A5ADE5A496E8B2BBE794A8EFBC88E38394E383B3E382AFEFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(8) = RGB(236,174,236) 2722E5B7A5E5A0B4E7B58CE8B2BBEFBC88E6BF83E38184E99D92EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColor(9) = RGB(212,212,212) End Sub 1 ChangeButtonColorDark 0 17 9 17 11 134217984 Sub ChangeButtonColorDark() 27E68C87E7A4BAE38195E3828CE381A6E38184E381AAE38184E38282E381AEE381AFE781B0E889B2202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(0)= RGB(100,100,100) 27E8B387E794A3EFBC88E99D92EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(1) = RGB(152,152,239) 27E8B2A0E582B5EFBC88E382AAE383ACE383B3E382B8EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(2) = RGB(239,152,152) 27E8B387E69CACEFBC88E9BB84E7B791EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(3) = RGB(152,239,152) 27E4BB95E585A5EFBC88E6B0B4E889B2EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(4) = RGB(152,239,239) 27E5A3B2E3828AE4B88AE38192EFBC88E9BB84E889B2EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(5) = RGB(192,192,152) 27E7B58CE8B2BBEFBC88E89684E38184E38394E383B3E382AFEFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(6) = RGB(239,152,239) 2722E596B6E6A5ADE5A496E58F8EE79B8AEFBC88E781B0E889B2EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(7) = RGB(160,160,160) 27E596B6E6A5ADE5A496E8B2BBE794A8EFBC88E38394E383B3E382AFEFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(8) = RGB(192,128,192) 2722E5B7A5E5A0B4E7B58CE8B2BBEFBC88E6BF83E38184E99D92EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorDark(9) = RGB(174,174,174) End Sub 1 RedrawDown tGraphics as Graphics,CellX as Integer,CellY as Integer 0 17 18 17 26 134217984 Sub RedrawDown(tGraphics as Graphics,CellX as Integer,CellY as Integer) Dim tGraph as Graphics Dim l as Integer Dim t as Integer l = LeftMargin t = TopMargin tGraph = tGraphics tGraph.ForeColor = gButtonColor(ButtonColor(CellX,CellY)) tGraph.FillRect l + CellWidth * (CellX - 1),t + CellHeight * (CellY - 1),CellWidth,CellHeight tGraph.ForeColor = gButtonColorDark(ButtonColor(CellX,CellY)) tGraph.DrawLine l + CellWidth * (CellX - 1),t + CellHeight * (CellY - 1),l + CellWidth * (CellX - 1),t + CellHeight * CellY-1 tGraph.DrawLine l + CellWidth * (CellX - 1),t + CellHeight * (CellY - 1),l + CellWidth * CellX -1,t + CellHeight * (CellY - 1) tGraph.TextFont = TextFont tGraph.TextSize = TextSize tGraph.ForeColor = RGB(0,0,0) CenterPrint tGraph,ButtonName(CellX,CellY),l + CellWidth * CellX + 1,t + CellWidth * (CellX - 1) + 1,CellHeight * CellY + 1,CellHeight * (CellY - 1) - 1 2F2FE3839CE382BFE383B3E3818CE68ABCE38195E3828CE3819F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F ButtonStatus(CellX,CellY) = 1 2F2FE68ABCE38195E3828CE3819FE3839CE382BFE383B3E381AEE4BD8DE7BDAEE38292E8A69AE38188E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F PushButtonCol = CellX PushButtonRow = CellY End Sub 1 RedrawUp tGraphics as Graphics,CellX as Integer,CellY as Integer 0 21 18 21 26 134217984 Sub RedrawUp(tGraphics as Graphics,CellX as Integer,CellY as Integer) Dim tGraph as Graphics Dim l as Integer Dim t as Integer l = LeftMargin t = TopMargin tGraph = tGraphics tGraph.ForeColor = gButtonColor(ButtonColor(CellX,CellY)) tGraph.FillRect l + CellWidth * (CellX - 1),t + CellHeight * (CellY - 1),CellWidth,CellHeight tGraph.ForeColor = gButtonColorDark(ButtonColor(CellX,CellY)) tGraph.DrawLine l + CellWidth * (CellX - 1),t + CellHeight * CellY - 1,l + CellWidth * CellX - 2,t + CellHeight * CellY - 1 tGraph.DrawLine l + CellWidth * CellX - 1,t + CellHeight * (CellY - 1) - 1,l + CellWidth * CellX - 1,t + CellHeight * CellY - 1 tGraph.ForeColor = gButtonColorLight(ButtonColor(CellX,CellY)) tGraph.DrawLine l + CellWidth * (CellX -1),t + CellHeight * (CellY - 1),l + CellWidth * CellX - 1,t + CellHeight * (CellY - 1) tGraph.DrawLine l + CellWidth * (CellX -1),t + CellHeight * (CellY - 1),l + CellWidth * (CellX -1),t + CellHeight * CellY - 1 tGraph.TextFont = TextFont tGraph.TextSize = TextSize tGraph.ForeColor = RGB(0,0,0) CenterPrint tGraph,ButtonName(CellX,CellY),l + CellWidth * CellX,t + CellWidth * (CellX - 1),CellHeight * CellY,CellHeight * (CellY - 1) - 2 2F2FE3839CE382BFE383B3E381AFE68C81E381A1E4B88AE3818CE381A3E381A6E38282E381A8E381ABE688BBE381A3E3819F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F ButtonStatus(CellX,CellY) = 0 End Sub 1 MakeButton tGraph as Graphics 0 9 17 9 17 134217984 Sub MakeButton(tGraph as Graphics) Dim i as Integer Dim j as Integer tGraph.ForeColor = rgb(0, 0, 0) tGraph.DrawRect 0, 0, tGraph.Width-1, tGraph.Height-1 For i = 1 to ColCount For j = 1 to RowCount If ButtonStatus(i,j) = 0 Then RedrawUp tGraph,i,j Else RedrawDown tGraph,i,j End If Next Next End Sub 1 ChangeButtonColorLight 0 17 9 17 11 134217984 Sub ChangeButtonColorLight() 27E68C87E7A4BAE38195E3828CE381A6E38184E381AAE38184E38282E381AEE381AFE781B0E889B2202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(0)= RGB(100,100,100) 27E8B387E794A3EFBC88E99D92EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(1) = RGB(224,224,255) 27E8B2A0E582B5EFBC88E382AAE383ACE383B3E382B8EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(2) = RGB(255,224,224) 27E8B387E69CACEFBC88E9BB84E7B791EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(3) = RGB(224,255,224) 27E4BB95E585A5EFBC88E6B0B4E889B2EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(4) = RGB(224,255,255) 27E5A3B2E3828AE4B88AE38192EFBC88E9BB84E889B2EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(5) = RGB(255,236,224) 27E7B58CE8B2BBEFBC88E89684E38184E38394E383B3E382AFEFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(6) = RGB(255,224,255) 2722E596B6E6A5ADE5A496E58F8EE79B8AEFBC88E781B0E889B2EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(7) = RGB(208,208,208) 27E596B6E6A5ADE5A496E8B2BBE794A8EFBC88E38394E383B3E382AFEFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(8) = RGB(236,192,236) 2722E5B7A5E5A0B4E7B58CE8B2BBEFBC88E6BF83E38184E99D92EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gButtonColorLight(9) = RGB(236,236,236) End Sub 1 MouseUp Col as Integer,Row as Integer 1 MouseDown Col as Integer,Row as Integer 1 MouseClick Col as Integer,Row as Integer 1 Close 1 0 1 0 134217984 Sub Close() End Sub 1 Open 1 0 1 0 134217984 Sub Open() ChangeButtonColor() ChangeButtonColorDark() ChangeButtonColorLight() PushButtonCol = -1 PushButtonRow = -1 LeftMargin = 1 TopMargin = 1 End Sub 1 MouseMove 1 0 1 0 134217984 Sub MouseMove(X As Integer, Y As Integer) End Sub 1 MouseExit 1 0 1 0 134217984 Sub MouseExit() End Sub 1 MouseEnter 1 0 1 0 134217984 Sub MouseEnter() End Sub 1 MouseDrag 1 0 1 0 134217984 Sub MouseDrag(X As Integer, Y As Integer) End Sub 1 MouseUp 2 0 2 0 134217984 Sub MouseUp(X As Integer, Y As Integer) Dim tGraph as Graphics 2F2F427574746F6E54797065E3818C30E381AAE38289E381B04D6F7573655570E38292E8A18CE38186202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If ButtonType = 0 Then tGraph = Me.Graphics RedrawUp tGraph,PushButtonCol,PushButtonRow End If MouseClick PushButtonCol,PushButtonRow End Sub 1 MouseDown 21 29 21 29 134217984 Function MouseDown(X As Integer, Y As Integer) As Boolean Dim tGraph as Graphics Dim CellX as Integer Dim CellY as Integer tGraph = Me.Graphics CellX = (X / CellWidth) + 1 CellY = (Y / CellHeight) + 1 If ButtonName(CellX,CellY) <> BadName Then 2F2FE38282E38197E38081427574746F6E54797065E3818C30E381AAE38289E4BB8AE68ABCE38195E3828CE3819FE3839CE382BFE383B3E38292E587B9E381BEE3819BE3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If ButtonType = 0 Then RedrawDown tGraph,CellX,CellY End If 2F2FE38282E38197E38081427574746F6E54797065E3818C31E381A7E4B880E5BAA6E381A7E38282E3839CE382BFE383B3E3818CE68ABCE38195E3828CE381A6E38184E3828BE381AAE38289202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5898DE59B9EE68ABCE38195E3828CE3819FE3839CE382BFE383B3E38292E68C81E381A1E4B88AE38192E381A6E38282E381A8E381ABE688BBE38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE3819DE3828CE4BBA5E5A496E381AEE69982E381ABE381AFE3839CE382BFE383B3E38292E587B9E381BEE3819BE3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If ButtonType = 1 And PushButtonCol <> -1 And PushButtonRow <> -1 Then RedrawUp tGraph,PushButtonCol,PushButtonRow RedrawDown tGraph,CellX,CellY ElseIf ButtonType = 1 Then RedrawDown tGraph,CellX,CellY End If 2F2FE38282E38197E38081427574746F6E54797065E3818C32E381A7E4BB8AE68ABCE38195E3828CE3819FE3839CE382BFE383B3E3818CE587B9E38293E381A7E38184E3828BE381AAE38289202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE587B9E38293E381A0E3839CE382BFE383B3E38292E68C81E381A1E4B88AE38192E381A6E38282E381A8E381ABE688BBE38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE3819DE3828CE4BBA5E5A496E381AEE69982E381ABE381AFE3839CE382BFE383B3E38292E587B9E381BEE3819BE3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If ButtonType = 2 And ButtonStatus(CellX,CellY) = 1 Then RedrawUp tGraph,CellX,CellY ElseIf ButtonType = 2 Then RedrawDown tGraph,CellX,CellY End If Return True End If End Function 1 Paint 1 12 1 12 134217984 Sub Paint(g As Graphics) MakeButton g End Sub PrintMenu 34 201 100001107 201 147 135 PrintMenu 1 False False 16777215 0 E58DB0E588B7E58685E5AEB9E981B8E68A9E True False True False False False False 0 0 0 271 276 64 64 32000 32000 PrintMenu 120 Window 0 1 SlipPrint tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String 0 37 6 37 6 134217984 Sub SlipPrint(tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String) Dim i as Integer Dim tPrintString as string Dim tPrintPage as Integer 4F70656E5072696E74287447726170682C745365744F7267582C745365744F7267592C2232303B32303B32303B3230222C2233373B3337222C22343B393B33313B353B31313B31313B3131222C22E697A5E4BB9822202B20436872283929202B2022E7A791E79BAE22202B20436872283929202B2022E69198E38080E38080E8A68122202B20436872283929202B20222022202B20436872283929202B2022E5809FE696B922202B20436872283929202B2022E8B2B8E696B922202B20436872283929202B2022E6AE8BE9AB98222C224C3B4D3B4C3B4C3B523B523B52222C22E38392E383A9E382AEE3838EE6988EE69C9D2050726F205733222C2231302229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F For i = 1 to 2000 If Trim(Mototyou.MainList.Cell(i,4)) <> "" Then tPrintString = Trim(Mototyou.MainList.Cell(i,1)) + Chr(9) tPrintString = tPrintString + SetKamoku(Trim(Mototyou.MainList.Cell(i,2))) + Chr(9) tPrintString = tPrintString + Trim(Mototyou.MainList.Cell(i,4)) + Chr(9) tPrintString = tPrintString + Trim(Mototyou.MainList.Cell(i,5)) + Chr(9) tPrintString = tPrintString + Trim(Mototyou.MainList.Cell(i,6)) + Chr(9) tPrintString = tPrintString + Trim(Mototyou.MainList.Cell(i,7)) + Chr(9) tPrintString = tPrintString + Trim(Mototyou.MainList.Cell(i,8)) tPrintPage = AddPrint(tGraph,tPrintString) If lPageLineNumber(1) = 2 Then HeardFootPrint(tGraph,tSetOrgX,tSetOrgY,tDaimeiString) End If End If Next If lPageLineNumber(1) - 1 <> 0 Then OutPlotP tGraph,lPrintData(6),lPrintData(7) + lPrintData(4) * lPageLineNumber(1),lPrintData(8) ,lPrintData(7) + lPrintData(4) * lPageLineNumber(1) 745072696E74537472696E67203D20436872283929202B20436872283929202B202220E38080E38080E38080E38080E38080E38080E5BD93E38080E69C88E38080E59088E38080E8A88822202B20436872283929202B20436872283929202B204D6F746F74796F752E4B617269546F74616C2E54657874202B20436872283929202B204D6F746F74796F752E4B617369546F74616C2E54657874202B20436872283929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tPrintPage = AddPrint(tGraph,tPrintString) OutPlotP tGraph,lPrintData(6),lPrintData(7) + lPrintData(4) * lPageLineNumber(1),lPrintData(8) ,lPrintData(7) + lPrintData(4) * lPageLineNumber(1) 745072696E74537472696E67203D20436872283929202B20436872283929202B202022E38080E38080E38080E38080E38080E38080E38080E38080E7B4AFE38080E38080E8A88822202B20436872283929202B20436872283929202B204D6F746F74796F752E416C6C4B617269546F74616C2E54657874202B20436872283929202B204D6F746F74796F752E416C6C4B617369546F74616C2E54657874202B20436872283929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tPrintPage = AddPrint(tGraph,tPrintString) ListPrint tGraph,lPageLineNumber(1) End If End Sub 1 HeardFootPrint tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String 0 20 0 20 0 134217984 Sub HeardFootPrint(tGraph as Graphics,tSetOrgX as Integer,tSetOrgY as Integer,tDaimeiString as String) 7447726170682E54657874466F6E74203D2022E38392E383A9E382AEE3838EE6988EE69C9D2050726F20573322202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tGraph.TextSize = 14 tGraph.bold = false 4F75745072696E7450207447726170682C6C5072696E74446174612836292C6C5072696E7444617461283729202D20382C204C65667442284D6F746F74796F752E446174654669656C642E546578742C313029202B22E69CABE78FBEE59CA8222C224C22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 7447726170682E54657874466F6E74203D2022EFBCA4EFBCA6E99AB7E69BB8E4BD9322202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tGraph.TextSize = 12 tGraph.bold = false 4F75745072696E7450207447726170682C6C5365676D656E7453697A65283629202B2037352C6C5072696E7444617461283729202D20382C2022E6A0AAE5BC8FE4BC9AE7A4BE222C224C22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tGraph.TextSize = 14 4F75745072696E7450207447726170682C6C5365676D656E7453697A65283629202B203133302C6C5072696E7444617461283729202D20382C2022E6B395E69C88E5B7A5E88AB8E7A4BE222C224C22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F CenterPrintP tGraph,"Norizuki Industrial Arts Co.,Ltd.",0,lPrintData(0),630,640 7447726170682E54657874466F6E74203D2022E38392E383A9E382AEE3838EE6988EE69C9D2050726F20573322202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tGraph.TextSize = 18 tGraph.bold = true 43656E7465725072696E7450207447726170682C744461696D6569537472696E672C302C6C5072696E74446174612830292C6C5072696E7444617461283729202D20382C31302F2FE78FBEE98791E381A8E3818B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F End Sub 1 SetKamoku tKamoku as String String 0 5 37 5 37 134217984 Function SetKamoku(tKamoku as String) As String Dim tReturnString as String Select Case LenB(tKamoku) Case 4 tReturnString = LeftB(tKamoku,2) + " " + RightB(tKamoku,2) Case 6 7452657475726E537472696E67203D204C6566744228744B616D6F6B752C3229202B2022E3808022202B204D69644228744B616D6F6B752C332C3229202B2022E3808022202B2052696768744228744B616D6F6B752C3229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Case 8 tReturnString = LeftB(tKamoku,2) + " " + MidB(tKamoku,3,2) + " " + MidB(tKamoku,5,2) + " " + RightB(tKamoku,2) Else tReturnString = tKamoku End Select Return tReturnString End Function 1 Open 1 0 1 0 134217984 Sub Open() End Sub 108 GroupBox 0 124 RadioButton 0 1 Action 1 0 1 0 134217984 Sub Action() End Sub 124 RadioButton 0 1 Action 1 0 1 0 134217984 Sub Action() End Sub 124 RadioButton 0 1 Action 1 0 1 0 134217984 Sub Action() End Sub 120 PushButton 0 1 Action 21 70 21 70 134217984 Sub Action() Dim tGraph as Graphics Dim i as Integer Dim j as Integer Dim tPrintSetting as PrinterSetup tPrintSetting = New PrinterSetup tPrintSetting.SetupString = gPrintSettings tGraph = OpenPrinterDialog(tPrintSetting) If tGraph <> Nil Then If RadioButton3.Value <> True Then 2F2FE585A8E58CBAE58886E58DB0E588B7202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F i = 1 j = 1 While Mototyou.MainButton.ButtonName(i,j) <> "" If Mototyou.MainButton.ButtonName(i,j) <> Mototyou.MainButton.BadName Then 2F2FE383A1E382A4E383B3E383AAE382B9E38388E382AFE383AAE382A2202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Mototyou.MainListClear() 2F2FE7B9B0E3828AE8B68AE38197E38387E383BCE382BFE8AAADE381BFE8BEBCE381BF202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Mototyou.ReadTransfer(Mototyou.DateField.Text,Mototyou.MainButton.ButtonName(i,j),Mototyou.MainButton.ButtonColor(i,j),Mototyou.PopupMenu1.ListIndex) 2F2FE68CAFE4BC9DE38387E383BCE382BFE8AAADE381BFE8BEBCE381BFEFBC88E38193E381A3E381A1E38292E69C89E58AB9E381ABE38199E3828BE381A8E38081E68CAFE4BC9DE38387E383BCE382BFE3818BE38289E58583E5B8B3E38292E4BD9CE68890EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Mototyou.ReadAccount(Mototyou.MainButton.ButtonName(i,j),Mototyou.PopupMenu1.ListIndex) 2F2FE697A5E4BB98E38191E381AEE382BDE383BCE38388202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Mototyou.DataSort(Mototyou.MainButton.ButtonColor(i,j)) If RadioButton2.Value = True Or (RadioButton1.Value = True And Mototyou.MainList.Cell(2,3) <> "") Then SlipPrint(tGraph,0,0,Mototyou.MainButton.ButtonName(i,j)) tGraph.NeXTPage End If End If j = j + 1 If j = Mototyou.MainButton.RowCount + 1Then i = i + 1 j = 1 End If If j = Mototyou.MainButton.RowCount And i = Mototyou.MainButton.ColCount Then Exit End If Wend Else SlipPrint(tGraph,0,0,Mototyou.KamokuName.Text) End If Else 4D7367426F782022E38397E383AAE383B3E382BFE3818CE9968BE38191E381BEE3819BE38293E381A7E38197E3819F22202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F End If gScreenX = 0 gScreenY = 0 Close End Sub 120 PushButton 0 1 Action 1 5 1 5 134217984 Sub Action() Close End Sub GroupBox GroupBox GroupBox1 -2147483648 0 True 13 13 245 87 True False False False False Osaka 12 False False False E58DB0E588B7E58685E5AEB9 True 0 RadioButton RadioButton RadioButton1 -2147483648 0 True 46 34 180 20 True False False False False Osaka 12 False False False E5A489E58B95E381AEE38182E3828BE585A8E381A6E381AEE7A791E79BAEE38292E58DB0E588B7 True True 1 RadioButton RadioButton RadioButton2 -2147483648 0 True 46 52 180 20 True False False False False Osaka 12 False False False E585A8E381A6E381AEE7A791E79BAEE38292E58DB0E588B7 False True 2 RadioButton RadioButton RadioButton3 -2147483648 0 True 46 70 180 20 True False False False False Osaka 12 False False False E78FBEE59CA8E8A1A8E7A4BAE4B8ADE381AEE7A791E79BAEE38292E58DB0E588B7 False True 3 PushButton PushButton PushButton1 -2147483648 0 True 178 242 80 20 True False False False False Osaka 12 False False False E58DB0E588B72E2E2E True False True 4 PushButton PushButton PushButton2 -2147483648 0 True 13 242 80 20 True False False False False Osaka 12 False False False E382ADE383A3E383B3E382BBE383AB False False True 5 Window 0 Class 0 Module 0 LabelButton 35 -1000 100001107 -1000 1 LabelButton 108 Canvas 0 1 Redraw g as Graphics 0 12 32 12 32 134217984 Sub Redraw(g as Graphics) dim w as integer dim h as integer w = g.width - 1 h = g.height - 1 g.ForeColor = rgb(204, 204, 255) g.FillRect 0, 0, w, h g.ForeColor = rgb(153, 153, 204) g.DrawLine 0, h, 0, 0 g.DrawLine 0, 0, w, 0 g.ForeColor = rgb(255, 255, 255) 'g.DrawLine w, 0, w, h g.DrawLine w, h, 0, h h = h - 1 if Enabled = true then g.ForeColor = rgb(255, 255, 255) g.DrawLine 1, h - 1, 1, 1 g.DrawLine 1, 1, w, 1 g.ForeColor = rgb(153, 153, 204) g.DrawLine w, 2, w, h g.DrawLine w, h, 2, h end if g.ForeColor = rgb(0, 0, 0) g.DrawString BalloonHelp, w / 2 - g.TextHeight / 2 * len(BalloonHelp) / 2, g.TextHeight End Sub 1 MouseClick 1 MouseDrag 1 0 1 0 134217984 Sub MouseDrag(X As Integer, Y As Integer) End Sub 1 MouseUp 3 0 3 0 134217984 Sub MouseUp(X As Integer, Y As Integer) Redraw Graphics MouseClick End Sub 1 MouseDown 12 0 12 0 134217984 Function MouseDown(X As Integer, Y As Integer) As Boolean dim w as integer dim h as integer dim g as Graphics g = Graphics w = g.width - 1 h = g.height - 2 g.ForeColor = rgb(204, 204, 255) 'g.ForeColor = rgb(153, 153, 204) g.FillRect 1, 1, w, h 'w = w - 2 h = h - 1 if Enabled = true then 'g.ForeColor = rgb(104, 104, 204) 'g.DrawLine 0, h, 0, 0 'g.DrawLine 0, 0, w, 0 'g.ForeColor = rgb(204, 204, 255) 'g.DrawLine w, 0, w, h 'g.DrawLine w, h, 0, h end if g.ForeColor = rgb(0, 0, 0) g.DrawString BalloonHelp, w / 2 - g.TextHeight / 2 * len(BalloonHelp) / 2+1, g.TextHeight +1 return true End Function 1 Paint 1 8 1 8 134217984 Sub Paint(g As Graphics) Redraw g End Sub Calendar 35 -1000 100001107 -1000 1 Calendar 176 Canvas 0 Year as integer Month as integer Day as integer TitleHeight as integer SideMargin as integer DaysLeft as integer DaysTop as integer DaysWidth as integer DaysHeight as integer PreviousDay as integer TitleTextSize as integer TextSize as integer SelectTextSize as integer Today as integer OffScrn as Picture CurrentMonth as integer CurrentYear as integer 1 IsLeapYear Boolean 0 1 0 5 0 134217984 Function IsLeapYear() As Boolean 2F2FE382ABE383ACE383B3E38388E5B9B4E3818CE9968FE5B9B4E381AAE3828954727565202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F return (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)) //1920/1/1 Thursday End Function 1 GetDaysOfMonth tMonth as Integer Integer 0 4 21 4 21 134217984 Function GetDaysOfMonth(tMonth as Integer) As Integer 2F2FE3819DE381AEE69C88E381AEE697A5E695B0E38292E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F dim days as integer days = val(Y_NthField("31,28,31,30,31,30,31,31,30,31,30,31", ",",tMonth)) 2F2FE9968FE5B9B4E381AAE38289EFBC92E69C88E381ABEFBC91E58AA0E7AE97202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F if (tMonth = 2) and IsLeapYear then days = days + 1 end if return days End Function 1 GetDayOfWeek tDay as integer Integer 0 18 0 18 0 134217984 Function GetDayOfWeek(tDay as integer) As Integer dim i as integer dim days as integer //1920/1/1 Thursday days = 4 + 365 * (Year - 1920) + tDay - 1 for i = 1920 to Year - 1 if (i mod 4 = 0) and ((i mod 100 <> 0) or (i mod 400 = 0)) then days = days + 1 end if next for i = 1 to Month - 1 days = days + GetDaysOfMonth(i) next return days mod 7 End Function 1 DrawDayCell tDay as integer, tAttr as integer, g as Graphics 0 69 19 69 27 134217984 Sub DrawDayCell(tDay as integer, tAttr as integer, g as Graphics) dim x as integer dim y as integer dim l as integer dim t as integer dim tw as integer dim wc as integer//week count if tDay = 0 then return end if wc = 6 x = (GetDayOfWeek(1) + tDay - 1) mod 7 79203D20284765744461794F665765656B283129202B2074446179202D203129202F2037202F2F696E7465676572E381A7E38182E3828BE381AEE381A7E688BBE3828AE580A4E381AFE887AAE58B95E79A84E381AB466C6F6F72E38195E3828CE3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.TextFont = "Helvetica" select case tAttr case 0 if tDay = Today and Month = CurrentMonth and Year = CurrentYear then g.Bold = true end if g.TextSize = TextSize //g.ForeColor= rgb(212, 212, 212) //g.FillRect DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y,DaysWidth / 7, DaysHeight / wc g.ForeColor= rgb(255, 255, 255) g.DrawLine DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2, DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y g.DrawLine DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y //g.DrawLine DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 3, DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + 1 //g.DrawLine DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + 1, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 3, DaysTop + DaysHeight / wc * y + 1 g.ForeColor= rgb(168, 168, 168) g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 1, DaysTop + DaysHeight / wc * y + 2, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 1 g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 1, DaysLeft + DaysWidth / 7 * x + 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 1 //g.ForeColor= rgb(128, 128, 128) //g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 , DaysTop + DaysHeight / wc * y + 2, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 , DaysTop + DaysHeight / wc * y + DaysHeight / wc //g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 , DaysTop + DaysHeight / wc * y + DaysHeight / wc , DaysLeft + DaysWidth / 7 * x + 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc select case x case 0 g.ForeColor = rgb(255, 0, 0) case 6 g.ForeColor = rgb(0, 0, 255) else g.ForeColor = rgb(0, 0, 0) end select tw = g.TextHeight / 2 * len(str(tDay)) / 2 g.DrawString str(tDay), DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 / 2 - tw, DaysTop + DaysHeight / wc * y + DaysHeight / wc / 2 + g.TextHeight / 4 case 1 if tDay = Today and Month = CurrentMonth and Year = CurrentYear then g.Bold = true end if g.TextSize = SelectTextSize g.ForeColor= rgb(212, 212, 255) g.FillRect DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y,DaysWidth / 7, DaysHeight / wc select case x case 0 g.ForeColor = rgb(255, 0, 0) case 6 g.ForeColor = rgb(0, 0, 255) else g.ForeColor = rgb(0, 0, 0) end select tw = g.TextHeight / 2 * len(str(tDay)) / 2 g.DrawString str(tDay), DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 / 2 - tw, DaysTop + DaysHeight / wc * y + DaysHeight / wc / 2 + g.TextHeight / 4 case 2 g.DrawPicture OffScrn, DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y, DaysWidth / 7, DaysHeight / wc, DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y, DaysWidth / 7, DaysHeight / wc case 3 if tDay = Today and Month = CurrentMonth and Year = CurrentYear then g.Bold = true end if g.TextSize = SelectTextSize g.ForeColor= rgb(212, 212, 255) g.FillRect DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y,DaysWidth / 7, DaysHeight / wc g.ForeColor= rgb(128, 128, 255) g.DrawLine DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2, DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y g.DrawLine DaysLeft + DaysWidth / 7 * x, DaysTop + DaysHeight / wc * y, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y g.ForeColor= rgb(168, 168, 255) g.DrawLine DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 3, DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + 1 g.DrawLine DaysLeft + DaysWidth / 7 * x + 1, DaysTop + DaysHeight / wc * y + 1, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 3, DaysTop + DaysHeight / wc * y + 1 g.ForeColor= rgb(255, 255, 255) g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y + 2, DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2 g.DrawLine DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 - 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2, DaysLeft + DaysWidth / 7 * x + 2, DaysTop + DaysHeight / wc * y + DaysHeight / wc - 2 select case x case 0 g.ForeColor = rgb(255, 0, 0) case 6 g.ForeColor = rgb(0, 0, 255) else g.ForeColor = rgb(0, 0, 0) end select tw = g.TextHeight / 2 * len(str(tDay)) / 2 g.DrawString str(tDay), DaysLeft + DaysWidth / 7 * x + DaysWidth / 7 / 2 - tw + 1, DaysTop + DaysHeight / wc * y + DaysHeight / wc / 2 + g.TextHeight / 4 + 1 end select g.Bold = false End Sub 1 IncMonth 0 10 0 10 0 134217984 Sub IncMonth() Month = Month + 1 if Month = 13 then Month = 1 Year = Year + 1 if Year > 2100 then Year = 2100 end if end if Redraw End Sub 1 DecMonth 0 10 0 10 0 134217984 Sub DecMonth() Month = Month - 1 if Month = 0 then Month = 12 Year = Year - 1 if Year < 1920 then Year = 1920 end if end if Redraw End Sub 1 Redraw 0 48 13 48 21 134217984 Sub Redraw() dim w as integer dim h as integer dim d as integer dim i as integer dim g as Graphics g = OffScrn.Graphics w = g.width - 1 h = g.height - 1 2F2FE4B880E795AAE5A496E69EA0EFBC88E587B9E587B8EFBC89E381AEE68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.ForeColor = rgb(128, 128, 128) g.DrawLine 0, h, 0, 0 g.DrawLine 0, 0, w, 0 g.ForeColor = rgb(255, 255, 255) g.DrawLIne w, 0, w, h g.DrawLIne w, h, 0, h 2F2FEFBC92E795AAE79BAEE381AEE69EA0EFBC88E9BB92E889B2EFBC89E381AEE68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.ForeColor = rgb(0, 0, 0) g.DrawRect 1, 1, w - 2, h - 2 2F2FE58685E581B4E38292E799BDE889B2E381ABE5A197E3828AE6BDB0E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.ForeColor = rgb(212, 212, 212) g.FillRect 2, 2, w- 4, h - 4 2F2FE382BFE382A4E38388E383ABE381AEE68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.ForeColor = rgb(192, 192, 192) 2F2FE5BE8CE697A5E383ABE383BCE38381E383B3E58C96202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.TextFont = "Helvetica" g.Bold = True g.TextSize = TitleTextSize g.drawstring str(year)+"."+str(month), w - g.textheight / 2 * 7, h - 8 2F2FE68F8FE794BBE9A098E59F9FE7AE97E587BA202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F DaysWidth = w - 4 - SideMargin * 2 DaysHeight = h - TitleHeight - 4 - 8 DaysLeft = 2 + SideMargin DaysTop = TitleHeight + 8 w = DaysWidth h = DaysHeight 2F2FE69B9CE697A5E68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.TextFont = "Helvetica" g.TextSize = TextSize for i = 0 to 6 select case i case 0 g.ForeColor = rgb(255, 0, 0) case 6 g.ForeColor = rgb(0, 0, 255) else g.ForeColor = rgb(0, 0, 0) end select g.DrawString Y_NthField("SUN MON TUE WED THU FRI SUT", " ", i + 1), w / 7 * i + DaysLeft + w / 7 / 2 - g.TextHeight / 2 * 3 / 2, DaysTop - 16 + g.TextHeight next 2F2FE697A5E68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F for i = 1 to GetDaysOfMonth(Month) DrawDayCell i, 0, g next g = Graphics g.DrawPicture OffScrn, 0, 0, g.width, g.height, 0, 0, g.width, g.height End Sub 1 MouseClick 1 MouseUp 1 26 1 26 134217984 Sub MouseUp(X As Integer, Y As Integer) DrawDayCell previousDay, 1, Graphics End Sub 1 MouseEnter 1 0 1 0 134217984 Sub MouseEnter() End Sub 1 MouseExit 2 16 2 16 134217984 Sub MouseExit() DrawDayCell previousDay, 2, Graphics previousDay = 32 End Sub 1 MouseMove 14 6 14 6 134217984 Sub MouseMove(X As Integer, Y As Integer) dim d as integer dim g as Graphics g = Graphics if X > DaysLeft and X < (DaysLeft + DaysWidth) and Y > DaysTop and Y < (DaysTop + DaysHeight) then d = (X - DaysLeft) / (DaysWidth / 7) + Floor((Y - DaysTop) / Floor(DaysHeight / 6)) * 7 - GetDayOfWeek(1) +1 if d < 1 or d > GetDaysOfMonth(Month) then d = 0 end if if d <> previousDay then //DrawDayCell previousDay, 2, g //DrawDayCell d, 1, g previousDay = d end if else //DrawDayCell previousDay, 2, g end if End Sub 1 MouseDown 12 0 12 0 134217984 Function MouseDown(X As Integer, Y As Integer) As Boolean dim d as integer if X > DaysLeft and X < (DaysLeft + DaysWidth) and Y > DaysTop and Y < (DaysTop + DaysHeight) then d = (X - DaysLeft) / (DaysWidth / 7) + Floor((Y - DaysTop) / Floor(DaysHeight / 6)) * 7 - GetDayOfWeek(1) + 1 if d >= 1 and d <= GetDaysOfMonth(Month) then DrawDayCell d, 3, Graphics day = d MouseClick() end if end if return true End Function 1 Close 1 0 1 0 134217984 Sub Close() End Sub 1 Open 20 5 20 13 134217984 Sub Open() dim d as Date dim g as Graphics g = Graphics offScrn = newPicture(g.width, g.height,16) d = new Date Year = d.Year Month = d.Month Day = d.Day CurrentYear = d.year CurrentMonth = d.Month Today = d.day SideMargin = 8 TitleHeight = 8 TextSize = 12 SelectTextSize = 12 TitleTextSize = 36 Redraw End Sub 1 Paint 2 0 2 0 134217984 Sub Paint(g As Graphics) g.DrawPicture OffScrn, 0, 0, g.width, g.height, 0, 0, g.width, g.height End Sub MonthCalendar 35 -1000 100001107 -1000 1 MonthCalendar 132 Canvas 0 Year as integer Month as integer OffScrn as Picture CurrentMonth as integer CurrentYear as integer Calendar(3) as Picture 1 DrawCalendar index as integer, tYear as integer, tMonth as integer 0 74 2 74 10 134217984 Sub DrawCalendar(index as integer, tYear as integer, tMonth as integer) dim g as Graphics dim i as integer dim x as integer dim y as integer dim t as integer dim h as integer dim l as integer dim w as integer dim r as integer dim b as integer g = Calendar(index).Graphics l = 4 t = 4 h = g.height - 8 w = g.width - 8 g.ForeColor = rgb(192, 192, 192) g.FillRect 0, 0, g.width, g.height 2F2FE69B9CE697A5E68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 672E54657874466F6E74203D20224F73616B61E28892E7AD89E5B98522202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.TextSize = 9 for i = 0 to 6 select case i case 0 g.ForeColor = rgb(255, 128, 128) case 6 g.ForeColor = rgb(128, 128, 255) else g.ForeColor = rgb(128, 128, 128) end select g.DrawString Y_NthField("SUN MON TUE WED THU FRI SUT", " ", i + 1), l + w / 7 * i + w / 7 / 2 - g.TextHeight / 2 * 3 / 2, t + g.TextHeight next h = h - 8 t = t + 8 2F2FE382ABE383ACE383B3E38380E383BCE68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F x = (GetDayOfWeek(tYear, tMonth)) mod 7 79203D20284765744461794F665765656B2874596561722C20744D6F6E74682929202F2037202F2F696E7465676572E381A7E38182E3828BE381AEE381A7E688BBE3828AE580A4E381AFE887AAE58B95E79A84E381AB466C6F6F72E38195E3828CE3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F for i = 1 to GetDaysOfMonth(tYear, tMonth) select case x case 0 g.ForeColor = rgb(255, 128, 128) case 6 g.ForeColor = rgb(128, 128, 255) else g.ForeColor = rgb(128, 128, 128) end select g.DrawString str(i), l + w / 7 * x + w / 7 / 2 - g.TextHeight / 2 * len(str(i)) / 2, t + h / 6 * y + h / 6 / 2 + g.TextHeight x = x + 1 if x > 6 then x = 0 y = y + 1 end if next h = h + 8 t = t - 8 2F2FE382BFE382A4E38388E383ABE381AEE68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.ForeColor = rgb(0, 0, 0) g.TextFont = "Helvetica" g.Bold = True g.TextSize = 48 g.drawstring str(tMonth), l + w / 2 - g.textheight / 2 * len(str(tMonth)) / 2, t + h / 2 + g.textheight / 2 g.Bold = False g.TextSize = 24 if tMonth = 1 then g.DrawString str(tYear) + ".", l, t + g.textheight end if End Sub 1 IsLeapYear tYear as integer Boolean 0 1 0 4 0 134217984 Function IsLeapYear(tYear as integer) As Boolean 2F2FE382ABE383ACE383B3E38388E5B9B4E3818CE9968FE5B9B4E381AAE3828954727565202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F return (tYear mod 4 = 0) and ((tYear mod 100 <> 0) or (tYear mod 400 = 0)) //1920/1/1 Thursday End Function 1 GetDaysOfMonth tYear as integer, tMonth as integer Integer 0 4 21 4 21 134217984 Function GetDaysOfMonth(tYear as integer, tMonth as integer) As Integer 2F2FE3819DE381AEE69C88E381AEE697A5E695B0E38292E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F dim days as integer days = val(Y_NthField("31,28,31,30,31,30,31,31,30,31,30,31", ",",tMonth)) 2F2FE9968FE5B9B4E381AAE38289EFBC92E69C88E381ABEFBC91E58AA0E7AE97202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F if (tMonth = 2) and IsLeapYear(tYear) then days = days + 1 end if return days End Function 1 GetDayOfWeek tYear as integer, tMonth as integer Integer 0 15 0 15 0 134217984 Function GetDayOfWeek(tYear as integer, tMonth as integer) As Integer dim i as integer dim days as integer //1920/1/1 Thursday days = 4 + 365 * (tYear - 1920) for i = 1920 to tYear - 1 if (i mod 4 = 0) and ((i mod 100 <> 0) or (i mod 400 = 0)) then days = days + 1 end if next for i = 1 to tMonth - 1 days = days + GetDaysOfMonth(tYear, i) next return days mod 7 End Function 1 DecMonth 0 6 0 46 0 134217984 Sub DecMonth() dim i as integer dim g as Graphics dim tCurrentYear as integer dim tCurrentMonth as integer 2F2F20E78FBEE59CA8E381AEE69C88E38292EFBC91E381A4E6B89BE38289E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F CurrentMonth = CurrentMonth - 1 if CurrentMonth = 0 then CurrentMonth = 12 CurrentYear = CurrentYear - 1 if CurrentYear < 1920 then CurrentYear = 1920 end if end if 2F2FE79C9FE38293E4B8ADE381A8E58FB3E581B4E381AEE382ABE383ACE383B3E38380E383BCE38292E68F8FE3818DE79BB4E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Calendar(2).Graphics.DrawPicture Calendar(1), 0, 0 Calendar(1).Graphics.DrawPicture Calendar(0), 0, 0 2F2FE4B880E795AAE5B7A6E381AFE38195E38289E381ABEFBC91E381A4E5898DE381AEE69C88E381AAE381AEE381A7E78FBEE59CA8E381AEE5B9B4E69C88E38292E5BE85E981BFE38197E381A6E69C88E38292E6B89BE38289E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tCurrentYear = CurrentYear tCurrentMonth = CurrentMonth CurrentMonth = CurrentMonth - 1 if CurrentMonth = 0 then CurrentMonth = 12 CurrentYear = CurrentYear - 1 if CurrentYear < 1920 then CurrentYear = 1920 end if end if 2F2FE4B880E795AAE5B7A6E381AEE382ABE383ACE383B3E38380E383BCE38292E68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F DrawCalendar 0, CurrentYear, CurrentMonth 2F2FE5B9B4E69C88E38292E58583E381ABE688BBE38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F CurrentYear = tCurrentYear CurrentMonth = tCurrentMonth 2F2FE382ABE383ACE383B3E38380E383BCE585A8E4BD93E38292E68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F DrawAll() 2F2FE382B9E382AFE383ADE383BCE383ABE587A6E79086202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g = Graphics for i = 1 to g.width / 3 step 2 g.DrawPicture OffScrn, 2, 2, g.width / 3 * 2 + i - 2, g.height - 4, g.width / 3 * 1 - i + 2, 2, g.width / 3 * 2 + i - 2, g.height - 4 next g.DrawPicture OffScrn, 0, 0, g.width, g.height, 0, 0, g.width, g.height End Sub 1 IncMonth 0 49 0 49 0 134217984 Sub IncMonth() dim i as integer dim g as Graphics dim tCurrentYear as integer dim tCurrentMonth as integer 2F2F20E78FBEE59CA8E381AEE69C88E38292EFBC91E381A4E5A297E38284E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F CurrentMonth = CurrentMonth + 1 if CurrentMonth = 13 then CurrentMonth = 1 CurrentYear = CurrentYear + 1 if CurrentYear > 2100 then CurrentYear = 2100 end if end if 2F2FE79C9FE38293E4B8ADE381A8E5B7A6E581B4E381AEE382ABE383ACE383B3E38380E383BCE38292E68F8FE3818DE79BB4E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Calendar(0).Graphics.DrawPicture Calendar(1), 0, 0 Calendar(1).Graphics.DrawPicture Calendar(2), 0, 0 2F2FE4B880E795AAE58FB3E381AFE38195E38289E381ABEFBC91E381A4E6ACA1E381AEE69C88E381AAE381AEE381A7E78FBEE59CA8E381AEE5B9B4E69C88E38292E5BE85E981BFE38197E381A6E69C88E38292E5A297E38284E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tCurrentYear = CurrentYear tCurrentMonth = CurrentMonth CurrentMonth = CurrentMonth + 1 if CurrentMonth = 13 then CurrentMonth = 1 CurrentYear = CurrentYear + 1 if CurrentYear > 2100 then CurrentYear = 2100 end if end if 2F2FE4B880E795AAE58FB3E381AEE382ABE383ACE383B3E38380E383BCE38292E68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F DrawCalendar 2, CurrentYear, CurrentMonth 2F2FE5B9B4E69C88E38292E58583E381ABE688BBE38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F CurrentYear = tCurrentYear CurrentMonth = tCurrentMonth 2F2FE382ABE383ACE383B3E38380E383BCE585A8E4BD93E38292E68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F DrawAll() g = Graphics //for i = 1 to g.width / 3 // step g.width / 10 //g.DrawPicture OffScrn, 2, 2, g.width - i - 4, g.height - 4, i + 2, 2, g.width - i - 4, g.height - 4 //next for i = 1 to g.width / 3 step 2 // step g.width / 10 g.DrawPicture OffScrn, g.width / 3 * 1 - i + 2, 2, g.width / 3 * 2 + i - 4, g.height - 4, 2, 2, g.width / 3 * 2 + i - 4, g.height - 4 next g.DrawPicture OffScrn, 0, 0, g.width, g.height, 0, 0, g.width, g.height End Sub 1 Redraw 0 8 0 8 0 134217984 Sub Redraw() dim g as Graphics MakeCalendar() DrawAll() g = Graphics g.DrawPicture OffScrn, 0, 0, g.width, g.height, 0, 0, g.width, g.height End Sub 1 DrawAll 0 69 0 69 0 134217984 Sub DrawAll() dim w as double dim h as integer dim l as integer dim t as integer dim r as integer dim b as integer dim d as integer dim i as integer dim j as double dim g as Graphics dim i as integer dim tMonth as integer dim tYear as integer dim g as Graphics tYear = CurrentYear tMonth = CurrentMonth 2F2F31E383B6E69C88E68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F CurrentMonth = CurrentMonth - 1 if CurrentMonth = 0 then CurrentMonth = 12 CurrentYear = CurrentYear - 1 if CurrentYear < 1920 then CurrentYear = 1920 end if end if g = OffScrn.Graphics w = g.width - 1 h = g.height - 1 2F2FE4B880E795AAE5A496E69EA0EFBC88E587B9E587B8EFBC89E381AEE68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.ForeColor = rgb(128, 128, 128) g.DrawLine 0, h, 0, 0 g.DrawLine 0, 0, w, 0 g.ForeColor = rgb(255, 255, 255) g.DrawLIne w, 0, w, h g.DrawLIne w, h, 0, h 2F2FEFBC92E795AAE79BAEE381AEE69EA0EFBC88E9BB92E889B2EFBC89E381AEE68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.ForeColor = rgb(0, 0, 0) g.DrawRect 1, 1, w - 2, h - 2 2F2FE58685E581B4E38292E799BDE889B2E381ABE5A197E3828AE6BDB0E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F g.ForeColor = rgb(192, 192, 192) g.FillRect 2, 2, w- 3, h - 3 w = w - 3 h = h - 3 w = Round(w / 3) for i = 0 to 2 l = w*i+ 2 t = 2 r = l+w-1 b = t+h-1 if CurrentYear = Year and CurrentMonth = Month then //g.ForeColor = rgb(192, 192, 192) //g.FillRect l, t, width+1, height+1 g.DrawPicture Calendar(i), l+5, t+5 else g.ForeColor = rgb(255, 255, 255) g.DrawLine l+1, t+1, l+1, b-1 g.DrawLine l+1, t+1, r-1, t+1 g.ForeColor = rgb(160, 160, 160) g.DrawLine r-1, t+1, r-1, b-1 g.DrawLine r-1, b-1, l+1, b-1 g.ForeColor = rgb(128, 128, 128) g.DrawLine r, t, r, b g.DrawLine r, b, l, b g.DrawPicture Calendar(i), l+4, t+4 end if CurrentMonth = CurrentMonth + 1 if CurrentMonth = 13 then CurrentMonth = 1 CurrentYear = CurrentYear + 1 if CurrentYear > 2100 then CurrentYear = 2100 end if end if next CurrentYear = tYear CurrentMonth = tMonth //g.DrawPicture Calendar(0), Round(w / 3 * 0) + 2, 0 //g.DrawPicture Calendar(1), Round(w / 3 * 1) + 2, 0 //g.DrawPicture Calendar(2), Round(w / 3 * 2) + 2, 0 End Sub 1 MakeCalendar 0 34 0 34 0 134217984 Sub MakeCalendar() dim i as integer dim tMonth as integer dim tYear as integer dim g as Graphics tYear = CurrentYear tMonth = CurrentMonth 2F2F31E383B6E69C88E68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F CurrentMonth = CurrentMonth - 1 if CurrentMonth = 0 then CurrentMonth = 12 CurrentYear = CurrentYear - 1 if CurrentYear < 1920 then CurrentYear = 1920 end if end if for i = 0 to 2 DrawCalendar i, CurrentYear, CurrentMonth CurrentMonth = CurrentMonth + 1 if CurrentMonth = 13 then CurrentMonth = 1 CurrentYear = CurrentYear + 1 if CurrentYear > 2100 then CurrentYear = 2100 end if end if next CurrentYear = tYear CurrentMonth = tMonth End Sub 1 MouseClick 1 MouseDrag 1 0 1 0 134217984 Sub MouseDrag(X As Integer, Y As Integer) End Sub 1 MouseDown 18 0 18 0 134217984 Function MouseDown(X As Integer, Y As Integer) As Boolean dim g as Graphics dim i as integer g = Graphics for i = 1 to 3 if x < g.width / 3 * i then Year = CurrentYear Month = CurrentMonth + i - 2 if Month = 0 then Month = 12 Year = CurrentYear - 1 end if if Month = 13 then Month = 1 Year = CurrentYear + 1 end if DrawAll() g.DrawPicture OffScrn, 0, 0, g.width, g.height, 0, 0, g.width, g.height MouseClick() return true end if next End Function 1 Open 5 10 5 20 134217984 Sub Open() dim d as date dim g as Graphics g = Graphics offScrn = newPicture(g.width, g.height,16) Calendar(0) = newPicture((g.width-4)/3-8, g.height-4-8, 16) Calendar(1) = newPicture((g.width-4)/3-8, g.height-4-8, 16) Calendar(2) = newPicture((g.width-4)/3-8, g.height-4-8, 16) d = new date Year = d.Year Month = d.Month CurrentYear = Year CurrentMonth = Month End Sub 1 Paint 1 6 1 6 134217984 Sub Paint(g As Graphics) Redraw End Sub Graphics 0 Function 36 -1000 100001107 -1000 0 Function 100 0 gScreenX as Integer gScreenY as Integer Vre133 as String gDecimal as Integer lHeadFootLine(3) as Integer lMaxPage(1) as Integer lPageLineNumber(1) as Integer lSegmentNumber as Integer lSegmentString(50) as String lSegmentPosition(50) as String lSegmentSize(50) as Integer lSegmentSizeBuffer(50) as Integer lGraphHeight as Integer lPrintData(50) as Integer lCellSegment as String lPrintFont(1) as String gBasicPath as String gVersionString as String gPrintSettings as String 1 gsPrintV tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer,tFormat as String 0 18 4 18 4 134217984 Sub gsPrintV(tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer,tFormat as String) Dim i as Integer Dim tLeftPoint as Integer Dim tString as String OutPlotP tGraph,tObjL,tObjT,tObjR,tObjT OutPlotP tGraph,tObjL,tObjB,tObjR,tObjB OutPlotP tGraph,tObjL,tObjT,tObjL,tObjB tLeftPoint = tObjL For i = 1 To 255 tString = Y_NthField(tFormat,";",i) If tString = "" Then i = 255 Else tLeftPoint = tLeftPoint + Val(tString) OutPlotP tGraph,tLeftPoint,tObjT,tLeftPoint,tObjB End If Next End Sub 1 SetOrg tX as Integer,tY as Integer 0 1 0 1 8 134217984 Sub SetOrg(tX as Integer,tY as Integer) gScreenX = tX gScreenY = tY End Sub 1 OutPlot tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer 0 1 66 1 66 134217984 Sub OutPlot(tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer) tGraph.DrawLine tObjL + gScreenX,tObjT + gScreenY,tObjR + gScreenX,tObjB + gScreenY End Sub 1 OutPrint tGraph as Graphics,tX as Integer,tY as Integer,tString as String 0 1 39 1 39 134217984 Sub OutPrint(tGraph as Graphics,tX as Integer,tY as Integer,tString as String) tGraph.DrawString tString,tX + gScreenX,tY + gScreenY End Sub 1 ZeroSup tNumerical as Double,tKeta as Integer String 0 3 54 3 59 134217984 Function ZeroSup(tNumerical as Double,tKeta as Integer) As String Dim tString as String tString = "0000000000000000000000" + Str(tNumerical)//Right(Str(tNumerical),Len(Str(tNumerical)) - 1) tString = RightB(tString,tKeta) Return tString End Function 1 CenterPrint tGraph as Graphics,tString as String,tLeft as Integer,tRight as Integer,tTop as Integer,tBtm as Integer 0 1 0 13 64 134217984 Sub CenterPrint(tGraph as Graphics,tString as String,tLeft as Integer,tRight as Integer,tTop as Integer,tBtm as Integer) Dim tPrintSizeLR as Integer Dim tPrintSizeTB as Integer Dim tStringSize as Integer Dim tGomi as String tStringSize = tGraph.StringWidth(tString) tPrintSizeLR = ((tRight - tLeft) - tStringSize) / 2 tGomi = LeftB(tString,2) tStringSize = tGraph.StringWidth(tGomi) tPrintSizeTB = ((tBtm - tTop) - tStringSize) / 2 OutPrint tGraph,tLeft + tPrintSizeLR,tBtm - tPrintSizeTB,tString End Sub 1 EvenlyPrint tGraph as Graphics,tX as Integer,tY as Integer,tString as String 0 6 40 6 40 134217984 Sub EvenlyPrint(tGraph as Graphics,tX as Integer,tY as Integer,tString as String) Dim tFontSize as Integer Dim tXzahyou as Integer tFontSize = tGraph.StringWidth(tString) tXzahyou = tX - tFontSize OutPrintP tGraph,tXzahyou,tY,tString,"L" End Sub 1 SpaceSup tNumerical as String,tKeta as Integer String 0 3 60 3 61 134217984 Function SpaceSup(tNumerical as String,tKeta as Integer) As String Dim tString as String tString = " " + tNumerical tString = RightB(tString,tKeta) Return tString End Function 1 GetMiddleDate tDate as String String 0 9 4 9 4 134217984 Function GetMiddleDate(tDate as String) As String 2F2FE996A2E695B0E8AAACE6988EEFBC9A34E6A181E8A5BFE69AA6E38292E8BF94E38199E38080E5BC95E3818DE695B0E3818C3630E4BBA5E4B88AE381AAE3828931392A2AE38082E4BBA5E4B88BE381AAE3828932302A2AE38292E8BF94E38199EFBFBD202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A32E6A181E381AEE69687E5AD97E58897EFBC88E695B0E580A4E381AEE381BFEFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A34E6A181E381AEE69687E5AD97E58897EFBC8834E6A181E8A5BFE69AA6EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tString as String If Val(LeftB(tDate,2)) >= 60 Then tString = "19" + tDate Else tString = "20" + tDate End If Return tString End Function 1 RemoveString tString as String,tRemoveString as String String 0 12 42 12 42 134217984 Function RemoveString(tString as String,tRemoveString as String) As String 2F2FE996A2E695B0E8AAACE6988EEFBC9AE69687E5AD97E58897E3818BE38289E38081E68C87E5AE9AE38195E3828CE3819FE69687E5AD97E4BBA5E5A496E38292E58F96E3828AE587BAE38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9AE69687E5AD97E58897E38081E69687E5AD97E58897E3818BE38289E58F96E3828AE999A4E3818DE3819FE38184E69687E5AD97202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE58F96E3828AE999A4E3818BE3828CE3819FE69687E5AD97E58897202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F2D2D2F2D2D282D2D2D29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939382F30392F32332857656429E38080E38193E381AEE382B3E383A1E383B3E38388E38292E4BB98E38191E3819F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim i as Integer Dim tReturnString as String tReturnString = "" For i = 1 to LenB(tString) tReturnString = tReturnString + Y_NthField(tString,tRemoveString,i) Next Return tReturnString End Function 1 ChangeSequence tString as String Double 0 10 0 10 0 134217984 Function ChangeSequence(tString as String) As Double 2F2FE996A2E695B0E8AAACE6988EEFBC9AE382ABE383B3E3839EE381AEE6B7B7E38198E381A3E3819FE695B0E5AD97E69687E5AD97E58897E38292446F75626C65E381ABE38197E381A6E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A537472696E67202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A446F75626C65202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30372F30332846726929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tReturnDouble as Double tReturnDouble = Val(RemoveString(tString,",")) Return tReturnDouble End Function 1 ChangeDateInteger tDateString as String Integer 0 6 103 6 103 134217984 Function ChangeDateInteger(tDateString as String) As Integer 2F2FE697A5E4BB98E38191E38292E58F97E38191E58F96E381A3E381A638E6A181E695B4E695B0E381ABE38197E381A6E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE697A5E4BB98E38191E381AEE69687E5AD97E58897E381AF222E22E381A7E38282222F22E381A7E38282E4BD95E381A7E38282E4BDBFE794A8E58FAF202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tString as String Dim tInteger as Integer tString = LeftB(tDateString,4) + ZeroSup(Val(Y_NthField(tDateString,"/",2)),2) + ZeroSup(Val(Y_NthField(tDateString,"/",3)),2) tInteger = Val(tString) Return tInteger End Function 1 ChangeDateYMD tDateString as String String 0 8 140 8 140 134217984 Function ChangeDateYMD(tDateString as String) As String 2F2FE996A2E695B0E8AAACE6988EEFBC9A53686F727444617465E38292E58F97E38191E381A659592F4D4D2F4444E381A7E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A53686F727444617465202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A59592F4D4D2F4444202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30372F30332846726929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tString as String tString = ZeroSup(Val(Y_NthField(tDateString,".",1)),2) + "/" + ZeroSup(Val(Y_NthField(tDateString,".",2)),2) + "/" + ZeroSup(Val(Y_NthField(tDateString,".",3)),2) Return tString End Function 1 ChangeDateString tDateString as String String 0 6 103 6 103 134217984 Function ChangeDateString(tDateString as String) As String 2F2FE697A5E4BB98E38191E38292E58F97E38191E58F96E381A3E381A638E6A181E69687E5AD97E58897E381ABE38197E381A6E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE697A5E4BB98E38191E381AEE69687E5AD97E58897E381AF222E22E381A7E38282222F22E381A7E38282E4BD95E381A7E38282E4BDBFE794A8E58FAF202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE38197E3818BE38197E38081E58588E9A0ADE5B9B4E695B0E381AF32E6A181E381AEE38193E381A8202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tString as String tString = LeftB(tDateString,4) + ZeroSup(Val(Y_NthField(tDateString,"/",2)),2) + ZeroSup(Val(Y_NthField(tDateString,"/",3)),2) Return tString End Function 1 IncMonth tDate as String String 0 14 21 14 21 134217984 Function IncMonth(tDate as String) As String 2F2FE996A2E695B0E8AAACE6988EEFBC9A59592F4D4D2F4444E38292E58F97E38191E381A6E4B880E69C88E980B2E38281E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A59592F4D4D2F4444202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A59592F4D4D2F4444202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30372F3237284D6F6E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939382F30382F3130284D6F6E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE38080E38080E38080E38080E38080313939382F30392F3134284D6F6E29E3808034E6A181E8A5BFE69AA6E381AAE3828934E6A181E381A7E3808132E6A181E8A5BFE69AA6E381AAE3828932E6A181E381A7E8BF94E38199E38288E38186E381ABE5A489E69BB4202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tYear as Integer Dim tMonth as Integer Dim tDay as Integer tYear = Val(Y_NthField(tDate,"/",1)) tMonth = Val(Y_NthField(tDate,"/",2)) tDay = Val(Y_NthField(tDate,"/",3)) If tMonth = 12 Then tYear = tYear + 1 tMonth = 1 Else tMonth = tMonth + 1 End If If tMonth = 2 Then If (Val(GetMiddleDate(Str(tYear))) Mod 4) = 0 Then If tDay >= 30 Then tDay = 29 End If Else If tDay >= 29 Then tDay = 28 End If End If ElseIf tMonth = 4 Or tMonth = 6 Or tMonth = 9 Or tMonth = 11 Then If tDay >= 31 Then tDay = 30 End If End If Return Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + ZeroSup(tDay,2) End Function 1 DecMonth tDate as String String 0 14 21 14 21 134217984 Function DecMonth(tDate as String) As String 2F2FE996A2E695B0E8AAACE6988EEFBC9A59592F4D4D2F4444E38292E58F97E38191E381A6E4B880E69C88E688BBE38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A59592F4D4D2F4444202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A59592F4D4D2F4444202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30372F3237284D6F6E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939382F30382F3130284D6F6E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE38080E38080E38080E38080E38080313939382F30392F3134284D6F6E29E3808034E6A181E8A5BFE69AA6E381AAE3828934E6A181E381A7E3808132E6A181E8A5BFE69AA6E381AAE3828932E6A181E381A7E8BF94E38199E38288E38186E381ABE5A489E69BB4202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tYear as Integer Dim tMonth as Integer Dim tDay as Integer tYear = Val(Y_NthField(tDate,"/",1)) tMonth = Val(Y_NthField(tDate,"/",2)) tDay = Val(Y_NthField(tDate,"/",3)) If tMonth= 1 Then tYear = tYear - 1 tMonth = 12 Else tMonth = tMonth - 1 End If If tMonth = 2 Then If (Val(GetMiddleDate(Str(tYear))) Mod 4) = 0 Then If tDay >= 30 Then tDay = 29 End If Else If tDay >= 29 Then tDay = 28 End If End If ElseIf tMonth = 4 Or tMonth = 6 Or tMonth = 9 Or tMonth = 11 Then If tDay >= 31 Then tDay = 30 End If End If Return Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + ZeroSup(tDay,2) End Function 1 MakeFolder tFolderName as String FolderItem 0 11 18 11 18 134217984 Function MakeFolder(tFolderName as String) As FolderItem 2F2FE996A2E695B0E8AAACE6988EEFBC9AE58F97E38191E3819FE5908DE5898DE381AEE38395E382A9E383ABE38380E38292E4BD9CE68890E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9AE38395E382A9E383ABE38380E5908DEFBC88E38391E382B9E38184E3828AE381A7EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A466F6C6465724974656D202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30372F31372846726929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tFolderItem as FolderItem tFolderItem = GetFolderItem(tFolderName) tFolderItem.CreateAsFolder Return tFolderItem End Function 1 SpaceSupB tNumerical as String,tKeta as Integer String 0 6 13 6 13 134217984 Function SpaceSupB(tNumerical as String,tKeta as Integer) As String Dim tString as String tString = tNumerical + " " tString = LeftB(tString,tKeta) Return tString End Function 1 DeBugLog tPath as String,tWriteString as String 0 42 45 42 45 134217984 Sub DeBugLog(tPath as String,tWriteString as String) 2F2FE996A2E695B0E8AAACE6988EEFBC9AE38387E38390E38383E382B0E383ADE382B0E381AEE587BAE58A9B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9AE587BAE58A9BE38199E3828BE38395E382A1E382A4E383ABE381AEE38391E382B9E38081E69BB8E3818DE587BAE38199E58685E5AEB9202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE381AAE38197202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939392F30382F30352854687529202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939392F30382F31392854687529E38080E587BAE58A9BE38395E382A1E382A4E383ABE38292E38386E382ADE382B9E38388E3818BE38289E38390E382A4E3838AE383AAE381B8E5A489E69BB4E383BBE69C80E5A4A7E8A18CE695B0E381AEE8BFBDE58AA0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE38080E38080E38080E38080EFBC9A323030302F31302F31382857656429E38080E4BD9CE68890E38199E3828BE38395E382A1E382A4E383ABE382BFE382A4E38397E38292746578742F706C61696EE3808C746578742F706C61696EE3808DE381ABE5A489E69BB4202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9AE587BAE58A9BE381A7E3818DE3828BE69687E5AD97E695B0E381AFE7B4843830E38390E382A4E38388E38081E69C80E5A4A7393939E8A18CE381BEE381A7202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tFolderItem as FolderItem Dim tBinaryStream as BinaryStream Dim tLine as Integer Dim tString as String Dim tDate as Date tDate = New Date tFolderItem = GetFolderItem(tPath) If tFolderItem <> Nil Then tBinaryStream = tFolderItem.OpenAsBinaryFile(True) End If If tBinaryStream = Nil Then tBinaryStream = tFolderItem.CreateBinaryFile("text/plain") End If tLine = 0 If tBinaryStream <> Nil Then tLine = Val(tBinaryStream.Read(150)) If tLine = 99999 Then tLine = 0 End If tLine = tLine + 1 #If TargetMacOS Then tBinaryStream.Position = 0 tBinaryStream.Write SpaceSupB(ZeroSup(tLine,5),150) + CHR(13) tString = ZeroSup(tLine,5) + " " + tDate.ShortDate + " " + tDate.LongTime + " " + tWriteString tBinaryStream.Position = tLine * 151 tBinaryStream.Write SpaceSupB(tString,150) + CHR(13) #Else tBinaryStream.Position = 0 tBinaryStream.Write SpaceSupB(ZeroSup(tLine,5),150) + CHR(13) + CHR(10) tString = ZeroSup(tLine,5) + " " + tDate.ShortDate + " " + tDate.LongTime + " " + tWriteString tBinaryStream.Position = tLine * 152 tBinaryStream.Write SpaceSupB(tString,150) + CHR(13) + CHR(10) #Endif tBinaryStream.Close tFolderItem.MacType = "TEXT" tFolderItem.MacCreator = "ttxt" End If End Sub 1 DecimalPointDouble tDouble as Double Double 0 12 21 12 21 134217984 Function DecimalPointDouble(tDouble as Double) As Double Dim tDecimalDouble as Double Select Case gDecimal Case 1 tDecimalDouble = FloorBug(tDouble) Case 2 tDecimalDouble = Ceil(tDouble) Case 3 tDecimalDouble =Round(tDouble) End Select Return tDecimalDouble End Function 1 CheakPopupCout tPopupName as PopupMenu Boolean 0 18 15 18 15 134217984 Function CheakPopupCout(tPopupName as PopupMenu) As Boolean 2F2FE996A2E695B0E8AAACE6988EEFBC9AE3839DE38383E38397E382A2E38383E38397E381ABE69687E5AD97E58897E381AFE38182E3828BE3818BEFBC9FE381AAE38184E3818BEFBC9F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A506F7075704D656E75202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE38182E3828BEFBC9EEFBC9E54727565E38080E38080E381AAE38184EFBC9EEFBC9E46616C7365202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30392F30342846726929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tString as String Dim tBoolean as Boolean tPopupName.ListIndex = 0 tString = tPopupName.Text If tString <> "" Then tBoolean = True Else tBoolean = False End If Return tBoolean End Function 1 OpenPrint tGraph as Graphics,tScreenX as Integer,tScreenY as Integer,tHeadFoot as String,tMaxPage as String,tSegmentNumber as String,tSegmentString as String,tSegmentPosition as String,tFontName as String,tFontSize as String 0 66 7 66 15 134217984 Sub OpenPrint(tGraph as Graphics,tScreenX as Integer,tScreenY as Integer,tHeadFoot as String,tMaxPage as String,tSegmentNumber as String,tSegmentString as String,tSegmentPosition as String,tFontName as String,tFontSize as String) 2F2FE996A2E695B0E8AAACE6988EEFBC9AE8A1A8E58DB0E588B7E381ABE5BF85E8A681E381AAE38387E383BCE382BFE38292E58AA0E5B7A5E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A4772617068696373E380817453637265656E58E380817453637265656E58E38081E38398E38383E382BFEFBC86E38395E38383E382BFE4BD8DE7BDAEE38081E4B880E9A081E79BAEEFBC86E3819DE3828CE4BBA5E9998DE3839AE383BCE382B8E381AEE69C80E5A4A7E8A18CE695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE38080E38080E38080E38080E38080E382BBE383ABE381AEE382B5E382A4E382BAE38081E8A1A8E9A18CE38081E8A1A8E7A4BAE4BD8DE7BDAEE38081E38395E382A9E383B3E38388E38081E38395E382A9E383B3E38388E382B5E382A4E382BAEFBC88E8A1A8E9A18CE38292E999A4E3818DE585A8E381A6E58CBAE58887E3828AE69687E5AD97E381AFE3808E5EEFBC88E58D8AE8A792EFBC89E3808FE38292E4BDBFE794A8E381AEE4BA8BEFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE381AAE38197202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30392F30362853756E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939382F31302F30312854687529E38080E38395E382A9E383B3E38388E381A8E382B5E382A4E382BAE38292E68C87E5AE9AE381A7E3818DE3828BE6A798E381ABE5A489E69BB4202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939382F31312F31392854687529E38080E8A1A8E381AEE58FB3E7ABAFE5BAA7E6A899E382926C5072696E7444617461283829E381ABE8BFBDE58AA0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939392F30352F3137284D6F6E29E38080E38395E382A9E383B3E38388E382B5E382A4E382BAE381AEE5BEAEE8AABFE695B4EFBC88E5A49AE588864F53382E36E381AEE58685E983A8E5A489E69BB4E381AEE782BAEFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A4F70656E507269746EE381A84C6973745072696E74E381AE33E382BBE38383E38388E381A7E4BDBFE794A8E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim i as Integer Dim tTextHeight as Integer Dim tTextWidth as Integer Dim tCellSegment as String Dim tCellLength as Integer Dim tCellHeight as Integer Dim tCellWidth as Integer Dim tListLeft as Integer Dim tListTop as Integer Dim tPrintString(50) as String Dim tCenterPrintInteger as Integer Dim i as Integer Dim j as Integer dim tstring as string gScreenX = tScreenX gScreenY = tScreenY 2F2FE4B880E9A081E79BAEE381AEE38398E38383E38380E9AB98202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lHeadFootLine(0) = Val(Y_NthField(tHeadFoot,";",1)) 2F2FE4B880E9A081E79BAEE381AEE38395E38383E382BFE9AB98202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lHeadFootLine(1) = Val(Y_NthField(tHeadFoot,";",2)) 2F2FE4BBA5E9998DE9A081E381AEE38398E38383E382BFE9AB98202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lHeadFootLine(2) = Val(Y_NthField(tHeadFoot,";",3)) 2F2FE4BBA5E9998DE9A081E381AEE38395E38383E382BFE9AB98202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lHeadFootLine(3) = Val(Y_NthField(tHeadFoot,";",4)) 2F2FE4B880E9A081E38281E381AEE69C80E5A4A7E8A18CE695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lMaxPage(0) = Val(Y_NthField(tMaxPage,";",1)) 2F2FE4BBA5E9998DE9A081E381AEE69C80E5A4A7E8A18CE695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lMaxPage(1) = Val(Y_NthField(tMaxPage,";",2)) 2F2FE3839AE383BCE382B8E795AAE58FB7202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPageLineNumber(0) = 1 2F2FE3819DE381AEE3839AE383BCE382B8E58685E381A7E58DB0E588B7E38197E3819FE8A18CE695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPageLineNumber(1) = 1 2F2FE59084E382BBE383ABE381AEE382B5E382A4E382BAE381A8E38081E381BFE381A0E38197202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F i = 0 While Y_NthField(tSegmentNumber,";",i + 1) <> "" lSegmentSizeBuffer(i) = Val(Y_NthField(tSegmentNumber,";",i + 1)) lSegmentString(i) = Y_NthField(tSegmentString,Chr(9),i + 1) lSegmentPosition(i) = Y_NthField(tSegmentPosition,";",i + 1) i = i + 1 Wend lSegmentNumber = i lPrintFont(0) = tFontName lPrintFont(1) = tFontSize tGraph.TextFont = lPrintFont(0) tGraph.TextSize = Val(lPrintFont(1)) 2F2FE5B985E381AEE695B0E580A4E381AFE585A8E381A6E38394E382AFE382BBE383AB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58DB0E588B7E58FAFE883BDE6A8AAE5B985202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPrintData(0) = tGraph.Width 2F2FE58DB0E588B7E58FAFE883BDE7B8A6E5B985202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPrintData(1) = tGraph.Height 2F2FE78FBEE59CA8E381AEE38395E382A9E383B3E38388E381A7E381AEE4B880E69687E5AD97EFBC88E58D8AE8A792EFBC89E381AEE6A8AAE5B985202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 6C5072696E7444617461283229203D20207447726170682E537472696E6757696474682822E296A02229202F2032202B2031202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE78FBEE59CA8E381AEE38395E382A9E383B3E38388E381A7E381AEE4B880E69687E5AD97EFBC88E58D8AE8A792EFBC89E381AEE7B8A6E5B985202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 6C5072696E7444617461283329203D20207447726170682E537472696E6757696474682822E296A02229202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE78FBEE59CA8E381AEE38395E382A9E383B3E38388E381A7E381AEE4B880E8A18CE58DB0E588B7E381AEE7B8A6E5B985202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPrintData(4) = tGraph.TextHeight lCellSegment = "" tCellWidth = 0 For i = 0 to 49 If lSegmentSizeBuffer(i) > 0 Then 2F2FE8A1A8E4BD9CE68890E69982E381AEE58CBAE58887E3828AE38292E4BD9CE3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lCellSegment = lCellSegment + Str((lSegmentSizeBuffer(i) + 2) * lPrintData(2)) + ";" 2F2FE8A1A8E381AEE7B8A6E38292E5BE97E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tCellWidth = tCellWidth + (lSegmentSizeBuffer(i) + 2) * lPrintData(2) 2F2FE5868DE381B3E59084E382BBE383ABE381AEE382B5E382A4E382BAE38292E5BE97E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lSegmentSize(i + 1) = tCellWidth Else 2F2FE8A1A8E4BD9CE68890E69982E381AEE58CBAE58887E3828AE381AEE69C80E5BE8CE381AEE4B880E69687E5AD97EFBC88E69C80E5BE8CE381ABE2809DEFBC9BE2809DE3818CE4BB98E38184E381A6E38197E381BEE38186E3819FE38281E381ABEFBC89E38292E381AFE3819AE38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lCellSegment = LeftB(lCellSegment,LenB(lCellSegment) - 1) Exit End If Next 2F2FE8A1A8E381AEE7B8A6E5B985E38292E5BE97E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPrintData(5) = lPrintData(4) * lMaxPage(0) 2F2FE59084E8A8ADE5AE9AE4B88AE3818BE38289E8A888E7AE97E38197E3819FE8A1A8E381AEE5B7A6E7ABAFE5BAA7E6A899202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPrintData(6) = (lPrintData(0) - tCellWidth) / 2 2F2FE382BBE383ABE382B5E382A4E382BAE381ABE8A1A8E381AEE5B7A6E7ABAFE381AEE5BAA7E6A899E38292E8B6B3E38197E8BEBCE38280202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lSegmentSize(0) = tListLeft For j = 1 to 49 lSegmentSize(j) = lSegmentSize(j) + tListLeft Next 2F2FE59084E8A8ADE5AE9AE4B88AE3818BE38289E8A888E7AE97E38197E3819FE8A1A8E381AEE4B88AE983A8E5BAA7E6A899202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPrintData(7) = lHeadFootLine(0) + 20 2F2FE59084E3818FE8A8ADE5AE9AE4B88AE3818BE38289E8A888E7AE97E38197E3819FE8A1A8E381AEE58FB3E7ABAFE5BAA7E6A899202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPrintData(8) = lPrintData(0) - (lPrintData(0) - lSegmentSize(lSegmentNumber)) / 2 End Sub 1 AddPrint tGraph as Graphics,tString as String Integer 0 53 19 53 19 134217984 Function AddPrint(tGraph as Graphics,tString as String) As Integer 2F2FE996A2E695B0E8AAACE6988EEFBC9AE4B880E8A18CE58DB0E588B7E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A47726170686963732CE58DB0E588B7E69687E5AD97E58897202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE58DB0E588B7E38197E3819FE8A18C202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30392F30362853756E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939382F31302F30312854687529E38080E38395E382A9E383B3E38388E381A8E382B5E382A4E382BAE38292E68C87E5AE9AE381A7E3818DE3828BE6A798E381ABE5A489E69BB4202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE38080E38080E38080E38080EFBC9A313939382F31302F30362854756529E38080E58DB0E588B7E4BD8DE7BDAEE381AEE4B88DE585B7E59088E38292E8A7A3E6B688202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE38080E38080E38080E38080EFBC9A313939382F31302F323828576564292020E4B8ADE5BF83E58DB0E588B7E381AEE4B88DE585B7E59088E4BFAEE6ADA3202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A4F70656E507269746EE381A84C6973745072696E74E381AE33E382BBE38383E38388E381A7E4BDBFE794A8E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tPrintString(50) as String Dim tPrintInteger as Integer Dim i as Integer tGraph.TextFont = lPrintFont(0) tGraph.TextSize = Val(lPrintFont(1))-1 2F2FE58DB0E588B7E3839AE383BCE382B8E3818CEFBC91E9A081E79BAEE3818BE3819DE3828CE4BBA5E5A496E3818BE381A7E58DB0E588B7E8A18CE695B0E38292E5A489E69BB4202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If lPageLineNumber(0) = 1 Then tPrintInteger = 0 Else tPrintInteger = 1 End If 2F2FE3839AE383BCE382B8E381AEE69C80E5A4A7E8A18CE695B0E381ABE381AAE381A3E3819FE38289E8A1A8E38292E69BB8E3818DE3839AE383BCE382B8E38292E98081E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If lMaxPage(tPrintInteger) = lPageLineNumber(1) Then 2F2FE8A1A8E381AEE68F8FE794BB202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F ListPrint tGraph,lPageLineNumber(1) 2F2FE3839AE383BCE382B8E38292E98081E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tGraph.NextPage 2F2FE3839AE383BCE382B8E382ABE382A6E383B3E382BFE38292E4B880E381A4E5A297E38284E38197E38081E58DB0E588B7E8A18CE382ABE382A6E383B3E382BFE38292E383AAE382BBE38383E38388202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPageLineNumber(0) = lPageLineNumber(0) + 1 lPageLineNumber(1) = 1 2F2FE8A1A8E381AEE7B8A6E5B985E38292E5BE97E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPrintData(5) = lPrintData(4) * lMaxPage(1) 2F2FE59084E8A8ADE5AE9AE4B88AE3818BE38289E8A888E7AE97E38197E3819FE8A1A8E381AEE4B88AE983A8E5BAA7E6A899202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPrintData(7) = lHeadFootLine(2) + 20 End If For i = 0 to 49 2F2FE58DB0E588B7E58685E5AEB9E38292E9858DE58897E381B8E6A0BCE7B48D202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tPrintString(i) = Y_NthField(tString,Chr(9),i + 1) Next 2F2FE3839AE383BCE382B8E381AEE382ABE382A6E383B3E382BFE38292E4B880E381A4E5A297E38284E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPageLineNumber(1) = lPageLineNumber(1) + 1 2F2FE5BC95E3818DE58F97E38191E3819FE69687E5AD97E58897E38292E58DB0E588B7202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 7447726170682E54657874466F6E74203D2022E38392E383A9E382AEE3838EE6988EE69C9D2050726F20573322202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tGraph.TextSize = 10 tGraph.bold = false For i = 0 to 50 Select Case lSegmentPosition(i) Case "L" OutPrintP tGraph , lPrintData(6) + lSegmentSize(i) + 4 , lPrintData(7) + (lPrintData(4) * lPageLineNumber(1)) - 2,tPrintString(i),"L" Case "M" OutPrintP tGraph , lPrintData(6) + lSegmentSize(i) + 3 , lPrintData(7) + (lPrintData(4) * lPageLineNumber(1)) - 2,tPrintString(i),"M" Case "R" OutPrintP tGraph , lPrintData(6) + lSegmentSize(i) , lPrintData(7) + (lPrintData(4) * lPageLineNumber(1)) - 2,tPrintString(i),"R" Case "" Exit End Select Next 2F2FE4BB8AE59B9EE69BB8E38184E3819FE9A081E38292E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Return lPageLineNumber(0) End Function 1 ListPrint tGraph as Graphics,tLastPrint as Integer 0 11 7 11 15 134217984 Sub ListPrint(tGraph as Graphics,tLastPrint as Integer) 2F2FE996A2E695B0E8AAACE6988EEFBC9AE8A1A8E381A8E8A1A8E9A18CE38292E4BD9CE68890E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A47726170686963732CE58DB0E588B7E38197E3819FE8A18CE695B0EFBC88E8A1A8E381AEE7AF84E59BB2E381ABE4BDBFE794A8EFBC89202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE381AAE38197202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F30392F30362853756E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939382F31302F30312854687529E38080E5BAA7E6A899E4BD8DE7BDAEE382922D31E38197E3819F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE38080E38080E38080E38080EFBC9A313939382F31302F30362854756529E38080E58DB0E588B7E4BD8DE7BDAEE381AEE4B88DE585B7E59088E38292E8A7A3E6B688202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A4F70656E507269746EE381A84C6973745072696E74E381AE33E382BBE38383E38388E381A7E4BDBFE794A8E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim i as Integer tGraph.TextFont = lPrintFont(0) tGraph.TextSize = Val(lPrintFont(1)) 2F2FE8A1A8E38292E4BD9CE3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F gsPrintV tGraph , lPrintData(6) , lPrintData(7) , lPrintData(0) - lPrintData(6) - 1, lPrintData(7) + lPrintData(4) , lCellSegment gsPrintV tGraph , lPrintData(6) , lPrintData(7) + lPrintData(4) , lPrintData(0) - lPrintData(6) - 1 ,lPrintData(7) + tLastPrint * lPrintData(4) , lCellSegment 2F2FE8A1A8E9A18CE38292E4BD9CE3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F For i = 0 to 50 If lSegmentString(i) <> "" Then CenterPrintP tGraph , lSegmentString(i) , lPrintData(6) + lSegmentSize(i) , lPrintData(6) + lSegmentSize(i + 1) + 4, lPrintData(7) , lPrintData(7) + lPrintData(4) - 2 Else Exit End If Next 2F2FE58DB0E588B7E8A18CE695B0E382ABE382A6E383B3E382BFE38292E4B880E381A4E5A297E38284E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F lPageLineNumber(1) = lPageLineNumber(1) + 1 End Sub 1 SpaceMid tString as String,tMozi as Integer String 0 10 19 10 19 134217984 Function SpaceMid(tString as String,tMozi as Integer) As String Dim tSpace as Integer Dim tSpaceString as String tSpace = Floor((tMozi -Len(tString)) / 2) tSpaceString = SpaceSupB(tString,tSpace + Len(tString)) tSpaceString = SpaceSup(tSpaceString,tMozi) Return tSPaceString End Function 1 ClearPrintSet 0 37 6 37 10 134217984 Sub ClearPrintSet() 2F2FE996A2E695B0E8AAACE6988EEFBC9AE58DB0E588B7E383ABE383BCE38381E383B3E381A7E4BDBFE794A8E38197E3819FE5A489E695B0E38292E382AFE383AAE382A2E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9AE381AAE38197202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE381AAE38197202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F31312F31392854687529202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A4F70656E507269746EE381A84C6973745072696E74E381A84164645072696E74E381AE34E382BBE38383E38388E381A7E4BDBFE794A8E38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim i as Integer gScreenX = 0 gScreenY = 0 For i = 0 to 3 lHeadFootLine(i) = 0 Next lMaxPage(0) = 0 lMaxPage(1) = 0 lPageLineNumber(0) = 0 lPageLineNumber(1) = 0 For i = 1 to 50 lSegmentSize(i) = 0 lSegmentString(i) = "" lSegmentPosition(i) = "" lSegmentSizeBuffer(i) = 0 Next lSegmentNumber = 0 lCellSegment = "" For i = 0 to 8 lPrintData(i) = 0 Next lPrintFont(0) = "" lPrintFont(1) = "" End Sub 1 GetDayOfWeek tYear as Integer,tMonth as Integer,tDay as Integer Integer 0 25 70 25 70 134217984 Function GetDayOfWeek(tYear as Integer,tMonth as Integer,tDay as Integer) As Integer 2F2FE996A2E695B0E8AAACE6988EEFBC9AE68C87E5AE9AE38195E3828CE3819FE697A5E4BB98E3818CE4BD95E69B9CE697A5E3818BE6B182E38281E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9AE5B9B4E38081E69C88E38081E697A5202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A31EFBC9AE69C88E69B9CE697A5E3808032EFBC9AE781ABE69B9CE697A5E3808033EFBC9AE6B0B4E69B9CE697A5E3808034EFBC9AE69CA8E69B9CE697A5E3808035EFBC9AE98791E69B9CE697A5E3808036EFBC9AE59C9FE69B9CE697A5E3808030EFBC9AE697A5E69B9CE697A5202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F31322F3231284D6F6E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim i as Integer Dim tBufferDay as Integer tBufferDay = tDay //1920/1/1 Thursday tBufferDay = 4 + 365 * (tYear - 1920) + tBufferDay - 1 For i = 1920 to tYear - 1 If (i Mod 4 = 0) And ((i Mod 100 <> 0) Or (i Mod 400 = 0)) Then tBufferDay = tBufferDay + 1 End If Next For i = 1 to tMonth - 1 tBufferDay = tBufferDay + GetDaysOfMonth(tYear,i) Next Return tBufferDay Mod 7 2F2F2031EFBC9AE69C88E69B9CE697A5E3808032EFBC9AE781ABE69B9CE697A5E3808033EFBC9AE6B0B4E69B9CE697A5E3808034EFBC9AE69CA8E69B9CE697A5E3808035EFBC9AE98791E69B9CE697A5E3808036EFBC9AE59C9FE69B9CE697A5E3808030EFBC9AE697A5E69B9CE697A5202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F End Function 1 GetDaysOfMonth tYear as Integer,tMonth as Integer Integer 0 9 22 9 22 134217984 Function GetDaysOfMonth(tYear as Integer,tMonth as Integer) As Integer 2F2FE996A2E695B0E8AAACE6988EEFBC9AE68C87E5AE9AE38195E3828CE3819FE69C88E3818CE4BD95E697A5E38182E3828BE3818BE6B182E38281E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9AE5B9B4E38081E69C88202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE3819DE381AEE69C88E381AEE697A5E695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F31322F3231284D6F6E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tDays as Integer dim tinteger as integer 2F2FE3819DE381AEE69C88E381AEE697A5E695B0E38292E8BF94E38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tDays = Val(Y_NthField("31,28,31,30,31,30,31,31,30,31,30,31", ",",tMonth)) tinteger = tyear tinteger = tmonth 2F2FE9968FE5B9B4E381AAE38289EFBC92E69C88E381ABEFBC91E58AA0E7AE97202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If (tMonth = 2) And IsLeapYear(tYear) Then tDays = tDays + 1 End If Return tDays End Function 1 IsLeapYear tYear as Integer Boolean 0 9 19 9 19 134217984 Function IsLeapYear(tYear as Integer) As Boolean 2F2FE996A2E695B0E8AAACE6988EEFBC9AE68C87E5AE9AE38195E3828CE3819FE5B9B4E3818CE9968FE5B9B4E3818BE6B182E38281E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9AE5B9B4202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE9968FE5B9B4E381AAE3828954727565202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F31322F3231284D6F6E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE382ABE383ACE383B3E38388E5B9B4E3818CE9968FE5B9B4E381AAE3828954727565202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Return (tYear Mod 4 = 0) And ((tYear Mod 100 <> 0) Or (tYear Mod 400 = 0)) //1920/1/1 Thursday End Function 1 ReturnDate tStartDate as String,tEndDate as String Integer 0 19 64 19 64 134217984 Function ReturnDate(tStartDate as String,tEndDate as String) As Integer 2F2FE996A2E695B0E8AAACE6988EEFBC9AE9968BE5A78BE697A5E3818BE38289E7B582E4BA86E697A5E381BEE381A7E4BD95E697A5E38182E3828BE3818BE6B182E38281E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9AE9968BE5A78BE697A5E38081E7B582E4BA86E697A5202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9AE3819DE381AEE99693E381AEE697A5E695B0202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F31322F3231284D6F6E29202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tStartDay as Integer Dim tEndDay as Integer Dim tTemp as Integer Dim i as integer 2F2FE9968BE5A78BE697A5E381A8E7B582E4BA86E697A5E38292E5BE97E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tStartDay = Val(Y_NthField(tStartDate,"/",3)) tEndDay = Val(Y_NthField(tEndDate,"/",3)) 2F2FE7B582E4BA86E697A5E380802DE38080E9968BE5A78BE697A5E380802BE3808031202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tTemp = tEndDay - tStartDay + 1 2F2FE69C88E381AEE58886E381A0E38191E383ABE383BCE38397E38197E381AAE3818CE38289E697A5E695B0E38292E58AA0E38188E381A6E38184E3818F202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F tStartDay = Val(Y_NthField(tStartDate,"/",1)) * 100 + Val(Y_NthField(tStartDate,"/",2)) tEndDay = Val(Y_NthField(tEndDate,"/",1)) * 100 + Val(Y_NthField(tEndDate,"/",2)) For i = tStartDay to tEndDay - 1 tTemp = tTemp + GetDaysOfMonth(Val(LeftB(Str(i),4)),Val(RightB(Str(i),2))) 2F2FE69C88E3818CE3808E3132E3808FE381ABE381AAE381A3E3819FE38289E3808E3838E3808FE38292E8B6B3E38197E381A6E5B9B4E38292E980B2E38281E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F If RightB(Str(i),2) = "12" Then i = i + 88 End If Next Return tTemp End Function 1 IncDay tDate as String String 0 13 21 13 21 134217984 Function IncDay(tDate as String) As String 2F2FE996A2E695B0E8AAACE6988EEFBC9A59592F4D4D2F4444E38292E58F97E38191E381A6E4B880E697A5E980B2E38281E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A59592F4D4D2F4444202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A59592F4D4D2F4444202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F31322F32322854756529202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tYear as Integer Dim tMonth as Integer Dim tDay as Integer Dim tReturnString as String tYear = Val(Y_NthField(tDate,"/",1)) tMonth = Val(Y_NthField(tDate,"/",2)) tDay = Val(Y_NthField(tDate,"/",3)) tDay = tDay + 1 If tDay > GetDaysOfMonth(tYear,tMonth) Then tDay = 1 tReturnString = IncMonth(Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + Str(tDay)) Else tReturnString = Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + Str(tDay) End If Return tReturnString End Function 1 DecDay tDate as String String 0 14 21 14 21 134217984 Function DecDay(tDate as String) As String 2F2FE996A2E695B0E8AAACE6988EEFBC9A59592F4D4D2F4444E38292E58F97E38191E381A6E4B880E697A5E688BBE38199202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A59592F4D4D2F4444202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A59592F4D4D2F4444202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939382F31322F32322854756529202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BFAEE6ADA3E697A5E38080EFBC9A313939392F30312F30362857656429E38080EFBC91E697A5E381AEE5898DE697A5EFBC883DE5898DE69C88E381AEE69CABE697A5EFBC89E381AEE8A888E7AE97E3818CE99693E98195E381A3E381A6E38184E3828BE381AEE38292E4BFAEE6ADA3202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tYear as Integer Dim tMonth as Integer Dim tDay as Integer Dim tReturnString as String tYear = Val(Y_NthField(tDate,"/",1)) tMonth = Val(Y_NthField(tDate,"/",2)) tDay = Val(Y_NthField(tDate,"/",3)) tDay = tDay - 1 If tDay = 0 Then tMonth = tMonth - 1 If tMonth = 0 Then tYear = tYear - 1 tMonth = 12 End If tDay = GetDaysOfMonth(tYear,tMonth) End If tReturnString = Str(tYear) + "/" + ZeroSup(tMonth,2) + "/" + Str(tDay) Return tReturnString End Function 1 FloorBug tDouble as Double Double 0 5 68 5 68 134217984 Function FloorBug(tDouble as Double) As Double 2F2FE996A2E695B0E8AAACE6988EEFBC9A466C6F6F72E4BDBFE794A8E69982E381AEE5958FE9A18CE38292E8A7A3E6B1BAE38199E3828B202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE5BC95E3818DE695B0E38080EFBC9A446F75626C65202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE8BF94E3828AE580A4E38080EFBC9A446F75626C65202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE4BD9CE68890E697A5E38080EFBC9A313939392F30312F31352846726929202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F 2F2FE58299E88083E38080E38080EFBC9A446F75626C65E38292E4BDBFE794A8E38197E381A6E38282E7B2BEE5BAA6E4B88AE5958FE9A18CE3818CE799BAE7949FE38199E3828BE381AEE381A7E38193E381AEE996A2E695B0E381A7E59B9EE981BF202F2F203C2D2D20E5A489E68F9BE38195E3828CE381BEE38197E3819F Dim tString as String Dim tReturnDouble as Double tString = format(tDouble - Ceil(tDouble - 1) + 0.000000001,"#.000000000000000000000") If Val(tString) >= 1 Then tReturnDouble = Ceil(tDouble) Else tReturnDouble = Floor(tDouble) End If Return tReturnDouble End Function 1 OutPrintP tGraph as Graphics,tX as Integer,tY as Integer,tString as String,posiset as string 0 1 0 1 0 134217984 Sub OutPrintP(tGraph as Graphics,tX as Integer,tY as Integer,tString as String,posiset as string) If Trim(posiset) = "L" Then tGraph.DrawString tString,tX + gScreenX+30,tY + gScreenY ElseIf Trim(posiset) = "M" Then wDrawString(tGraph, tString,tX + gScreenX+30,tY + gScreenY,60) ElseIf Trim(posiset) = "R" Then rDrawString(tGraph,tString,(tX + gScreenX+30)+80,tY + gScreenY) Else tGraph.DrawString tString,tX + gScreenX+30,tY + gScreenY End IF End Sub 1 OutPlotP tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer 0 1 89 1 89 134217984 Sub OutPlotP(tGraph as Graphics,tObjL as Integer,tObjT as Integer,tObjR as Integer,tObjB as Integer) tGraph.DrawLine tObjL + gScreenX+30,tObjT + gScreenY,tObjR + gScreenX+30,tObjB + gScreenY End Sub 1 CenterPrintP tGraph as Graphics,tString as String,tLeft as Integer,tRight as Integer,tTop as Integer,tBtm as Integer 0 13 69 13 69 134217984 Sub CenterPrintP(tGraph as Graphics,tString as String,tLeft as Integer,tRight as Integer,tTop as Integer,tBtm as Integer) Dim tPrintSizeLR as Integer Dim tPrintSizeTB as Integer Dim tStringSize as Integer Dim tGomi as String tStringSize = tGraph.StringWidth(tString) tPrintSizeLR = ((tRight - tLeft) - tStringSize) / 2 tGomi = LeftB(tString,2) tStringSize = tGraph.StringWidth(tGomi) tPrintSizeTB = ((tBtm - tTop) - tStringSize) / 2 OutPrintP tGraph,tLeft + tPrintSizeLR,tBtm - tPrintSizeTB,tString,"L" End Sub Module1 0 -1000 100001107 -1000 0 Module1 24 0 1 lDrawString g as Graphics, s as String, x as Integer, y as Integer 0 7 22 7 22 134217984 Sub lDrawString(g as Graphics, s as String, x as Integer, y as Integer) dim i as integer dim cnt as integer dim fw as integer dim lens as String dim c as string fw = g.stringWidth("00") / 2 cnt = len(s) for i=1 to cnt c = y_mid(s,i,1) g.DrawString c,x+(lenB(lens)-1)*fw,y lens=lens+c next End Sub 1 wDrawString g as Graphics, s as String, x as Integer, y as Integer, w as Integer 0 12 12 12 12 134217984 Sub wDrawString(g as Graphics, s as String, x as Integer, y as Integer, w as Integer) dim i as integer dim cnt as integer dim tW as double if len(s) = 1 then g.DrawString s,x+w/2-g.stringWidth(s)/2,y return else tW = w - g.stringWidth(right(s,1)) end if cnt = len(s) for i=1 to cnt g.DrawString y_mid(s,i,1),x+tW/(cnt-1)*(i-1),y next End Sub 1 rDrawString g as Graphics, s as String, x as Integer, y as Integer 0 8 22 8 22 134217984 Sub rDrawString(g as Graphics, s as String, x as Integer, y as Integer) dim i as integer dim cnt as integer dim fw as integer dim lens as String dim c as string dim tx as integer fw = g.stringWidth("00") / 2 cnt = len(s) tx = x - lenB(s) * fw for i=1 to cnt c = y_mid(s,i,1) g.DrawString c,tx+(lenB(lens)-1)*fw,y lens=lens+c next End Sub App 0 -1000 100001107 -1000 1 App 28 Application 0 1 2