untitled

Size: px

Start display at page:

Download "untitled"

みそらかりこめ
5 years ago
Views:

1 Visual Basic.NET 1

2 ... P.3 Visual Studio.NET... P Visual Studio.NET... P P P VS.NET(VB.NET)... P NET... P MSDN... P.11 Visual Basic.NET... P Visual Basic.NET... P P VB.NET... P P P P P P P P P.32 2

3 3

4 2009 [1]

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.

5 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

6 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 version NET Visual Studio Visual Studio 2008 VB C# J# Visual C++ Windows 98/Me/NT4 Visual Studio.NET 2-2 [2] 3 6

7 [2] [3] 5 7

8 [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

9 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

10 (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

11 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

12 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

13 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

14 9 timer 14

15 Visual Basic.NET Visual Basic.NET VB.NET VB.NET 15

16 11 12 Windows VB.NET

17 (1) VB.NET 15 Button (2) Private sub End sub Label1 Dim M As String M = Label1.Text = M 17

18 (1) Button1 Label (2) n m

19 f 23 19

20 (f) (x)

21 4-1 [13] 4-2 Visual Studio

27 4-3 74 1 74 Dim a() As String = {,,,,,,, } Dim b() As String = { 1, 2, 3, 4,

22 Dim a() As String = {,,,,,,, } Dim b() As String = { 1, 2, 3, 4, 5, 73, 74, 75 } Get Length For i = 0 To.Length 1 Length If Select Case 28 22

23 28 If If s.substring(i 1) = " " Then tmp=b(0) Substring b( ) tmp if tmp Select Case Select Case

24 Select Case 74 FillEllipse Label1.Text =Label1.Text& 30 Select Case tmp = tmp + s Select Case Dim Dim X As string = {,,,, } 24

25 Dim Y As string = { a, i, u, e, o } string For Next For Next 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 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)) ()

26 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

27 If If then (Else ) 1 else [14] if End If else [14] if if 1 2 End If else Else If else [14] if 27

28 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] select case 36 Dim As Graphics = PictureBox1.Craphics() 28

29 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

30 Draw Arc Draw Pie (1) Draw Arc(Pens. x y a b ) Draw Arc (2) Draw Pie(Pens. x y a b ) Draw Pie Draw arc draw pie 30

31 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 Visual Basic.NET Visual Basic.NET Visual Basic.NET 31

32 ch/09keiei_houkokusyo.pdf Visual Basic.NET P.4 P html Visual Basic.NET P.38 P.41 32

33 33

(OnePoint) ( URL Web Copyright 2005 Microsoft Corporation. All rights reserved. Microsoft Windows Visual Basic Visual Studio Microsoft Corporation

Microsoft Microsoft Visual Basic.NET (OnePoint) ( URL Web Copyright 2005 Microsoft Corporation. All rights reserved. Microsoft Windows Visual Basic Visual Studio Microsoft Corporation Microsoft Microsoft