Visual Basic.NET 1
... P.3 Visual Studio.NET... P.4 2-1 Visual Studio.NET... P.4 2-2... P.5 2-3... P.6 2-4 VS.NET(VB.NET)... P.9 2-5.NET... P.9 2-6 MSDN... P.11 Visual Basic.NET... P.12 3-1 Visual Basic.NET... P.12 3-2... P.12 3-3 VB.NET... P.14... P.20 4-1... P.20 4-2... P.20 4-3... P.21 4-4... P.23... P.30... P.31... P.32 2
3
2009 [1] 1 2009 2004 2009 6 2 4
25 8000 6 9000 Visual Basic.NET Visual Basic.NET Visual Basic.NET Visual Studio.NET Visual Basic.NET Visual Basic.NET Visual Studio.NET 2-1 Visual Studio.NET Visual Studio.NET(VS.NET) Windows VS.NET.NET Window Windows Windows Web VB.NET VB6.0 VB.NET Visual Studio Visual Studio.NET.NET Framework Windows (Win32 ) VS.NET (.NET ).NET Framework 2 Win32.NET 5
2002 Visual Basic.NET(VB.NET) Web Visual C#.NET Visual C++.NET Visual j.net Visual Studio.NET(VS.NET) 2003 Visual Studio.NET version2003 Visual Studio.NET version2003 2005 11.NET Visual Studio 2005 64 2008 2 Visual Studio 2008 VB C# J# Visual C++ Windows 98/Me/NT4 Visual Studio.NET 2-2 [2] 3 6
[2] 4 2-3 [3] 5 7
[4] [5] 6 [6] TestClass Private m_value As Integer Private m_name As String Private Sub Class Initialize () m_value = 666 m_name = "Iron Maiden" End Sub Public Property Get getvalue() As Integer getvalue = m_value End Property Public Property Let setvalue(byval value As Integer) m_value = value 8
End Property Public Property Get getname() As String getname = m_name End Property Public Property Let setname(byval name As String) m_name = name End Property [7] [8] [9] Public Class Class1 Public Sub Test1() Trace.WriteLine("Test1 called") End Sub End Class Public Class Class2 Inherits Class1 Public Sub Test2() Trace.WriteLine("Test2 called") End Sub End Class 7 (sender) 9
(receiver) [10] 2-4 VS.NET(VB.NET) Visual Studio 2003 Windows95 Windows me OS( ) Microsoft Windows XP Professional Home Edition Microsoft Windows 2000 Professional Service Pack3 Microsoft Windows 2000 Server Service Pack3 Microsoft Windows 2000 Advanced Server Service Pack3 Microsoft Windows Server 2003 Standard Edition Enterprise Edition Visual Studio 2005 Intel Itanium (IA64) [11] 2-5.NET.NET Framework.NET.NET Framework.NET VS.NET(VB.NET).NET Framework.NET CLR [12] 8 10
CLR.NET.NET /XML XML Web Web Web Windows Windows ASP.NET Web Web CLR.NET.NET IL(Intermediate Language) IL IL CLR ( ) ( ) (DLL Hell ) CLR.NET CLR.NET / 11
DLL Hell DLL COM DLL COM ASP.NET ASP.NET HTML XML SOAP Web Web Web HTML HTTP Graphical User Interface GUI Visual Studio GUI GUI SOAP XML HTTP 2-6 MSDN MicroSoft Developer.Network 12
Visual Basic.NET 3-1 Visual Basic.NET Visual Basic.NET Basic VB.NET Visual Basic.NET Basic Fortran FORmula TRANslater Cobol COmmon Business Oriented Language C VB.NET VS.NET Visual Windows 1 Visual Basic.NET 3-2 Label Button TextBox ListBox 13
9 timer 14
Visual Basic.NET Visual Basic.NET 10 10 3-3 VB.NET VB.NET 15
11 12 Windows VB.NET 11 12 13 14 13 14 16
(1) VB.NET 15 Button1 16 15 16 (2) Private sub End sub Label1 Dim M As String M = Label1.Text = M 17
(1) 17 17 Button1 Label1 18 19 18 19 (2) n m 20 21 18
20 21 22 22 1 f 23 19
23 24 24 (f) (x) 25 25 20
4-1 [13] 4-2 Visual Studio 2005 26 26 27 21
27 4-3 74 1 74 Dim a() As String = {,,,,,,, } Dim b() As String = { 1, 2, 3, 4, 5, 73, 74, 75 } 5 01234 Get Length For i = 0 To.Length 1 Length If Select Case 28 22
28 If If s.substring(i 1) = " " Then tmp=b(0) Substring b( ) tmp if tmp Select Case Select Case 29 29 23
Select Case 74 FillEllipse Label1.Text =Label1.Text& 30 Select Case tmp = tmp + s Select Case 30 30 4-4 Dim Dim X As string = {,,,, } 24
Dim Y As string = { a, i, u, e, o } string For Next For Next 31 31 Next For.NET step1 Exit For Next Get Length Dim Names() As string = {,, } Dim X As Integer For X = 0 To Name.Length - 1 ListBox1.Items.Add(K + 1 & & Names(X)) Get Length Dim X(2) As Integer (2) 0 2 25
0 1 2 3 32 3 32 Dim X(2) As Integer X(0) X(1) = 25 X(2) = 3 MsgBox(X(0) + X(1) + X(2)) () Dim Dim Numbers(99) As Integer Dim i As Integer For i = 0 To 99 Numbers(i) = i Next 100 If If 26
If If then (Else ) 1 else [14] if End If else [14] 33 33 if if 1 2 End If else Else If else [14] 34 34 if 27
Substring MsgBox(.Substring(0,3)) MsgBox(.Substring(1,2)) Dim X As String X = MsgBox(X.Substring(2)) Select Case End Select Case Else End Select Case Else [14] 35 35 select case 36 Dim As Graphics = PictureBox1.Craphics() 28
top left height width 36 Clear Clear(Color. ) Draw Line DrawLine(Pens. x1 y1 x2 y2) 2 x1 y1 x2 y2 Fill Rectangle FillRectangle(Brushes. x y a b) x y x+a y+b Draw Rectangle DrawRectangle(Pens. x y a b) x y x+a y+b Draw Ellipse DrawEllipse(Pen. x y a b) x y x+a y b Fill Ellipses FillEllipse(Brushes. x y a b) x y x+a y b 29
Draw Arc Draw Pie (1) Draw Arc(Pens. x y a b ) Draw Arc (2) Draw Pie(Pens. x y a b ) Draw Pie 37 37 Draw arc draw pie 30
Visual Basic.NET Visual Basic.NET Visual Basic.NET Visual Studio.NET Visual Basic.NET Visual Studio.NET Visual Basic.NET Visual Basic.NET Win32.NET Framework.NET Framework Visual Basic.NET 2-2 2-3 Visual Basic.NET 3-2 3-2 Visual Basic.NET Visual Basic.NET 31
2009 http://www.meti.go.jp/policy/mono_info_service/joho/downloadfiles/2009software_resear ch/09keiei_houkokusyo.pdf http://www.atmarkit.co.jp/im/carc/serial/object01/object01.html http://www.atmarkit.co.jp/fdotnet/basics/oop01/oop01_01.html http://e-words.jp/w/e382abe38397e382bbe383abe58c96.html http://634.ayumu-baby.com/oo/capsule.html http://fullmoon8507.blog62.fc2.com/blog-entry-11.html http://e-words.jp/w/e7b699e689bf.html http://www.atmarkit.co.jp/fdot..net/basics/oop04/oop04_01.html http://www.atmarkit.co.jp/fdotnet/vb6tonet2/vbnet2_10/vbnet2_10_01.html http://www.curiocube.com/mikata/oop/p2_ch14_polymorphism.php Visual Basic.NET P.4 P.5 http://www.atmarkit.co.jp/fdot..net/basics/msdot..net/msdot..net_0 4.html http://maker.usoko...net/nounai/ Visual Basic.NET P.38 P.41 32
33