約 3,680,779 件
https://w.atwiki.jp/vslibrary/pages/14.html
1.プロジェクトを作成 2.継承元のプロジェクトを参照 3.Form1.Designer.vbを右クリックしコードを表示 4.表示されたコードの3行目を下記のように変更 Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated() _ Partial Class Form1 Inherits System.Windows.Forms.Form ↓ Inherits XXXX.SkeletonForm ※XXXXは継承元フォームが格納されているプロジェクト名 ※この例では継承元フォーム名はSkeletonFormと名づけてある 5.Form1.vbを右クリックしデザイナの表示 6.Form1が継承元に変更されていることを確認 .
https://w.atwiki.jp/m_shige1979/pages/627.html
VB クラスライブラリ サンプル 参考 MSDN
https://w.atwiki.jp/yasrun/pages/36.html
なんかBASファイルがでてきた 漢字をカナにコンバートするプログラムらしい。 DBに漢字でしか名前が入っていないのに、「かな検索できるようにしてくれ!」 とか無茶ぶりされて、WEBのどこかから仕入れたコードででっちあげた代物だと思う。 あ、コメントに書いてあった。 http //plaza.rakuten.co.jp/pgmemo/diary/200512060000/ どうもその節はお世話になりました(*_ _) 良い子のみなさんは人名リストをDBで管理するときは ふりがなのカラムもきちんと用意しませう。 Attribute VB_Name = "KanjiKanaConvert" このプログラムは以下のサイトから取得したものを利用しています。 http //plaza.rakuten.co.jp/pgmemo/diary/200512060000/ Option Explicit Const GCL_CONVERSION = 1 Const GCL_REVERSECONVERSION = 2 Const VER_PLATFORM_WIN32_WINDOWS = 1 Const VER_PLATFORM_WIN32_NT = 2 ==IME 関連== Type CANDIDATELIST dwSize As Long dwStyle As Long dwCount As Long dwSelection As Long dwPageStart As Long dwPageSize As Long dwOffset(0) As Long End Type 入力コンテキストハンドル取得 Declare Function ImmGetContext Lib "imm32" ( _ ByVal hWnd As Long _ ) As Long 入力コンテキストハンドル開放 Declare Function ImmReleaseContext Lib "imm32" ( _ ByVal hWnd As Long, _ ByVal hIMC As Long _ ) As Long 変換候補取得 Declare Function ImmGetConversionList Lib "imm32" Alias "ImmGetConversionListW" ( _ ByVal hKL As Long, _ ByVal hIMC As Long, _ ByRef lpSrc As Byte, _ ByRef lpDst As Any, _ ByVal dwBufLen As Long, _ ByVal uFlag As Long _ ) As Long 入力ロケール識別子(キーボードレイアウトハンドル)取得 Declare Function GetKeyboardLayout Lib "user32" ( _ ByVal idThread As Long _ ) As Long 文字列長取得(Unicode) Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" ( _ ByRef strString As Any _ ) As Long ==OS バージョン取得== Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion(127) As Byte End Type Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" ( _ ByRef VersionInfo As OSVERSIONINFO _ ) As Long メモリ移動 Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" ( _ ByRef Destination As Any, _ ByRef Source As Any, _ ByVal Length As Long _ ) Public Function ReverseConversion(strSource As String) As String Dim bySource() As Byte 前変換用 Dim hIMC As Long 入力コンテキストハンドル Dim hKL As Long キーボードレイアウトハンドル Dim lngSize As Long 変換後バッファサイズ Dim lngOffset As Long 変換文字列候補オフセットアドレス Dim byCandiateArray() As Byte 変換結果バッファ Dim CandiateList As CANDIDATELIST Dim byWork() As Byte Dim lngResult As Long Dim osvi As OSVERSIONINFO If strSource = "" Then Exit Function 空文字列の場合は処理しない OS判別 osvi.dwOSVersionInfoSize = Len(osvi) lngResult = GetVersionEx(osvi) If osvi.dwPlatformId = VER_PLATFORM_WIN32_NT Then WindowsNT系 Unicodeのまま bySource = strSource 終端を付加 ReDim Preserve bySource(UBound(bySource) + 2) Else Windows95系 シフトJISに変換 bySource = StrConv(strSource, vbFromUnicode) 終端を付加 ReDim Preserve bySource(UBound(bySource) + 1) End If hIMC = ImmGetContext(Forms(0).hWnd) hKL = GetKeyboardLayout(0) 変換結果を受け取るバッファサイズを取得 lngSize = ImmGetConversionList(hKL, hIMC, bySource(0), Null, 0, GCL_REVERSECONVERSION) If lngSize 0 Then バッファサイズ分バイト配列を動的に取得 ReDim byCandiateArray(lngSize) 変換結果を取得 lngSize = ImmGetConversionList(hKL, hIMC, bySource(0), byCandiateArray(0), lngSize, _ GCL_REVERSECONVERSION) バッファ内容を参照するため構造体にコピー MoveMemory CandiateList, byCandiateArray(0), Len(CandiateList) If CandiateList.dwCount 0 Then 先頭候補のオフセット取得 lngOffset = CandiateList.dwOffset(0) "ふりがな"取得 ReverseConversion = MidB(byCandiateArray, lngOffset + 1, _ lstrlen(byCandiateArray(lngOffset)) * 2) End If End If lngResult = ImmReleaseContext(Forms(0).hWnd, hIMC) End Function
https://w.atwiki.jp/motion/pages/30.html
【アニメーション IKソルバ スプラインIKソルバ】から設定 IKをかけたいオブジェクトを選択し、その後終点と、ベースにするスプラインを選択する。 ダミーボーン作成時に同時にスプラインIKを設定してあげると効率が良い。 スプラインコントロールIKモディファイアを使用する場合は、 すべてをルートにリンクのほうを使用する 制御用のボックスが ■-■-■-■ ではなく、 ■ / ■―■ \ ■ となっている状態が望ましい。 注意点① リグを組んでスプラインIKを使用する場合、スプラインIKを適用したボーンは、本体から親子関係を切り離さなくてはならない。 ボーンが親子関係を結んだまま、制御用ボックスを本体に追随するようコンストレイント、もしくは親子関係を設定すると、原因不明のエラーによりファイルが開けなくなる。 ファイルを保存する時点では一切警告されず、一旦ファイルを閉じて開いた場合にしかエラーの表示が出ないため、同じファイルを継続して編集を続けていると、 最悪の場合作業が完了し、保存してからファイルが開けなくなる、という状態に陥りかねないので要注意。 注意点② ボーンを打つと同時にスプラインIKを設定する場合、ボーンをどの軸から打ったかによって可動範囲の主軸が決まる。 IKを設定する場合と同じく、3軸方向に湾曲した状態でボーンを打つことはしてはならない。 単純にまっすぐボーンを打つ場合は、必ずトップビューからボーンを打つ。 サイドビューから一切湾曲していないボーンを打つと、制御ボックスを動かしたと同時にボーンのフリップが発生する。 サイドビューから打つ場合はボーンを打つモデルが2軸方向に曲がっている場合のみ。 3軸方向に曲がっているボーンを打った場合、可動範囲が極端に狭くなり、少し動いただけですぐにフリップが発生するようになってしまう 注意点③ 使用するボーンの数が極端に多い場合でない限り、使用する制御ボックスは関節数と同じ数が良い。 使用するボーンが4本なのに制御ボックスが3つのような状態になると、非常に制御が難しくなる。 ボーン数が10本など、制御しきれない場合に使うのが適当。 フリップを発生させないための方法①【擬似的にアップベクターを作製】 制御ボックスのみで角度を制御せずに、まず大まかな動きをアップノード(制御ボックスのトップノードに位置するもの)の回転でつけてから ボックスのトランス情報で制御するとフリップが起こりにくくなる。 また、通常のIKで使用するようなアップベクター的な制御を行いたい場合(※)は、 別に作成したNull(位置をもとのアップノードに合わせる)に変更し、さらにまた別のNullに対してルックアットコンストレイントをかけることで作成できる。 ただしルックアットコンストレイントをかける際に、もとのアップノードとの軸のズレが発生しないように作成しなくてはならない ※スプラインIKアップノードは回転を参照しているため、リグ作成に一手間かける必要がある フリップを発生させないための方法②【ツイスト終了角度を制御】 ワイヤパラメータでIKのツイスト終了角度を制御する方法 上記の①の方法よりお手軽。 ただし細かい制御は効かない。 スケマティクビュー上でスプラインIKの制御用ボックスではなく、IKそのものを選択し右クリック。 【ワイヤパラメータ→変換→ツイスト終了角度】を選択。 リンク先に任意のコントロール用リグを指定する。 指定したリグから【変換→回転→任意の回転軸】を指定。 制御方向は【IK】←【リグ】 指定した回転軸を制御することでフリップを修正できる。
https://w.atwiki.jp/ce00582/pages/1010.html
vb DSGE 02 SOURCE VBDSGE02.exe プログラムを実行するには、Microsoft .NET Framework が必要です。
https://w.atwiki.jp/bioeos/pages/86.html
前回のつづきです. 2) spline interpolation 前回は,一次関数のアルゴリズムでデータの補間を行いました.今回は,より自然な変化に近づけるため,多項式を用いたスプライン補間(spline interpolation)を行いたいと思います.以下の手順によりRで作業していきます. Rを立ち上げてください. 前回と同様に元データを読み込み確認します. ice - read.table("ice(fileのパス)",sep = "\t",header = T) ls() ice 元データの列を定義していきます. x - ice[,1] …1列目の時間軸をxと定義 x …xを表示 y - ice[,2] …2列目の物理量をyと定義 y データを等間隔にします. xnew - seq(1000,414000,1000) …1000~414000の数を1000刻みにしたものをxnewと定義 xnew …xnewを表示 ここから,スプライン補間をおこなっていきます. その前に,Rの検索エンジンを使って今回行うスプライン補間を検索します. (C )ドライブ → Program Files → R → doc → search → SearchEngine.html を開いてください.そうすると,Rの検索エンジンにつながります. ここでは,使用例を紹介してくれるので,Rでわからないことがあれば,この検索エンジンを使ってみてください. (このページが今後すぐ利用できるようにおすすめに保存しておくと良いでしょう.) 検索欄にinterpolationと入れてみてください.Rで行えるさまざまな補間法が紹介されます. その中にakimaという方による補間法があったので,今回はこれを使用します. では,Rの作業画面に戻ってください. まず,akimaによるスプライン補間を行えるようにするためにパッケージをインストールします. 画面上の"パッケージ" → パッケージのインストール → "Japan"を選択 → "akima"を選択 つづいて, library(akima) …パッケージakimaを利用する ynew - aspline(x,y,xnew) …aspline関数でスプライン補間した物理量をynewと定義 plot(ynew,type="o") lines(ice,col="red") で,以下のようなグラフができます. みやすいグラフに修正していきます. plot(ice,type="o",xlim = c(420000,0),ylim = c(1.5,-0.5)) lines(ice,col="red") 以上より,下のようなグラフが出来上がります. 3 波にフィルタをかける interpolationによってできたグラフで表される波は,さまざまな周波数から成っています.そのため,周波数の階級を分けることで,用途に応じた解析が可能になります.例えば,高周波の振動を抽出する(これをHigh Pass Filterといいます.)と細かい変動をみることができます.逆に,低周波の振動を残す(これをLow Pass Filterいいます.)と大きな流れをみることができます.今回は,Low Pass Filterをかけて大きな流れをみてみたいと思います.ここでは,移動平均(Movung AverageまたはRunning Mean)によって表していきます. 5個の移動平均を表示する w - rep(1/5,5) …rep関数を用い5個の平均を計算していくものをwと定義 y5 - filter(ynew$y,w) …ynewに対してwを実行したものをy5と定義 lines(xnew,y5) 以上より,5個の移動平均のグラフ(細い黒線)が付け加えられます. (みやすくするため巨大に表示しました.↓ ) 10個の移動平均を表示する y10 - filter(ynew$y,rep(1/11,11)) lines(xnew,y10,lwd="3") 以上より,下のように10個の移動平均のグラフ(太い黒線)が付け加えられます. 今回は,とりあえずここまでになります.終了するときは, q() で終えてください.この際,保存しておくと,今までのRの作業を後でみることができます. 保存したものをみたいときは, (C )ドライブ → Program Files → R → bin → R.history より確認できます.
https://w.atwiki.jp/bioeos/pages/89.html
前回のつづきです. 2) spline interpolation 前回は,一次関数のアルゴリズムでデータの補間を行いました.今回は,より自然な変化に近づけるため,多項式を用いたスプライン補間(spline interpolation)を行いたいと思います.以下の手順によりRで作業していきます. Rを立ち上げてください. 前回と同様に元データを読み込み確認します. ice - read.table("ice(fileのパス)",sep = "\t",header = T) ls() ice 元データの列を定義していきます. x - ice[,1] …1列目の時間軸をxと定義 x …xを表示 y - ice[,2] …2列目の物理量をyと定義 y データを等間隔にします. xnew - seq(1000,414000,1000) …1000~414000の数を1000刻みにしたものをxnewと定義 xnew …xnewを表示 ここから,スプライン補間をおこなっていきます. その前に,Rの検索エンジンを使って今回行うスプライン補間を検索します. (C )ドライブ → Program Files → R → doc → search → SearchEngine.html を開いてください.そうすると,Rの検索エンジンにつながります. ここでは,使用例を紹介してくれるので,Rでわからないことがあれば,この検索エンジンを使ってみてください. (このページが今後すぐ利用できるようにおすすめに保存しておくと良いでしょう.) 検索欄にinterpolationと入れてみてください.Rで行えるさまざまな補間法が紹介されます. その中にakimaという方による補間法があったので,今回はこれを使用します. では,Rの作業画面に戻ってください. まず,akimaによるスプライン補間を行えるようにするためにパッケージをインストールします. 画面上の"パッケージ" → パッケージのインストール → "Japan"を選択 → "akima"を選択 つづいて, library(akima) …パッケージakimaを利用する ynew - aspline(x,y,xnew) …aspline関数でスプライン補間した物理量をynewと定義 plot(ynew,type="o") lines(ice,col="red") で,以下のようなグラフができます. みやすいグラフに修正していきます. plot(ice,type="o",xlim = c(420000,0),ylim = c(1.5,-0.5)) lines(ice,col="red") 以上より,下のようなグラフが出来上がります. 3 波にフィルタをかける interpolationによってできたグラフで表される波は,さまざまな周波数から成っています.そのため,周波数の階級を分けることで,用途に応じた解析が可能になります.例えば,高周波の振動を抽出する(これをHigh Pass Filterといいます.)と細かい変動をみることができます.逆に,低周波の振動を残す(これをLow Pass Filterいいます.)と大きな流れをみることができます.今回は,Low Pass Filterをかけて大きな流れをみてみたいと思います.ここでは,移動平均(Movung AverageまたはRunning Mean)によって表していきます. 5個の移動平均を表示する w - rep(1/5,5) …rep関数を用い5個の平均を計算していくものをwと定義 y5 - filter(ynew$y,w) …ynewに対してwを実行したものをy5と定義 lines(xnew,y5) 以上より,5個の移動平均のグラフ(細い黒線)が付け加えられます. (みやすくするため巨大に表示しました.↓ ) 10個の移動平均を表示する y10 - filter(ynew$y,rep(1/11,11)) lines(xnew,y10,lwd="3") 以上より,下のように10個の移動平均のグラフ(太い黒線)が付け加えられます. 今回は,とりあえずここまでになります.終了するときは, q() で終えてください.この際,保存しておくと,今までのRの作業を後でみることができます. 保存したものをみたいときは, (C )ドライブ → Program Files → R → bin → R.history より確認できます. 名前 コメント
https://w.atwiki.jp/ce00582/pages/1007.html
vb DSGE 01 SOURCE VBDSGE01.exe このプログラムを実行するには、Microsoft .NET Framework が必要です。
https://w.atwiki.jp/rinn/pages/72.html
□ VB 月カレンダーの使い方 □MonthCalendarオブジェクトを貼り付け以下の構文を追加。 Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged Label1.Text = Format(MonthCalendar1.SelectionStart, "yyyyMMdd") Label2.Text = Format(MonthCalendar1.SelectionEnd, "yyyyMMdd") End Sub □返り値 SelectionStartに、日付をクリックした場合や範囲指定をした場合の最も早い日付が返る。 SelectionEndに、日付をクリックした場合や範囲指定をした場合の最も未来の日付が返る。
https://w.atwiki.jp/lookworld/pages/35.html
既存のC#コードをVB.NETコードに移し替えるような場合には、「C#←→VB.NET」コード変換ツールが便利です。 「C#←→VB.NET」コード変換ツールには次のようなものがあります。 ◆C#←→VB.NETのコード変換 ●ソフトウェアをダウンロードして実行 ・SharpDevelop(の一機能) 左がC#(変換前)で、右がVB.NET(変換後)のコードです。 お勧めですが、コメントが一部なくなります。 ◆C#→VB.NETのコード変換 ●Web上で実行 ・ragingsmurf.com 「CSharp to VB.NET Code Converter」 ・AspAlliance.com 「C# to VB.NET Translator」 ・KamalPatel.Net 「Convert C# to VB .NET」 ●ソフトウェアをダウンロードして実行 ・GotDotNet User Sample 「C# to VB .NET Converter」 ・KamalPatel.Net 「Convert C# to VB .NET」にある[ Convert C# TO VB .NET OFFLINE ]をクリックしてダウンロード。 ◆VB.NET→C#のコード変換 ●Webから実行 ・ELLKAY 「Convert VB .NET to C#」 ●ソフトウェアをダウンロードして実行 ・The Code Project 「GBVB - Converting VB.NET code to C#」 「C#←→VB.NET」コード変換ツール関連の情報としては、以下のサイトを参照するとよいでしょう。 ・DOBON.NET 「どぼん!の .NET Tips C#のコードをVB.NETへ変換する」 「どぼん!の .NET Tips VB.NETのコードをC#へ変換する」 ただし、これらのツールで完璧にコードを変換できるわけではありません。 いくらVB.NETとC#の文法などが類似しているといっても、「言語の壁」は予想以上に厚いのです。 よって、これらのツールを使うだけでは不十分で、その「言語の壁」を熟知することが重要です。 資料提供:http //www.masahiko.info/index.html