橡WINAPLI.PDF

Size: px

Start display at page:

Download "橡WINAPLI.PDF"

きゅうたごみぶち
9 years ago
Views:

1 Windows Visual Basic

2 Windows 1. Windows Windows Visual Basic VisualBasic Visual Basic Visual Basic Visual Basic

3 Windows Visual Basic If End If Select Case For Next Do Loop

4 Windows Microsoft Windows Visual Basic Microsoft Corporation

5 Windows 1. Windows 1.1. Windows Windows Windows 1 GRPH + F GRPH + O 1 Windows GRPH + C 1 Windows 1

6 Windows 2. Visual Basic VisualBasic Visual Basic 4.0 Windows95 (Program) Visual Basic (Hard Ware) 1 Soft Ware) Visual Basic1) 2) 3) C 4) FORTRAN BASIC 5) Visual Basic Visual Basic Windows Visual Basic Windows Windows

7 Windows 1) 2) 3) 5) 4) 1 Visual Basic 2.3. Visual Basic Visual Basic (F) Visual Basic.frm (X) OK (Y) (Y) Visual Basic (N) Visual Basic 3

8 Windows 2.4. Visual Basic Visual Basic 1) 5) 4) 3) 2 1) ) 1 5) 3) 4

9 Windows 3 Text Text1 4 Text1 Text1 2-1 Visual Basic Text Visual Basic 3 Property 4 Object 5

10 Windows Visual Basic Visual Basic 1) 2) 3) Visual Basic 1) 2) 3) Text1 Text2 Name 2) Text1 Text 2.7. Text1.Text Visual Basic 6

11 Windows 2.8. Visual Basic 3 Text1 Text2 1 Name 1 Change KeyDown KeyUp KeyPress GotFocus LostFocus DragOvre DragDrop Text1 Change Text2.Text = Text1.Text Sub Text1_Change () Text1 Text2 1 End Sub Change 7

12 Windows Sub Text1_Change () Text2.Text = Text1.Text End Sub 2 Text Text1 Change 3. Text1 Text Text1.Text Text2 Text Text2.Text Windows = Click 8

13 Windows (E) GRPH 6 3 E End Sub Command1_Click () End Sub 3 Click (&E) Sub Command1_Click () End End Sub 4 E ( ) GRPH+E Caption Caption (E) GRPH+E Caption & 3.2. Command1 Command1 Caption Windows Windows ALT 98 GRPH 9

14 Windows 4. Interval TV 4.3. Visual Basic butterf.mak 4.1. Picture samples firstapp Strech butterf.mak True 4-1 butterf.mak False Strech True (F) (O)

15 Windows 2 Caption WindowState 2- BackColor ScaleMode 3- Interval 200 Image1 Name Picture Visible Image2 Name Picture Visible Image3 Name Picture Visible OpenWings bfly1.bmp False CloseWings bfly2.bmp False Main bfly1.bmp True Sub Timer1_Timer () Static PickBmp As Integer If Main.Left > Form1.ScaleWidth Then Main.Move 0 If Main.Top < 0 Then Main.Move Main.Left, Form1.ScaleHeight ' Main.Move Main.Left + 20, Main.Top - 5 If PickBmp Then ' Main.Picture = OpenWings.Picture Else ' Main.Picture = CloseWings.Picture End If ' PickBmp = Not PickBmp End Sub 5 PickBmp 11

16 Windows Image1 Image PickBmp = Not PickBmp Main Imterval Image1 Image If End If If End If 6 6 Main. Main.Left + 20, Main.Top -5 Main 4 buttf Move Sub Command2_Click () Timer1.Interval = Timer1.Interval * 0.5 End Sub (0,0) 6 Interval (0,0) (, ) 4.4. Move Main (F) 20 5 (E)

17 Windows 8 8.mak Visual Basic 4.5. _ 40 Hensu = Hensu + 10 Hensu 7 Hensu 10 Hensu 9syu Yama=taku = 4.6. Visual Basic abcde Abcde shiba_1 Ma2suhiro a.b. Masa oka 7 = Hensu 0 = 10 13

18 Windows 5. Visual Basic opensave.frm sample (F) (O)... picview.mak vb samples firstapp butterf.mak textedit.mak vb samples menus 14

