VB VB.NET ( ) ( ) ( )
---------------------------------------------------------------------- ---------------------------------------------------------------------------- 1.1 ------------------------------------------------------------------- 1 1.2 ------------------------------------------------------------------- 2 1.3 ------------------------------------------------------------- 3 2.1.NET-------------------------------------------------------------------- 4 2.1.1.NET ------------------------------------------------- 4 2.1.2.NET Framework----------------------------------------------- 5 2.1.2.1 Common Language Runtime--------------------------- 6 2.1.2.2 ---------------------------------------------- 8 2.2 ADAM----------------------------------------------------------------- 9 2.2.1 Adam ------------------------------------------------------ 9 2.2.2 Adam 4522------------------------------------------------------10 2.2.3 Adam 4050------------------------------------------------------11 2.3 ----------------------------------------------------------11 2.4 Solid State Relay SSR --------------------------------------------12 - II -
3.1 ------------------------------------------------------------- 13 3.2 ------------------------------------------------------------- 14 3.3 ------------------------------------------------------------- 15 3.4 ------------------------------------------------------------- 17 3.5 ------------------------------------------------------------- 17 3.5.1 ------------------------------------------------- 18 3.5.2 ------------------------------------------- 19 3.5.2.1 ---------------------------------------------- 19 3.5.2.2 ------------------------------------------- 20 3.5.2.3 VB6.0 ----------------------------------- 20 3.5.3 ------------------------------------------------------- 21 3.5.4 C# VB.NET ---------------------------------------- 21 3.5.5 -------------------------------------------------- 21 3.5.6 2002 2003 ------------------------------ 22 4.1 Event VB 6.0.NET ---------------------------- 24 4.2 ----------------------------------------------------------- 26 4.3 Dog--------------------------------------------------------------------- 29 - III -
4.4 Settings----------------------------------------------------------------- 35 4.5 LightText--------------------------------------------------------------- 36 4.6 FormCom-------------------------------------------------------------- 38 4.7 Module1---------------------------------------------------------------- 40 4.8 frmadduser------------------------------------------------------------ 43 4.9 frmaddaccessrule--------------------------------------------------- 44 4.10 ControlTimer--------------------------------------------------------- 46 4.10.1 --------------------------------------------------- 47 4.10.2 --------------------------------------------------- 51 4.10.3 --------------------------------------------------- 54 4.11 objclock-------------------------------------------------------------- 57 4.12 frmservermode------------------------------------------------------ 61 4.13 frmuser--------------------------------------------------------------- 63 4.14 frmchangeplug------------------------------------------------------ 67 4.15 frmaddswitch------------------------------------------------------- 69 5.1 -------------------------------------------- 71 5.2 -------------------------------------------------------- 71 5.3 ----------------------------------------------- 73 5.4 -------------------------------------------------------- 74 5.5 -------------------------------------------------------- 74 ----------------------------------------------------------------------- 76 - IV -
A ------------------------------------------------------ 77 B ----------------------------------------------------- 80 C ADAM-------------------------------------------------------------- 106 - V -
1-1 --------------------------------------------------------------- 3 2-1.NET ------------------------------------- 8 2-2.NET ------------------------------------------------------- 9 2-3 Adam 4522------------------------------------------------------------ 10 2-4 Adam 4050------------------------------------------------------------ 10 2-5 AXIS 2100 Network Camera--------------------------------------- 11 2-6 Solid State Relay----------------------------------------------------- 12 3-1 ---------------------------------------------------------- 13 3-2 ---------------------------------------------------------- 14 3-3 ------------------------------------------------- 18 3-4 ------------------------------------------------------- 20 3-5 2003 ---------------------------------------------- 22 4-1 ---------------------------------------------------- 26 4-2 ------------------------------------------------------- 27 4-3 ---------------------------------------------------------- 27 4-4 ------------------------------------------------- 28 4-5 ---------------------------------------------------- 28 - VI -
4-6 JPEG ------------------------------------------------------- 29 4-7 VB.NET ------------------------------------------------ 29 4-8 VB Dog A-------------------------------------------- 32 4-9 VB Dog B-------------------------------------------- 32 4-10 VB.NET GIF --------------------------------------- 32 4-11 ----------------------------------------------------- 33 4-12 ----------------------------------------------------------- 34 4-13 ----------------------------------------------------- 34 4-14 ----------------------------------------------------- 35 4-15 LightText ----------------------------------------------------- 36 4-16 ----------------------------------------- 38 4-1 ListBox ------------------------------------------------ 39 4-17 -------------------------------------------- 43 4-18 IP ------------------------------- 44 4-19 ControlTimer ------------------------------------------- 46 4-20 --------------------------------------------------- 47 4-21 --------------------------------------------------- 56 4-22 Sever ------------------------------------------- 62 4-23 --------------------------------------------- 64 - VII -
4-2 ------------------------------------------------------- 65 4-3 VB VB.NET ------------------------------------------ 66 4-4 VB VB.NET ------------------------------------ 66 4-24 ------------------------------------------ 67 4-25 ------------------------------------------------------------ 68 4-26 --------------------------------------------------- 68 4-27 ------------------------------------------ 69 5-1 ----------------------------------------- 71 - VIII -
VB VB.NET VB VB.NET VB VB.NET.NET - IX -
1.1.NET.NET.NET.NET.NET.NET.NET Windows.NET.NET VB.NET VB.NET VB 6.0 95? --- - - 1 - -
1.2 - - 2 - -
1.3 Adam - - 3 - -
.NET Adam 2.1.NET 2.1.1.NET.NET Microsoft XML Web XML Web Internet Microsoft.NET XML Internet XML Web XML Web Microsoft Microsoft.NET XML Web.NET - - 4 - -
.NET.NET windows form.ado ASP XML.NET.NET Studio.NET.NET Studio.NET PDA UNIX Windows Linux Mac.NET 2.1.2.NET Framework.NET Framework MSDN.NET Frameworke.NET.NET Framework : Common Language Runtime ( ASP. NET Windows Form.ADO.NET ).NET Framework. - - 5 - -
.NET Framework Windows Studio.NET.NET Framework.NET Framework VB.NET.NET Framework.NET Framework (Common Language Runtime) Base Class Library ASP.NET Windows Form.ADO.NET Windows ( ) XML ASP 2.1.2.1 Common Language Runtime.NET Framework Common Language Runtime (CLR) CLR VB.NET VB6 VB.NET CLR (unmanaged code).net VB.NET - - 6 - -
CLR ( MSIL IL) Managed Code JAVA Bytecode.NET JLT(Just-In-Time) Microsoft Windows CLR VB.NET CLR Windows.NET Framework Managed codes (1). (2). garbage collection (3). (4). Common Type System - - 7 - -
2.1.2.2.NET Framework C# Visual Basic Visual C + + Visual Studio Form From Form Form CLR.NET Framework Form Windows - - 8 - -
(.EXE) VB.NET Visual Studio % % * ($ ) $' $!" &!" # # %!" 2.2 Adam 2.2.1 Adam Adam - - 9 - -
ASCII RS-485( ) RS-485 2 DATA+ DATA - Adam A/D D/A TTL / Adam RTD 2.2.2 Adam 4522 ADAM 4520/4522 2-3 RS-232 ADAM 4520/4522 handshaking RS-485 2 115.2Kbps 2-3 Adam 4522 2-4 Adam 4050 - - 10 - -
2.2.3 Adam 4050 Adam 4050 2-4 7 8 (Solid-state relay) 2.3 AXIS 2100 Network Camera 2-5 JPEG AXIS2100 URL IP CAMERA JPEG 10 / PC 2-5 AXIS 2100 Network Camera - - 11 - -
2.4 Solid State Relay, SSR (Solid State Relay) 2-6 1. 3 32VDC 2. 3. 10A (80 280VAC) 4. 2-6 Solid State Relay - - 12 - -
3.1 3-1 1.Client server 2.Server RS-232 ADAM 3. ( SSR, Solid-State Relay ) 4. Network Camera Server Client 1 Client 2 1 Network Camera 1 SSR ADAM RS-232 LAN/WAN Internet Network Client 3 2 2 SSR Client 4 3-1 - - 13 - -
3.2 3-2 1 2 1. 2. 3. 4. 5. 6. 7. 1. 2. 3. 4. 5. 6. 1. 2. 3. 4. - - 14 - -
3.3 Network Camera server IP - - 15 - -
- - 16 - -
3.4 : winsows xp : Adam SSR(Solid-State Relay) Network Camera : Visual Studio.NET 2002 3.5 VB6.0 VB.NET VB.NET.NET VB6.0 VB.NET?? 3.5.1 VB.NET VB6.0 - - 17 - -
3-3 VB6.0 VB.NET Visual Basic 6.0 Microsoft Windows Form [ ] : Public Sub ClearSetBars() ClearSet() 'UPGRADE_ISSUE: PictureBox TotalTime.Cls : - - 18 - -
'ms-help://ms.vscc.2003/commoner/redir/redirect.htm?keyword="vb up2064"' TotalTime.Cls() 'UPGRADE_ISSUE: PictureBox rule2.cls : 'ms-help://ms.vscc.2003/commoner/redir/redirect.htm?keyword="vb up2064"' rule2.cls() End Sub 3.5.2 3.5.1 VB6.0 VB.NET 3.5.2.1 VB.NET 3-4 - - 19 - -
3.5.2.2 VB6.0 Explicit Off VB.NET VB.NET Explicit On VB6.0 Object 3.5.2.3 VB6.0 VB6.0 VB6.0 VB.NET - - 20 - -
3.5.3 3.5.2 VB6.0 VB 30-40% 3.5.4 C# VB.NET VB.NET VB.NET C# VB.NET 40% C# 3.5.5 - - 21 - -
VB.NET 3.5.6 2002 2003 Visual Studio 2002 Visual Studio 2003 2003 Visual Basic.NET 2002 2003 85% 15% 3-5 2003.NET 2002 2003 _slable_1 _slable_2.. - - 22 - -
.NET - - 23 - -
VB VB.NET 4.1 Event VB 6.0.NET Event : Visual Basic 6 Event Visual Basic 6 _ CommandButton Private Sub Command1_Click() Vb6 Visual Basic.NET Event VB.NET Handles Handles VB.NET Private Sub Command1_Click(ByVal sender As System.Object, - - 24 - -
ByVal e As System.EventArgs) Handles Command1.Click VB.NET Command1 Click Command1_Click Command1_Click YouClickedMyButton Private Sub YouClickedMyButton (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click VB6 VB.NET VB6 VB.NET EventArgs VB.NET VB ListBox VB6 Private Sub List1_ItemCheck(Item As Integer) MsgBox You Checked Item Item End Sub VB.NET Private Sub CheckedListBox1_ItemCheck(ByVal sender As - - 25 - -
System.Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck MsgBox You Checked Item e.index End Sub VB (Item As Integer) VB.NET ItemCheckEventArgs e 4.2 Step1: 4-1 - - 26 - -
Step2: 4-2 Step3: ALT+PrintScreen 4-3 - - 27 - -
Step4: SIZE 4-4 Step5: 4-5 - - 28 - -
4-6 JPEG Step6: VB.NET 4-7 VB.NET - - 29 - -
4.3 Dog Dog Dog.ctl VB.NET Dog.vb VB.NET VB Dog VB GIF GIF GIF VB 0.3 VB Private Sub Timer1_Timer() Static count As Integer If Mode = 1 Then imgdog.picture = DogWatch(count).Picture imglight.picture = imggreen(count Mod 2).Picture Else - - 30 - -
imgdog.picture = DogBark(count).Picture imglight.picture = imgred(count Mod 2).Picture End If count = count + 1 If count = 8 Then count = 0 End Sub VB.NET VB.NET VB GIF PhotoImpact Gif Aninmator VB.NET VB.NET VB GIF GIF VB VB.NET VB VB - - 31 - -
4-8 VB Dog a 4-9 VB Dog b VB.NET VB.NET GIF 4-10 VB.NET GIF - - 32 - -
4-11 VB VB.NET VB VB PictureBox Image 2 PictureBox Image 2 Picture Picture... BMP DIB JPG GIF WMF EMF CUR ICO 2 GIF GIF - - 33 - -
4-12 4-13 VB.NET VB.NET PictureBox Image VB VB Image GIF VB.NET Picture.Image.FromFile( \ ) PictureBox 60% 2 - - 34 - -
4.4 Settings Settings Settings.frm VB.NET Settings.vb 4-14 VB.NET VB CurrentPath 10 100% - - 35 - -
4.5 LightText LightText UserControl1.ctl VB.NET LightText.vb 4-15 LightText VB.NET VB VB Property Get Property Set/Let Set Let Get/Set/Let Public Property End Property Public Property Get Text() As String Text = ptext End Property Public Property Let Text(ByVal vnewvalue As String) ptext = vnewvalue End Property - - 36 - -
VB.NET Set Let Set VB.NET Get/Set Public Property End Property Public Property Caption() As String Get // Return ptext End Get Set(ByVal vnewvalue As String) // ptext = vnewvalue End Set End Property 1 50% - - 37 - -
4.6 FormCom FormCom Form1.frm VB.NET FormCom.vb 4-16 VB.NET VB Label Label VB VB.NET VB Caption VB.NET Text ListBox ListBox VB VB.NET - - 38 - -
Visual Basic Type Visual Basic.Net AddItem Method Items.Add Clear Method Items.Clear Click Event SelectedIndexChanged ListIndex Property SelectedIndex 4-1 ListBox Variant VB.NET Object Variant VB6 Object Varient VB6 Object VB.NET Object VB6 Variant VB VB.NET Right VB Recieve_SubString = Right$(ReciveTxt, Len(ReciveTxt) - 1) VB.NET Microsoft.VisualBasic VB Imports VB = Microsoft.VisualBasic Recieve_SubString = VB.Right(ReciveTxt, Len(ReciveTxt) - 1) - - 39 - -
Recieve_SubString = Microsoft.VisualBasic.Right(ReciveTxt, Len(ReciveTxt) - 1) 2 60% 4.7 Module1 Module1.bas VB.NET Module1.vb VB.NET VB Module User Defined Type Structure VB VB.NET VB Type Type As - - 40 - -
End Type VB.NET Structure Structure Dim As End Structure VB VB.NET VB VB.NET Module Structure VB Type CUser AccessRule(5) As AccessRule End Type VB VB.NET Structure CUser <VBFixedArray(5)> Dim AccessRule() As AccessRule Public Sub Initialize() ReDim AccessRule(5) End Sub End Structure VB.NET VBFixedArray - - 41 - -
Initialize Public Initialize ReDim VB VB.NET NullReferenceException Object reference not set to an instance of an instance of an object MSDN CUser Module Initialize CUser Main Public Sub Main Dim User As CUser User. Initialize() End Sub 2 80% - - 42 - -
4.8 frmadduser frmadduser frmadduser.frm VB.NET frmadduser.vb 4-17 VB.NET VB CheckBox Check1 VB Check1 0 For i = 0 To 3 Check1(i).Value = 0 Next i - - 43 - -
VB.NET VB VB.NET Check0.Checked = 0 Check1.Checked = 0 Check2.Checked = 0 Check3.Checked = 0 1 85% 4.9 frmaddaccessrule IP frmaddaccessrule frmaddaccessrule.frm 4-18 IP - - 44 - -
VB.NET VB VB 2 Command1_Click(Index As Integer) Index Private Sub Command1_Click(Index As Integer) If Index = 0 Then If optselecttype(0).value = True Then frmadduser.lstgoip.additem txtip.text Else frmadduser.lststopip.additem txtip.text End If End If txtip.text = "" frmaddaccessrule.hide End Sub VB.NET VB 2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If optselecttype1.checked = True Then AddUser.lstGoIP.Items.Add(txtIP.Text) ElseIf optselecttype1.checked = True Then AddUser.lstStopIP.Items.Add(txtIP.Text) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles - - 45 - -
Button2.Click txtip.text = " " Me.Hide() End Sub 1 50% 4.10 ControlTimer ControlTimer rul.ctl VB.NET ControlTimer.vb ControlTimer.vb 4-19 ControlTimer.vb - - 46 - -
4.10.1 Visual Basic ControlImg(0) ControlImg(6) 4-20 btn_click btn.picture = btnadd(1).picture btnadd(1) btnadd VB.NET btnadd(1) btnadd_1 VB VB.NET VB.NET VB6.0 VB.NET ControlTimer_Load - - 47 - -
btnadd(0) btnadd(1) btnadd.load(0) btnadd.load(1) VB Index VB6.0 Index : Private Sub imgbtnup_mousedown(index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) imgbtnup(index).top = 198 End Sub imgbtnup (Down) Index Index = 1 imgbtnup(1) VB.NET Index Tag VB.NET VB VB : - - 48 - -
Private Sub imgbtnup_mousemove(index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Select Case Index Index Case 1 Case 2 Case 3 End Select End Sub labtip.caption = " " labtip.caption = " " labtip.caption = " " Index imgbtnup(index) imgbtnup(0) imgbtnup(1) imgbtnup(2) imgbtnup(3) VB.NET : Private Sub imgbtnup_mousemove(byval sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles imgbtnup_1.mousemove, imgbtnup_2.mousemove, imgbtnup_3.mousemove Handles Select Case sender.tag sender MouseMove Case 1 LabTip.Text = " " Case 2 LabTip.Text = " " Case 3 LabTip.Text = " " End Select - - 49 - -
End Sub 1 VB.NET VB 6.0 Handles imgbtnup_mousemove Handles imgbtnup_1.mousemove imgbtnup_1.mousemove imgbtnup_1 MouseMove Handles VB.NET Handles 2: Tag imgbtnup_0 Tag 0 imgbtnup_1 Tag 1 ByVal sender As Object sender sender sender imgbtnup_1 imgbtnup_1 Tag 1 - - 50 - -
VB 6.0 Index sender imgbtnup_1 sender.tag sender.tag = 1 imgbtnup_1 VB 6.0 Index VB.NET 4.10.2 : VB 6.0 Type... End Type VB.NET Structure. End Structure VB.NET VB6.0 Shared Initial VB6.0 VB.NET VB6.0 - - 51 - -
VB.NET Module1.vb VB Type TimeControlElement ON_time(MAX_TIME_COUNT) As TimeElement OFF_time(MAX_TIME_COUNT) As TimeElement TimeCounts As Integer Types As Integer Index As Integer End Type VB.NET Structure TimeControlElement <VBFixedArray(MAX_TIME_COUNT)> Dim ON_time() As TimeElement <VBFixedArray(MAX_TIME_COUNT)> Dim OFF_time() As TimeElement Dim TimeCounts As Short ' Dim Types As Short Dim Index As Short 'UPGRADE_TODO: "Initialize" : 'ms-help://ms.vscc/commoner/redir/redirect.htm?keyword="vbup1026"' Public Sub Initialize() ReDim ON_time(MAX_TIME_COUNT) ReDim OFF_time(MAX_TIME_COUNT) End Sub End Structure - - 52 - -
VB.NET VBFixedArray VB Get Put Initialize ReDim 1 ControlTimer NullReferenceException Object reference not set to an instance of an object telement Initialize 2 - - 53 - -
ControlImg_Click ControlImg_0 -- ControlImg_6 click telement Module1.vb TimeControlElement telement System.NullReferenceException Load telenment(maxelement).initialize MaxElement MSDN debug For j = 0 To MaxElement - 1 ' telement(j).initialize() Next 4.10.3 rule.vb VB.NET VB6.0 PictureBox ( Container ) Container - - 54 - -
Container MouseDown VB.NET PictureBox VB.NET PictureBox Panel Panel 1 VB.NET rule.vb rule VB6.0 ARProgressBar VB6,0 VB.NET ARProgressBar rule debug - - 55 - -
2 VB6.0 4-21 TotolTime MouseDown rule MouseDown AddStep VB6.0 : Private Sub TotalTime_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If AddStep = 1 Or AddStep = 3 Then selbutton(0).bordercolor = selbutton(1).bordercolor End If Select Case AddStep Case 1: FirstPos = x AddStep = 2 Case 3: SecondPos = x AddStep = 4 End Select End If End Sub 3: - - 56 - -
rule Private Sub TotalTime_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TotalTime.MouseDown End Sub VB.NET MouseDown Handles VB.NET Handles VB6.0 Private Sub TotalTime_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Shape1.MouseDown, frmsmalltime.mousedown End Sub TotalTime Shape1 frmsmalltime VB.NET TotolTime Shape1 frmsmalltime 40% 20 4.11 objclock objclock.ctl VB.NET : objclock.vb - - 57 - -
VB.NET VB VB6.0 Line Image VB.NET VB.NET PictureBox VB.NET GDI+ (Graphics Design Interface) System.Drawing.Graphics Paint VB.NET VB 6.0 VB.NET Image (Abstract) Dim pic As Image Pic = Image.FromFile( ) VB6.0 PictureBox VB6.0 VB.NET PictureBox Image - - 58 - -
Image Line VB.NET System.Drawing Line DrawLine Line (Pen ) (Brush ) (Point ) (Rectangle ) Clock.vb VB6.0 Line Clock Line VB.NET Line DrawLine Clock.vb VB6.0 VB.NET Pen Dim SecPen As New Pen(Color.Black, 1) Dim MinPen As New Pen(Color.DarkBlue, 3) Dim HrPen As New Pen(Color.GreenYellow, 3) GDI+ - - 59 - -
Pen Dim SecPen As New Pen(Color.Black, 1) SecPen MinPen HrPen VB6.0 Line Graphics Graphics GDI+ 1. Graphics Dim g As Graphics Paint PaintEventArgs Paint PaintEventArgs Graphics Step1 Graphics Step2 PaintEventArgs Graphics Step3 Private Sub objclock_paint(sender As Object, pe As PaintEventArgs) - - 60 - -
Handles MyBase.Paint Dim g As Graphics = pe.graphics End Sub 2. Graphics objclock.vb PictureBox ( Name = Pic ) PictureBox UpdateSec() g = Pic.CreateGraphics g g.clear(color.silver) Silver g.drawline(secpen, x1, y1, secx2, secy2) g.drawline(secpen, x1, y1, secx2, secy2) SecPen Point( x1, y1) ( secx2, secy2) g.drawimage(shphourpos.image, Hrsx2, Hrsy2) shphourpos.image Point ( Hrsx2, Hrsy2) 90% 10 4.12 frmservermode Sever formservermode frmservermode.frm - - 61 - -
VB.NET formservermode.vb 4-22 sever VB.Net VB ADAM ADAM VB VB.NET VB Private Sub Comm1_OnComm() Select Case Comm1.CommEvent Case comevcd Case comevcts Case comevdsr Case comevring Case comevreceive Case comevsend End Select End Sub VB.NET - - 62 - -
Private Sub Comm1_OnComm(ByVal eventsender As System.Object, ByVal eventargs As System.EventArgs) Handles Comm1.OnComm Select Case Comm1.CommEvent Case MSCommLib.OnCommConstants.comEvCD Case MSCommLib.OnCommConstants.comEvCTS Case MSCommLib.OnCommConstants.comEvDSR Case MSCommLib.OnCommConstants.comEvRing Case MSCommLib.OnCommConstants.comEvReceive Case MSCommLib.OnCommConstants.comEvSend End Select End Sub 2 60% 4.13 frmuser frmuser frmuser.frm VB.NET frmuser.vb - - 63 - -
4-23 VB.Net VB VB VB.NET VB Open Open For As #FreeFile... - - 64 - -
Private Sub Command1_Click() Open "C:\ \setup.ini" For Input As #1 Open "C:\ \Served.dat" For Output As #2 LenB(MyStruct) End Sub Append Output Input Binary 4-2 Close ( ) Private Sub Command1_Click() Open "C:\ \setup.ini" For Input As #1 LenB(MyStruct) Close #1 End Sub VB.NET FileOpen(1, "C:\ \setup.ini", OpenMode.Input) - - 65 - -
FileClose(1) LenB(MyStruct) VB VB.NET Open Close FileOpen FileClose 4-3 VB VB.NET VB VB.NET Append Output Input Binary OpenMode. Append OpenMode. Output OpenMode.Input OpenMode. Binary 4-4 VB VB.NET VB.NET Opens a file for input or output. Public Sub FileOpen( _ ByVal FileNumber As Integer, _ ByVal FileName As String, _ ByVal Mode As OpenMode, _ Optional ByVal Access As OpenAccess=OpenAccess.Default Optional ByVal Share As OpenShare = OpenShare.Default, Optional ByVal RecordLength As Integer = -1 2 - - 66 - -
70% 4.14 frmchangeplug frmchangeplug frmchangeplug.frm VB.Net frmchangeplug.vb 4-24 VB.NET VB ListBox 1 5 VB For i = 1 To 5 plugid.additem " " & Str$(i) Next i VB.NET - - 67 - -
4-25 4-26 ListBox Items 1 0% - - 68 - -
4.15 frmaddswitch frmaddswitch frmaddswitch.frm VB.NET frmaddswitch.vb 4-27 VB.NET VB ListBox TextBox Label ForeColor VB ObjStatue.ForeColor = &H8000& - - 69 - -
H8000 VB.NET Integer VB.NET ForeColor Color H8000 ObjStatue.ForeColor = System.Drawing.ColorTranslator.FromOle(&H8000) 2 80 - - 70 - -
REUSE 5.1 Adam 55% 100% 70% 70% 30% 60% 50% 50% 30% 5-1 57% 5.2 3 - - 71 - -
57% 95% VB.NET CLR VB.NET.NET VB.NET MSDN VB.NET VB.NET 2002 2003.NET - - 72 - -
VB6 5.3 : Adam Adam : VB VB.NET VB.NET VB VB.NET VB.NET - - 73 - -
VB 6.0 VB.NET VB.NET VB 7.0 VB.NET 5.4 Network Camera Adam 8051 Windows CE.NET.NET 5.5 Microsoft Visual Basic - - 74 - -
VB 6.0 VB.NET VB.NET VB6.0 VB.NET VB.NET VB.NET.NET.NET VB.NET Visual Basic - - 75 - -
[1] Visual Basic.NET pp.180 319 February 2003 [2] Visual Basic.NET pp. 4-2 13-44 August 2002 [3] Visual Basic.NET pp.78 320 May 2002 [4]Ed Robinson & Michael Bond & Robert lan Oliver Upgrading MicroSoft Visual Basic 6.0 to MicroSoft Visual Basic.NET pp.2-2 13-24 October 2002 [5] Visual Basic.NET pp.45 210 2002 [6] Visual Basic 1999 [7] Visual Basic 1998 [8] Visual Basic 2002 - - 76 - -
A - - 77 - -
3 1 5 4 2 - - 78 - -
- - 79 - -
B.1 B B-1 1. Server Client 2. - - 80 - -
3. 4. B-2 5. 6. 7. 8. 9. B-2 - - 81 - -
B.2 ( Client ) ( Server ) B.3 (Server IP ) - - 82 - -
B.3 Server Client B-1 1 Server Client B.3.1 Server Server Server Server Server Server Server Server - - 83 - -
B.8 B.3.2 Client Client web server Client Client Client Client B-3 Server Server B-3 - - 84 - -
B.4 B.4.1 1 2 B-4 ( ) 3 B-5 4 5 6 ( B-6 ) - - 85 - -
7 B-5 B-6 B.4.2 B-7 (ON / OFF) - - 86 - -
B-8 A-9a B-9b B-7 B-8 B-9a - - 87 - - B-9b
B.5 B-10 B-10 B.5.1 1 2 ( - - 88 - -
) 3 B-5 4 5 6 B.5.2 B-10 B-13 - - 89 - -
B-11 B-11 B.5.3 B-12 - - 90 - -
B-13 B-12 B-13 B.6 10 FPS (Frames Per Second) FPS B.8 - - 91 - -
B.6.1 B-14 FPS REC - - 92 - -
B-14 B.7 B.7.1 B-15a - - 93 - -
B-15b B-15c A-17 22a. 22b. 22c. B.7.2 (1) E-Mail ( - - 94 - -
) (2) FPS (3) B.7.3 B-16a A-16b B-17 (1) (2) - - 95 - -
B-17 - - 96 - -
B.8 B-18 B-18 - - 97 - -
B-18 ( ) 00 24 B-18 3 25 233 14 35 185 - - 98 - -
14 35 17 40 1 2 3 ( 15 00 15 30 45 ) 4 PM 2 : 30 5 6 15 7 PM 2 : 35 14 35 8 PM 5 45 - - 99 - -
9 PM 5 40 10 14 35 17 40 185 A.9 B-19 server IP - - 100 - -
1 B-20 2 3 4 ( ) (1) (2) (3) (4) 4 IP 5 B-19. B-20. - - 101 - -
1 2 IP IP server IP IP 1 IP B-21 2 (1) server (2) server 3 IP ( * 0 255 IP 140.134.26.* 140.134.26.0 140.134.26.255) - - 102 - -
4 IP IP B-21. IP - - 103 - -
ADAM-4522 General / isolate RS-422 / 485 Repeater C ADAM Isolated / General RS-232 to 422 / 845 converter Specifications Power requirement Unregulated +10~+30 VDC. Module protected from power reversals Case ABS with captive mounting hardware Accessorise (supplied) ABS DIN- rail mounting adapter, SECC panel mounting bracker Plug- in screw terminal wiring Accepts AWG1-#14~#22(0.5 to 2.5 mm 2 )wires Operating temperature -10 to 70 C (14 to 158 F) Dimensions 60mm*120mm(2.36 *4.41 ) Transmission speed (bps) 1200, 2400, 4800, 9600, 19.2K, 38.4K, 57.6K, 115.2K, RTP control and RS-4522 mode (switchable) Isolation voltage 3000VDC(ADAM-4522 only) RS-232 interface connector Female DB-9 RS422/RS-485 interface connector Plug-in screw terminal Power consumption 1.2W Features Automatic internal RS-485 bus supervision No external flow control signals required for RS-485 3000VDC isolation protection(adam-4520 only) Transient suppression on RS-485 data lines Speed up to 115.2 kbps Networking up to 4000 feet Reserved space for termination resistors Power and data flow indicator for troubleshooting Power requirement +10 to+30vdc Mounts easily on a DIN-rail or panel - - 104 - -
ADAM-4050 Digital I / O Module Specifications Digital Input Channels 7 Logic level 0 +1 V max. Logic level 1 +3.5 V ~ +30 V Pull up current Logic 0.5 ma, 10 K resistor to +5 V Digital Output Channels 8 Open collector to 30 V, 30 ma max. load Power dissipation 300 mw Watchdog Timer Built - in Power Power Requirements +10~+30 VDC( non-regulated ) Power consumption 0.4 W - - 105 - -