プログラミングソフトすべて クチコミ掲示板

コードにエラーがある？

[prtwqq]

ビジュアルベーシックについて、勉強しようと思いある本を
購入しました。
その本の中に、簡易なプログラム作成という章があり
意味が不明ですが、そこに書いているプログラムの通りに
以下のコードを入力しました。
このプログラムは、win標準装備のペイント、電卓、ワードパッドを
ボタンを押して起動させるプログラムです。


Option Explicit
Const PROG_NAME As String = "MyLauncher"
Const SECTION_NAME As String = "Settings"
Const LEFT_NAME As String = "Left"
Const TOP_NAME As String = "Top"
Private Sub Form_Load()
frmLauncher.Left = GstSetting(PROG_NAME, SECTION_NAME, LEFT_NAME, 0)
frmLauncher.Top = GetSetting(PROG_NAME, SECTION_NAME, TOP_NAME, 0)

End Sub

Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting(PROG_NAME, SECTION_NAME, LEFT_NAME, frmLauncher.Left)
Call SaveSetting(PROG_NAME, SECTION_NAME, TOP_NAME, frmLauncher.Top)
End Sub


Private Sub cmdLaunch_Click(Index As Integer)
Call Shell(cmdLaunch(Index).ToolTipText, vbNormalFocus)
End Sub




Private Sub Label1_Click()

End Sub

Private Sub Text1_Change()


End Sub


ここまでがコードです。
ファイルからプログラムの作成を選択すると

コンパイル中と出て、

Private Sub Form_Load()
frmLauncher.Left = GstSetting(PROG_NAME, SECTION_NAME, LEFT_NAME, 0)
のGstSettingのところで、

コンパイルエラー
subまたはfunctionが定義されていませんト出ます。


情報はこれだけですが、もし分かる方がおられたら
教えて下さい。

書込番号：4158094

[ｈｏｔman]

インタプリタの状態でデバッグしてみてはどうですか？

書込番号：4158130

[ｈｏｔman]

↑

ごめん GetSetting が GstSetting になってる！

VBなんて10年以上コーディングしてないんで、なんか感が戻らないもんで．．．。

書込番号：4158144

[prtwqq]

ｈｏｔman　さん へ

回答ありがとうございました。
スペルを訂正するとコンパイルに成功しました。
ところが、作成したプログラムの電卓ボタン、ワードパッドボタン
ペイントボタンのどれを押しても、


実行時エラー53

ファイルが見付かりません。

と表示されます。

コードの記述に不備があるのでしょうか？

書込番号：4158193

[ｈｏｔman]

そこから先はご自分で悩んでください、それがスキルにつながります。



．．．といって逃げる（最近プログラミングやってないもんな．．．）

でも、きっと親切な人が、書き込んでくれるんだろうな．．．。

書込番号：4158227

[はなまがり]

小学生ですか？
英語をわかれとは言いませんが、
アルファベットがわからないと難しいですよ。

さて今回の場合、フォームのほうでタイプミスをしています。

notopadとかpeintとかkalcとか、なんかそんな感じになってるんでしょう。
もしくは気を利かせてそこらへんを勝手に日本語にしたとか。

書込番号：4159325

[まきにゃん]

どういう画面なのか分からないのでなんとも言えませんが、コード自体はほかの方の指摘を修正したもので問題ないと思われます。　あとは、Formのプロパティ(cmdLaunch(Index).ToolTipText)が間違ってないかを確認しましょう。

