2017-02-11 2 views
0

場合、私は30テキストボックスを持っていますが、時々、あなたはテキストボックスが空白の場合、すべてのテキストボックスに入力する必要がいけないため、のsytemはとり、それはゼロと、それチャートの結果に影響を与えます。 (私は、チャート上のゼロ点を見たいと思ってはいけない)終了し、私は次のループのために私のプロジェクトの(ための出口を)解決しようとしていますthextboxヌル

私たちは私が出口を使用できますが、今、私は、グラフ上で何も見えないことができないと思った、どのように私は塗りつぶされたテキストボックスを計算することができ、私を助けてください。

、あなたはループを存在する必要はありませんが、与えられたテキストボックスがnullの場合は、あなたのループを継続するために、ここではこのような何か

Dim Guc (59) as decimal 

Guc(1) = Val(TextBox5.Text)*Val(Textbox98.Text) 
. 
. 
. 

Guc(59) = Val(TextBox42.Text)*Val(Textbox12.Text) 


For i = 1 To 59 Step 2 

     Dim txt As TextBox = CType(TabControlPanel1.Controls("TextBoxX" & i), TextBox) 

     Hız1 = Val(txt.Text) * 5 

     Power1 = guc(i) * 3.14/(30 * 1000) *2 

     ChartControl4.Series("Series 1").Points.Add(New SeriesPoint(Hız1, Power1)) 


Next 

答えて

0

を私のコードを参照してください:

... 
    Dim txt As TextBox = CType(TabControlPanel1.Controls("TextBoxX" & i), TextBox) 
    If txt Is Nothing Then Continue For 
... 

OR場合をあなたのテキストボックスを使用すると、その後、0をチェックし、値が0であれば継続し、NULLになりますが値として0を持っていません。

Dim txt As TextBox = CType(TabControlPanel1.Controls("TextBoxX" & i), TextBox) 
    If Val(txt.Text) = 0 Then Continue For 

Continue Forはループ制御を次の反復に切り替えるので、すべてのチェックボックスを通過し、非ゼロ点と0以外の点のみをグラフに追加します。

HTH

+0

おかげアンドリュース、私はそれが同様に働いた理解が、私は16個のシリーズを持っている一つの質問があり、私はチャートにのみ6シリーズを見たいのですが、私は6個のシリーズを選択し、私はseries7を見ますx軸0でもy axsisに値がありますが、どうすれば修正できますか? ChartControl3.Series( "シリーズ1")。Points.Add(新SeriesPoint(ヴァル(txt.text)、Hız1)) – emraharslan

+0

@emraharslanうーん、私はあなたのチャートHTMLマークアップを確認する必要があるかもしれません。これをやろう。私の答えが現在の質問を解決するのに役立つなら、plsはそれを受け入れます(下の矢印の下にあるチェックボックス)。その後、グラフのマークアップとあなたが得るもののスクリーンショットで別の質問を投稿してください。私はあなたを助けようとします。いくつかの質問が混在しているので、SOは好きではありません。 – andrews

+0

@emraharslan '[devexpress]'タグの下に新しい質問がありません。あなたはすぐにそれを投稿するつもりですか? – andrews

関連する問題