19 Windows 6. Visual Basic If Select Case 1) If End If 2) 3) Else If Then True Visual Basic Visual Basic Else End If Else Move End If 6.1. True False 6.2. If Select If Then End If If True 0 False -1 Case butterf.mak If 15

20 Windows 1) If Hensu > 10 Then 2) If Hensu <> 5 Then 3) If Hensu <= 5 And Hensu >= 1 Then 1) Hensu 10 2) Hensu 5 3) Hensu 5 And Hensu 1 Hensu 1 5 Sub Command1_Click () Hensu = Text1.Text If Hensu = 5 Then Text1.Text = " " Else 3 Text1.Text = "" < <= > >= = <> And Or 6-1 In End If 7 5 If End If 7 If

21 Windows Select Case Select Case Case 1 1 Case 2 Case Else End Select Case If Case Else ,2 6-2 Hensu Select Case Hensu Case 1,3 Case 4 To 10 Case Else End Select Text1.text = Text1.text = Text1.text =

22 Windows 6.3. Visual Basic For Next Do Loop For Next 6 Do Loop For i = 1 To For Next Text1.Text = i Next For = To Step Next For Next For Next i Text1 Next Step 1 For I = -1 To 4 Step For Step Next I= I=5 Next Sub Command1_Click () End Sub 8 For Next For Next 18

23 Windows Do Loop Do While Loop Do Loop Do Loop Do Until Do Until Loop 1) 2) 3) 4) If Do Until Loop 10 Do Until 10 = i i = i + 1 Loop 6-4 Do Loop i 1 i 10 For i = i + 1 To 10 Next

24 Windows **-**** 47-**** Windows Visual Basic Visual Basic Rows Cols 20

25 Windows FixedRows ( 0, 0 ) FixedCols 1) ( 4, 4 ) 2) Row Col 8 3) Rows Cols End Sub Row Col 9 Text1 Grid1 Grid1.Row = 0 Grid1.Col = 0 8 Sub Grid1_Click () Text1.Text = Grid1.Row & " " & Grid1.Col & " " Grid1 Click Text 21

26 Windows Col & Grid1.Row Grid1.Col Text1.Text Text End Sub 10 Text Text 8.4. Grid1 Grid1.Row = 0 Grid1.Col = 0 Grid1.Text = ( 0,0 ) Grid1.Text = 8-1 Row Sub Text1_Change () Grid1.text = Text1.text 22

27 Windows Sub Grid1_Click () Text1.SetFocus End Sub 11 TAB Focus Windows Enabled True False 8.5. Grid1 Text1 5 23

28 Windows Sub Grid1_Click() Text1.Text = Grid1.Text Text1.SetFocus End Sub Sub Text1_Change() Grid1.Text = Text1.Text End Sub 8.6. Open For As # 1) Open 2) Print Input 3) Close 1) Output 2) Input Open Print #, Open, 24

29 Windows Print #1, Hensu1,, Hensu2, ;, 12 adress.dat ; a: vb adress.dat Input #, 1,... Windows Input Close # 12 ReDim GridDate(4) GridData Close GridData(0) GridData(1) GridData(2) GridData(3) 8-3 GridData(4) ReDim ReDim ( ) ReDim ( To ) ReDim 0 To 9 For Next

30 Windows Sub Command1_Click () ReDim GridData(4) ' File_Name = "addess.dat" ' ' 1 Open File_Name For Output As #1 For Gyou = 0 To Grid1.Rows - Grid1.FixedRows Grid1.Row = Gyou For Retu = 1 To Grid1.Cols - Grid1.FixedCols Grid1.Col = Retu ' 1,1 ' GridData(Retu) = Grid1.Text Next ' 1 4 Print #1, GridData(1) ; GridData(2) ; GridData(3) ; GridData(4) Next Close #1 End Sub ' adress.dat Print # ; Print #1, GridData(1) ; "," ; GridData(2) ; "," ; GridData(3) ; "," ; GridData(4) ; ", " ; Gyou For 0 26

