Microsoft Word 練習問題の解答.doc
|
|
|
- えりか ひきぎ
- 5 years ago
- Views:
Transcription
1 演習問題解答 練習 1.1 Label1.Text = Val(Label1.Text) + 2 練習 1.2 コントロールの追加 Private Sub Button2_Click( 省略 ) Handles Button2.Click Label1.Text = Val(Label1.Text) - 2 練習 2.1 TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) / 2 1
2 練習 2.2 TextBox4.Text = (Val(TextBox1.Text) + Val(TextBox2.Text)) * Val(TextBox3.Text) / 2 練習 2.3 Dim r As Double r = Val(TextBox1.Text) TextBox2.Text = 4 * Math.PI * r ^ 2 TextBox3.Text = 4 * Math.PI * r ^ 3 / 3 2
3 練習 3.1 Dim a, b As Integer a = Val(TextBox1.Text) b = a Mod 2 If b = 0 Then TextBox2.Text = " 偶数 " Else TextBox2.Text = " 奇数 " 練習 3.2 Private Sub TextBox1_TextChanged( 省略 ) Handles TextBox1.TextChanged, TextBox2.TextChanged Dim a, b, c As Single a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = (a - 100) * 0.9 If b > c * 1.2 Then TextBox3.Text = " ふとりすぎです " ElseIf b < c * 0.8 Then TextBox3.Text = " やせすぎです " Else TextBox3.Text = " ちょうどいい体重です " 3
4 練習 3.3 Private Sub RadioButton1_CheckedChanged( 省略 ) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged If (RadioButton1.Checked = True) Then TextBox1.Text = 5000 ElseIf (RadioButton2.Checked = True) Then TextBox1.Text = 8000 ElseIf (RadioButton3.Checked = True) Then TextBox1.Text = 練習 4.1 Private Sub TextBox1_TextChanged( 省略 ) Handles TextBox1.TextChanged Dim i, n, s As Integer n = Val(TextBox1.Text) s = 1 For i = 1 To n s = s * i Next TextBox2.Text = s 4
5 練習 4.2 Private Sub TextBox1_TextChanged( 省略 ) Handles TextBox1.TextChanged Dim i, s, limit As Integer limit = Val(TextBox1.Text) Do i = i + 1 s = i * (i + 1) * (i + 2) Loop While s <= limit TextBox2.Text = i TextBox3.Text = i + 1 TextBox4.Text = i + 2 TextBox5.Text = s 練習 4.3 Private Sub TextBox1_TextChanged( 省略 ) Handles TextBox1.TextChanged, TextBox2.TextChanged Dim i, j, s, n, m As Integer n = Val(TextBox1.Text) m = Val(TextBox2.Text) s = 0 For i = n To m For j = 1 To 9 s = s + i * j Next j TextBox3.Text = s 5
6 練習 5.1 コントロールの追加 Private Sub Button2_Click( 省略 ) Handles Button2.Click Dim i As Integer Dim j As Integer Dim n As Integer Dim work As Integer n = Val(TextBox3.Text) Dim a(n - 1) As Integer For i = 0 To n - 1 a(i) = Val(TextBox1.Lines(i)) For i = 0 To n - 2 For j = i + 1 To n - 1 If a(i) < a(j) Then work = a(i) a(i) = a(j) a(j) = work Next j TextBox2.Text = "" For i = 0 To n - 1 TextBox2.Text = TextBox2.Text & a(i) & vbcrlf 6
7 練習 5.2 コントロールの追加 Dim i, j, k, data(2, 5), work(2), heikinn(2) As Integer Dim simei(5), worksimei As String For i = 0 To 5 simei(i) = TextBox1.Lines(i) data(0, i) = Val(TextBox2.Lines(i)) data(1, i) = Val(TextBox3.Lines(i)) For i = 0 To 5 data(2, i) = data(0, i) + data(1, i) For i = 0 To 2 For j = 0 To 5 heikinn(i) = heikinn(i) + data(i, j) Next heikinn(i) = heikinn(i) / 6 Next TextBox5.Text = heikinn(0) TextBox6.Text = heikinn(1) TextBox7.Text = heikinn(2) For i = 0 To 4 For j = i + 1 To 5 If data(2, i) < data(2, j) Then worksimei = simei(i) simei(i) = simei(j) simei(j) = worksimei For k = 0 To 2 work(k) = data(k, i) data(k, i) = data(k, j) data(k, j) = work(k) Next Next 7
8 Next TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" For i = 0 To 5 TextBox1.Text = TextBox1.Text & simei(i) & vbcrlf TextBox2.Text = TextBox2.Text & data(0, i) & vbcrlf TextBox3.Text = TextBox3.Text & data(1, i) & vbcrlf TextBox4.Text = TextBox4.Text & data(2, i) & vbcrlf 練習 5.3 Dim i, j, k As Integer Dim a(3, 3), b(3, 3), c(3, 3) As Double a(1, 1) = Val(TextBox1.Text) a(1, 2) = Val(TextBox2.Text) a(1, 3) = Val(TextBox3.Text) a(2, 1) = Val(TextBox4.Text) a(2, 2) = Val(TextBox5.Text) a(2, 3) = Val(TextBox6.Text) a(3, 1) = Val(TextBox7.Text) a(3, 2) = Val(TextBox8.Text) a(3, 3) = Val(TextBox9.Text) b(1, 1) = Val(TextBox10.Text) b(1, 2) = Val(TextBox11.Text) b(1, 3) = Val(TextBox12.Text) b(2, 1) = Val(TextBox13.Text) b(2, 2) = Val(TextBox14.Text) 8
9 b(2, 3) = Val(TextBox15.Text) b(3, 1) = Val(TextBox16.Text) b(3, 2) = Val(TextBox17.Text) b(3, 3) = Val(TextBox18.Text) For i = 1 To 3 For j = 1 To 3 c(i, j) = 0 For k = 1 To 3 c(i, j) = c(i, j) + a(i, k) * b(k, j) Next Next Next TextBox19.Text = c(1, 1) TextBox20.Text = c(1, 2) TextBox21.Text = c(1, 3) TextBox22.Text = c(2, 1) TextBox23.Text = c(2, 2) TextBox24.Text = c(2, 3) TextBox25.Text = c(3, 1) TextBox26.Text = c(3, 2) TextBox27.Text = c(3, 3) 練習 6.1 Dim n, s, a As Integer FileOpen(1, "data.txt", OpenMode.Input) n = 0 s = 0 Do Until EOF(1) Input(1, a) n = n + 1 s = s + a Loop TextBox1.Text = n TextBox2.Text = s / n 9
10 練習 6.2 Dim a, maxa As Integer Dim namae, maxnamae As String FileOpen(1, "data.txt", OpenMode.Input) maxnamae = "" maxa = 0 Do Until EOF(1) Input(1, namae) Input(1, a) If (a > maxa) Then maxnamae = namae maxa = a Loop TextBox1.Text = maxnamae TextBox2.Text = maxa FileClose() 練習
11 Public Structure seiseki <VBFixedString(12)> Public simei As String Public kokugo As Integer Public suugaku As Integer Public eigo As Integer End Structure Dim i As Integer Dim kojinseiseki As seiseki Dim fname As String SaveFileDialog1.ShowDialog() fname = SaveFileDialog1.FileName FileOpen(1, fname, OpenMode.Random,,, Len(kojinseiseki)) For i = 1 To 6 kojinseiseki.simei = TextBox1.Lines(i - 1) kojinseiseki.kokugo = Val(TextBox2.Lines(i - 1)) kojinseiseki.suugaku = Val(TextBox3.Lines(i - 1)) kojinseiseki.eigo = Val(TextBox4.Lines(i - 1)) FilePut(1, kojinseiseki, i) Next FileClose(1) Private Sub Button2_Click( 省略 ) Handles Button2.Click Dim i As Integer Dim kojinseiseki As seiseki Dim fname As String OpenFileDialog1.ShowDialog() fname = OpenFileDialog1.FileName FileOpen(1, fname, OpenMode.Random,,, Len(kojinseiseki)) TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" For i = 1 To 6 FileGet(1, kojinseiseki, i) TextBox1.Text = TextBox1.Text & kojinseiseki.simei & vbcrlf TextBox2.Text = TextBox2.Text & kojinseiseki.kokugo & vbcrlf TextBox3.Text = TextBox3.Text & kojinseiseki.suugaku & vbcrlf TextBox4.Text = TextBox4.Text & kojinseiseki.eigo & vbcrlf FileClose(1) 11
12 練習 7.1 Dim simei(5) As String Dim data(5, 2) As Integer nyuuryoku(simei, data) keisan(data) narabikae(simei, data) hyouji(simei, data) Private Sub nyuuryoku(byref simei() As String, ByRef data(,) As Integer) Dim i As Integer For i = 0 To 5 simei(i) = TextBox1.Lines(i) data(i, 0) = Val(TextBox2.Lines(i)) data(i, 1) = Val(TextBox3.Lines(i)) Private Sub keisan(byref data(,) As Integer) Dim i As Integer For i = 0 To 5 data(i, 2) = data(i, 0) + data(i, 1) Private Sub narabikae(byref simei() As String, ByRef data(,) As Integer) Dim i, j, k, work As Integer Dim worksimei As String For i = 0 To 4 For j = i + 1 To 5 If data(i, 2) < data(j, 2) Then worksimei = simei(i) simei(i) = simei(j) simei(j) = worksimei For k = 0 To 2 12
13 work = data(i, k) data(i, k) = data(j, k) data(j, k) = work Next k Next j Private Sub hyouji(byref simei() As String, ByRef data(,) As Integer) Dim i As Integer TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" For i = 0 To 5 TextBox1.Text = TextBox1.Text & simei(i) & vbcrlf TextBox2.Text = TextBox2.Text & data(i, 0) & vbcrlf TextBox3.Text = TextBox3.Text & data(i, 1) & vbcrlf TextBox4.Text = TextBox4.Text & data(i, 2) & vbcrlf 練習 7.2 Private Sub TextBox1_TextChanged( 省略 ) Handles TextBox1.TextChanged Dim a As Integer a = Val(TextBox1.Text) TextBox2.Text = hantei(a) Function hantei(byval a As Integer) As String If a >= 80 Then hantei = "A" ElseIf a >= 70 Then hantei = "B" ElseIf a >= 60 Then hantei = "C" Else 13
14 End Function hantei = "D" 練習 7.3 Private Sub TextBox1_TextChanged( 省略 ) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged Dim k, a As Double Dim n As Integer a = Val(TextBox1.Text) k = Val(TextBox2.Text) n = Val(TextBox3.Text) TextBox4.Text = fukuri(a, k, n) Function fukuri(byval a As Double, ByVal k As Double, ByVal n As Integer) As Integer Dim i As Integer For i = 1 To n a = a * (1 + k / 100) fukuri = a End Function 14
15 練習 8.1 PictureBox1 Dim a As Graphics = PictureBox1.CreateGraphics() Dim i As Integer For i = 0 To 330 Step 30 a.drawpie(pens.red, 0, 0, 100, 100, i, 30) 練習 8.2 PictureBox1 Dim a As Graphics = PictureBox1.CreateGraphics() Dim i, xs, xc As Integer Dim s As Double 15
16 For i = 0 To 720 s = i / 360 * 2 * Math.PI xs = -50 * (Math.Sin(s) + 1 / 3 * Math.Sin(3 * s) + 1 / 5 * Math.Sin(5 * s)) + 60 a.fillrectangle(brushes.red, i, xs, 2, 2) 練習 8.3 PictureBox1 PictureBox2 Dim fname As String OpenFileDialog1.Filter = "Bitmap Image *.bmp JPeg Image *.jpg Gif Image *.gif" OpenFileDialog1.ShowDialog() fname = OpenFileDialog1.FileName Dim bmap As Bitmap = New Bitmap(fname) PictureBox1.Image = bmap PictureBox2.Size = PictureBox1.Size Private Sub Button2_Click( 省略 ) Handles Button2.Click Dim fname As String OpenFileDialog1.Filter = "Bitmap Image *.bmp JPeg Image *.jpg Gif Image *.gif" OpenFileDialog1.ShowDialog() fname = OpenFileDialog1.FileName Dim bmap As Bitmap = New Bitmap(fname) PictureBox2.Image = bmap Private Sub Button3_Click( 省略 ) Handles Button3.Click Dim bmpa As Bitmap = PictureBox1.Image Dim bmpb As Bitmap = PictureBox2.Image 16
17 Dim iroa As Color Dim irob As Color Dim heikin As Integer Dim i As Integer Dim j As Integer For i = 0 To PictureBox1.Image.Width - 1 For j = 0 To PictureBox1.Image.Height - 1 iroa = bmpa.getpixel(i, j) heikin = Int((Val(iroa.R) + Val(iroa.G) + Val(iroa.B)) / 3) If (heikin < 255) Then bmpb.setpixel(i, j, iroa) Next Next PictureBox2.Image = bmpb Private Sub Button4_Click( 省略 ) Handles Button4.Click Dim fname As String SaveFileDialog1.Filter = "Bitmap Image *.bmp" SaveFileDialog1.ShowDialog() fname = SaveFileDialog1.FileName Dim bmap As Bitmap bmap = PictureBox2.Image bmap.save(fname) 17
18 練習 9.1 サイコロの絵を描く PictureBox1 PictureBox2 PictureBox3 PictureBox4 PictureBox5 PictureBox6 PictureBox の BorderStyle を FixedSingle に変更 PictureBox1.Image にサイコロの1の絵 PictureBox2.Image にサイコロの2の絵 PictureBox3.Image にサイコロの3の絵 PictureBox4.Image にサイコロの4の絵 PictureBox5.Image にサイコロの5の絵 PictureBox6.Image にサイコロの6の絵を設定 (Image というプロパティ名をクリックするとボタンが表示されますので そのボタンをクリックして画像ファイルを指定する ) 全ての PictureBox を重ねる Dim a As Integer PictureBox1.Visible = False PictureBox2.Visible = False PictureBox3.Visible = False PictureBox4.Visible = False PictureBox5.Visible = False 18
19 PictureBox6.Visible = False a = Int(Rnd() * 6) + 1 If a = 1 Then PictureBox1.Visible = True If a = 2 Then PictureBox2.Visible = True If a = 3 Then PictureBox3.Visible = True If a = 4 Then PictureBox4.Visible = True If a = 5 Then PictureBox5.Visible = True If a = 6 Then PictureBox6.Visible = True 練習 9.2 モグラの穴とモグラの絵を描く PictureBox1 PictureBox3 PictureBox5 PictureBox7 PictureBox9 PictureBox11 PictureBox2 PictureBox4 PictureBox6 PictureBox8 PictureBox10 PictureBox12 Enabled を True Interval を 700 に変更 19
20 PuctureBox7 ~ PictureBox12 を PuctureBox1~PictureBox6 に重ねる Dim a As Integer Dim pic(6) As PictureBox Private Sub Form1_Load( 省略 ) Handles MyBase.Load Dim i As Integer pic(1) = PictureBox7 pic(2) = PictureBox8 pic(3) = PictureBox9 pic(4) = PictureBox10 pic(5) = PictureBox11 pic(6) = PictureBox12 For i = 1 To 6 pic(i).visible = False AddHandler pic(i).click, AddressOf PictureBox_Click Randomize() a = Int(Rnd() * 6) + 1 pic(a).visible = True Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Label1.Text = Val(Label1.Text) + 1 Private Sub Timer1_Tick( 省略 ) Handles Timer1.Tick pic(a).visible = False a = Int(Rnd() * 6 + 1) pic(a).visible = True 20
21 練習 9.3 Enabled を True Interval を 700 に変更 Dim f1 As Integer Dim f2 As Integer Dim f3 As Integer Private Sub Form1_Load( 省略 ) Handles MyBase.Load Randomize() Private Sub Button4_Click( 省略 ) Handles Button4.Click Label1.Text = Val(Label1.Text) - 1 f1 = 1 f2 = 1 f3 = 1 If (f1 = 1) Then f1 = 0 hantei() Private Sub Button2_Click( 省略 ) Handles Button2.Click If (f2 = 1) Then f2 = 0 hantei() 21
22 Private Sub Button3_Click( 省略 ) Handles Button3.Click If (f3 = 1) Then f3 = 0 hantei() Private Sub hantei() If (f1 = 0 And f2 = 0 And f3 = 0) Then If (TextBox1.Text = TextBox2.Text And TextBox1.Text = TextBox3.Text) Then Label1.Text = Label1.Text + 50 If (TextBox1.Text = 7) Then Label1.Text = Label1.Text + 50 If (TextBox4.Text = TextBox5.Text And TextBox4.Text = TextBox6.Text) Then Label1.Text = Label1.Text + 50 If (TextBox4.Text = 7) Then Label1.Text = Label1.Text + 50 If (TextBox7.Text = TextBox8.Text And TextBox7.Text = TextBox9.Text) Then Label1.Text = Label1.Text + 50 If (TextBox7.Text = 7) Then Label1.Text = Label1.Text + 50 If (TextBox1.Text = TextBox5.Text And TextBox1.Text = TextBox9.Text) Then Label1.Text = Label1.Text + 50 If (TextBox1.Text = 7) Then Label1.Text = Label1.Text + 50 If (TextBox3.Text = TextBox5.Text And TextBox3.Text = TextBox7.Text) Then Label1.Text = Label1.Text + 50 If (TextBox3.Text = 7) Then Label1.Text = Label1.Text + 50 Private Sub Timer1_Tick( 省略 ) Handles Timer1.Tick If (f1 = 1) Then TextBox1.Text = Int(Rnd() * 9) TextBox4.Text = Int(Rnd() * 9) TextBox7.Text = Int(Rnd() * 9) 22
23 If (f2 = 1) Then TextBox2.Text = Int(Rnd() * 9) TextBox5.Text = Int(Rnd() * 9) TextBox8.Text = Int(Rnd() * 9) If (f3 = 1) Then TextBox3.Text = Int(Rnd() * 9) TextBox6.Text = Int(Rnd() * 9) TextBox9.Text = Int(Rnd() * 9) 23
グラフィックス
グラフィックス PictureBox の Image プロパティに関する良く有る勘違い PictureBox に画像を表示する方法と仕て PictureBox の Image プロパティを使う方法と Graphics の DrawImage メソッドを使う方法が有るが 此の 2 つの方法を混同し 正しく理解して居ない事が多い様で有る 例えば 下記に列挙する様な状況が 此れに該当する 1.PictureBox
ルーレットプログラム
ルーレットプログラム VB 2005 4 プログラムの概要 カジノの代表的なゲーム ルーレット を作成する 先ず GO! ボタンをクリックすると ルーレット盤上をボールが回転し 一定時間経過すると ボールが止まり 出目を表示するプログラムを作成する 出目を 1~16 大小 偶数奇数の内から予想して 予め設定した持ち点の範囲内で賭け点を決め 賭け点と出目に依り 1 点賭けの場合は 16 倍 其他は 2
アプリケーション
アプリケーション開発 お絵かきソフト 目次 お絵かきソフトを作ってみよう... 3 絵を書く枠と場所表示を作る... 3 マウスの動きを見てみよう... 4 絵を書く準備をします... 5 絵を書くとはどういうことか... 5 では線画を描いてみよう... 6 マウスをドラッグしたときだけ線を引くように改造する... 8 お絵かきソフトを作ってみよう 今回は お絵かきソフトを作ってみましょう マウスを動かして線画を書いてみましょう
ブロック パニック
ブロックパニック VB 2005 9 プログラムの概要 壁が迫り来る不思議な空間のオリジナルゲーム ブロックパニック を作成する スタートボタンをクリックし上下左右の矢印キーで白猿を移動させる スペースキーを押すと 向いて居る方向の壁が後退する 左右の壁が合わさると ゲームは終了する 一般的に 実用プログラムに比較するとゲームプログラムは 高度なテクニックを要求される事が多い 此処では ゲームプログラムを作成する事に依り
1.dll の配置場所配布時はプログラムの実行フォルダーへ配置 2. 開発環境での使用 プロジェクトのプロパティーで [USBPIO.dll] を参照追加してください 開発環境 dll ファイルの場所 VB.Net Express Edition 境プロジェクトのフォルダ \bin\release VB.Netebugビルドの場合プロジェクトのフォルダ \bin\debug VB.Net Releaseビルドの場合プロジェクトのフォルダ
ブロック崩し風テニス
ぱっくんフィッシング VB 2005 13 プログラムの概要 パーティゲームとして良く知られた釣りゲームです マウスで釣り糸を操作して 開閉する魚の口に餌を垂らし 魚が餌を咥えると 釣り上げ 籠の中に入れます 直ぐに口を開けて 海に逃れる魚 中々餌を離さず 籠に入らない魚と 色々なバリエーションが楽しめます 一般的に 実用プログラムに比較するとゲームプログラムは 高度なテクニックを要求される事が多い
バスケットボール
バスケットボール きょうつうへんすうせんげん 共通の変数を宣言する ひょうじ 1. ソリューションエクスプローラで コードの表示をクリックする つぎひょうじところしたかこにゅうりょく 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.Runtime.InteropServices Public Class Basketball にゅうりょく 1 ここに入力する!
VB 資料 電脳梁山泊烏賊塾 音声認識 System.Speech の利用 System.Speech に依るディクテーション ( 音声を文字列化 ).NetFramework3.0 以上 (Visual Studio 2010 以降 ) では 標準で System.Speech が用意されて居るの
音声認識 System.Speech の利用 System.Speech に依るディクテーション ( 音声を文字列化 ).NetFramework3.0 以上 (Visual Studio 2010 以降 ) では 標準で System.Speech が用意されて居るので 此れを利用して音声認識を行うサンプルを紹介する 下記の様な Windows フォームアプリケーションを作成する エディタを起動すると
ファイル操作－インターネットキャッシュ
ファイル操作 インターネット一時ファイルの保存場所 インターネットキャッシュ インターネット一時ファイルの保存場所は Internet Explorer の場合 下記の手順で確認する事が出来る 1.[ ツール ] [ インターネットオプション ] でインターネットオプション画面のダイアログを表示させる 2.[ 全般 ] タブで [ インターネット一時ファイル ] グループの [ 設定 ] をクリックすると
チア ダンス
チアダンス きょうつうへんすうこうぞうたいせんげん 共通の変数や構造体を宣言する せんたくひょうじ 1. ソリューションエクスプローラで CheerDance.vb を選択し コードの表示をクリックする 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.IO Public Class frmmain 1 ここに入力する! End Class Private
(Microsoft Word \203v\203\215\203O\203\211\203~\203\223\203O)
21113 Visual Basic を利用したフリーソフト開発 要旨 各自でフリーソフトを作成 インターネット上に公開することを目的とし Visual Basic2008 2010 を使い簡単なアプリの作成に成功した 1. 目的情報化が進んだ現代において 社会に出ていくためにはパソコンの一つや二つ 軽く扱えなければならない さらに 資源の乏しい日本においては今後 情報技術の発展することが望ましいと考える
コンピュータ概論
4.1 For Check Point 1. For 2. 4.1.1 For (For) For = To Step (Next) 4.1.1 Next 4.1.1 4.1.2 1 i 10 For Next Cells(i,1) Cells(1, 1) Cells(2, 1) Cells(10, 1) 4.1.2 50 1. 2 1 10 3. 0 360 10 sin() 4.1.2 For
練習問題 1-1 ヒント 解答方針 label1 の値を 10 増やすためには 次のように記述します label1.text = Convert.ToString(Convert.ToInt32(label1.Text) + 10); フォームのデザイン例 button2 button1 label
練習問題 1-1 label1 の値を 10 増やすためには 次のように記述します label1.text = Convert.ToString(Convert.ToInt32(label1.Text) + 10); button2 label1 private void _Click(object sender, EventArgs e) label1.text = Convert.ToString(Convert.ToInt32(label1.Text)
LogisticaTRUCKServer-Ⅱ距離計算ｻｰﾊﾞ/Active-Xｺﾝﾄﾛｰﾙ/ｸﾗｲｱﾝﾄ 概略
- LogisticaTRUCKServer-Ⅱ(SQLServer 版 ) 距離計算サーハ API.NET DLL WindowsForm サンフ ルフ ロク ラム - 1 - LogisticaTRUCKServer-Ⅱ 距離計算サーハ.NET DLL WindowsForm VisualBasic での利用方法 LogisticaTRUCKServer-Ⅱ 距離計算.NET DLLのサンプルプログラムの参照サンフ
LogisticaTRUCKServer-Ⅱ距離計算ｻｰﾊﾞ/Active-Xｺﾝﾄﾛｰﾙ/ｸﾗｲｱﾝﾄ 概略
- LogisticaTRUCKServer-Ⅱ(SQLServer 版 ) 距離計算サーハ API.NET DLL WebForms ASP.NET サンフ ルフ ロク ラム - 1 - LogisticaTRUCKServer-Ⅱ 距離計算サーハ.NET DLL WebForm ASP.NET VisualBasic での利用方法 LogisticaTRUCKServer-Ⅱ 距離計算.NET
Microsoft Word - VB_10.doc
ここでは オブジェクトの移動 キーボードからの入力判定について学んだ後 動きのある本格的なゲームを作成しましょう 10.1 オブジェクトの位置 第 10 章 動きのあるゲーム オブジェクトの位置もプロパティです Location プロパティを見ることでオブジェクトの座標がわかります また Location プロパティを変更することでオブジェクトの位置を変更できます Location プロパティは X
Public Class Class4SingleCall Inherits MarshalByRefObject Public Sub New() End Sub Public Function OneProc(ByVal The As A SC) As A SC Dim The As New A SC The.answer = The.index * 2 + 1000 Return The End
ドッグファイト
ドッグファイト きょうつうへんすうこうぞうたいせんげん 共通の変数や構造体を宣言する ひょうじ 1. ソリューションエクスプローラで コードの表示をクリックする 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Public Class DogFighter 1 ここに入力する! End Class Private Structure BeamPosition Dim XL As
プロシード
プロシード VB 2005 14 きょうつうへんすうせんげん 共通の変数を宣言する ひょうじ 1. ソリューションエクスプローラで コードの表示をクリックする つぎひょうじところしたかこ 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.IO Imports System.Drawing.Drawing2D Public Class proceed
Ｍｙ関数の作成演習問題集
Excel Sum,Average,Max 330 BMI Excel My Excel VBA Visual BASIC Editor AltF11 Visual BASIC Editor My Function Function -1- Function ( As Single, As Single) As Double Function Funciton Funciton As Single
平成 30 年度 プログラミング研修講座 岩手県立総合教育センター
平成 30 年度 プログラミング研修講座 岩手県立総合教育センター 目次第 1 章プログラミングについて 1 ソフトウェアの働き 1 2 プログラミング言語 1 3 主なプログラミング言語の歴史 2 第 2 章 Visual Basic について 1 Visual Basic とは 3 2.NET Framework の環境 3 3 Visual Basic と.NET Framework の関係
情報処理 VB 音２
VB-2-1 情報処理 -VB 1. Visual Basic の起動まず Microsoft Visual Studio.Net 2003 を立ち上げてください また 新しいプロジェクト を選んで たとえば リズム というプロジェクトを作ってください 次に ファイル メニューから 既存項目の追加 を選び フォルダを1つ上がって メトロノーム ( あるいは 前回つけた名前 ) を選んで開き Form1.vb
構造体
構造体 Byte 配列 構造体とコピーする方法 構造体とバイト配列の変換を行うには System.Runtime.InteropServices 名前空間をインポートして置くと便利で有る Imports System.Runtime.InteropServices using System.Runtime.InteropServices; 下記の 3 種類の構造体にバイト配列の値を格納した場合に付いて検証する
ランボール
ランボール きょうつうへんすうせんげん 共通の変数を宣言する ひょうじ 1. ソリューションエクスプローラで コードの表示をクリックする つぎひょうじところしたかこにゅうりょく 2. 次のコードが表示されるので 1の所に 下の囲いのコードを入力する Imports System.Runtime.InteropServices Public Class runball にゅうりょく 1 ここに入力する!
With sqlda sqlda に SelectCommand を追加.SelectCommand = New MySqlCommand() With.SelectCommand.CommandType = CommandType.Text.CommandText = "select * from
Imports MySql.Data.MySqlClient Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label3.Text = "MySQL のデータ表示と更新のテストを行います メニューから行いたい処理を選択して実行してください
かべうちテニス
かべうちテニス ときみぎうご スタートボタンをクリックした時 ボールを右に動かす がめん 1. デザイン画面で スタートボタン をダブルクリックする つぎひょうじしたかこにゅうりょく 2. 次のコードが表示されるので 下の囲いのコードを入力する Private Sub btnstart_click(byval sender As As System.EventArgs) Handles btnstart.click
Case 0 sqlcmdi.parameters("?tencode").value = Iidata(0) sqlcmdi.parameters("?tenname").value = Iidata(1) 内容を追加します sqlcmdi.executenonquery() Case Else
Imports MySql.Data.MySqlClient Imports System.IO Public Class Form1 中間省略 Private Sub コマンドテストCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles コマンドテストCToolStripMenuItem.Click
D0050.PDF
Excel VBA 6 3 3 1 Excel BLOCKGAME.xls Excel 1 OK 2 StepA D B1 B4 C1 C2 StepA StepA Excel Workbook Open StepD BLOCKGAME.xls VBEditor ThisWorkbook 3 1 1 2 2 3 5 UserForm1 4 6 UsorForm2 StepB 3 StepC StepD
D0020.PDF
n 3 X n Y n = Z n 17 1995 300 n n 2 3 2 a b c c 2 a 2 b 2 600 2000 322 3 15 2 3 580 3 1 5 4 3 2 1 300 2 1 2 1 1 ExcelVBA 2 VBA 1 VBA 2 API Sleep ExcelVBA 2 100 60 80 50 ExcelVBA API Sleep 3 100 60 (80
ListViewコントロール
ListView コントロール ListView コントロールへ項目を追加 本稿では.NET Framework の標準コントロールで有る ListView コントロール (System.Windows.Forms 名前空間 ) を活用する為に ListView コントロールにデータを追加する方法を紹介する ListView コントロールは データ項目をアイコン表示や詳細表示等に依り一覧表示する為の物で
ファイル操作
ファイル操作 TextFieldParser オブジェクト ストリームの読込と書込 Microsoft.VisualBasic.FileIO 名前空間の TextFieldParser オブジェクトは 構造化テキストファイルの解析に使用するメソッドとプロパティを備えたオブジェクトで有る テキストファイルを TextFieldParser で解析するのは テキストファイルを反復処理するのと同じで有り
Taro-H21VBテキスト.jtd
平成 21 年度 VisualBasic 研修講座 岩手県立総合教育センター 目 次 第 1 章 Visual Basicについて 1 Visual Basicとは 1 2 Visual Basic 2008 Express Editionとは 1 3 学習におけるコンピュータの利用 2 第 2 章 Visual Basic 2008 Express Editionの基本操作 1 起動と画面構成 3
VFD256 サンプルプログラム
VFD256 サンプルプログラム 目次 1 制御プログラム... 1 2.Net 用コントロール Vfd256 の使い方... 11 2.1 表示文字列の設定... 11 2.2 VFD256 書込み前のクリア処理... 11 2.3 書き出しモード... 11 2.4 表示モード... 12 2.5 表示... 13 2.6 クリア... 13 2.7 接続方法 ボーレートの設定... 13 2.8
Visual Studio2008 C# で JAN13 バーコードイメージを作成 xbase 言語をご利用の現場でバーコードの出力が必要なことが多々あります xbase 言語製品によっては 標準でバーコード描画機能が付加されているものもあるようで す C# では バーコードフォントを利用したりバー
Visual Studio2008 C# で JAN13 バーコードイメージを作成 xbase 言語をご利用の現場でバーコードの出力が必要なことが多々あります xbase 言語製品によっては 標準でバーコード描画機能が付加されているものもあるようで す C# では バーコードフォントを利用したりバーコード OCX や バーコード対応レ ポートツールが豊富にありますので それほど困ることは無いと思われます
3軸加速度センサーモジュール MM-2860 書込み済みマイコンプログラム通信コマンド概要
アプリケーションノートミニマイコン評価カード CT-298 3 軸加速度センサーモジュール MM-2860 書込み済みマイコンプログラム通信コマンド概要 1. 概要 CT-298 DIP SF9S08C 3 MM-2860 HC9S08QG8-XYZ2_v1.1 PC PC PC HC9S08QG8-XYZ2_v1.1 CodeWorrior http://www.freescale.co.jp/products/8bit/9s08qg.html
ウィンドウ操作 応用
Win32API 関数 ウィンドウ操作 ウィンドウ名でトップレベルウィンドウ ( 親を持たないウィンドウ ) のハンドルを取得 メモ帳や電卓等のウィンドウ名でトップレベルウィンドウ ( 親を持たないウィンドウ ) のハンドルを取得する方法を 下記に示す Visual Basic Imports System.Runtime.InteropServices Public Class WindowFromWindowName
B 5 (2) VBA R / B 5 ( ) / 34
B 5 (2) VBAR / B 5 (2014 11 17 ) / 34 VBA VBA (Visual Basic for Applications) Visual Basic VBAVisual Basic Visual BasicC B 5 (2014 11 17 ) 1 / 34 VBA 2 Excel.xlsm 01 Sub test() 02 Dim tmp As Double 03
VB プログラム Form1.vb メイン画面 Imports System.Windows.Forms.DataVisualization.Charting Imports System Imports System.Net Imports System.Net.Sockets Imports S
Application Note Ref No: an2k-042 Last Modify 130123 テーマ MPC-IP で環境試験機の温湿度をモニタする使用機器 MPC-IP VB2010 Express 他 概要 監視室 試験室 VB アプリ WiFi ルータ ハブ 環境試験機 MPC-IP オンボード温湿度計で計測 製品の動作確認などを行う環境試験機の温湿度を別室でモニタします 温湿度の変化で工程の進捗状況を知ることができます
Microsoft Word - ŁtŸ^‡S
付録 4 汎用版のニアミス判別ソフトウェアのソースコード汎用版のニアミス判別ソフトウェアのニアミス判別モジュールに関するソースコードを以下に示す. --------------------------------------------------------------------------------------------------------------------------------
PowerPoint プレゼンテーション
ループ ループとは? ある条件を満たすまで 指定の命令を繰り返す Do... Loop For Next For Each Next While WEnd ループの種類 Do Loop Do While 条件 ステートメント Loop Do ステートメント Loop While 条件 Do Until 条件 ステートメント Loop Do ステートメント Until Loop 条件 Do Loop
ICONファイルフォーマット
グラフィックス 画像フォーマットエンコーダパラメータ 様々なフォーマットで画像を保存 Bitmap クラスを用いる事でビットマップ JPEG GIF PNG 等様々なフォーマットの画像を読み込み操作する事が出来る 更に Bitmap クラスや Graphics コンテナを用いて描画処理等を施したイメージをファイルに保存する事も出来る 此の時 読み込めるフォーマット同様に保存するフォーマットを選択する事が出来る
回文作成支援プログラム
スロットプログラム プログラムの概要 スタートボタンをクリックすると 3 個のピクチャーボックスの絵がランダムに変化する 次にストップボタンをクリックすると 3 個のピクチャーボックスの絵が止まり 3 個の絵柄が総て揃えば あたり 2 個の絵柄が揃えば おしい 総ての絵柄が異なれば はずれ と表示される 終了ボタンをクリックすると プログラムをメモリから消去して終了する 今回の課題項目 定数の宣言
Public Grid As ReverseGrid Public Position As Point ' 論理位置 Public Rectangle As Rectangle ' 物理位置 Status; 黒 白 なしの状態 Grid; オセロの盤面 Position; 盤面内の説明 Rectan
31204 プログラミング 3605 井上寛晶 3531 松井佑樹 3635 宮地翼 要旨各自でフリーソフトを作成 インターネット上に公開することを目的とし Visual Basic2008 2010 を使い 二年生までは ちんちろりん という簡単なゲームを作ったが 今回はより難度が高い オセロ の作成に成功した 本文 1. 目的情報化が進んだ現代において 社会に出ていくためにはパソコンの一つや二つ
Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2
Excel2000VBA L e a r n i n g S c h o o l 1 Lesson 1 1 EXVBA2000 Lesson01 Lesson01.xls 2 3 Module1:(General)- Public Sub () Dim WS As Object Dim DiffDate As Integer Dim MaxRows As Integer, CopyRows As Integer
第 3 章 Visual Studio Community 2015 の基本操作 1 起動と画面構成 (1)Visual Studio 2015 の起動 [ スタート ] ボタン [ すべてのプログラム ] [Visual Studio 2015] をクリックし, を選択します (2) 起動直後の画
![第 3 章 Visual Studio Community 2015 の基本操作 1 起動と画面構成 (1)Visual Studio 2015 の起動 [ スタート ] ボタン [ すべてのプログラム ] [Visual Studio 2015] をクリックし, を選択します (2) 起動直後の画](/thumbs/78/77831700.jpg "第 3 章 Visual Studio Community 2015 の基本操作 1 起動と画面構成 (1)Visual Studio 2015 の起動 [ スタート ] ボタン [ すべてのプログラム ] [Visual Studio 2015] をクリックし, を選択します (2) 起動直後の画")
平成 29 年度 プログラミング研修講座 岩手県立総合教育センター 第 3 章 Visual Studio Community 2015 の基本操作 1 起動と画面構成 (1)Visual Studio 2015 の起動 [ スタート ] ボタン [ すべてのプログラム ] [Visual Studio 2015] をクリックし, を選択します (2) 起動直後の画面 起動直後に次の画面が表示される
VB アプリケーション ComboBox IP アドレス ComboBox ポート番号 ListView TextBox VB2010 Express で作成しました 上のグラフは 2012 年 12 月 27 日 ~2013 年 1 月 10 日 つまり年末年始休業とその前後の社内の温湿度の変化で
Application Note Ref No: an2k-041 Last Modify 130122 テーマ MPC-2200 を使った温湿度ロガーに TPC アクセスする使用機器 MPC-2200 MPC-IP RS-485 温湿度計他 概要 社内 温湿度計 RS-485 インターネット ケーブルモデム WiFi ルータ MPC-2200 MPC-IP イーサネット おうち PC インターネット接続で遠隔地から同じ作業が可能です
Microsoft PowerPoint - vp演習課題
演習課題 (1) 27 Nov., '18 katakan2hiragana.xlsm は, 下図のように 4~8 行目の B 列に漢字で表記した氏名,C 列にカタカナで表記したヨミガナ,D 列にひらがなで表記したよみがなを表示させることを意図している. このシートは, セル範囲 "B4:B8"( 図の赤枠内 ) に, キーボードから漢字で氏名を入力すると C 列にカタカナのヨミガナが自動的に表示されるようになっている.
Excel Excel Excel = Excel ( ) 1
10 VBA / 10 (2016 06 21 ) Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 10 (2016 06 21 ) 1 Excel VBA Excel Excel 2 20 Excel QR Excel R QR QR BLASLAPACK 10 (2016 06 21 ) 2 VBA VBA (Visual Basic
プリンタ印字用 DLL 取扱説明書
プリンタ印字用 DLL 取扱説明書 目次 1 はじめに... 1 2 制御プログラム... 2 2.1 制御プログラムの作成方法... 2 3 easyprn.dll の使い方... 11 3.1 easyprn.dll で使用できるコマンド... 11 3.2 バーコード印字方法... 13 3.3 ロゴの印字... 15 1 はじめに プリンタ印字用 DLL ファイル easyprn.dll
Prog2_15th
2019 年 7 月 25 日 ( 木 ) 実施メニューメニューバーとコンテクストメニュー Visual C# では, メニューはコントロールの一つとして扱われ, フォームアプリケーションの上部に配置されるメニューバーと, コントロール上でマウスを右クリックすると表示されるコンテクストメニューとに対応している これ等は選択するとメニューアイテムのリストが表示されるプルダウンメニューと呼ばれる形式に従う
untitled
ST0001-1- -2- -3- -4- BorderStyle ControlBox, MinButton, MaxButton True False True False Top Left Height,Width Caption Icon True/False -5- Basic Command1 Click MsgBox " " Command1 Click Command1 Click
倉庫番
倉庫番 VB 2005 63 プログラムの概要 其の昔 一世を風靡し世界中に愛好家の居るパズルゲーム 倉庫番 で有る 荷物 ( 蛸 ) を押して ( 引く事は出来ない ) 所定の場所 ( 壺 ) に納める単純明快な物で有る 猶 一度クリアした面は 自由に再度プレイする事が出来るが 新たな面には 前の面をクリアしないと進む事は出来ない 一般的に 実用プログラムに比較するとゲームプログラムは 高度なテクニックを要求される事が多い
Microsoft Word - t doc
2008 年度特別研究 u-w 法を用いた樹木の成長解析ソフトウェア開発と検証 2008 年 1 月 23 日 龍谷大学理工学部環境ソリューション工学科 T050592 青木将晃宮浦富保教授 目次要旨 3P 1. はじめに 4P 2.u-w 法について 4P 3. 目的 6P 4. 方法 9P 5. 結果 8P 6. 考察 12P 7. 引用文献 14P 8. 謝辞 14P 9. 付録 15P 2
BASICとVisual Basic
Visual Basic BASIC Visual Basic BASICBeginner's All purpose Symbolic Instruction Code Visual Basic Windows BASIC BASIC Visual Basic Visual Basic End Sub .Visual Basic Visual Basic VB 1-1.Visual Basic
データアダプタ概要
データベース TableAdapter クエリを実行する方法 TableAdapter クエリは アプリケーションがデータベースに対して実行出来る SQL ステートメントやストアドプロシージャで TableAdapter で型指定されたメソッドと仕て公開される TableAdapter クエリは 所有るオブジェクトのメソッドと同様に 関連付けられたメソッドを呼び出す事に依り実行出来る TableAdapter
LogisticaTRUCKServer-Ⅱ距離計算ｻｰﾊﾞ/Active-Xｺﾝﾄﾛｰﾙ/ｸﾗｲｱﾝﾄ 概略
- LogisticaTRUCKServer-Ⅱ(SQLServer 版 ) 距離計算サーハ API ソケット通信サンフ ルフ ロク ラム -1- LogisticaTRUCKServer-Ⅱ 距離計算サーハ API ソケット通信 Java でのソケット通信 Javaでのソケット通信の実行サンフ ルフ ロク ラムポート番号は 44963 条件値, 起点, 終点 を送信して 条件値, 起点, 終点,
1. 入力画面
指定した時刻に指定したマクロ (VBA) を実行するプログラム (VBA) 益永八尋 様々な業務を行っている場合には 指定した時刻に指定したマクロ (Macro VBA) を実行したくなる場合がある たとえば 9:00 17: 00 や 1 時間 6 時間間隔に指定したマクロ (Macro VBA) を実行する この様な場合に対応できるように汎用性の高いプログラムを作成した この場合に注意する必要があるのは
正規表現応用
正規表現 正規表現を使って文字列が或る形式と一致するか調べる 指定された正規表現のパターンと一致する対象が入力文字列内で見付かるか何うかを調べるには Regex クラスの IsMatch メソッドを使用する 此処では IsMatch メソッドを使った例を幾つか紹介する 猶 正規表現のパターンと一致する個所を探し 見付かれば 其の箇所を抽出する方法は 正規表現を使って文字列を検索し 抽出する で紹介して居る
Microsoft Word - VBA基礎(3).docx
上に中和滴定のフローチャートを示しました この中で溶液の色を判断する部分があります このような判断はプログラムではどのように行うのでしょうか 判断に使う命令は IF 文を使います IF は英語で もし何々なら という意味になります 条件判断条件判断には次の命令を使います If 条件式 1 Then ElseIf 条件式 2 Then ElseIf 条件式 3 Then 実行文群 1 実行文群 2 実行文群
2 X Y Y X θ 1,θ 2,... Y = f (X,θ 1,θ 2,...) θ k III 8 ( ) 1 / 39
III 8 (3) VBA, R / III 8 (2013 11 26 ) / 39 2 X Y Y X θ 1,θ 2,... Y = f (X,θ 1,θ 2,...) θ k III 8 (2013 11 26 ) 1 / 39 Y X 1, X 2,..., X n Y = f (X 1, X 2,..., X n,θ 1,θ 2,...) (y k, x k,1, x k,2,...)
45 VBA Fortran, Pascal, C Windows OS Excel VBA Visual Basic Excel VBA VBA Visual Basic For Application Microsoft Office Office Excel VBA VBA Excel Acc
\n Title 文 系 学 生 のための VBA プログラミング 教 育 についての 考 察 Author(s) 五 月 女, 仁 子 ; Soutome, Hiroko Citation 商 経 論 叢, 46(1): 45-60 Date 2010-10-31 Type Departmental Bulletin Paper Rights publisher KANAGAWA University
神経衰弱ゲーム
神経衰弱ゲーム VB 2005 10 プログラムの概要 プログラムを起動すると 1 組のカードが裏向きに表示される 開始ボタンをクリックすると 其の場所に 先手と後手の得点が表示され タイトル部分に手番が表示されてゲームを開始する事が出来る 任意のカードを左クリックして開き 同じ数字のカードを 2 枚開くと 其のカードは盤上から取り除かれ カードを開いた者の得点と成る 開いた 2 枚のカードが揃わ無い時は
VB6互換のファイルの処理
Visual Basic のランタイム関数を使用したファイルアクセス FileOpen 関数 ファイルを開いて入出力を行う FileOpen(FileNumber, FileName, Mode[, Access[, Share[, RecorLength]]]) 引数 FileNumber は必ず指定する 有効なファイル番号を指定する FreeFile 関数を使用して 使用可能な次のファイル番号を取得する事が出来る
データを TreeView コントロールで表示 VisualStudio2017 の Web サイトプロジェクトで bootstrap, 及び script フォルダの js ファイルが使用できるマスターページを親とする TestTreeView.aspx ページを作成します 下記の html コー
データを TreeView コントロールで表示 VisualStudio2017 の Web サイトプロジェクトで bootstrap, 及び script フォルダの js ファイルが使用できるマスターページを親とする TestTreeView.aspx ページを作成します 下記の html コードのスタイルを作成します html コード 1
sinfI2005_VBA.doc
sinfi2005_vba.doc MS-ExcelVBA 基礎 (Visual Basic for Application). 主な仕様一覧 () データ型 主なもの 型 型名 型宣言文字 長さ 内容 整数型 Integer % 2 バイト -32,768 32,767 長整数型 Long & 4 バイト -2,47,483,648 2,47,483,647 単精度浮動小数点数 Single 型!
Secure iNetSuite for .NET 4.0Jの新仕様について
Secure inetsuite for.net 4.0J の新仕様について グレープシティ株式会社 2013 年 8 月初版 メール送受信とファイル転送機能を実現する通信コンポーネント Secure inet Suite の通信モードの仕様が新しくなりました 本資料では従来のバージョンとの違いとメリットをコードを使って詳しく解説します はじめに 2013 年 9 月発売の Secure FTP for.net
Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 III 7 (2014 11 18 ) 1
III 7 VBA / III 7 (2014 11 18 ) Excel Excel Excel 20132 20 = 1048576 Excel 201316 100 III 7 (2014 11 18 ) 1 Excel VBA Excel Excel 2 20 Excel QR Excel R QR QR BLASLAPACK III 7 (2014 11 18 ) 2 VBA VBA (Visual
.NETプログラマー早期育成ドリル ～VB編 付録 文法早見表～
.NET プログラマー早期育成ドリル VB 編 付録文法早見表 本資料は UUM01W:.NET プログラマー早期育成ドリル VB 編コードリーディング もしくは UUM02W:.NET プログラマー早期育成ドリル VB 編コードライティング を ご購入頂いた方にのみ提供される資料です 資料内容の転載はご遠慮下さい VB プログラミング文法早見表 < 基本文法 > 名前空間の定義 Namespace
Microsoft PowerPoint - Visualプログラミング
流れの制御構造 多方向分岐 プログラムの制御構造は下記の 6 つ (1) 連接 ( 連なり ) (2) 所定回数反復 ( 一定回数の繰り返し ) (3) 判断 ( 分かれ ) (4) 多方向分岐 (5) 前判定反復 (6) 後判定反復 上記以外は使ってはいけない. 141 if 文による多方向に分岐する処理 (1) Sub elseif2() Dim a As Integer a = Range("A1").Value
ＶＢ．ＮＥＴ解説
Visual Basic.NET 印刷編 目次 印刷の概要... 2 印刷の流れ... 2 標準の Windows フォーム印刷ジョブの作成... 3 実行時に於ける Windows フォーム印刷オプションの変更... 3 Windows フォームに於ける接続されたプリンタの選択... 4 Windows フォームでのグラフィックスの印刷... 5 Windows フォームでのテキストの印刷...
csv csv
2009 1 9 2 1. 1 2. 2 2.1......................................... 2 2.2 csv.................................... 3 2.3 csv.................................. 3 3. 4 3.1.........................................
３Ｄ回転体プログラム
3D 回転体プログラム VB 2005 4 プログラムの概要 入力画面で マウスを用いて 側面より見た平面図を描きます マウスの左ボタンをクリックする事で連続線を描き 右ボタンをクリックすると新しい線を描く事が出来る 側面図が完成すると 回転の基本角度を設定して 確定ボタンをクリックすると 平面図を立体図に座標変換する 各軸の回転角度を設定して 表示ボタンをクリックすると 立体図が表示される 各軸の回転角度を変更して
相性占いプログラム
相性占いプログラム VB 2005 1 プログラムの概要 画面上で 男女夫々れの誕生日の月日と血液型をコンボボックスより選択した後 占うボタンをクリックする 相性とアドバイス & ポイントは 血液型と星座の位置に依り 予め或る占術法に基づき作成されたデータをファイルより読み込んで配列に記憶させ 誕生日と血液型に依り算出された評価値に該当するデータを表示する 猶 必要な入力が行われて居ない場合には 警告音を鳴らして
はるよちゃんっ！
ゴルフ VB 2005 68 プログラムの概要 ゴルフ版スポーツシミュレーションゲーム ゴルフ で有る 新規ゲームで ゲームを開始し 倶楽部ハウスでプログラムを終了する 操作方法や新しいコースを自作する方法に付いては ヘルプを観れば解る様に成って居る 一般的に 実用プログラムに比較するとゲームプログラムは 高度なテクニックを要求される事が多い 此処では ゲームプログラムを作成する事に依り 楽しみ乍ら
ドライブは安全運転で in 滋賀♪
烏賊セーバー VB 2005 71 プログラムの概要 可愛い烏賊が 画面を泳ぐスクリーンセーバーで有る 烏賊の数 背景 ( 黒一色かデスクトップ画面 ) を設定する事が出来る 背景が 黒一色の場合は 単に烏賊が 左右から現れては 反対側に泳いで行く丈だが デスクトップ画面の場合は 徐々に背景が烏賊の形に塗り潰されて行く スクリーンセーバーの本来の目的は ディスプレイの焼き付きを防止する事で有るが 現在では
API 連携方式 外部 DLL の呼び出し宣言 外部 DLL の呼び出し宣言のサンプルコード (Microsoft Visual C#.NET の場合 ) プログラムコードの先頭で using System.Runtime.InteropServices; が必要 クラスの内部に以下のような外部 D
GS1-128 の描画 DLL について (ver. 2.2) 動作環境など動作環境 WindowsXP Windows Vista Windows7 Windows8/8.1 Windows10 上記 OS について すべて日本語版を対象としております 32bit アプリケーションから呼び出される必要があります 使用条件 プリンタの解像度 300dpi 以上 機能 バーコードの基本幅を 1 ドット単位で指定できる
メモリー MAP Data エリア [MPC] [ パネル ] MBK(0) = DT00000 : : MBK(7899) = DT07899 DT10000 DT10012 : タッチパネル DT (MPC Control) MPC 変数 2word SYSCLK の値 (2word Syste
![メモリー MAP Data エリア [MPC] [ パネル ] MBK(0) = DT00000 : : MBK(7899) = DT07899 DT10000 DT10012 : タッチパネル DT (MPC Control) MPC 変数 2word SYSCLK の値 (2word Syste](/thumbs/86/94716609.jpg "メモリー MAP Data エリア [MPC] [ パネル ] MBK(0) = DT00000 : : MBK(7899) = DT07899 DT10000 DT10012 : タッチパネル DT (MPC Control) MPC 変数 2word SYSCLK の値 (2word Syste")
Title Technical Information Ref No: ti2k-151109 Last Modify 151116 MEWNET プロトコル通信 VB.net 用ライブラリ 概要 MEWNET プロトコルで MPC の点データ 変数 配列変数 実 I/O メモリー I/O の読み書きが可能です VB 用の通信ライブラリを用いてパソコンから容易にアクセスできます ライブラリはソースで公開しているので
Oracle Lite Tutorial
GrapeCity -.NET with GrapeCity - FlexGrid Creation Date: Nov. 30, 2005 Last Update: Nov. 30, 2005 Version: 1.0 Document Control Internal Use Only Author Hiroshi Ota Change Logs Date Author Version Change
画像閲覧プログラム
画像閲覧プログラム VB 2005 3 プログラムの概要 連動するドライブリストボックス ディレクトリリストボックス ファイルリストボックスから画像ファイルを選択してクリックします ピクチャーボックスに選択した画像が実物大で表示される 此の時 画像が表示領域より大きい場合は 画像の大きさに応じてスクロールバーが表示される 此のスクロールバーを操作する事に依り 画像全体を見る事が出来る 終了ボタンをクリックすると
Oracle Lite Tutorial
GrapeCity -.NET with GrapeCity - SPREAD Creation Date: Nov. 30, 2005 Last Update: Nov. 30, 2005 Version: 1.0 Document Control Internal Use Only Author Hiroshi Ota Change Logs Date Author Version Change
1. はじめにローテータをパソコンでコントロールする仕掛けを作りました もともと ローテータのコントローラ自体がリモコンな訳ですから リモコンのリモコンということになります 最近は 無線機をパソコンに接続してリモートシャックから運用されている方もかなりいらっしゃるようです となると 無線機だけではな
Arduino で作る ローテータ用リモコン 製作メモ 2013 年 11 月 30 日 難波秀文 1 1. はじめにローテータをパソコンでコントロールする仕掛けを作りました もともと ローテータのコントローラ自体がリモコンな訳ですから リモコンのリモコンということになります 最近は 無線機をパソコンに接続してリモートシャックから運用されている方もかなりいらっしゃるようです となると 無線機だけではなくて
DAOの利用
DAO VB2005 で DAO を使用して Excel のデータを取得 Visual Basic 6.0 Dim DB As DAO.Database Dim RS As DAO.Recordset Dim xlfilename As String Dim xlsheetname As String xlfilename = Form1.StatusBar1.Panels(12) & Dir(Form1.StatusBar1.Panels(12)
2X Y Y X θ 1, θ 2,... Y = f(x, θ 1, θ 2,...) θ k III 8 (2013 05 28 ) 1 / 39
III 8 (3) VBA, R / III 8 (2013 05 28 ) / 39 2X Y Y X θ 1, θ 2,... Y = f(x, θ 1, θ 2,...) θ k III 8 (2013 05 28 ) 1 / 39 Y X 1, X 2,..., X n Y = f(x 1, X 2,..., X n, θ 1, θ 2,...) (y k, x 1,k, x 2,k,...)
パラパラ漫画
パラパラ漫画 VB 2005 3 プログラムの概要 10 枚のピクチャーボックスの夫々れに マウスを左クリックしてドラッグする事に依り 連続線を引き 自由な絵を描く 此の場合 マウスを右クリックする事に依り 新たな線を描き始める事が出来る 描画の対象と成る各ピクチャーボックスは 戻るボタン又は 進むボタンをクリックする事に依り 変更する事が出来る 10 枚の絵を描き終われば ( 途中での再生も可 )
占領双六ゲーム
占領双六ゲーム VB 2005 9 プログラムの概要 赤と青の 2 者が順番にサイコロを振り 出た目の数だけ駒を進めて行き 停止したマス目を自分の色に塗り潰して 自分の陣地に出来ると謂う 所有る陣取りゲームを作成する マス目は最初に其のマスに停止した方の陣地となり 既に孰れかの色に塗り潰されて居るマスに 後から別の駒が停止しても 陣地の占領者が変わる事は無い 総てのマス目が孰れかの色に塗り潰されゝばゲームは終了し
インベーダープログラム
インベーダーゲーム VB 2005 5 プログラムの概要 テレビゲームの流行の魁と成る懐かしのゲーム インベーダー を作成する 先ず FIGHT!! ボタンをクリックすると インベーダーが左右に移動し乍ら 降下して来るので 自機を左右のカーソルキーで移動させ スペースキーでミサイルを発射する インベーダーが 最終ライン迄 降下して 侵略される前に 総てのインベーダーを撃墜しなければ ゲームは終了する
プロセス間通信
プロセス間通信 プロセス間通信 (SendMessage) プロセス間通信とは 同一コンピューター上で起動して居るアプリケーション間でデータを受け渡し度い事は時々有る Framework には リモート処理 と謂う方法でデータの受け渡しを行なう方法が有る 此処では 此の方法では無く 従来の方法の API を使用したプロセス間通信を紹介する 此の方法は 送信側は API の SendMessage で送り
GS1-128 の描画 DLL について (ver. 2.3) 動作環境など動作環境 WindowsXP Windows Vista Windows7 Windows8/8.1 Windows10 上記 OS について すべて日本語版を対象としております 32bit アプリケーションから呼び出される
GS1-128 の描画 DLL について (ver. 2.3) 動作環境など動作環境 WindowsXP Windows Vista Windows7 Windows8/8.1 Windows10 上記 OS について すべて日本語版を対象としております 32bit アプリケーションから呼び出される必要があります 使用条件 プリンタの解像度 300dpi 以上 機能 バーコードの基本幅を 1 ドット単位で指定できる
橡vb_kikai0.PDF
Visual Basic OS Windows Visual Basic GPIBRS232C A/D Visual Basic Windows Visual Basic Visual Basic Visual Basic Visual Basic Windows GUI( ) OS Visual Basic Form Form 1 Visual Basic Microsoft Visual Basic
１
VB 開発向け OCX プログラミング はじめに 本書は STARFAX Server SDK を利用したユーザープログラムの作成方法をご説明しています なお 本書は Visual Basic 6.0 を開発ツールとして STARFAX Server SDK OCX コントロールを使用してプログラムを作成する方を対象としています そして STARFAX Sercer SDK とユーザープログラムとのインターフェイスは
9399-TOOLSGRJA
Getting Results with RSTools DECEMBER 1998 \ \\\\ \\\\ \\ \\ Private Sub Command1_Click() If RSWheel5.HandleDown = False Then RSWheel5.HandleDown = True Else RSWheel5.HandleDown = False
AccessVBA−‹ŠpŁÒ-flO“Z
Microsoft Access 1 2 Private Sub After5days_Click( ) msg = Date + 5 MsgBox mag End Sub 3 Me.Filter = " =' " & Me! & "'" 4 5 Private Sub _Click() If IsNull(Me!) Then MsgBox " " Me!.SetFocus Me!.Dropdown
PowerPoint プレゼンテーション
配列とコレクション 配列の使い方 固定配列 動的配列 コレクションの使い方 今日の目的 固定配列の宣言例 プロシージャレベル Dim arybuf(0 To 5) As Long モジュールレベル Private arybuf(0 To 5) As Long Public arybuf(0 To 5) As Long 固定配列の宣言例 プロシージャレベル Dim arybuf(0 To 5) As
スレッド操作 タイマー
スレッド操作 タイマー System.Windows.Forms.Timer Windows フォームの Timer は 一定の間隔でイベントを発生させるコンポーネントで有る 此のコンポーネントは Windows フォーム環境で使用する サーバー環境に適したタイマが必要な場合は 後述の System.Timers.Timer を使用する イベントの発生する間隔は ミリ秒単位で Interval プロパティで設定しする
Appendix A BASIC BASIC Beginner s All-purpose Symbolic Instruction Code FORTRAN COBOL C JAVA PASCAL (NEC N88-BASIC Windows BASIC (1) (2) ( ) BASIC BAS
Appendix A BASIC BASIC Beginner s All-purpose Symbolic Instruction Code FORTRAN COBOL C JAVA PASCAL (NEC N88-BASIC Windows BASIC (1 (2 ( BASIC BASIC download TUTORIAL.PDF http://hp.vector.co.jp/authors/va008683/
戦略立案をサポートするスコアブックの提案 二宮正樹 研究概要 スポーツをしている人の多くはその競技で勝ちたいと考えるだろう それに必要なのは自分の能力を上げることも重要だが スコアブックからデータを分析し相手に応じた戦略を考えることも大事である しかし スコアブックから戦略を考えるのは比較的面倒で
平成 22 年度卒業論文 戦略立案をサポートするスコアブックの提案 文教大学情報学部経営情報学科 A7P21112 二宮正樹 戦略立案をサポートするスコアブックの提案 二宮正樹 研究概要 スポーツをしている人の多くはその競技で勝ちたいと考えるだろう それに必要なのは自分の能力を上げることも重要だが スコアブックからデータを分析し相手に応じた戦略を考えることも大事である しかし スコアブックから戦略を考えるのは比較的面倒で
ファイル監視
ファイル操作 ファイルやディレクトリの監視 FileSystemWatcher クラス.NET Framework のクラスライブラリには ファイルやディレクトリの作成 変更 削除を監視する為の FileSystemWatcher クラスが System.IO 名前空間に用意されて居る ( 但し Windows 98/Me では利用出来ない ) 此れを利用すると 特定のディレクトリにファイルが作成された
橡WINAPLI.PDF
Windows Visual Basic 2.0 8 7 29 8 2 Windows 1. Windows 1 1.1. Windows 1 1.2. 1 2. Visual Basic 2 2.1. VisualBasic 2 2.2. Visual Basic 2 2.2.1. 2 2.2.2. 2 2.2.3. 2 2.2.4. 2 2.2.5. 2 2.3. Visual Basic 3
TOEIC
TOEIC 1 1 3 1.1.............................................. 3 1.2 C#........................................... 3 2 Visual Studio.NET Windows 5 2.1....................................... 5 2.2..........................................
D0090.PDF
400. 1 1 1 3 500g 180cm A A 0g 500g 500g 500g 0.2 0.3 cm 500g 1kg 12 2 4 2 1 2 1 500g 500g 500g 2 A FreeFall 2 VBEditor 1 1 Option Explicit Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)