>>8 取り消されたアクション Internet Explorer は、要求された Web ページにリンクできませんでした。要求された Web ページは現在、利用できない可能性があります。 -------------------------------------------------------------------------------- 次のことを試してください: [更新] ボタンを クリックするか、後でやり直してください。 以前にこのページを表示したことがあり、コンピュータに保存したものを表示する場合は、[ファイル] メニューの [オフライン作業] をクリックしてください。 Internet Explorer のオフライン参照については、 [ヘルプ] メニューの [目次とキーワード] をクリックしてください。 Internet Explorer
戯れ。 #console Dim i As Long Dim f[48] = [300,300,450,425,450,500,450,425,450,500,_ 600,600,900,850,900,1000,900,850,900,1000,_ 750,750,800,750,675,800,750,600,_ 450,475,600,675,600,600,575,_ 750,750,800,750,675,800,750,600,_ 450,475,600,675,600,900] As Long Dim t[48] = [400,400,1450,200,200,400,2200,200,200,400,_ 400,400,1450,200,200,400,2200,200,200,400,_ 1100,350,400,400,400,400,800,1400,_ 850,750,750,750,750,1500,1400,_ 1100,350,400,400,400,400,800,1400,_ 850,750,750,750,750,2000] As Long For i = 0 To 48 Beep(f[i], t[i]) Next End
39 :
エフェクトクラスを作ろうとしていきなりつまってしまいました。 Class CEffect Dim width,height As Long Dim GHFront,GHFlip As Long Public Sub CEffect() Dim depth As Long dxGetScreenState(width,height,depth) GHFront = dxMakeGraph(width,height) GHFlip = dxMakeGraph(width,height) End Sub Sub ~CEffect() dxDeleteGraph(GHFront) dxDeleteGraph(GHFlip) End Sub Sub Exec(ByVal Num,Time,KeySkip As Long) dxSetDrawScreen(DX_SCREEN_FRONT) dxGetDrawScreenGraph(0,0,width,height,GHFront) dxSetDrawScreen(DX_SCREEN_BACK) dxGetDrawScreenGraph(0,0,width,height,GHFlip) 'この下にNum番号に応じたエフェクト処理を書いていく予定 End Sub End Class …という感じのソースなのですが、コンストラクタとデストラクタ内の width、height、GHFront、GHFlipが無効な識別子でコンパイルエラーになります。 Exec内のはエラーにならないのですが、何故なんでしょう?
ヘッダが間違ってる。 DxLib.sbpのdxGetDrawScreenGraphを下のように書き換えてちょ。 Function dxGetDrawScreenGraph(x1 As Long, y1 As Long, x2 As Long, y2 As Long, GrHandle As Long)(UseClientFlag As Long) As Long dxGetDrawScreenGraph = _dxGetDrawScreenGraph(x1, y1, x2, y2, GrHandle, UseClientFlag) End Function ↑を↓にする Function dxGetDrawScreenGraph(x1 As Long, y1 As Long, x2 As Long, y2 As Long, GrHandle As Long) As Long dxGetDrawScreenGraph = _dxGetDrawScreenGraph(x1, y1, x2, y2, GrHandle, TRUE) End Function
thisポインタが正しく渡されないんだよね。 下のコードを実行させると確認できる。 class Foo public sub Func() Print "this=", VarPtr(this) endsub sub Foo() dim pFunc as *sub() Print "this=", VarPtr(this) pFunc = addressof(Func) pFunc() endsub endclass dim f as Foo()