2017-01-01から1年間の記事一覧
// "); var Ele = document.getElementById(TickerName); var id = setInterval(function () { var buftext = ''; for (i = 0; i = len) { buftext += ' ' } else { buftext += arrText[ti] }; }; Ele.innerHTML = buftext.fontsize(Size).fontcolor(color);…
概要 下の様な、虹色が流れる、ブログへ設置可能なテキスト表示部品です。 // " + Rainbow + ""); var Ele = document.getElementById("RainbowText"); var ArrColor = ["red", "orangered", "yellow", "green", "blue", "Indigo", "Violet"] RunRainbow(); …
概要 指定した、フォルダ内のファイルを一覧表示します。 準備 WindowsフォームVBプロジェクトのフォーム上に Button.Button1(FolderBrowserDialog表示用) Button.Button2(ファイルリスト取得実行用) ListBox.ListBox1(ファイルリスト表示用) FolderBrowserD…
概要 CPU温度によりファンの回転数を制御します。 「RaspberryPi3は速度向上の代償として、発熱量が多くなった。」 と言われています。 一応、熱対策としてファンを導入したのですが ファンがフル回転した状態だと、気になる程の音を出していたのと 貧弱な…
概要 Csvファイルを読み込みDataGridViewへ表示します。 なお、Csvファイル1行目はヘッダー行として扱い DataColumnを生成します。 準備 WindowsフォームVBプロジェクトのフォーム上に Button.Button1(DTTest呼び出し用) DataGridView.DataGridView1 を設置…
皆さん、こんにちは。 早速ですが RaspberryPiってご存知でしょうか? 名前もロゴもすごく美味しそうですよね~(笑) イギリス発祥のお菓子・・・ではありません。 私が、初めてこのネーミングを聞いたときは 恥ずかしながら食べ物かと思いましたので… 詳し…
概要 VB.Netよりコマンドを実行し、結果をTextで返します。 Function Runcmd(strcmd As String) As String 'Processオブジェクト Dim proc As New System.Diagnostics.Process() With proc.StartInfo 'ComSpecパスの取得 .FileName = System.Environment.Get…
サンプル1 概要 今日以前30日間分のアクセス数(乱数)をDataGridViewへ表示してみる。 準備 WindowsフォームVBプロジェクトのフォーム上に Button.Button1(DTTest呼び出し用) DataGridView.DataGridView1 を設置してください。 Private Sub Button1_Clic…
ServerLogon 概要 NASなどの共有フォルダに対して、権限を追加・変更してアクセス。 詳細 コマンドプロンプトでnet useコマンドを実行したのと同等に機能します。 全てログアウト=net use * /delete ログイン=net use [サーバー/フォルダ] [Password] /use…
解説 Integer型の値をStringに変換と同時に左側へ0を連結します。 その後、右側より指定桁数を抜き取ります。 String.Format()などでも可能かと思います。 vb.net 'テストデータ Dim Arr() As Integer = {1, 12, 123, 1234, 12345} Dim buf As String For E…
解説 mid関数などもありますが、ここではSubstring関数を利用します。 vb.net 'データ Dim FileName As String = "calc.exe" '.(ドット)より前を取得 Dim Name As String = FileName.Substring(0, FileName.LastIndexOf(".")) '.(ドット)より後ろを取得 Dim …
サンプル1 'テキストデータ Dim sampledata As String = "日時,天気,温度" '区切り文字 Dim delimiter As Char = "," 'Sprit受け取り配列Dim array() As String array = sampledata.Split(delimiter) For Each bufstr In array Console.WriteLine(bufstr)Ne…
ここでは、ボタンをクリックすると”Hello world” と表示するVB.Netアプリケーションを作成します。 ところで、Visual Studio Communityのインストールは無事に完了しましたか? 正常に完了していれば スタートメニューにVisual Studio 2017が追加されている…
マイクロソフトが無償で提供している開発ツール Visual Studio Communityを利用します。 ダウンロードは以下より www.visualstudio.com Visual Studio Community2017の無償ダウンロードをクリックすると インストーラがダウンロードされます。 ダウンロード…