31 Windows 8.7. Sub Command2_Click () ReDim ReadData(4) As String ' File_Name = "addess.dat" ' ' 1 Open File_Name For Input As #1 Gyou = -1 ' Do Until EOF(1) ' #1 ' 1 4 Input #1, ReadData(1), ReadData(2), ReadData(3), ReadData(4) Gyou = Gyou + 1 ' ' If Gyou >= Grid1.Rows Then Grid1.AddItem " " Grid1.Row = Gyou For Retu = 1 To Grid1.Cols - Grid1.FixedCols ' 1 ' Grid1.Col = Retu Grid1.Text = ReadData(Retu) Next Loop Close #1 End Sub ' 13 27

32 Windows 8.8. AddItem For Next Do Until Loop 13 RemoveItem EOF(1) EOF End Of File RemoveItem EOF ( ) Open 1 AddItem If AddItem AddItem 8-2 Grid1.SelEndRow " " 10 28

33 Windows Sub Command3_Click() Grid1.AddItem " ", Grid1.SelEndRow + 1 End Sub 14 Sub Command4_Click() Grid1.RemoveItem Grid1.SelEndRow End Sub SelEndRow InpuxBox$ 16 InputBox$ KeyWord

34 Windows InpuBox$ ( OK 1) 2) 3) OK 11 InputBox$ Sub Command5_Click() ReDim SarchedData(4) Dim Sarch As String ' InputBox$ Msg = " " & Chr$(10) & Chr$(13) Msg= Msg & Title = " " Default = " " ' KeyWord KeyWord = InputBox$(Msg, Title, Default) 16 30

35 Windows Kensu = 0 ' For Gyou = 1 To Grid1.Rows - Grid1.FixedRows Grid1.Row = Gyou Sarch = "" ' For Retu = 1 To Grid1.Cols - Grid1.FixedCols Next Grid1.Col = Retu ' Sarch Sarch = Sarch & Grid1.Text ' InStr Sarch ' SarchResult SarchResult = InStr(1, Sarch, KeyWord) If SarchResult <> 0 Then End If ' Kensu Kensu = Kensu + 1 ' ' SarchedData For Retu = 1 To Grid1.Cols - Grid1.FixedCols Next Grid1.Col = Retu SarchedData(Retu) = Grid1.Text ' Sarched ' Grid1.Row = Kensu For Retu = 1 To Grid1.Cols - Grid1.FixedCols Next Grid1.Col = Retu Grid1.Text = SarchedData(Retu) Next 17 31

36 Windows For Next 9.3. Kensu Sarch Kensu InStr SarchResult = InStr(1, Sarch, KeyWord) KeyWord 2 Sarch Sarch 1 Sarch SarchResult Sarch SarchResult 0 1 Kensu

37 Windows ' If Kensu <> 0 Then ' KesuGyouSu = Grid1.Rows - Grid1.FixedRows - Kensu ' For Gyou = 1 To KesuGyouSu Grid1.RemoveItem Kensu + 1 Next Else End If ' Msg = " " If KeyWord <> "" Then MsgBox Msg, 0, " " End Sub MsgBox RemoveItem 18 Kensu MsgBox Rows FilexdRows Kensuu RemoveItem For Next OK 33

38 Windows Command_Click 10. Windows (P)

39 Windows (X) (M) mnufile mnu 1 2 mnu 0 mnu 1 mnu 2 OK OK Select Case (I) mnufile 0 35

40 Windows Sub mnufile_click( Index As Integer ) Select Case Index ' Index = 0 Command1_Click Case 0 Command1_Click ' Index = 1 Command1_Click Case 1 Command2_Click ' Index = 2 Case 2 End End End Select End Sub mnurow mnufile_click 10-1 Integer Command1_Click Index Select Case 0 Index 0 mnufile_click Sub mnu_click(index As Integer) Case 0 Select Case Index Case 2 Command5_Click End Select Comman1 End Sub 36

41 Windows OK Command5_Click Visual Basic EXE Windows Visual VBRJP200.DLL Basic VER.DLL EXE (K)... Icom Icon EXE Windows Visual Basic EXE 14 EXE 8 8.EXE 37

42 Windows 13. Windows Visual Basic

BASICとVisual Basic

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

橡WINAPLI.PDF

橡WINAPLI.PDF