Console.ReadLineが有効にならない
- VB2008でConsole.ReadLineを使用してキーボードからの入力を受け取るプログラムを作成しましたが、正常に動作しません。
- キーボードからの入力ができず、結果が表示された後にプログラムが終了してしまいます。
- VB2008の環境設定を調べましたが、解決策が見つかりませんでした。
- ベストアンサー
Console.ReadLineが有効にならない
VB2008で下記の記述を入れてみました。 Suｂ test() Dim inStr As String Dim inNum As Double ' キーボードから入力 Console.WriteLine("実数を入力") inStr = Console.ReadLine() ' 文字列を実数に変換 If (Not inStr = "") Then inNum = Double.Parse(inStr) inNum = inNum / 2 ' 結果を表示 Console.WriteLine("結果：" & inNum) End Sub この場合, 上記Console.RealLine()で キーボードから入力ができるとの解説が、 いろりろ出ていますが、小生のプログラムでは、入力できず、上記"結果"を表示して、 終了してしまい困っています。 VB2008のオプションで環境などを調べたのですが、よくわかりません。 どなたか、ご存じの方がいらしゃれば、ご指導をお願いいたします。 当方の環境 OS Vistaです。 OS Xpで行っても同じでした。 VB2008は、Visual Studio 2008 です。上記OSには、同じ環境で行っています。
- mokey
- お礼率29% (7/24)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
こちらでプログラムを試してみたのですが、問題なく動きますね。プログラム自体は正しいようです。（ Test() メソッドは直接動かせないので、SubMain() メソッドから Test() メソッドを呼び出して実験しました ） このプログラムは『コンソールアプリケーション』で作成していますよね？ 『Windows フォーム アプリケーション』 では Console.ReadLine() は動きませんよ。
関連するQ&A
- VB.NETのデリゲートについて
VB.NETのデリゲートについて質問です。 以下のプログラムなのですが、 デリゲート型をインスタンス化しているところで、コンストラクタにパラメータを渡していますが、 そのコンストラクタはどこに定義されているのでしょうか。 (AddressOf t1.Ohayou)というパラメータが渡されていますが、このパラメータを受け取っているコンストラクタがどれなのかが分かりません。 ご教示よろしくお願いいたします。 Delegate Sub Myprint(ByVal s As String) Module Module1 Sub Main() Dim t1 As Test1 = New Test1() Dim t2 As TEst2 = New Test2() Dim d As Myprint = New Myprint(AddressOf t1.Ohayou) d.Invoke("VB太郎") d = New Myprint(AddressOf t2.Konbanwa) d.Invoke("VB太郎") End Sub End Module Class Test1 Sub Ohayou(ByVal s As String) Console.WriteLine("おはようございます。{0}です。", s) End Sub End Class Class Test2 Sub Konbanwa(ByVal s As String) Console.WriteLine("こんばんわ。{0}です。", s) End Sub End Class
- 締切済み
- Visual Basic
- VB.NETSystem.Xml 要素数を得るには
VB.NETでSystem.Xmlを参照設定して以下のXMLファイル(test.xml)のsub4_9のtestの個数を得たいのですが domNode = domDoc.SelectSingleNode("top/sub4_9/test") Console.WriteLine("Count of top/sub4_9/test = " & domNode.?????) というようにしましたが?????の部分にLengthやCountがありません。 また、 rootElement = domDoc.DocumentElement domNodeList = rootElement.GetElementsByTagName("sub4_9/test") Console.WriteLine("Count of top/sub4_9/test = " & domNodeList.Count) というようにもしてみましたが個数は誤った0が返されます。 どのように記述すればsub4_9のtestの個数を得ることができるでしょうか。 ----test.xml------------- <top> <sub1_1> <test>123</test> <test>451</test> : </sub1_1> : <sub4_9> <test>432</test> <test>123</test> <test>745</test> : </sub4_9> : <sub9_5> <test>222</test> : </sub9_5> </top> --VB.NET------------------------ Imports System.Xml Imports System.IO Module Module1 Sub Main() Dim domDoc As New XmlDocument Dim domNode As XmlNode Dim domNodeList As XmlNodeList Dim rootElement As XmlElement domDoc.Load("test.xml") rootElement = domDoc.DocumentElement domNode = domDoc.SelectSingleNode("top/sub4_9/test") Console.WriteLine("Count of top/sub4_9/test = " & domNode.?????) domNodeList = rootElement.GetElementsByTagName("sub4_9/test") Console.WriteLine("Count of top/sub4_9/test = " & domNodeList.Count) End Sub End Module ----------------------------------- よろしくお願いします (WindpwsXP,VisualStudio2010)
- ベストアンサー
- Visual Basic
- vb.netでByte型の実配列サイズが大きい件
vb.netでByte型の配列を100byteで宣言しましたが、実際の配列サイズは101byteになりました。 (例) Module Module1 Sub Main() Dim buffSize As Integer = 100 Dim inputBuff(buffSize) As Byte Dim ii As Integer = inputBuff.Length Console.WriteLine("バッファサイズ = {0}", ii) End Sub End Module ここで、iiは、101となります。 CとかC++では、有り得ない仕様ですが、どういう意味が有るのでしょうか？ ご教示お願い致します。
- ベストアンサー
- SE・インフラ・Webエンジニア
- ＶＢ．ＮＥＴで子ウィンドウの列挙の仕方がわかりません。
VB.NET+FrameWork1.1環境なのですが、 子ウィンドウの取得の仕方がどうしてもわからず教えて頂きたいです。 Dim Oya As Long Oya = FindWindow(vbNullString, "電卓") Dim Ret As Long Ret = EnumChildWindows(Oya, AddressOf EnumChildWnd, 0) このようにして使うＡＰＩのようなのですが、 デリゲート型をLong型に変換できませんと出てしまいます。 色々検索してみたのですが、それらしい記事が見つかるも どうしても理解できず、正常に動作させることが出来ませんでした。 もうしわけございませんが、どなたか実行可能なコードを書いて いただけないでしょうか。 出力結果はConsole.WriteLineに出るようにして頂けると助かります。 よろしくお願いいたします。ｍ（＿＿）ｍ
- ベストアンサー
- Visual Basic
- ファイルを開く際に規定のexeを知る方法について VB.NET
ＶＢ．ＮＥＴとFramework1.1の開発環境です。 mp3ファイルなどがダブルクリックされた際に 自動で開くアプリケーションが何なのかを知りたいのですが、 レジストリキーを調べるということで間違いはないでしょうか？ それで、それを取得しようと下記のようなソースで試してみた のですが、どうしてもstrにはNothingしか入りません。 間違っている箇所などありましたらその箇所をご教授頂けないでしょうか。 宜しくお願いいたします。 Dim regkey As Microsoft.Win32.RegistryKey = _ Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("mp3file\shell\open\command", False) If (regkey Is Nothing) Then Return Nothing Dim str As String str = CType(regkey.GetValue("REG_SZ"), String) Console.WriteLine(str) str = regkey.GetValue("string") Console.WriteLine(Str)
- ベストアンサー
- Visual Basic
- 配列
エクセルｖｂａなのですが Sub test() ' 配列 Dim arr() As Integer= {0, 1, 2, 3, 4, 5} ' 抜き出した要素を格納するための変数 Dim i As Integer ' すべての要素について繰り返す For Each i In arr Console.WriteLine (i) Next End Sub これって何でエラーになるのでしょう？ Dim arr() As Integer= {0, 1, 2, 3, 4, 5} でエラーになりますが、なぜだかわかりません。
- ベストアンサー
- Visual Basic
- CSVのRegexでの分割
期待する結果が得られる正規表現を教えて下さい。 環境はVS2008,FW3.5です。 Module Module1 Sub Main() Dim sBuf As String = """abc,xyz"",""123,456"",777,333" Dim sPtm As String sPtm = "\s*(""(?:[^""]|"""")*""|[^,]*)\s*," Dim oRegex As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(sPtm) Dim sLineData As String() = oRegex.Split(sBuf) For iLoop As Integer = 0 To sLineData.Length - 1 System.Console.WriteLine("{0} : {1}", iLoop, sLineData(iLoop)) Next End Sub End Module 実行結果 0 : 1 : "abc,xyz" 2 : 3 : "123,456" 4 : 5 : 777 6 : 333 期待する結果 0 : "abc,xyz" 1 : "123,456" 2 : 777 3 : 333
- 締切済み
- Visual Basic
- ArrayListに格納したクラス内のメンバの呼び出し方法(VB)
お世話になります。VB2003でご質問があります。 通常Arryalistでは下記例1のように使用するのが一般的だと思うのですが、例2のようにArryaListにクラスを追加し、その中のメンバを呼び出すにはどのようにコーディングすればよいのでしょうか？ コメントのコンパイルエラー箇所の部分です。 お手数ですが、ご教授よろしくお願いいたします。 ******************************************* (例1) Dim Test as new ArrayList Test.ADD("テスト") console.writeline(test(0)) ******************************************* ******************************************* (例2) Public Class A public strA as string public sub subTest() strA = "おはよう" end sub End Class Public Class B Dim a as new ArrayList a.Add(new A) a(0).subTest '--コンパイルエラー箇所 console.writeline(a(0).strA) '--コンパイルエラー箇所 End Class *******************************************
- ベストアンサー
- Visual Basic
- visual studio 2005 VB のコンソールアプリに関して
やりたいこと： exeファイルを作成する。 そのexeファイルをダブルクリックすると、 コンソールが表示され、1,2,3,4,・・・・と表示を続ける。 キーボードの"q"が入力されると表示が停止する。 下記のソースコードで、コンソールが表示、1,2,3,4,・・・と表示、まではできたようです。 //////////////////// Module Module1 Sub Main() Dim number As Integer number = 1 Do Console.WriteLine(number) number = number + 1 Loop End Sub End Module //////////////////// できたというのは、VisualStudio上でF5キーを押してうまくいった、 ということです。 あとは、 ・キーボードの"q"の入力受付&停止処理 ・exeファイルを作成する ですが、コンソールアプリの情報がなかなかWEBから手に入りません。 有識者の方、ご教授いただけませんでしょうか。 プログラミング経験は、 PHPを半年ほどやっているだけです。 よろしくお願いします。 以上
- ベストアンサー
- Visual Basic
- vb2005でXmlReaderの使い方
xmlファイルの読込がうまくいきません。どこが間違っているでしょうか。 参考にしたページ http://msdn.microsoft.com/ja-jp/library/ayf5ffy5(v=vs.80).aspx －－－－－xmlファイルここから－－－－－ <root> <parentnode1> <childnode1>100</childnode1> </parentnode1> <parentnode2>20</parentnode2> </root> －－－－－xmlファイルこまで－－－－－ －－－－－コードここから－－－－－ Sub Main() Dim b As Boolean Dim objXmlR As XmlReader = XmlReader.Create("c:\temp\sample.xml") objXmlR.MoveToContent() b = objXmlR.ReadToDescendant("parentnode1") Console.WriteLine(objXmlR.Name) '「parentnode1」を出力 Console.WriteLine(objXmlR.Value) '「」を出力 b = objXmlR.ReadToDescendant("childnode1") Console.WriteLine(objXmlR.Name) '「childnode1」を出力 Console.WriteLine(objXmlR.Value) '「」を出力。ここで「100」が出て欲しい End Sub －－－－－コードここまで－－－－－ 基本的なことだと思いますがよろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
早速のご回答有難うございます。 小生は,通常フォームアプリケーションで使用していますので,コンソールアプリケーションでしか 動作しないとは、気が付きませんでした。 初歩的な事でお手を煩わしました。 心より、お礼を申し上げます。有難うございました。