部活でVBの課題を提出しなければいけないのですが、わからないところがあるので教えてください。
作品はn+1を選択したラジオボタンの数だけループさせて、その時間を計測する簡単なベンチマークソフトです。
1.MsgBoxの”処理時間を計測します”が出てから、 ラベルKanryoのTextを"処理中"にしたい
2.28行目 Kekka.Text = Jikan & "(秒)"のところの小数点が多すぎるので3位以下を切り捨てにしたい
3.このイベントプロシージャとは別にCPUの名前・周波数を取得したい
コードは省略してますが次の様になっています。
1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
2
3 Dim Hajime As Double
4 Dim Owari As Double
5 Dim Jikan As Double
6 Dim n As Integer
7
8 Kekka.Text = ""
9 Kanryo.Text = ""
10
11 If RadioButton1.Checked = True Then’ループの回数をラジオボタンから選択する
12
13 MsgBox("処理時間を計測します")
14 Kanryo.Text = "処理中"
15 Hajime = Microsoft.VisualBasic.DateAndTime.Timer
16
17
18 For n = 1 To 50000
19 Kekka.Text = n
20 n = n + 1
21 Next n
22
23
24 Owari = Microsoft.VisualBasic.DateAndTime.Timer
25 Jikan = Owari - Hajime
26 Kanryo.Text = "完了"
27
28 Kekka.Text = Jikan & "(秒)"
29
30
31(省略)
32
33 End If
34 Button1.Enabled = True
35 End Sub
8日までに提出なのでぎりぎりです。
皆様の力を貸してください!お願いします!
No.1ベストアンサー
- 回答日時:
Windowsではメッセージポンプといった仕組みで描画を行うようになっています
これは、各プロシージャなどで設定されたコントロールのTextプロパティなどの描画を行う仕組みになります
プロシージャ内では一般的にはこのメッセージポンプは働いていません
VB.NETなら Application.DoEvents()
VB6.0以前なら DoEvents
を実行することによりこのポンプが働きます
または、コントロール側のRefreshメソッドを実行することでも再描画してくれる場合もあります
小数点以下の桁数の制限をしたいのであれば Format関数やVB.NETならオブジェクトのToStringメソッドの引数の与え方などを調べてみましょう
単に小数点以下3桁にしたいのなら
dim ss as String = Jikan.ToString
dim n as Integer = ss.IndexOf(".")
ss = ss.SubString( 0, n + 3 )
といった手法もあります
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C# テキストボックスについて
-
描画をコピーする方法
-
C# DataGridView のCellPaintin...
-
VB.NETのSendMessageを教えてく...
-
3Dの網目
-
描画してもウィンドウをリサイ...
-
C#のGraphicsクラスについてです。
-
複数画像表示切り替え Visual c++
-
C# リストビューの特定のセルの...
-
VB.NET フォーム上に描いたグ...
-
ドラッグして矩形を描くには
-
JAVAでの背景画像表示
-
変数名の付け方
-
レコード件数の表示
-
「タイプ初期化子が例外をスロ...
-
エクセルVBAで、条件に一致する...
-
JSPで<SELECT>の中にDBから持っ...
-
複数の変数を宣言する時、同時...
-
オブジェクト指向プログラミン...
-
servletからjspへオブジェクト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.NET フォーム上に描いたグ...
-
VB.NETのSendMessageを教えてく...
-
JAVAでの背景画像表示
-
C# DataGridView のCellPaintin...
-
C# リストビューの特定のセルの...
-
重なった要素上でのイベントで...
-
画面のちらつきの原因が知りた...
-
Androidで画像の中で指定した範...
-
複数画像表示切り替え Visual c++
-
Labelコントロールの背景をグラ...
-
VS Treeview のデザイン変更
-
描画処理が実行されない
-
GDI+で描画した画像を消去する...
-
canvasで表示されてる画像を1...
-
このプログラミングをどう組み...
-
ドラッグして矩形を描くには
-
getGraphics()の意味を教えて...
-
DirectXのスプライト機能で3D回転
-
Canvas等の図形を移動する時,直...
-
Exception occurred during eve...
おすすめ情報