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

今晩は、JAVA初心者です、宜しくお願いします。

＜public void actionPerformed( ActionEvent e ){}＞
を以下のように、＜btn.addActionListener( )＞以外から、
呼び出したいのですが、引数の取り方がわかりません。

色々な変数を入れたり、キャストもしてやりましたが、
エラーばかりです。

どなたか詳しい方宜しくご教示お願い致します。

===============================================================

	SampleTest()
	{
	    this.setBounds( 10 , 10 , 300 , 200 ) ;

	    btn = new JButton("ボタン") ;
	    btn.addActionListener( this ) ;

	    p = new JPanel() ;
	    p.add ( btn ) ;
	    this.add( p ) ;

//	    actionPerformed( ?????? );

	}
	  public void actionPerformed( ActionEvent e )
	  {
		  if( btn == (JButton)e.getSource() )
		  {
			  p.setBackground( Color.yellow ) ;
		  }
		  else
		  {
			 System.out.println("Error!!");
		  }
	  }

===================================================================

■No86436 (mako さん) に返信


若干違うかもしれませんが
以下のようにNullの要素を追加するとそこだけデータがプロットされません。
時間の項目に文字列を使うのはグラフ上扱いにくいのでグラフ用のDataTableを
用意されて時間項目はDateTime型にされた方がよいです。
DataTable１つの場合はDataSetを使う必要はなくDataTable直接でよいです。

        _tbl = New DataTable()
        With _tbl.Columns
            .Add("t", GetType(DateTime))
            .Add("y1", GetType(Integer))
            .Add("y2", GetType(Integer))
        End With

        With _tbl.Rows
            .Add(Date.Today.AddHours(8).AddMinutes(45), 30, 2)
            .Add(Date.Today.AddHours(9).AddMinutes(0), 20, 3)
            .Add(Date.Today.AddHours(9).AddMinutes(15), 20, 3)
            .Add(Date.Today.AddHours(9).AddMinutes(30), 5, 4)
            .Add(Date.Today.AddHours(9).AddMinutes(45), 10, 8)
            .Add(Date.Today.AddHours(10).AddMinutes(0), 15, 10)
            .Add(Date.Today.AddHours(10).AddMinutes(15), DBNull.Value, DBNull.Value)
            .Add(Date.Today.AddHours(10).AddMinutes(30), DBNull.Value, DBNull.Value)
            .Add(Date.Today.AddHours(11).AddMinutes(15), 5, 3)
            .Add(Date.Today.AddHours(11).AddMinutes(30), 20, 15)
            .Add(Date.Today.AddHours(11).AddMinutes(45), 5, 3)
            .Add(Date.Today.AddHours(12).AddMinutes(0), 10, 8)
            .Add(Date.Today.AddHours(12).AddMinutes(15), 20, 10)
        End With

        Chart1.DataSource = _tbl
        With Chart1.ChartAreas(0)
            With .AxisX
                .Minimum = Date.Today.AddHours(8).AddMinutes(45).ToOADate
                .Maximum = Date.Today.AddHours(12).AddMinutes(15).ToOADate
                .IntervalType = DataVisualization.Charting.DateTimeIntervalType.Minutes
                .Interval = 30


                Dim isFirst = True
                For Each row In _tbl.Select("", "t")
                    Dim dt = row.Field(Of Date)("t")
                    If isFirst OrElse dt.Minute = 0 OrElse dt.Minute = 30 Then
                        With .CustomLabels.Add(dt.AddMinutes(-3).ToOADate, dt.AddMinutes(3).ToOADate, dt.ToString("HH:mm"))
                            .RowIndex = 0
                        End With
                    End If
                    isFirst = False
                Next


            End With
        End With
        With Chart1.Series(0)
            .XValueMember = "t"
            .YValueMembers = "y1"
        End With
        With Chart1.Series.Add("")
            .ChartType = SeriesChartType.Line
            .EmptyPointStyle.Color = Color.Transparent
            .XValueMember = "t"
            .YValueMembers = "y2"
        End With

■No87964 (河童 さん) に返信
> 値としては、
> 43330.0
> が入っています。
Excel の数式バーにも、そう表示されている状態なのでしょうか。


> エクセル側で日付のみ入力するようにして
> 数値の判定はしなくていいようにします。
「43330.0」なのであれば、DataType プロパティの返却値は
XLDataType.Number または XLDataType.Text であろうかと思います。

まずは TryGetValue<DateTime> で取得し、それが false を返すようなら
続けて TryGetValue<Double> で受けるようにすれば、日付でも数値でも受け取れるので、
数値なら FromOADate で日付化する流れにしてみてはどうでしょう。


ただし、日付値を使う場合の注意点として：

(1) Excel で日付値としてとりうる数値リテラルの範囲は、
　Double 精度で「0.0以上 1.0未満」および「1.0 以上 2958465.9999942197 以下」となります。
　負数や 2958465.99999422 以上は日付値として扱うことができません。

(2) OADate 値は「-657434.99999999988 以上 2958465.9999999939 以下」をサポートします。
　-657434.0 以下や 2958465.9999999944 以上は NG です。
　OADate の最大値は、Excel の最大値より 5.7742E-06 だけ大きい値です。

(3) OADate の「61.0 以上」が指す範囲の日付値は、Excel 側の日付値と一致します。
　なお、61.0 は『1900/03/01 00:00:00』を指します。

(4) OADate の「1.0 以上 60.0 未満」が指す範囲の日付値は、Excel 日付の前日を指します。
　Excel 側では 2.0 を『1900/01/02 00:00:00』として扱います。
　OADate側では 2.0 を『1900/01/01 00:00:00』として扱います。
　Excel 側では 1.0 を『1900/01/01 00:00:00』として扱います。
　OADate側では 1.0 を『1899/12/31 00:00:00』として扱います。

(5)「60.0以上 61.0未満」の範囲は、OADate 側では
　『1900/02/28 00:00:00〜1900/02/28 23:59:59』を指しますが、
　Excel 側においては、本来は存在しないはずの うるう日 である
　『1900/02/29 00:00:00〜1900/02/29 23:59:59』を指します。

(6)「0.0以上 1.0未満」の範囲は、OADate 側では
　『1899/12/30 00:00:00〜1899/12/30 23:59:59』を指しますが、
　Excel 側においては、特殊な日付値として
　『1900/01/00 00:00:00〜1900/01/00 23:59:59』を意味します。