C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


■86499 / )  Re[7]: ChartのX軸のタイトル表示
□投稿者/ mako (14回)-(2018/02/07(Wed) 07:57:20)
2018/02/07(Wed) 08:03:41 編集(投稿者)
No86485 (shu さん) に返信


連続した時間(分)の最初のデータのみに '*' マークを付けることで、空白の対処活用をすることは出来ないでしょうか?

    Private Structure datF
        Dim Jikoku As String      '時刻 (実際は "2018/01/30 16:30:00" などの日付も入った文字列)
        Dim Suu1 As Integer       '数量1
        Dim Suu2 As Integer       '数量2
        Dim mark As String        '連続した時間の最初のデータのみに '*' マークを付ける。
    End Structure
    Dim Uridat(500) As datF
    Dim datS As Integer          



        ' 8:10〜8:45           
        For i = 10 To 45        ' 8:10〜8:45
            datS = datS + 1
            Uridat(datS).mark = " "
            Uridat(datS).Jikoku = $"8:{i:00}"    '時刻
            Uridat(datS).Suu1 = i * 10           '数量1
            Uridat(datS).Suu2 = i * 5            '数量2 

            Uridat(datS).mark = " "
            If i = 10 Then
                Uridat(datS).mark = "*"          ' "*" マーク
            End If
        Next

        ' 10:20〜11:55
        For i = 0 To 59        ' 10:20〜10:59
            datS = datS + 1
            Uridat(datS).Jikoku = $"10:{i:00}"     '時刻
            Uridat(datS).Suu1 = i + 100            '数量1
            Uridat(datS).Suu2 = i + 20             '数量2

            Uridat(datS).mark = " "
            If i = 0 Then
                Uridat(datS).mark = "*"            ' "*" マーク
            End If
        Next
        For i = 0 To 55        ' 11:00〜11:55
            datS = datS + 1
            Uridat(datS).Jikoku = $"11:{i:00}"     '時刻
            Uridat(datS).Suu1 = i + 100            '数量1
            Uridat(datS).Suu2 = i + 20             '数量2

            Uridat(datS).mark = " "
        Next

返信 編集キー/


管理者用

- Child Tree -