はなまがりさんも書いてますけど、起動するプログラムのスペルを間違ってる可能性が大ですね。　間違ってれば当然「そんなファイルはネーヨ！」と言われます (^^;

たぶんどうってこと無い所でミスってると思いますので、もう一踏ん張りです、頑張りましょう。　こういうミスはプロのプログラマーでもしょっちゅうですから気にしない気にしない(笑)

書込番号：4159431

[prtwqq]

使っている本にパスが書いているのですが
下記にToolTipTextの内容をコピーペーストします。


C:\WINDOWS\CALC.EXE　電卓
C:\Program Files\Accessories\MSPAINT.EXE　ペイント
C:\Program Files\Accessories\WORDPAD.EXE　ワードパッド
です。

書込番号：4159448

[まきにゃん]

本に書いてあることが間違ってる可能性は低いので、本が想定しているＯＳ(おそらくXP)とprtwqqさんが使ってるＯＳ(2000?)が違うのかもしれませんね。
(少なくとも2000には通常 C:\Windows や C:\Program Files\Accessories というフォルダは存在しません)

書込番号：4160153

[prtwqq]

まきにゃん　さんへ

アドバイスありがとうございました。
各プログラムのプロパティから以下の情報を得ました。

ペイントの場合　リンク先　%SystemRoot%\System32\mspaint.exe 　　　　　　　　作業フォルダ C:\WINDOWS\System32

ワードパッドの場合 　 リンク先 "C:\Program Files\Windows NT\Accessories\wordpad.exe" 作業フォルダ %HOMEDRIVE%%HOMEPATH%
電卓の場合
リンク先%SystemRoot%\System32\calc.exe
作業フォルダ C:\WINDOWS\System32

上記の作業フォルダ、リンク先の内いずれに置き換えたらいいのでしょうか？ところどころ％なる表記がありこれを入力するとエラーになるような気がします。
本は２０００年刊行ですのでwin98,meに準拠しているのでは？
私のOSは、win xp pro sp1です。

書込番号：4160257

[まきにゃん]

詳細な情報提示ありがとうございます。

まず、リンク先の %SystemRoot% は C:\Windows に置き換えて下さい。
その上で３つのプログラムのリンク先のパスをセットしてやればよさそうですね。

書込番号：4160769

[prtwqq]

まきにゃん　さん

返信どうもありがとうございました。
ご指摘の通りに変更したら、正常にプログラムが起動しました。
存在しないパスを入れても当然　そんなものはありません　と言われますよね。

ところで、ｖｂは古い開発環境でしょうか？
全くプログラムの知識がないので　近所の図書館に今回の本があった
ので、始めて見ました。
C言語　コボルなどが現在の主流でしょうか？

書込番号：4161105

[まきにゃん]

うまく動いたほうでよかったですね。

＞ところで、ｖｂは古い開発環境でしょうか？
VB6.0自体は２世代前の開発環境になるので(現在はVB.net2003、もうすぐVB.net2005が出ます)古いといえば古いですね。
もしもっとVBを覚えたいということであれば、VB6.0よりもVB.netを覚えた方がいいと思います。
(VB6.0までとVB.netでは同じVBとはいってもかなり違いますので・・・実際かなりてこずりました ^^;)

＞C言語　コボルなどが現在の主流でしょうか？
どれが主流かといわれると難しいところですね。
・COBOL⇒大型コンピュータ等の事務処理分野では未だ主流
・C言語⇒制御系や速度が要求されるプログラム(ゲームなども)で使われることが多い
・VB⇒一般的なWindowsアプリケーションでは最も使われている
・Java⇒インターネットが絡むアプリケーションで最も使われている
といった感じで、分野によって使い分けられているというのが現状です。

書込番号：4161756

[prtwqq]

Private Sub cmdCheck_Click(Index As Integer)
intState = 0
wskPop3.RemoteHost = txtServerName.Text
wskPop3.RemotePort = 110
wskPop3.Connect
Call ButtonState(True)
End Sub

上記のコードも本の記述どおりですが
コンパイルエラー

メソッドまたはデータメンバが見付かりません。
と表示されます。txtServerName.Textの.Text
の部分が赤字表示されています。
バージョンはVB5.0です。

よろしくお願い致します

書込番号：4163896

[まきにゃん]

考えられるのは、
txtServerNameがテキストコントロール以外のコントロールになってる
位ですね・・・(実はラベルコントロールだったとか ^^;)

書込番号：4165089

[prtwqq]

皆様　いろいろと教えていただきありがとうございました。
WEBでも情報を探していますが、目ぼしいのが見付からないので
ここに質問させてもらっています。
特に　まきにゃんさんには丁寧に教えていただきありがとうございます。

Private Sub Form_Load()
Set objZone = New Zone
Dim i As Integer
For i = 0 To objZone.ZoneCount - 1
objZone.Index = i
lstZoneName.AddItem (objZone.GetName)
Next i
lstZoneName.ListIndex = 0
End Sub


本の通りにコードを書いてエラーになります。
上記のコードの中で、.ZoneCount が赤字表示になり
メソッドまたはデータメンバが見付かりません

と出ます。

書込番号：4165265

[prtwqq]

まきにゃんさん

ありがとうございます。

確認したら、プロパティで見るとtxtServerNameは、テキストボックスに
なっていました。

書込番号：4165311

[はなまがり]

あのさ、本の通りって何の本だよ
ほんとは学生が課題を書き込んで他人にやってもらおうとしてるんじゃないのか

書込番号：4165993

[prtwqq]

accessを使用したプログラムを作っています。
MsFlexGridをフォームに配置しようとしたら、
以下のエラーメッセージが出ました。

このコンポーネントのライセンス情報が見つかりません。デザイン環境でこの機能を使うために必要なライセンスがありません。(Error 429)

この ActiveX コントロールを使うためのライセンスがありません。このエラーの原因と、その解決方法を次に示します。

ｷ デザイン時に、ActiveX コントロールをフォームに配置しようとしたか、または ActiveX コントロールを含むフォームをプロジェクトに追加しようとしましたが、レジストリ内に関連情報がありませんでした。

レジストリ内の情報が削除されたかまたは破損していることが考えられます。ActiveX コントロールを再度セットアップするか、コントロールの発売元に問い合わせてください。


上記の状況ですが、具体的にどう対処すればいいか分かりませんでした。
同様の経験がある方で無事解決できた方がいれば、アドバイスをお願いします。

書込番号：4166728

[まきにゃん]

MsFlexGridについては↓
http://www.google.co.jp/search?hl=ja&q=MsFlexGrid+%E3%83%A9%E3%82%A4%E3%82%BB%E3%83%B3%E3%82%B9&lr=

その前のは、 Zone というオブジェクトがなんなのか分からないので答えようがありません。

>本の通りにコードを書いてエラーになります。
コードだけ本の通りでもダメなわけで、ほかのところもちゃんとあってるか再確認しましょう。
あと、本で想定しているVBのバージョンと使ってるVBのバージョンが違う場合はその差を自分で補わなくてはいけません。

それから、ここは製品そのものに関するやり取りがメインなので、それを使った開発の質疑は他の掲示板の方がレスは付きやすいですよ (^^;
http://www.google.co.jp/search?num=100&hl=ja&q=VB%E5%88%9D%E5%BF%83%E8%80%85%E6%8E%B2%E7%A4%BA%E6%9D%BF&lr=

書込番号：4166831

認証について

Vs.Netのアカデミックは、認証が必要みたいなのですが、

Vs.Netの2003にも、アカデミックパックにも必要なんでしょうか？

調べても見つからなかったので、買った人・知ってる人教えてください

書込番号：1812759

[て２くん]

たぶん、必要だと思うよ。

書込番号：1812879

やっぱり、そうなんですね〜。

認証面倒そうなので・・どうしようか迷っていたんです。。

ありがとうございました＾＾

書込番号：1813718

認証って？

書込番号：1840246

アカデミックバージョンのみライセンス認証が必要なようです。
他は必要ないようですが。だからといって複数マシンに入れるのはブーですよ。

以下参照先。
ライセンス認証 ご利用にはライセンス認証 (プロダクト アクティベーション) が必要です。
http://www.microsoft.com/japan/msdn/vstudio/productinfo/featurelist.asp

書込番号：3183653

[ヘロンパ]

開発用のライセンスは人に紐付くライセンスなので、買った人が使う限り、何台に入れてもいいんですよ。

書込番号：4135151

[ヘロンパ]

開発ツール製品のライセンス体系
＜引用＞http://www.microsoft.com/japan/licensing/vl/prod.mspx
人に対するライセンス
開発ツール製品では、ユーザー 1 人に対し 1 ライセンスが許諾されます。ユーザーは、1 つのライセンスで複数の PC にインストールして使用できます。PC の台数ではなく、利用する人数に応じてライセンスをカウントできるのでライセンスの管理が簡単に行えます。

書込番号：4135186

使い方

今頃こんなとこ(ｵｲ)に来る人いないと思うんですが･･･

普通に起動して簡単なプログラムを作ってビルドしようとすると、
エラーでincludeファイルが開けませんと出ます。

どうしたらいいんでしょうか･･･
初心者な質問ですいませんがお願いします!

書込番号：4093334

ちなみに書いたのはこれです。

#include <iostream.h>

void main()
{
int i;
i = 20;
cout << "あああ" << endl;
cout << "i" << endl;

}

書込番号：4093341

[ＢＲＤ]

ヘィッスさん 　　こんばんは。　　門外漢です。　　気になって検索しました。　どなたからも正解無い場合に、、、
http://www.microsoft.com/japan/msdn/vstudio/2005/community/
ご存じかも知れませんね。

書込番号：4093865

返信ありがとうございます。
まさか今日中に返信してもらえるとは！
意外と見に来てる人いるんですね。

ホームページにもそういう所があったんですか。(言われてみれば当たり前か)
そこで聞いてみることにします

書込番号：4094786

[ＢＲＤ]

はい。　うまく行きいますように。

すべて　の　ほぼすべて　を見ることがあって、、、

書込番号：4094865

[クッキーフェイス]

#include <iostream> では？

書込番号：4120273

最適化

前のバージョンのStandard版には最適化の機能がついてなかったですが。
今回はついているのでしょうか？

書込番号：1686561

今回も最適化はついてないらしい。って、自己レス。
2chの情報なんでどこまで信じてよいやらわからいですが、
最適化のオプションについては半分ほどが灰色になっていて、
生成されたコードを見ても最適化されてない、とのこと。
Pro以上を買えってことでしょうか　ヽ（`Д´）ﾉ
VC++のサイトには最適化の記述あるので注意・・・。

書込番号：1725777

http://slashdot.jp/developers/04/04/19/1757207.shtml?topic=58

tool kitを適用すれば、同等のコンパイルができるとあります。
ただ私は今でもVC6.0を使っていて試せる環境ではないため、
情報の真偽まで保証できません。

書込番号：4096500

VC++6.0→VC++.net2003

[うっちゃりロビン]

現在、VC++6.0→VC++.net2003への移行を考えているのですが、
「ここは注意した方がいい！」などのマイナス要素のアドバイスを頂きたいと思い、書き込みさせていただきました。どなたかご伝授お願いいたします。

書込番号：3914494

MSDN付いてたのと

どう違うのでしょうか？

書込番号：3815710