...I... III... V TQC-PD VISUAL BASIC VISUAL BASIC VB VB

Transcription

1 TQC-PD Visual Basic

2 ...I... III... V TQC-PD VISUAL BASIC VISUAL BASIC VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB I

3 II

4 2.1.1 VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB III

5 VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB VB IV

6 1 TQC-PD VISUAL BASIC TQC-PD VISUAL BASIC V

7 VI

8 Visual Basic 2008 [1] TQC-PD Visual Basic TQC-PD Visual Basic 2008 (statements) Visual Basic 2008 [1] Visual Basic 2008 TQC-PD Visual Basic

9 2

10 1 TQC-PD Visual Basic 2008 TQC-PD Visual Basic Visual Basic 2008 [1] TQC-PD Visual Basic (statements) TQC-PD Visual Basic TQC-PD Visual Basic TQC-PD Visual Basic V ( ) V ( ) V ( ) 1.2 Visual Basic 2008 [1] 2 3

11 2 TQC-PD Visual Basic SQL MDI ipod / DES /

12 2 Visual Basic 2008 TQC-PD Visual Basic ) 2) 3) 4) ( ) Visual Basic 2008 [1] VB Public Class Form Dim ChkPrice, TotAmount Sub CheckSubRtn() 0006 LblAmount.Text = ChkPrice 0007 End Sub Private Sub ChkPizzaOrginal_CheckedChanged( _ 0010 ByVal sender As System.Object, _ 0011 ByVal e As System.EventArgs) _ 0012 Handles ChkPizzaOrginal.CheckedChanged 0013 If ChkPizzaOrginal.Checked = True Then 0014 ChkPizzaBeef.Checked = False 0015 ChkPizzaSeafood.Checked = False 0016 ChkPrice = Else 0018 ChkPrice = End If 0020 End Sub Private Sub ChkPizzaBeef_CheckedChanged( _ 0023 ByVal sender As System.Object, _ 0024 ByVal e As System.EventArgs) _ 0025 Handles ChkPizzaBeef.CheckedChanged 0026 If ChkPizzaBeef.Checked = True Then 0027 ChkPizzaOrginal.Checked = False 0028 ChkPizzaSeafood.Checked = False 0029 ChkPrice = Else 0031 ChkPrice = 0 5

13 0032 End If 0033 End Sub Private Sub ChkPizzaSeafood_CheckedChanged( _ 0036 ByVal sender As System.Object, _ 0037 ByVal e As System.EventArgs) _ 0038 Handles ChkPizzaSeafood.CheckedChanged 0039 If ChkPizzaSeafood.Checked = True Then 0040 ChkPizzaOrginal.Checked = False 0041 ChkPizzaBeef.Checked = False 0042 ChkPrice = Else 0044 ChkPrice = End If 0046 End Sub Private Sub Form1_Load(ByVal sender As Object, _ 0049 ByVal e As System.EventArgs) _ 0050 Handles Me.Load 0051 ChkPizzaSeafood.Checked = False 0052 ChkPizzaOrginal.Checked = False 0053 ChkPizzaBeef.Checked = False 0054 LblAmount.Text = "" 0055 TxtOrderQuanty.Text = End Sub Private Sub BtnCalculate_Click(ByVal sender As System.Object, _ 0059 ByVal e As System.EventArgs) Handles BtnCalculate.Click 0060 TotAmount = ChkPrice * Val(TxtOrderQuanty.Text) 0061 LblAmount.Text = "NT$" & TotAmount 0062 End Sub Private Sub TxtOrderQuanty_TextChanged(ByVal sender As System.Object, _ 0065 ByVal e As System.EventArgs) Handles TxtOrderQuanty.TextChanged 0066 If Val(TxtOrderQuanty.Text) < 0 Then 0067 TxtOrderQuanty.Text = End If 0069 End Sub End Class Form Form1 Text 2 3 CheckBox Name ChkPizzaOrginal ChkPizzaBeef ChkPizzaSeafood Text $250 $275 $ LabelBox Name Label1 Text 4 1 LabelBox Name LblAmount Text BackColor ControlText ForeColor Lime Font 14pt 5 1 TextBox Name TxtOrderQuanty Text Button Name BtnCalculate Text 6

14 ChkPizzaOrginal ChkPizzaBeef ChkPizzaSeafood Label1 TxtOrderQuanty BtnCalculate LblAmount VB VB VB

15 2.1.2 VB Public Class Form Dim TotAmount Private Sub BtnCalculate_Click(ByVal sender As System.Object, _ 0006 ByVal e As System.EventArgs) Handles BtnCalculate.Click 0007 TotAmount = Val(TxtCapital.Text) * _ 0008 (1 + Val(TxtInterest.Text) / 100) ^ Val(TxtYear.Text) 0009 TotAmount = Math.Round(TotAmount, 1) 0010 lbloutput.text = Format(TotAmount, "###,###,###,##0.0") 0011 End Sub Private Sub Form1_Load(ByVal sender As Object, _ 0014 ByVal e As System.EventArgs) Handles Me.Load 0015 TxtCapital.Text = TxtYear.Text = TxtInterest.Text = End Sub End Class Form Form1 Text 2 GroupBox1 3 LabelBox Name Label1 Label2 Label3 Text 3 GroupBox1 3 TextBox Name TxtCapital TxtInterest TxtYear Text GroupBox1 1 Button Name BtnCalculate Text 5 lbloutput BackColor ControlText ForeColor Chartreuse Font 12pt GroupBox1 TxtCapital Label3 TxtYear Labell Label2 TxtInterest BtnCalculate lbloutput VB

16 2.1.5 VB

17 2.1.3 VB Public Class Form Dim WeekNumber ', 1->, 2-> 0004 Dim DateSerialToday ' 0005 Dim DateSerialVisit ' 0006 Dim DateSerialGape ' 0007 Dim DateYn 0008 Dim GroupAmount As Integer ' Dim num As Integer = 1 ' Public Function checkdate(byval DateYn) As Boolean 0013 ' 0014 ', MessageBox Return false 0015 ' 0016 ', MessageBox Return false 0017 WeekNumber = DatePart("w", tickdate.value) ' If WeekNumber = 2 Then 0019 MsgBox(" ",, " ") 0020 Return False 0021 Else 0022 If WeekNumber = 1 And dayrb2.checked = True Then 0023 MsgBox(" ",, ") 0024 Return False 0025 End If 0026 End If 0027 Return True 0028 End Function Private Sub Form1_Load(ByVal sender As System.Object, _ 0031 ByVal e As System.EventArgs) Handles MyBase.Load 0032 ' 0033 tickdate.mindate = Today 0034 tickdate.value = Today 0035 Me.payPanel.Visible = False 0036 End Sub Private Sub percb_checkedchanged(byval sender As System.Object, _ 0039 ByVal e As System.EventArgs) Handles percb.checkedchanged 0040 ' CheckBox 0041 If percb.checked = True Then 0042 tickpanel.enabled = True 0043 Else 0044 tickpanel.enabled = False 0045 End If 0046 End Sub Private Sub grpcb_checkedchanged(byval sender As System.Object, _ 10

