Commit: 82 - CTraining (svn)

練習用です。いろんなものがごちゃまぜです。

Commit MetaInfo

• Revision: 82 (tree)
• Time: 2015-11-21 17:24:45
• Author: bellyoshi

Log Message

single型のビット分析

Change Summary

• modified: vb2010/vb2010/Form1.Designer.vb
• added: vb2010/vb2010/frmMenu.resx
• added: vb2010/vb2010/Form2.Designer.vb
• modified: vb2010/vb2010/vb2010.vbproj
• added: vb2010/vb2010/Form2.vb
• modified: vb2010/vb2010/My Project/Application.Designer.vb
• modified: vb2010/vb2010/My Project/Application.myapp
• added: vb2010/vb2010/frmMenu.Designer.vb
• added: vb2010/vb2010/frmMenu.vb
• added: vb2010/vb2010/Form2.resx

Incremental Difference

--- vb2010/vb2010/Form1.Designer.vb	(revision 81)
+++ vb2010/vb2010/Form1.Designer.vb	(revision 82)
@@ -22,19 +22,9 @@
     'コード エディターを使って変更しないでください。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.ListBox1 = New System.Windows.Forms.ListBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
-        'ListBox1
-        '
-        Me.ListBox1.FormattingEnabled = True
-        Me.ListBox1.ItemHeight = 15
-        Me.ListBox1.Location = New System.Drawing.Point(12, 66)
-        Me.ListBox1.Name = "ListBox1"
-        Me.ListBox1.Size = New System.Drawing.Size(258, 184)
-        Me.ListBox1.TabIndex = 0
-        '
         'Button1
         '
         Me.Button1.Location = New System.Drawing.Point(12, 26)
@@ -48,15 +38,12 @@
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(282, 253)
+        Me.ClientSize = New System.Drawing.Size(282, 79)
         Me.Controls.Add(Me.Button1)
-        Me.Controls.Add(Me.ListBox1)
         Me.Name = "Form1"
         Me.Text = "Form1"
         Me.ResumeLayout(False)
 
     End Sub
-
-    Friend WithEvents ListBox1 As ListBox
     Friend WithEvents Button1 As Button
 End Class

--- vb2010/vb2010/Form2.Designer.vb	(nonexistent)
+++ vb2010/vb2010/Form2.Designer.vb	(revision 82)
@@ -0,0 +1,62 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form2
+    Inherits System.Windows.Forms.Form
+
+    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Windows フォーム デザイナーで必要です。
+    Private components As System.ComponentModel.IContainer
+
+    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
+    'Windows フォーム デザイナーを使用して変更できます。  
+    'コード エディターを使って変更しないでください。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(22, 12)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "Button1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'ListBox1
+        '
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.ItemHeight = 15
+        Me.ListBox1.Location = New System.Drawing.Point(22, 41)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(407, 94)
+        Me.ListBox1.TabIndex = 1
+        '
+        'Form2
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(497, 165)
+        Me.Controls.Add(Me.ListBox1)
+        Me.Controls.Add(Me.Button1)
+        Me.Name = "Form2"
+        Me.Text = "Form2"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents ListBox1 As ListBox
+End Class