18 0049 ByVal e As System.EventArgs) Handles grpcb.checkedchanged 0050 ' CheckBox 0051 If grpcb.checked = True Then 0052 grouptb.enabled = True 0053 grouptb.text = Else 0055 grouptb.enabled = False 0056 End If 0057 End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ 0060 ByVal e As System.EventArgs) Handles Button2.Click 0061 ' 0062 Me.dayRB1.Checked = True 0063 Me.tickDate.Value = Today 0064 Me.perCB.Checked = True 0065 Me.tickPanel.Enabled = True 0066 Me.tickRB1.Checked = True 0067 Me.num = Me.grpCB.Checked = False 0069 Me.groupTB.Text = "20" 0070 Me.movieCB.Checked = False 0071 Me.vrCB.Checked = False 0072 Me.payPanel.Visible = False 0073 End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ 0076 ByVal e As System.EventArgs) Handles Button1.Click 0077 ' 0078 '() DateYn Function checkdate(dateyn) 0079 If checkdate(dateyn) = True Then 0080 ' 0081 ' CheckPeople() 0082 If grpcb.checked = True Then 0083 CheckPeople(GroupAmount) 0084 If GroupAmount = 0 Then 0085 Exit Sub 0086 End If 0087 End If 0088 ' 0089 Dim tickprice, totalprice As Integer 0090 tickprice = 100 ' 0091 ' tickprice 0092 ' 3D Golf tickprice 0093 ' 0094 ' 0095 ' 0096 Dim AddPrice As Integer ' 0097 Dim PersonAmount As Integer ' 0098 AddPrice = If moviecb.checked = True Then 11

19 0100 AddPrice = AddPrice End If 0102 If vrcb.checked = True Then 0103 AddPrice = AddPrice End If 0105 If dayrb2.checked = True Then 0106 tickprice = Else 0108 tickprice = End If 0110 PersonAmount = If percb.checked = True Then 0112 If tickrb1.checked = True Then 0113 PersonAmount = End If 0115 If tickrb2.checked = True Then 0116 PersonAmount = End If 0118 If tickrb3.checked = True Then 0119 PersonAmount = End If 0121 If tickrb4.checked = True Then 0122 PersonAmount = End If 0124 End If 0125 totalprice = (tickprice + AddPrice) * PersonAmount + _ 0126 (tickprice + AddPrice) * GroupAmount * paylabel.text = "NT$ " & totalprice 0128 paypanel.visible = True Else 0131 ' 0132 paypanel.visible = False 0133 End If 0134 End Sub Private Function CheckPeople(ByRef GroupAmount) As Integer 0137 ' 0138 If IsNumeric(groupTB.Text) = True Then 0139 GroupAmount = Int(Val(groupTB.Text)) 0140 If GroupAmount < 20 Then 0141 MsgBox(" 20 ",, " ") 0142 End If 0143 Else 0144 MsgBox(" ",, " ") 0145 GroupAmount = End If 0147 Return GroupAmount 0148 End Function End Class 12

20 dayrb1 dayrb2 percb tickrb1 tickdate tickrb3 grpcb grouptb tickrb2 vrcb tickrb4 moivecb Button1 Button2 paypanel( ) paylabel( ) VB VB

21 2.1.8 VB VB

22 VB VB

23 2.1.4 VB Public Class Form ' userdict String Key UserRec Dictionary 0004 Dim userdict As New Dictionary(Of String, UserRec) Public Structure UserRec 0007 Public passwd As String 0008 Public sex As Boolean 0009 Public usertype As Byte 0010 Public As String 0011 End Structure Public Sub ClearUserData() 0014 Me.userTypeCB1.SelectedIndex = Me.nameTB1.Text = "" 0016 Me.pwdTB1.Text = "" 0017 Me.pwdCTB1.Text = "" 0018 Me.sexMRB1.Checked = True 0019 Me. TB1.Text = "" 0020 End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ 0023 ByVal e As System.EventArgs) Handles Button1.Click 0024 ' 0025 Dim rec As New UserRec 0026 ' userdict 0027 If userdict.trygetvalue(trim(usertb.text), rec) Then 0028 ' 0029 If Trim(pwdTB.Text) = rec.passwd Then 0030 ' TabPage 0031 usertypecb.selectedindex = rec.usertype 0032 nametb2.text = Trim(userTB.Text) 0033 pwdtb2.text = rec.passwd 0034 If rec.sex = True Then 0035 sexmrb2.checked = True 0036 sexfrb2.checked = False 0037 Else 0038 sexmrb2.checked = False 0039 sexfrb2.checked = True 0040 End If label.text = rec ' 0043 TabControl1.SelectTab(2) 0044 Else 0045 'MessageBox.Show("!", " ", _ 0046 ' MessageBoxButtons.OK, MessageBoxIcon.Warning) 0047 MessageBox.Show("!", " ", _ 0048 MessageBoxButtons.OK, MessageBoxIcon.Warning) 0049 End If 16

24 0050 Else 0051 ' " "TabPage 0052 'Dim msg As String 0053 'msg = " " & Me.userTB.Text & "!" & vbcrlf & _ 0054 '" " 0055 'MessageBox.Show(msg, "!", MessageBoxButtons.OK, _ 0056 'MessageBoxIcon.Warning) 0057 Dim msg As String 0058 msg = " " & Me.userTB.Text & "!" & vbcrlf & _ 0059 " " 0060 MessageBox.Show(msg, "!", MessageBoxButtons.OK, _ 0061 MessageBoxIcon.Warning) 0062 ' 0063 ClearUserData() 0064 TabControl1.SelectTab(1) 0065 End If 0066 End Sub Private Sub Button4_Click(ByVal sender As System.Object, _ 0069 ByVal e As System.EventArgs) Handles Button4.Click 0070 ' 0071 Dim rec As New UserRec 0072 ' 0073 'MessageBox.Show(" " & Me.nameTB1.Text & "!", _ 0074 '" ", MessageBoxButtons.OK, MessageBoxIcon.Information) 0075 'MessageBox.Show(" " & Me.nameTB1.Text & "!" & _ 0076 'vbcrlf & " ", ", _ 0077 'MessageBoxButtons.OK, MessageBoxIcon.Information) 0078 If userdict.trygetvalue(trim(nametb1.text), rec) Then 0079 MessageBox.Show(" " & Me.nameTB1.Text & "!", _ 0080 " ", MessageBoxButtons.OK, MessageBoxIcon.Information) 0081 Else 0082 MessageBox.Show(" " & Me.nameTB1.Text & "!" & _ 0083 vbcrlf & " ", ", _ 0084 MessageBoxButtons.OK, MessageBoxIcon.Information) 0085 End If 0086 End Sub Private Sub Button3_Click(ByVal sender As System.Object, _ 0089 ByVal e As System.EventArgs) Handles Button3.Click 0090 ' 0091 Dim rec As New UserRec 0092 ' 0093 If Trim(nameTB1.Text) = "" Or _ 0094 Trim(pwdTB1.Text) = "" Or _ 0095 Trim(pwdCTB1.Text) = "" Then 0096 MsgBox("!",, " ") 0097 Exit Sub 0098 End If 0099 ' 17

25 0100 If Trim(pwdTB1.Text) <> Trim(pwdCTB1.Text) Then 0101 MsgBox("!",, " ") 0102 Exit Sub 0103 End If 0104 ' 0105 ' userdict 0106 If userdict.trygetvalue(trim(nametb1.text), rec) = False Then 0107 'Dim UserData As New UserRec 0108 'UserId = Trim(nameTB1.Text) 0109 rec.passwd = Trim(pwdTB1.Text) 0110 If sexmrb1.checked = True Then 0111 rec.sex = True 0112 Else 0113 rec.sex = False 0114 End If 0115 rec.usertype = usertypecb1.selectedindex ' 0116 'UserData.userType = usertypecb1.selecteditem ' 0117 rec. = Trim( TB1.Text) 0118 Try 0119 userdict.add(trim(nametb1.text), rec) 0120 MsgBox("!",, ") 0121 Catch ex As Exception End Try 0124 End If 0125 ' " "TabPage 0126 TabControl1.SelectTab(0) 0127 End Sub Private Sub TabControl1_Enter(ByVal sender As System.Object, _ 0130 ByVal e As System.EventArgs) Handles TabControl1.Enter 0131 Me.userTypeCB1.SelectedText = " " 0132 End Sub Private Sub TabControl1_Selected(ByVal sender As System.Object, _ 0135 ByVal e As System.Windows.Forms.TabControlEventArgs) _ 0136 Handles TabControl1.Selected 0137 ClearUserData() 0138 End Sub Private Sub Button5_Click(ByVal sender As System.Object, _ 0141 ByVal e As System.EventArgs) Handles Button5.Click 0142 ' 0143 ClearUserData() 0144 End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ 0147 ByVal e As System.EventArgs) Handles Button2.Click 0148 ' 0149 Me.userTB.Text = "" 0150 Me.pwdTB.Text = "" 0151 End Sub 18

26 End Class TabControl1 TabControl1 TabPage usertb pwdtb Button1 Button VB TabControl1 TabControl1 TabPage usertypecb1 Button4 nametb1 sexmrb1 tb1 pwdtb1 pwdctb1 sexfrb1 Button3 Button VB

27 TabControl1 usertypecb TabControl1 TabPage sexmrb2 nametb2 pwdtb2 sexfrb2 label VB VB

28 VB VB

29 2.1.5 VB Public Class Form Dim cardchar() As String = {"A", "2", "3", "4", "5", "6", "7", "8", "9", _ 0004 "10", "J", "Q", "K"} 0005 Private Sub ButtonPlay_Click(ByVal sender As System.Object, _ 0006 ByVal e As System.EventArgs) Handles ButtonPlay.Click 0007 ' 0008 '5 0~51, Dim CardNum(4) As Integer 0010 '5 0~12, A, 1,.., J, Q, K 0011 Dim CardValue(4) As Integer 0012 '5 0~3, spade, heart, diamond, club 0013 Dim CardSuit(4) As Integer 0014 Dim istaken(51) As Boolean ' 0015 Dim i As Integer ' 0016 ' PicCover1~ Panel1.Visible = True 0018 ' 0019 PicCover1.Top = Label1.Top 0020 PicCover1.Left = Label1.Left 0021 PicCover2.Top = Label2.Top 0022 PicCover2.Left = Label2.Left 0023 PicCover3.Top = Label3.Top 0024 PicCover3.Left = Label3.Left 0025 PicCover4.Top = Label4.Top 0026 PicCover4.Left = Label4.Left 0027 PicCover5.Top = Label5.Top 0028 PicCover5.Left = Label5.Left 0029 ' 0030 PicCover1.Visible = True 0031 PicCover2.Visible = True 0032 PicCover3.Visible = True 0033 PicCover4.Visible = True 0034 PicCover5.Visible = True 0035 ' 0036 Label1.Visible = False 0037 Label2.Visible = False 0038 Label3.Visible = False 0039 Label4.Visible = False 0040 Label5.Visible = False 0041 ' 0042 PictureBox1.Visible = False 0043 PictureBox2.Visible = False 0044 PictureBox3.Visible = False 0045 PictureBox4.Visible = False 0046 PictureBox5.Visible = False 0047 ' 0048 Randomize() 0049 Dim Ij As Integer 22

30 0050 Dim AfgColor(4) As Object ' 0051 For i = 0 To 4 ' 0~ Dim isok As Boolean = False ' 0053 ' 0054 isok = True 0055 ' 0056 Do While True 0057 CardNum(i) = Int(Rnd() * 52) ' 0~ ' 0059 For Ij = 0 To i If CardNum(Ij) = CardNum(i) Then 0061 ' 0062 isok = False 0063 Exit For ' 0064 End If 0065 Next Ij 0066 If isok = True Then 0067 ', 0068 Exit Do ' 0069 End If 0070 Loop 0071 ' 0072 CardValue(i) = CardNum(i) Mod 13 ', 0073 CardSuit(i) = CardNum(i) \ 13 ', 0074 If CardSuit(i) = 0 Or CardSuit(i) = 3 Then 0075 AfgColor(i) = Color.Black 'spade, diamond 0076 Else 0077 AfgColor(i) = Color.Red 'heart, club 0078 End If 0079 Next i 0080 ' 0081 Label1.Text = cardchar(cardvalue(0)) 0082 Label2.Text = cardchar(cardvalue(1)) 0083 Label3.Text = cardchar(cardvalue(2)) 0084 Label4.Text = cardchar(cardvalue(3)) 0085 Label5.Text = cardchar(cardvalue(4)) 0086 ' 0087 Label1.ForeColor = AfgColor(0) 0088 Label2.ForeColor = AfgColor(1) 0089 Label3.ForeColor = AfgColor(2) 0090 Label4.ForeColor = AfgColor(3) 0091 Label5.ForeColor = AfgColor(4) 0092 ' 0093 PictureBox1.Image = ImageList1.Images(CardSuit(0)) 0094 PictureBox2.Image = ImageList1.Images(CardSuit(1)) 0095 PictureBox3.Image = ImageList1.Images(CardSuit(2)) 0096 PictureBox4.Image = ImageList1.Images(CardSuit(3)) 0097 PictureBox5.Image = ImageList1.Images(CardSuit(4)) 0098 ' Label1 ~ Label ' PictureBox1 ~ PictureBox 'Label1.ForeColor = 23

31 0101 'Label1.Text = 0102 'PictureBox1.Image = 0103 'Label2.ForeColor = 0104 'Label2.Text = 0105 'PictureBox2.Image = 0106 'Label3.ForeColor = 0107 'Label3.Text = 0108 'PictureBox3.Image = 0109 'Label4.ForeColor = 0110 'Label4.Text = 0111 'PictureBox4.Image = 0112 'Label5.ForeColor = 0113 'Label5.Text = 0114 'PictureBox5.Image = 0115 ' Panel 0116 End Sub Private Sub PicCover1_Click(ByVal sender As System.Object, _ 0119 ByVal e As System.EventArgs) Handles PicCover1.Click 0120 ' 0121 PicCover1.Visible = False ' 0122 Label1.Visible = True ' 0123 PictureBox1.Visible = True ' 0124 End Sub Private Sub PicCover2_Click(ByVal sender As System.Object, _ 0127 ByVal e As System.EventArgs) Handles PicCover2.Click 0128 ' 0129 PicCover2.Visible = False ' 0130 Label2.Visible = True ' 0131 PictureBox2.Visible = True ' 0132 End Sub Private Sub PicCover3_Click(ByVal sender As System.Object, _ 0135 ByVal e As System.EventArgs) Handles PicCover3.Click 0136 ' 0137 PicCover3.Visible = False ' 0138 Label3.Visible = True ' 0139 PictureBox3.Visible = True ' 0140 End Sub Private Sub PicCover4_Click(ByVal sender As System.Object, _ 0143 ByVal e As System.EventArgs) Handles PicCover4.Click 0144 ' 0145 PicCover4.Visible = False ' 0146 Label4.Visible = True ' 0147 PictureBox4.Visible = True ' 0148 End Sub Private Sub PicCover5_Click(ByVal sender As System.Object, _ 0151 ByVal e As System.EventArgs) Handles PicCover5.Click 24

32 0152 ' 0153 PicCover5.Visible = False ' 0154 Label5.Visible = True ' 0155 PictureBox5.Visible = True ' 0156 End Sub Private Sub ButtonClear_Click(ByVal sender As System.Object, _ 0159 ByVal e As System.EventArgs) Handles ButtonClear.Click 0160 ', Panel 0161 Panel1.Visible = False 0162 End Sub 0163 End Class ButtonPlay ButtonClear Panel1 Labell ~5 PictureBox1~5 PicCover1~ VB VB

33 VB VB VB

34 2.1.6 VB Public Class Form Dim PicN As Integer 0004 Dim PicFileName As String 0005 Dim Rr As Double Private Sub Form1_Load(ByVal sender As Object, _ 0008 ByVal e As System.EventArgs) Handles Me.Load 0009 Rr = 0.05 ' 0010 ' 0011 picview.sizemode = PictureBoxSizeMode.StretchImage 0012 btnfirst.enabled = False 0013 btnprevious.enabled = False 0014 btnlast.enabled = True 0015 btnnext.enabled = True 0016 PicN = Call ShowPicture() 0018 End Sub Private Sub btnlast_click(byval sender As System.Object, _ 0021 ByVal e As System.EventArgs) Handles btnlast.click 0022 ' 0023 btnfirst.enabled = True 0024 btnprevious.enabled = True 0025 btnlast.enabled = False 0026 btnnext.enabled = False 0027 PicN = Call ShowPicture() 0029 End Sub Private Sub btnfirst_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnfirst.click 0032 ' 0033 btnfirst.enabled = False 0034 btnprevious.enabled = False 0035 btnlast.enabled = True 0036 btnnext.enabled = True 0037 PicN = Call ShowPicture() 0039 End Sub Public Sub ShowPicture() 0042 ' 0043 Label1.Text = PicN ',, 0044 ' 0045 PicFileName = My.Computer.FileSystem.CurrentDirectory & _ 0046 "\images\img0" & Trim(Str(PicN)) & ".JPG" 0047 ' 0048 picview.image = Image.FromFile(PicFileName) 27

35 0049 If PicN > 1 And PicN < 5 Then 0050 btnfirst.enabled = True 0051 btnprevious.enabled = True 0052 btnlast.enabled = True 0053 btnnext.enabled = True 0054 End If 0055 End Sub Private Sub btnprevious_click(byval sender As System.Object, _ 0058 ByVal e As System.EventArgs) Handles btnprevious.click 0059 ' 0060 PicN = PicN If PicN = 1 Then 0062 btnfirst.enabled = False 0063 btnprevious.enabled = False 0064 End If 0065 Call ShowPicture() 0066 End Sub Private Sub btnnext_click(byval sender As System.Object, _ 0069 ByVal e As System.EventArgs) Handles btnnext.click 0070 ' 0071 PicN = PicN If PicN = 5 Then 0073 btnlast.enabled = False 0074 btnnext.enabled = False 0075 End If 0076 Call ShowPicture() 0077 End Sub Private Sub btnsmall_click(byval sender As System.Object, _ 0080 ByVal e As System.EventArgs) Handles btnsmall.click 0081 ' 0082 If picview.width >= (Me.Width * 0.4) Then 0083 ' 40%~90% 0084 picview.top = picview.top + (picview.height * Rr) / picview.left = picview.left + (picview.width * Rr) / picview.width = picview.width * (1 - Rr) 0087 picview.height = picview.height * (1 - Rr) 0088 End If 0089 End Sub Private Sub btnlarge_click(byval sender As System.Object, _ 0092 ByVal e As System.EventArgs) Handles btnlarge.click 0093 ' 0094 If picview.width <= (Me.Width * 0.9) Then 0095 ' 40%~90% 0096 picview.top = picview.top - (picview.height * Rr) / picview.left = picview.left - (picview.width * Rr) / picview.width = picview.width * (1 + Rr) 0099 picview.height = picview.height * (1 + Rr) 0100 End If 28

36 0101 End Sub End Class picview img01.jpg btnsmall Labell btnfirst btnprevious btnlarge btnnext btnlast VB VB

37 VB VB

38 2.1.7 VB Public Class Form Dim m_num As Integer 0004 Dim InputNum As Integer Private Sub btnok_click(byval sender As System.Object, _ 0007 ByVal e As System.EventArgs) Handles btnok.click 0008 ' 0009 If Len(txtGuess.Text) < 3 Then 0010 MsgBox("!",, ") 0011 Exit Sub 0012 End If 0013 InputNum = Val(txtGuess.Text) 0014 If InputNum = m_num Then 0015 MsgBox("!",, ") 0016 Exit Sub 0017 End If 0018 If InputNum < Val(lblSmall.Text) Or InputNum > Val(lblLarge.Text) Then 0019 MsgBox(" " & Val(lblSmall.Text) & " " & _ 0020 Val(lblLarge.Text) & " ",, " ") 0021 Exit Sub 0022 End If 0023 If InputNum > m_num Then 0024 MsgBox("!",, ") 0025 lbllarge.text = InputNum 0026 Exit Sub 0027 End If 0028 If InputNum < m_num Then 0029 MsgBox("!",, ") 0030 lblsmall.text = InputNum 0031 Exit Sub 0032 End If 0033 End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ 0036 ByVal e As System.EventArgs) Handles MyBase.Load 0037 ' 0038 Randomize() 0039 gennumber() 0040 End Sub Private Sub btnagain_click(byval sender As System.Object, _ 0043 ByVal e As System.EventArgs) Handles btnagain.click 0044 gennumber() 0045 lblsmall.text = "100" 0046 lbllarge.text = "999" 0047 txtguess.text = "" 0048 End Sub

39 0050 Private Sub btnend_click(byval sender As System.Object, _ 0051 ByVal e As System.EventArgs) Handles btnend.click 0052 End 0053 End Sub Private Sub gennumber() 0056 ' 0~897, 101, 101~998, Rnd() 0~ m_num = Int(Rnd() * 898) End Sub Private Sub txtguess_keypress(byval sender As Object, _ 0061 ByVal e As System.Windows.Forms.KeyPressEventArgs) _ 0062 Handles txtguess.keypress 0063 If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then 0064 ' (0-->48, 9-->57) 0065 e.handled = True ' 0066 End If 0067 End Sub End Class lblsmall lbllarge Label3 txtguess btnagain btnok btnend VB VB

40 VB VB

41 2.1.8 VB Public Class Form ' 0004 Private Sub rba_checkedchanged(byval sender As System.Object, _ 0005 ByVal e As System.EventArgs) Handles rba.checkedchanged 0006 If rba.checked Then Me.lblOP.Text = "+" : Me.lblAns.Text = "" 0007 End Sub Private Sub rbs_checkedchanged(byval sender As System.Object, _ 0010 ByVal e As System.EventArgs) Handles rbs.checkedchanged 0011 If rbs.checked Then Me.lblOP.Text = "-" : Me.lblAns.Text = "" 0012 End Sub Private Sub rbm_checkedchanged(byval sender As System.Object, _ 0015 ByVal e As System.EventArgs) Handles rbm.checkedchanged 0016 If rbm.checked Then Me.lblOP.Text = " " : Me.lblAns.Text = "" 0017 End Sub Private Sub rbd_checkedchanged(byval sender As System.Object, _ 0020 ByVal e As System.EventArgs) Handles rbd.checkedchanged 0021 If rbd.checked Then Me.lblOP.Text = " " : Me.lblAns.Text = "" 0022 End Sub Private Sub rbc_checkedchanged(byval sender As System.Object, _ 0025 ByVal e As System.EventArgs) Handles rbc.checkedchanged 0026 If rbc.checked Then Me.lblOP.Text = "+...+" : Me.lblAns.Text = "" 0027 End Sub 0028 ' ' Private Sub btncalculate_click(byval sender As System.Object, _ 0033 ByVal e As System.EventArgs) Handles btncalculate.click 0034 Dim Ia As Integer 0035 Dim AfVa As Double 0036 AfVa = ' 0038 If IsNumeric(TextBox1.Text) <> True Or _ 0039 IsNumeric(TextBox2.Text) <> True Then 0040 MsgBox("!",, " ") 0041 Else 0042 If rbc.checked Then ' 0043 If Val(TextBox1.Text) > Val(TextBox2.Text) Then 0044 MsgBox(" ") 0045 Else 0046 For Ia = Val(TextBox1.Text) To Val(TextBox2.Text) 0047 AfVa = AfVa + Ia 0048 Next 0049 End If 34

42 0050 End If 0051 If rba.checked Then ' 0052 AfVa = Val(TextBox1.Text) + Val(TextBox2.Text) 0053 End If 0054 If rbs.checked Then ' 0055 AfVa = Val(TextBox1.Text) - Val(TextBox2.Text) 0056 End If 0057 If rbm.checked Then ' 0058 AfVa = Val(TextBox1.Text) * Val(TextBox2.Text) 0059 End If 0060 If rbd.checked Then ' 0061 AfVa = Val(TextBox1.Text) / Val(TextBox2.Text) 0062 End If 0063 lblans.text = AfVa 0064 End If 0065 End Sub End Class Form TextBox Name TextBox1 TextBox2 Text 2 1 Button Name btncalculate Text 3 lblans BackColor Maroon ForeColor White Font 14pt TextAlign MiddleCenter AutoSize False rbs rbm rbd rbc rba TextBox1 TextBox2 btncalculate lblop lblans VB

43 VB VB VB

44 2.1.9 VB Public Class Form Dim TotAmount As Integer ' 0004 Dim MainPrice As Integer ' 0005 Dim UpGradePrice As Integer ' 0006 Dim OrderQuantity As Integer ' ', GetAmt, 0009 Public Overloads Sub GetAmt(ByRef TotAmountS, ByVal OrderQuantityS, _ 0010 ByVal MainPriceS) 0011 TotAmountS = OrderQuantityS * MainPriceS 0012 End Sub ', GetAmt, 0015 Public Overloads Sub GetAmt(ByRef TotAmountS, ByVal OrderQuantityS, _ 0016 ByVal MainPriceS, ByVal UpGradePriceS) 0017 TotAmountS = OrderQuantityS * (MainPriceS + UpGradePriceS) 0018 End Sub Private Sub btngo_click(byval sender As System.Object, _ 0021 ByVal e As System.EventArgs) Handles btngo.click 0022 MsgBox("!") 0023 rba1.checked = True ' (129 ) 0024 rbb1.checked = True ' 0025 rbc1.checked = True ' 0026 cbupf.checked = False ' 0027 cbupf.visible = True ' 0028 cbupd.checked = False ' 0029 cbupd.visible = True ' 0030 txtqty.text = End Sub Private Sub rbb1_checkedchanged(byval sender As System.Object, _ 0034 ByVal e As System.EventArgs) Handles rbb1.checkedchanged 0035 If rbb1.checked Then ' 0036 cbupf.enabled = True 0037 Else 0038 cbupf.enabled = False 0039 End If 0040 End Sub Private Sub rbb2_checkedchanged(byval sender As System.Object, _ 0043 ByVal e As System.EventArgs) Handles rbb2.checkedchanged 0044 If rbb2.checked Then ' 0045 cbupf.enabled = False 0046 cbupf.checked = False 0047 End If 0048 End Sub 37

45 Private Sub rbb3_checkedchanged(byval sender As System.Object, _ 0051 ByVal e As System.EventArgs) Handles rbb3.checkedchanged 0052 If rbb3.checked Then ' 0053 cbupf.enabled = False 0054 cbupf.checked = False 0055 End If 0056 End Sub Private Sub rbc1_checkedchanged(byval sender As System.Object, _ 0059 ByVal e As System.EventArgs) Handles rbc1.checkedchanged 0060 If rbc1.checked Then ' 0061 cbupd.enabled = True 0062 Else 0063 cbupd.enabled = False 0064 End If 0065 End Sub Private Sub rbc2_checkedchanged(byval sender As System.Object, _ 0068 ByVal e As System.EventArgs) Handles rbc2.checkedchanged 0069 If rbc2.checked Then ' 0070 cbupd.enabled = False 0071 cbupd.checked = False 0072 End If 0073 End Sub Private Sub rbc3_checkedchanged(byval sender As System.Object, _ 0076 ByVal e As System.EventArgs) Handles rbc3.checkedchanged 0077 If rbc3.checked Then ' 0078 cbupd.enabled = False 0079 cbupd.checked = False 0080 End If 0081 End Sub Private Sub Form1_Load(ByVal sender As Object, _ 0084 ByVal e As System.EventArgs) Handles Me.Load 0085 txtprice.readonly = True 0086 txtamt.readonly = True 0087 txtqty.text = End Sub Public Sub UpGradeRtn(ByVal sender As System.Object, _ 0091 ByVal e As System.EventArgs) _ 0092 Handles cbupf.checkedchanged, cbupd.checkedchanged 0093 ' 0094 UpGradePrice = If cbupf.checked Then 0096 UpGradePrice = UpGradePrice End If 0098 If cbupd.checked Then 0099 UpGradePrice = UpGradePrice End If 0101 Call ShowPriceRtn() 38

46 0102 End Sub Public Sub MainOrderRtn(ByVal sender As System.Object, _ 0105 ByVal e As System.EventArgs) _ 0106 Handles rba1.checkedchanged, rba2.checkedchanged 0107 ' 0108 If sender.equals(rba1) Then 0109 MainPrice = Else 0111 MainPrice = End If 0113 Call ShowPriceRtn() 0114 End Sub Private Sub txtqty_textchanged(byval sender As System.Object, _ 0117 ByVal e As System.EventArgs) _ 0118 Handles txtqty.textchanged 0119 ' 0120 If Val(txtQty.Text) <= 0 Then 0121 txtqty.text = End If 0123 Call ShowAmount() 0124 End Sub Public Sub ShowPriceRtn() 0127 ' 0128 txtprice.text = MainPrice + UpGradePrice 0129 Call ShowAmount() 0130 End Sub Public Sub ShowAmount() 0133 ' 0134 OrderQuantity = Val(txtQty.Text) 0135 If UpGradePrice > 0 Then 0136 Call GetAmt(TotAmount, OrderQuantity, MainPrice, UpGradePrice) 0137 Else 0138 Call GetAmt(TotAmount, OrderQuantity, MainPrice) 0139 End If 0140 txtamt.text = TotAmount 0141 End Sub End Class 39

47 Form GroupBox Name GroupBox1 GroupBox2 GroupBox3 GroupBox4 Text 2 4 GroupBox RadioButton 3 Label6( ) Label7( ) Label8( ) Label9( ) 4 txtprice txtamt ReadOnlyp True txtamt BackColor Blue ForeColor White Font 16pt GroupBox1 rba1 rba2 GroupBox2 GroupBox3 rbb1 rbb2 rbb3 rbc1 rbc2 rbc3 GroupBox4 cbupf cbupd txtprice txtqty txtamt btngo VB VB

48 VB Public Class Form ' 0004 Private Sub mnuitemchange_click(byval sender As System.Object, _ 0005 ByVal e As System.EventArgs) 0006 Dim inti, amount, change, coins As Integer 0007 Dim doit As Boolean ' 0008 amount = CInt(txtAmount.Text) 0009 txt50.text = "0" ' 0010 txt10.text = "0" 0011 txt5.text = "0" 0012 txt1.text = "0" 0013 For inti = 1 To 4 ' ' ' 0018 change = Choose(intI, 50, 10, 5, 1) 0019 If inti = 4 Then 0020 ' Else 0022 ' ' 0024 'Do While 0025 'Loop 0026 End If 0027 ' ' Next inti 0032 End Sub 0033 ' Private Sub Form1_Load(ByVal sender As Object, _ 0036 ByVal e As System.EventArgs) Handles Me.Load 0037 txtamount.text = End Sub Private Sub XToolStripMenuItem_Click(ByVal sender As System.Object, _ 0041 ByVal e As System.EventArgs) Handles XToolStripMenuItem.Click 0042 End 0043 End Sub 41

49 Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, _ 0046 ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click 0047 ' mnuitemchange_click 0048 Dim inti, amount, change, coins As Integer 0049 'Dim doit As Boolean ' 0050 amount = CInt(txtAmount.Text) 0051 txt50.text = "0" ' 0052 txt10.text = "0" 0053 txt5.text = "0" 0054 txt1.text = "0" 0055 For inti = 1 To 4 ' 0056 ' 0057 ' 0058 'change = Choose(intI, 50, 10, 5, 1) 0059 If inti = 4 Then 0060 ' ' txt1.text = amount 0063 Else 0064 ' ' 0066 'Do While 0067 'Loop 0068 If chk50.checked And inti = 1 Then 0069 ' 50, change = txt50.text = amount \ change ' 0072 amount = amount Mod change ' 0073 End If 0074 If chk10.checked And inti = 2 Then 0075 ' 10, change = txt10.text = amount \ change ' 0078 amount = amount Mod change ' 0079 End If 0080 If chk5.checked And inti = 3 Then 0081 ' 5, change = txt5.text = amount \ change ' 0084 amount = amount Mod change ' 0085 End If 0086 End If 0087 ' ( ) 0088 Next inti 0089 End Sub 0090 End Class 42

50 Form1 MenuStrip MenuStrip Form1 2 (&F) (&C) (&X) ToolStripMenuItem XToolStripMenuItem Chk10 Chk5 txtamount Chk50 txt50 txt10 txt5 txt VB VB

51 2.2.2 VB Public Class Form Private Sub Form1_Load(ByVal sender As Object, _ 0004 ByVal e As System.EventArgs) Handles Me.Load 0005 txttotal.readonly = True 0006 End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ 0009 ByVal e As System.EventArgs) Handles Button1.Click 0010 ' 0011 If rdb01.checked = False And _ 0012 rdb02.checked = False And _ 0013 rdb03.checked = False Then 0014 MsgBox("...",, ") 0015 End If 0016 If rdb01.checked Then 0017 txt01.text = Val(txt01.Text) End If 0019 If rdb02.checked Then 0020 txt02.text = Val(txt02.Text) End If 0022 If rdb03.checked Then 0023 txt03.text = Val(txt03.Text) End If 0025 txttotal.text = Val(txt01.Text) + Val(txt02.Text) + Val(txt03.Text) 0026 End Sub Private Sub OToolStripMenuItem_Click( _ 0029 ByVal sender As System.Object, ByVal e As System.EventArgs) _ 0030 Handles OToolStripMenuItem.Click 0031 Dim SelAmt(3, 2) ' 0032 Dim Kdx As Integer 0033 Dim Ndx As Integer 0034 Dim Tamt As Integer 0035 Dim SwFg ' 0036 SelAmt(1, 1) = Val(txt01.Text) 0037 SelAmt(2, 1) = Val(txt02.Text) 0038 SelAmt(3, 1) = Val(txt03.Text) 0039 SelAmt(1, 2) = "Motorola" 0040 SelAmt(2, 2) = "SonyErricsson" 0041 SelAmt(3, 2) = "Nokia" 0042 Tamt = 3 ' 0043 ' 0044 For Kdx = 1 To Tamt For Ndx = 1 To Tamt - Kdx 0046 If SelAmt(Ndx, 1) < SelAmt(Ndx + 1, 1) Then 0047 ' 0048 SwFg = SelAmt(Ndx, 1) 0049 SelAmt(Ndx, 1) = SelAmt(Ndx + 1, 1) 44

52 0050 SelAmt(Ndx + 1, 1) = SwFg 0051 ' 0052 SwFg = SelAmt(Ndx, 2) 0053 SelAmt(Ndx, 2) = SelAmt(Ndx + 1, 2) 0054 SelAmt(Ndx + 1, 2) = SwFg 0055 End If 0056 Next Ndx 0057 Next Kdx 0058 If SelAmt(1, 1) > SelAmt(2, 1) Then 0059 MsgBox(" " & SelAmt(1, 2),, " ") 0060 Else 0061 If SelAmt(1, 1) = SelAmt(2, 1) Then 0062 If SelAmt(2, 1) = SelAmt(3, 1) Then 0063 MsgBox(" ",, " ") 0064 Else 0065 MsgBox(" " & SelAmt(1, 2) & " " & _ 0066 SelAmt(2, 2),, " ") 0067 End If 0068 End If 0069 End If 0070 End Sub Private Sub XToolStripMenuItem_Click(ByVal sender As System.Object, _ 0073 ByVal e As System.EventArgs) Handles XToolStripMenuItem.Click 0074 End 0075 End Sub 0076 End Class OToolStripMenuItem XToolStripMenuItem txttotal rdb01 rdb02 rdb03 Button1 txt01 txt02 txt VB

53 2.2.4 VB VB VB

54 2.2.7 VB

55 2.2.3 VB 'Module1====================== 0002 Module Module Public FullPath As String ' \ 0005 Public FileName As String ' 0006 Public FullDir As String ' \, Listview 0007 Public PLen As Integer ' 0008 Public SelectFileName As String ' End Module 'Form1====================== 0013 Public Class Form Private Sub Button1_Click(ByVal sender As System.Object, _ 0016 ByVal e As System.EventArgs) Handles Button1.Click 0017 ' 0018 Dim ReadDataLine As String 0019 Dim Xi, Xj, Xk As Integer 0020 Dim FdData(5, 2), FdTemp As String ' 0021 If Me.ListView1.SelectedItems.Count <> 0 Then 0022 Dim fullname As String 'fullname dat. ( ) 0023 SelectFileName = ListView1.SelectedItems(0).Text 0024 fullname = FullPath & ListView1.SelectedItems(0).Text 0025 Dim freader As System.IO.StreamReader 0026 ' 0027 freader = My.Computer.FileSystem.OpenTextFileReader( _ 0028 fullname, System.Text.Encoding.GetEncoding("Big5")) 0029 Xj = While Not freader.endofstream 0031 ' Form ReadDataLine = freader.readline() ' 0033 Xj = Xj Xk = Len(ReadDataLine) ' 0035 For Xi = 1 To Xk 0036 FdTemp = Mid(ReadDataLine, Xi, 1) 0037 If FdTemp = vbtab Then ' Tab 0038 FdData(Xj, 1) = Trim(Mid(ReadDataLine, 1, Xi - 1)) 0039 FdData(Xj, 2) = Trim(Mid(ReadDataLine, Xi + 1, Xk)) 0040 Exit For 0041 End If 0042 Next Xi 0043 End While 0044 ' 0045 freader.close() 0046 ' Form Form2.FileNameLabel.Text = SelectFileName 0048 Form2.gradeTB.Text = FdData(1, 2) 48

56 0049 Form2.classTB.Text = FdData(2, 2) 0050 Form2.teacherTB.Text = FdData(3, 2) 0051 Form2.studNumTB.Text = FdData(4, 2) 0052 Form2.locTB.Text = FdData(5, 2) 0053 ' Form Form2.Show() 0055 Else 0056 MsgBox(" ",, ") 0057 End If 0058 End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ 0061 ByVal e As System.EventArgs) Handles Button2.Click 0062 ' 0063 If Me.FolderBrowserDialog1.ShowDialog() = _ 0064 Windows.Forms.DialogResult.OK Then 0065 ' 0066 Me.pathTB.Text = Me.FolderBrowserDialog1.SelectedPath 0067 lvlist(me.pathtb.text) 0068 End If 0069 End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ 0072 ByVal e As System.EventArgs) Handles MyBase.Load 0073 ' 0074 Me.FolderBrowserDialog1.SelectedPath = _ 0075 My.Computer.FileSystem.CurrentDirectory 0076 End Sub Private Sub Button3_Click(ByVal sender As System.Object, _ 0079 ByVal e As System.EventArgs) Handles Button3.Click 0080 ' 0081 If Me.ListView1.SelectedItems.Count <> 0 Then 0082 Dim fullname As String 'fullname dat. ( ) 0083 fullname = FullPath & ListView1.SelectedItems(0).Text 0084 ' 0085 ' ListView Kill(fullName) ' 0087 ListView1.Items.Remove(ListView1.SelectedItems(0)) 0088 Else 0089 MsgBox(" ",, ") 0090 End If 0091 End Sub Sub lvlist(byval dir As String) 0094 ListView1.Items.Clear() 0095 FullDir = dir 0096 ' dir.dat ListView1 ListViewItem 0097 Dim fcols As System.Collections.ObjectModel.ReadOnlyCollection(Of String) 0098 ' fcols.dat Collection 0099 ' My.Computer.FileSystem 49

57 0100 ' ImageList1, Size (35,35), Image group.png 0101 ListView1.LargeImageList = Me.ImageList Try 0103 FullPath = Trim(My.Computer.FileSystem.GetParentPath(dir) & "\" & _ 0104 My.Computer.FileSystem.GetName(dir) & "\") 0105 PLen = Len(FullPath) 0106 fcols = My.Computer.FileSystem.GetFiles( _ 0107 dir, FileIO.SearchOption.SearchTopLevelOnly, "*.dat") 0108 Dim fn As String 0109 ListView1.View = View.LargeIcon 0110 For Each fn In fcols 0111 FileName = Mid(Trim(fn), PLen + 1, Len(Trim(fn)) - PLen) 0112 ListView1.Items.Add(FileName, 0) 0113 Next 0114 Catch ex As Exception 0115 ' 0116 MsgBox(" ",, ") 0117 End Try 0118 End Sub Private Sub Button4_Click(ByVal sender As System.Object, _ 0121 ByVal e As System.EventArgs) Handles Button4.Click 0122 ' 0123 If Me.pathTB.Text <> "" Then 0124 ' Form Form2.FileNameLabel.Text = "" 0126 Form2.gradeTB.Text = "" 0127 Form2.classTB.Text = "" 0128 Form2.teacherTB.Text = "" 0129 Form2.studNumTB.Text = "" 0130 Form2.locTB.Text = "" 0131 Form2.Show() 0132 Else 0133 MsgBox(" ",, ") 0134 End If 0135 End Sub Private Sub Button5_Click(ByVal sender As System.Object, _ 0138 ByVal e As System.EventArgs) Handles Button5.Click 0139 ' ListView ' 0141 lvlist(fulldir) 0142 End Sub End Class 'Form2====================== 0147 Public Class Form Dim WrL As String Private Sub Button2_Click(ByVal sender As System.Object, _ 0151 ByVal e As System.EventArgs) Handles Button2.Click 50

58 0152 Me.Close() ' Form End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, _ 0156 ByVal e As System.EventArgs) Handles Button1.Click 0157 Dim filename As String 'filename dat. ( ) 0158 If gradetb.text <> "" And classtb.text <> "" Then 0159 ' 0160 If IsNumeric(gradeTB.Text) = True And _ 0161 IsNumeric(classTB.Text) = True Then 0162 Try 0163 filename = FullPath & Trim(Val(gradeTB.Text)) & " " & _ 0164 Trim(Val(classTB.Text)) & ".dat" 0165 Dim sw As System.IO.StreamWriter = _ 0166 My.Computer.FileSystem.OpenTextFileWriter( _ 0167 filename, False, System.Text.Encoding.GetEncoding("Big5")) 0168 ' true false 0169 '.dat 0170 WrL = "Grade" & vbtab & Trim(gradeTB.Text) 0171 sw.writeline(wrl) 0172 WrL = "Class" & vbtab & Trim(classTB.Text) 0173 sw.writeline(wrl) 0174 WrL = "Teacher" & vbtab & Trim(teacherTB.Text) 0175 sw.writeline(wrl) 0176 WrL = "StudentNo" & vbtab & Trim(studNumTB.Text) 0177 sw.writeline(wrl) 0178 WrL = "Location" & vbtab & Trim(locTB.Text) 0179 sw.writeline(wrl) 0180 sw.close() 0181 Catch ex As Exception 0182 MessageBox.Show(ex.Message) 0183 Return 0184 End Try 0185 MessageBox.Show(" " & filename, " ", _ 0186 MessageBoxButtons.OK, MessageBoxIcon.Information) 0187 ' Form1 ListView Form1.lvList(FullDir) 0189 Else 0190 MsgBox(" ",, ") 0191 End If 0192 Else 0193 ' 0194 MsgBox(" ",, ") 0195 End If 0196 End Sub End Class 51

59 ImageList1 Size (35,35) Image group.png pathtb Button2 ListView1 Button1 Button4 Button3 Button VB VB

60 VB FileNameLabel gradetb classtb teachertb studnumtb loctb Button1 Button VB

61 2.2.4 VB Public Class Form Public filedir As String ' 0004 Public filename As String ' ( ) 0005 Public tempfile As String ' ( ) Private Sub Form1_Load(ByVal sender As System.Object, _ 0008 ByVal e As System.EventArgs) Handles MyBase.Load 0009 Me.fileDir = My.Computer.FileSystem.CurrentDirectory 0010 End Sub Private Sub Form1_FormClosing(ByVal sender As Object, _ 0013 ByVal e As System.Windows.Forms.FormClosingEventArgs) _ 0014 Handles Me.FormClosing 0015 deltempfile() 0016 End Sub Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, _ 0019 ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click 0020 filename = "" 0021 filedir = My.Computer.FileSystem.CurrentDirectory ' 0022 Me.TextBox1.Text = "<html>" & vbcrlf & "<head></head>" & vbcrlf & _ 0023 "<body></body>" & vbcrlf & "</html>" 0024 UpdateWebBrowser() 0025 End Sub Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, _ 0028 ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click 0029 If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 0030 ' filename filedir 0031 ' ( ) 0032 filename = Trim(OpenFileDialog1.FileName) 0033 'OpenFileDialog1.SafeFileName 0034 filedir = Mid(fileName, 1, Len(fileName) - _ 0035 Len(Trim(OpenFileDialog1.SafeFileName)) - 1) 0036 ' TextBox OpenWebPage(fileName) 0038 ' WebBrowser WebBrowser1.Navigate(fileName) 0040 ' 0041 AddFileRecord(fileName) 0042 End If 0043 End Sub Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, _ 0046 ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click 0047 Me.SaveFileDialog1.InitialDirectory = Me.fileDir 0048 'Me.SaveFileDialog1.FileName = Me.fileName 54

62 0049 If Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 0050 ' TextBox FileOpen(7, SaveFileDialog1.FileName, OpenMode.Output) 0052 Print(7, TextBox1.Text) 0053 FileClose(7) 0054 ' 0055 AddFileRecord(SaveFileDialog1.FileName) 0056 End If 0057 End Sub Private Sub ToolStripMenuItem_Click(ByVal sender As System.Object, _ 0060 ByVal e As System.EventArgs) Handles ToolStripMenuItem.Click 0061 deltempfile() 0062 End 0063 End Sub Private Sub recmenuitem_click(byval sender As System.Object, _ 0066 ByVal e As System.EventArgs) 0067 ' 0068 ' filedir 0069 Dim i As Integer 0070 For i = Len(Trim(sender.text)) To 1 Step If Mid(Trim(sender.text), i, 1) = "\" Then 0072 filedir = Mid(Trim(sender.text), 1, i - 1) 0073 Exit For 0074 End If 0075 Next 0076 filename = Trim(sender.text) ' ( ) 0077 ' TextBox OpenWebPage(fileName) 0079 ' WebBrowser WebBrowser1.Navigate(fileName) 0081 End Sub Private Sub TabControl1_Selected(ByVal sender As System.Object, _ 0084 ByVal e As System.Windows.Forms.TabControlEventArgs) _ 0085 Handles TabControl1.Selected 0086 UpdateWebBrowser() 0087 End Sub Public Sub OpenWebPage(ByVal fname As String) 0090 ' fname TextBox Dim ReadLineData As String 0092 FileOpen(7, fname, OpenMode.Input) 0093 ReadLineData = "" 0094 Do While Not EOF(7) 0095 ReadLineData = ReadLineData & LineInput(7) & vbcrlf 0096 Loop 0097 TextBox1.Text = ReadLineData 0098 FileClose(7) 0099 End Sub

63 0101 Public Sub UpdateWebBrowser() 0102 deltempfile() 0103 tempfile = Me.fileDir & "\temp.html" 0104 ' TextBox1 HTML tempfile 0105 FileOpen(7, tempfile, OpenMode.Output) 0106 Print(7, TextBox1.Text) 0107 FileClose(7) 0108 'WebBrowser1 tempfile 0109 WebBrowser1.Navigate(tempFile) 0110 End Sub Public Sub UpdateDir(ByVal fname As String) 0113 ' fname filedir 0114 Dim fi As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(fName) 0115 Me.fileDir = fi.directoryname 0116 End Sub Public Sub AddFileRecord(ByVal fname As String) 0119 Dim i As Integer 0120 Dim msi As ToolStripMenuItem 0121 Dim isinrecord As Boolean = False ' fname 0122 ' fname 0123 For i = 0 To ToolStripMenuItem.DropDownItems.Count If fname = ToolStripMenuItem.DropDownItems(i).Text Then 0125 isinrecord = True 0126 Exit For 0127 End If 0128 Next 0129 ' fname 0130 ' 1. " ToolStripMenuItem" ToolStripMenuItem 0131 ' 2. recmenuitem_click ToolStripMenuItem Click 0132 ' () 0133 If isinrecord = False Then 0134 ' ToolStripMenuItem 0135 ToolStripMenuItem.DropDownItems.Add(fName) 0136 ' 0137 AddHandler ToolStripMenuItem.DropDownItems(i).Click, _ 0138 AddressOf recmenuitem_click 0139 End If 0140 End Sub Public Sub deltempfile() 0143 ' tempfile 0144 Try 0145 Kill(tempFile) 0146 Catch ex As Exception End Try 0149 End Sub End Class 56

64 TabControl1 TabPage TabControl1 HTML TabPage TextBoxl VB TabControl1 TabPage WebBrowserl VB

65 VB VB

66 2.2.5 VB Public Class Form Dim thedate As Date ' 0004 Dim memo(31) As String ' memo 0005 Dim MemoFileName As String 'memo 0006 Dim MemoYearMonth As String 'memo 0007 Dim MemoDay As Integer 'memo 0008 Dim MemoStr As String 'memo 0009 Dim MemoChr As String 'memo Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, _ 0012 ByVal e As System.Windows.Forms.DateRangeEventArgs) _ 0013 Handles MonthCalendar1.DateChanged 0014 Dim newdate As Date ' 0015 newdate = MonthCalendar1.SelectionRange.Start() 0016 'newdate = MonthCalendar1.SelectionRange.Start 0017 'newdate = MonthCalendar1.SelectionRangeEnd 0018 'MonthCalendar1.MaxSelectionCount = N 0019 ' N ( 7) 0020 ' thedate 0021 If getyearmonth(thedate) <> getyearmonth(newdate) Then 0022 ' UpdateMemo() memo memo() 0023 thedate = newdate 0024 UpdateMemo() 0025 End If 0026 ' memo 0027 MemoDay = MonthCalendar1.SelectionRange.Start.Day 0028 tbmemo.text = memo(memoday) 0029 MonthCalendar1.UpdateBoldedDates() 0030 End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ 0033 ByVal e As System.EventArgs) Handles MyBase.Load 0034 ' thedate 0035 thedate = Today 0036 'MonthCalendar1.MinDate = thedate 0037 ' UpdateMemo() 0038 UpdateMemo() 0039 MonthCalendar1.UpdateBoldedDates() 0040 ' 0041 MemoDay = thedate.day 0042 tbmemo.text = memo(memoday) 0043 MonthCalendar1.UpdateBoldedDates() 0044 End Sub Private Sub BtnSave_Click(ByVal sender As System.Object, _ 0047 ByVal e As System.EventArgs) Handles BtnSave.Click 0048 ' memo 59

67 0049 ' MonthCalendar1 BoldedDate 0050 ' () 0051 ' SaveMemo() memo 0052 SaveMemo() 0053 End Sub Private Sub BtnClear_Click(ByVal sender As System.Object, _ 0056 ByVal e As System.EventArgs) Handles BtnClear.Click 0057 ' 0058 ' memo 0059 ' MonthCalendar1 BoldedDate 0060 ' SaveMemo() memo 0061 tbmemo.text = "" 0062 SaveMemo() 0063 End Sub Function getyearmonth(byval date1 As Date) As String 0066 Return date1.year & "-" & date1.month ' YYYY-MM 0067 End Function Sub UpdateMemo() 0070 Dim i As Integer 0071 For i = 0 To memo(i) = "" 0073 Next 0074 ' thedate memo 0075 ' 0076 If My.Computer.FileSystem.FileExists( _ 0077 getyearmonth(thedate) & ".memo") Then 0078 MemoYearMonth = getyearmonth(thedate) 0079 MemoFileName = getyearmonth(thedate) & ".memo" 0080 FileOpen(7, MemoFileName, OpenMode.Input) 0081 Do While Not EOF(7) 0082 MemoStr = LineInput(7) 0083 If Len(MemoStr) >= 3 Then ' 3 --> 9:a 0084 ' 0085 For i = 1 To Len(MemoStr) 0086 If Mid(MemoStr, i, 1) = ":" Then 0087 MemoDay = Val(Mid(MemoStr, 1, i - 1)) 0088 ' 0089 memo(memoday) = Mid(MemoStr, i + 1, Len(MemoStr)) 0090 Exit For 0091 End If 0092 Next i 0093 MemoStr = "" 0094 If Len(memo(MemoDay)) >= 1 Then 0095 ' vbcrlf 0096 For i = 1 To Len(memo(MemoDay)) 0097 If Mid(memo(MemoDay), i, 2) = " " Then 0098 MemoStr = MemoStr & vbcrlf 0099 i = i