--- vb2010/vb2010/Form2.vb	(nonexistent)
+++ vb2010/vb2010/Form2.vb	(revision 82)
@@ -0,0 +1,56 @@
+Public Class Form2
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim data As Single = 1.6F
+        Dim buff(3) As Byte
+        Dim mem As New System.IO.MemoryStream(buff)
+        Dim br As New System.IO.BinaryWriter(mem)
+        br.Write(data)
+        br.Close()
+        mem.Close()
+
+        Dim bufLastIdx = buff.Length - 1
+        Dim str As String = ByteTobitString(bufLastIdx)
+        For i As Integer = bufLastIdx - 1 To 0 Step -1
+            str += " " & ByteTobitString(buff(i))
+        Next
+        ListBox1.Items.Add($"1.6 = '{str}'")
+
+        Dim result As Decimal
+        result = CalcFrac("10011001100110011001011")
+        ListBox1.Items.Add(result)
+        result = CalcFrac("10011001100110011001100")
+        ListBox1.Items.Add(result)
+        result = CalcFrac("10011001100110011001101")
+        ListBox1.Items.Add(result)
+        result = CalcFrac("10011001100110011001110")
+        ListBox1.Items.Add(result)
+        result = CalcFrac("10011001100110011001111")
+        ListBox1.Items.Add(result)
+
+    End Sub
+
+    Private Function ByteTobitString(ByVal b As Byte) As String
+        Dim ret As String = "--------"
+        For i As Integer = 1 To 8
+            If (b And &H80) = &H80 Then
+                Mid(ret, i) = "1"c
+            Else
+                Mid(ret, i) = "0"c
+            End If
+            b <<= 1
+        Next
+        Return ret
+    End Function
+
+    Private Function CalcFrac(ByVal str As String) As Decimal
+        Dim digit As Decimal = 0.5D
+        Dim result As Decimal = 0D
+        For Each c In str
+            If c = "1"c Then
+                result += digit
+            End If
+            digit /= 2D
+        Next
+        Return result
+    End Function
+End Class
\ No newline at end of file

--- vb2010/vb2010/My Project/Application.Designer.vb	(revision 81)
+++ vb2010/vb2010/My Project/Application.Designer.vb	(revision 82)
@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     このコードはツールによって生成されました。
+'     ランタイム バージョン:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
+'     コードが再生成されるときに損失したりします。
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
@@ -13,15 +13,15 @@
 
 
 Namespace My
-
-    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
-    ' or if you encounter build errors in this file, go to the Project Designer
-    ' (go to Project Properties or double-click the My Project node in
-    ' Solution Explorer), and make changes on the Application tab.
+    
+    'メモ: このファイルは自動生成されました。直接変更しないでください。変更したり、
+    ' ビルド エラーが発生した場合は、プロジェクト デザイナー へ移動し (プロジェクト
+    ' プロパティに移動するか、またはソリューション エクスプローラーのマイ プロジェクト
+    ' ノード上でダブルクリック)、アプリケーション タブ上で変更を行います。
     '
     Partial Friend Class MyApplication
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Public Sub New()
             MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
             Me.IsSingleInstance = false
@@ -29,10 +29,10 @@
             Me.SaveMySettingsOnExit = true
             Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
         End Sub
-
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = Global.vb2010.Form1
+            Me.MainForm = Global.vb2010.frmMenu
         End Sub
     End Class
 End Namespace

--- vb2010/vb2010/frmMenu.Designer.vb	(nonexistent)
+++ vb2010/vb2010/frmMenu.Designer.vb	(revision 82)
@@ -0,0 +1,86 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMenu
+    Inherits System.Windows.Forms.Form
+
+    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Windows フォーム デザイナーで必要です。
+    Private components As System.ComponentModel.IContainer
+
+    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
+    'Windows フォーム デザイナーを使用して変更できます。  
+    'コード エディターを使って変更しないでください。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(26, 22)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(108, 23)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "1.6を200回"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(26, 51)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(157, 23)
+        Me.Button2.TabIndex = 0
+        Me.Button2.Text = "Singleｄ型のビット分析"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(59, 120)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(75, 23)
+        Me.Button3.TabIndex = 0
+        Me.Button3.Text = "Button1"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'Button4
+        '
+        Me.Button4.Location = New System.Drawing.Point(59, 149)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(75, 23)
+        Me.Button4.TabIndex = 0
+        Me.Button4.Text = "Button1"
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        'frmMenu
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(747, 253)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Name = "frmMenu"
+        Me.Text = "frmMenu"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents Button4 As Button
+End Class

--- vb2010/vb2010/frmMenu.vb	(nonexistent)
+++ vb2010/vb2010/frmMenu.vb	(revision 82)
@@ -0,0 +1,9 @@
+Public Class frmMenu
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Form1.Show()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Form2.Show()
+    End Sub
+End Class
\ No newline at end of file