UTS/AUTS_Desktop_Prod
5
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects 1 Releases Wiki Activity

初始化提交

Browse Source 
仓库转移到Gitea，初始化提交，可能丢失以前的git版本日志
This commit is contained in:
MomoWen
2025-11-27 16:41:05 +08:00
commit 027d0f8024
663 changed files with 171319 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

147
AUTS_Assembly/AUTS_Assembly.vbproj Normal file
View File

@@ -0,0 +1,147 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{8DAB8B67-D59B-4413-9024-8FA8EBBE821D}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>AUTS_Assembly.My.MyApplication</StartupObject>
<RootNamespace>AUTS_Assembly</RootNamespace>
<AssemblyName>AUTS_Assembly</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<Deterministic>true</Deterministic>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>AUTS_Assembly.xml</DocumentationFile>
<NoWarn>
</NoWarn>
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>AUTS_Assembly.xml</DocumentationFile>
<NoWarn>
</NoWarn>
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>On</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>Off</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>iconfinder_60_939814.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup>
<Reference Include="FluentFTP">
<HintPath>..\packages\FluentFTP.33.0.3\lib\net45\FluentFTP.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Data.SQLite">
<HintPath>..\UTS_Core\bin\Debug\System.Data.SQLite.dll</HintPath>
</Reference>
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="FrmMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FrmMain.Designer.vb">
<DependentUpon>FrmMain.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="FrmMain.resx">
<DependentUpon>FrmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<Content Include="iconfinder_60_939814.ico" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\UTS_Core\UTS_Core.vbproj">
<Project>{33c6456c-f00d-41ac-a6fb-db0601495c6a}</Project>
<Name>UTS_Core</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

50
AUTS_Assembly/App.config Normal file
View File

@@ -0,0 +1,50 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="AUTS_Assembly.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
</startup>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.4.0" newVersion="4.0.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.1.2" newVersion="4.0.1.2" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="Google.Protobuf" publicKeyToken="a7d26565bac4d604" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-3.30.1.0" newVersion="3.30.1.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>
<userSettings>
<AUTS_Assembly.My.MySettings>
<setting name="Project" serializeAs="String">
<value />
</setting>
<setting name="ProcessStation" serializeAs="String">
<value />
</setting>
<setting name="ProductionLine" serializeAs="String">
<value />
</setting>
<setting name="SingleSn" serializeAs="String">
<value>True</value>
</setting>
<setting name="BarCount" serializeAs="String">
<value>1</value>
</setting>
</AUTS_Assembly.My.MySettings>
</userSettings>
</configuration>

10
AUTS_Assembly/ApplicationEvents.vb Normal file
View File

@@ -0,0 +1,10 @@
Namespace My
' 以下事件可用于 MyApplication:
' Startup:应用程序启动时在创建启动窗体之前引发。
' Shutdown:在关闭所有应用程序窗体后引发。如果应用程序非正常终止，则不会引发此事件。
' UnhandledException:在应用程序遇到未经处理的异常时引发。
' StartupNextInstance:在启动单实例应用程序且应用程序已处于活动状态时引发。
' NetworkAvailabilityChanged:在连接或断开网络连接时引发。
Partial Friend Class MyApplication
End Class
End Namespace

416
AUTS_Assembly/FrmMain.Designer.vb generated Normal file
View File

@@ -0,0 +1,416 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmMain
Inherits System.Windows.Forms.Form
'Form 重写 Dispose，以清理组件列表。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改它。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmMain))
Me.lab_Result = New System.Windows.Forms.Label()
Me.lab_ModelName = New System.Windows.Forms.Label()
Me.BtnOpenProject = New System.Windows.Forms.Button()
Me.BtnStartProgramming = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.TxtThirdRecord = New System.Windows.Forms.TextBox()
Me.TxtFifthRecord = New System.Windows.Forms.TextBox()
Me.TxtFourthRecord = New System.Windows.Forms.TextBox()
Me.RadFour = New System.Windows.Forms.RadioButton()
Me.RadThree = New System.Windows.Forms.RadioButton()
Me.RadTwo = New System.Windows.Forms.RadioButton()
Me.RadSingle = New System.Windows.Forms.RadioButton()
Me.TxtSecondRecord = New System.Windows.Forms.TextBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.TxtFirstRecord = New System.Windows.Forms.TextBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.RtxLog = New System.Windows.Forms.RichTextBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.CboProductionLines = New System.Windows.Forms.ComboBox()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.TssLblProductionLine = New System.Windows.Forms.ToolStripStatusLabel()
Me.TssLblStaion = New System.Windows.Forms.ToolStripStatusLabel()
Me.TsLblCheckSum = New System.Windows.Forms.ToolStripStatusLabel()
Me.TssLblPassCount = New System.Windows.Forms.ToolStripStatusLabel()
Me.TssLblFailCount = New System.Windows.Forms.ToolStripStatusLabel()
Me.TssLblYield = New System.Windows.Forms.ToolStripStatusLabel()
Me.GroupBox2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.SuspendLayout()
'
'lab_Result
'
Me.lab_Result.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lab_Result.BackColor = System.Drawing.Color.Black
Me.lab_Result.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lab_Result.Font = New System.Drawing.Font("Consolas", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lab_Result.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer))
Me.lab_Result.Location = New System.Drawing.Point(447, 84)
Me.lab_Result.Name = "lab_Result"
Me.lab_Result.Size = New System.Drawing.Size(433, 112)
Me.lab_Result.TabIndex = 13
Me.lab_Result.Text = "PASS"
Me.lab_Result.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'lab_ModelName
'
Me.lab_ModelName.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lab_ModelName.BackColor = System.Drawing.SystemColors.ActiveCaption
Me.lab_ModelName.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lab_ModelName.Font = New System.Drawing.Font("Consolas", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lab_ModelName.Location = New System.Drawing.Point(447, 9)
Me.lab_ModelName.Name = "lab_ModelName"
Me.lab_ModelName.Size = New System.Drawing.Size(433, 67)
Me.lab_ModelName.TabIndex = 12
Me.lab_ModelName.Text = "SW-570"
Me.lab_ModelName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'BtnOpenProject
'
Me.BtnOpenProject.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnOpenProject.Font = New System.Drawing.Font("微软雅黑", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.BtnOpenProject.Location = New System.Drawing.Point(447, 204)
Me.BtnOpenProject.Name = "BtnOpenProject"
Me.BtnOpenProject.Size = New System.Drawing.Size(169, 104)
Me.BtnOpenProject.TabIndex = 11
Me.BtnOpenProject.Text = "选择项目"
Me.BtnOpenProject.UseVisualStyleBackColor = True
'
'BtnStartProgramming
'
Me.BtnStartProgramming.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnStartProgramming.Font = New System.Drawing.Font("微软雅黑", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.BtnStartProgramming.ForeColor = System.Drawing.Color.Blue
Me.BtnStartProgramming.Location = New System.Drawing.Point(622, 204)
Me.BtnStartProgramming.Name = "BtnStartProgramming"
Me.BtnStartProgramming.Size = New System.Drawing.Size(258, 104)
Me.BtnStartProgramming.TabIndex = 10
Me.BtnStartProgramming.Text = "开始录入"
Me.BtnStartProgramming.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox2.Controls.Add(Me.TxtThirdRecord)
Me.GroupBox2.Controls.Add(Me.TxtFifthRecord)
Me.GroupBox2.Controls.Add(Me.TxtFourthRecord)
Me.GroupBox2.Controls.Add(Me.RadFour)
Me.GroupBox2.Controls.Add(Me.RadThree)
Me.GroupBox2.Controls.Add(Me.RadTwo)
Me.GroupBox2.Controls.Add(Me.RadSingle)
Me.GroupBox2.Controls.Add(Me.TxtSecondRecord)
Me.GroupBox2.Font = New System.Drawing.Font("微软雅黑", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.GroupBox2.ForeColor = System.Drawing.Color.Blue
Me.GroupBox2.Location = New System.Drawing.Point(3, 143)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(439, 165)
Me.GroupBox2.TabIndex = 15
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "其他序号"
'
'TxtThirdRecord
'
Me.TxtThirdRecord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TxtThirdRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.TxtThirdRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TxtThirdRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.TxtThirdRecord.Location = New System.Drawing.Point(0, 72)
Me.TxtThirdRecord.Multiline = True
Me.TxtThirdRecord.Name = "TxtThirdRecord"
Me.TxtThirdRecord.Size = New System.Drawing.Size(433, 26)
Me.TxtThirdRecord.TabIndex = 11
Me.TxtThirdRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TxtFifthRecord
'
Me.TxtFifthRecord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TxtFifthRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.TxtFifthRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TxtFifthRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.TxtFifthRecord.Location = New System.Drawing.Point(0, 134)
Me.TxtFifthRecord.Name = "TxtFifthRecord"
Me.TxtFifthRecord.Size = New System.Drawing.Size(433, 29)
Me.TxtFifthRecord.TabIndex = 10
Me.TxtFifthRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TxtFourthRecord
'
Me.TxtFourthRecord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TxtFourthRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.TxtFourthRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TxtFourthRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.TxtFourthRecord.Location = New System.Drawing.Point(0, 103)
Me.TxtFourthRecord.Multiline = True
Me.TxtFourthRecord.Name = "TxtFourthRecord"
Me.TxtFourthRecord.Size = New System.Drawing.Size(433, 26)
Me.TxtFourthRecord.TabIndex = 9
Me.TxtFourthRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'RadFour
'
Me.RadFour.AutoSize = True
Me.RadFour.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.RadFour.Location = New System.Drawing.Point(370, 15)
Me.RadFour.Name = "RadFour"
Me.RadFour.Size = New System.Drawing.Size(62, 21)
Me.RadFour.TabIndex = 8
Me.RadFour.TabStop = True
Me.RadFour.Tag = "4"
Me.RadFour.Text = "四条码"
Me.RadFour.UseVisualStyleBackColor = True
'
'RadThree
'
Me.RadThree.AutoSize = True
Me.RadThree.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.RadThree.Location = New System.Drawing.Point(281, 15)
Me.RadThree.Name = "RadThree"
Me.RadThree.Size = New System.Drawing.Size(62, 21)
Me.RadThree.TabIndex = 7
Me.RadThree.TabStop = True
Me.RadThree.Tag = "3"
Me.RadThree.Text = "三条码"
Me.RadThree.UseVisualStyleBackColor = True
'
'RadTwo
'
Me.RadTwo.AutoSize = True
Me.RadTwo.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.RadTwo.Location = New System.Drawing.Point(192, 15)
Me.RadTwo.Name = "RadTwo"
Me.RadTwo.Size = New System.Drawing.Size(62, 21)
Me.RadTwo.TabIndex = 6
Me.RadTwo.TabStop = True
Me.RadTwo.Tag = "2"
Me.RadTwo.Text = "双条码"
Me.RadTwo.UseVisualStyleBackColor = True
'
'RadSingle
'
Me.RadSingle.AutoSize = True
Me.RadSingle.Font = New System.Drawing.Font("微软雅黑", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.RadSingle.Location = New System.Drawing.Point(103, 15)
Me.RadSingle.Name = "RadSingle"
Me.RadSingle.Size = New System.Drawing.Size(62, 21)
Me.RadSingle.TabIndex = 5
Me.RadSingle.TabStop = True
Me.RadSingle.Tag = "1"
Me.RadSingle.Text = "单条码"
Me.RadSingle.UseVisualStyleBackColor = True
'
'TxtSecondRecord
'
Me.TxtSecondRecord.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TxtSecondRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.TxtSecondRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TxtSecondRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.TxtSecondRecord.Location = New System.Drawing.Point(0, 41)
Me.TxtSecondRecord.Name = "TxtSecondRecord"
Me.TxtSecondRecord.Size = New System.Drawing.Size(433, 29)
Me.TxtSecondRecord.TabIndex = 2
Me.TxtSecondRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.TxtFirstRecord)
Me.GroupBox1.Font = New System.Drawing.Font("微软雅黑", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(3, 72)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(439, 65)
Me.GroupBox1.TabIndex = 16
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "成品序号"
'
'TxtFirstRecord
'
Me.TxtFirstRecord.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.TxtFirstRecord.Dock = System.Windows.Forms.DockStyle.Fill
Me.TxtFirstRecord.Font = New System.Drawing.Font("微软雅黑", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.TxtFirstRecord.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.TxtFirstRecord.Location = New System.Drawing.Point(3, 30)
Me.TxtFirstRecord.Name = "TxtFirstRecord"
Me.TxtFirstRecord.Size = New System.Drawing.Size(433, 29)
Me.TxtFirstRecord.TabIndex = 1
Me.TxtFirstRecord.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'GroupBox3
'
Me.GroupBox3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox3.Controls.Add(Me.RtxLog)
Me.GroupBox3.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(0, 314)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(878, 245)
Me.GroupBox3.TabIndex = 17
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "录入记录"
'
'RtxLog
'
Me.RtxLog.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.RtxLog.Dock = System.Windows.Forms.DockStyle.Fill
Me.RtxLog.Location = New System.Drawing.Point(3, 22)
Me.RtxLog.Name = "RtxLog"
Me.RtxLog.Size = New System.Drawing.Size(872, 220)
Me.RtxLog.TabIndex = 0
Me.RtxLog.Text = ""
'
'GroupBox4
'
Me.GroupBox4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox4.Controls.Add(Me.CboProductionLines)
Me.GroupBox4.Font = New System.Drawing.Font("微软雅黑", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.GroupBox4.Location = New System.Drawing.Point(3, 2)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(439, 64)
Me.GroupBox4.TabIndex = 18
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "产线"
'
'CboProductionLines
'
Me.CboProductionLines.Dock = System.Windows.Forms.DockStyle.Fill
Me.CboProductionLines.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CboProductionLines.Font = New System.Drawing.Font("微软雅黑", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.CboProductionLines.ForeColor = System.Drawing.Color.Gray
Me.CboProductionLines.FormattingEnabled = True
Me.CboProductionLines.Items.AddRange(New Object() {"Q1", "Q2", "Q3", "Q4"})
Me.CboProductionLines.Location = New System.Drawing.Point(3, 30)
Me.CboProductionLines.Name = "CboProductionLines"
Me.CboProductionLines.Size = New System.Drawing.Size(433, 34)
Me.CboProductionLines.TabIndex = 0
Me.CboProductionLines.TabStop = False
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TssLblProductionLine, Me.TssLblStaion, Me.TsLblCheckSum, Me.TssLblPassCount, Me.TssLblFailCount, Me.TssLblYield})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 563)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(880, 22)
Me.StatusStrip1.TabIndex = 19
Me.StatusStrip1.Text = "StatusStrip1"
'
'TssLblProductionLine
'
Me.TssLblProductionLine.ForeColor = System.Drawing.Color.Black
Me.TssLblProductionLine.Name = "TssLblProductionLine"
Me.TssLblProductionLine.Size = New System.Drawing.Size(44, 17)
Me.TssLblProductionLine.Text = "A-Line"
'
'TssLblStaion
'
Me.TssLblStaion.ForeColor = System.Drawing.Color.Black
Me.TssLblStaion.Name = "TssLblStaion"
Me.TssLblStaion.Size = New System.Drawing.Size(68, 17)
Me.TssLblStaion.Text = "BLV-12 A1"
'
'TsLblCheckSum
'
Me.TsLblCheckSum.Name = "TsLblCheckSum"
Me.TsLblCheckSum.Size = New System.Drawing.Size(64, 17)
Me.TsLblCheckSum.Text = "Sum:0000"
'
'TssLblPassCount
'
Me.TssLblPassCount.Name = "TssLblPassCount"
Me.TssLblPassCount.Size = New System.Drawing.Size(65, 17)
Me.TssLblPassCount.Text = "Pass:0000"
'
'TssLblFailCount
'
Me.TssLblFailCount.Name = "TssLblFailCount"
Me.TssLblFailCount.Size = New System.Drawing.Size(58, 17)
Me.TssLblFailCount.Text = "Fail:0000"
'
'TssLblYield
'
Me.TssLblYield.Name = "TssLblYield"
Me.TssLblYield.Size = New System.Drawing.Size(81, 17)
Me.TssLblYield.Text = "Yield:00.00%"
'
'FrmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 12!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(880, 585)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.lab_Result)
Me.Controls.Add(Me.lab_ModelName)
Me.Controls.Add(Me.BtnOpenProject)
Me.Controls.Add(Me.BtnStartProgramming)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.Name = "FrmMain"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Form1"
Me.GroupBox2.ResumeLayout(false)
Me.GroupBox2.PerformLayout
Me.GroupBox1.ResumeLayout(false)
Me.GroupBox1.PerformLayout
Me.GroupBox3.ResumeLayout(false)
Me.GroupBox4.ResumeLayout(false)
Me.StatusStrip1.ResumeLayout(false)
Me.StatusStrip1.PerformLayout
Me.ResumeLayout(false)
Me.PerformLayout
End Sub
Friend WithEvents lab_Result As Label
Friend WithEvents lab_ModelName As Label
Friend WithEvents BtnOpenProject As Button
Friend WithEvents BtnStartProgramming As Button
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents TxtSecondRecord As TextBox
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents TxtFirstRecord As TextBox
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents RtxLog As RichTextBox
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents CboProductionLines As ComboBox
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents TssLblProductionLine As ToolStripStatusLabel
Friend WithEvents TssLblStaion As ToolStripStatusLabel
Friend WithEvents TsLblCheckSum As ToolStripStatusLabel
Friend WithEvents TssLblPassCount As ToolStripStatusLabel
Friend WithEvents TssLblFailCount As ToolStripStatusLabel
Friend WithEvents TssLblYield As ToolStripStatusLabel
Friend WithEvents RadSingle As RadioButton
Friend WithEvents RadTwo As RadioButton
Friend WithEvents RadThree As RadioButton
Friend WithEvents RadFour As RadioButton
Friend WithEvents TxtFourthRecord As TextBox
Friend WithEvents TxtFifthRecord As TextBox
Friend WithEvents TxtThirdRecord As TextBox
End Class

6296
AUTS_Assembly/FrmMain.resx Normal file
View File

File diff suppressed because it is too large Load Diff

382
AUTS_Assembly/FrmMain.vb Normal file
View File

@@ -0,0 +1,382 @@
Imports System.Text
Imports UTS_Core.UTSModule
Imports UTS_Core.UTSModule.Station
Imports UTS_Core.UTSModule.Test
Public Class FrmMain
Implements IProcessStation
Implements IProductionLine
Private _utsApp As UtsAppForm
Private _txtList As New List(Of TextBox)
''' <summary>
''' 条码总数
''' </summary>
Private _barCodeCount As Integer
''' <summary>
''' 测试总数
''' </summary>
Private _testCount As Integer = 0
''' <summary>
''' 测试成功总数
''' </summary>
Private _testFailCount As Integer = 0
''' <summary>
''' 测试失败总数
''' </summary>
Private _testPassCount As Integer = 0
Public Sub ProductionLineChanged() Implements IProductionLine.ProductionLineChanged
TssLblProductionLine.Text = CboProductionLines.Text
My.Settings.ProductionLine = CboProductionLines.Text
End Sub
Public Sub StationChanged() Implements IProcessStation.StationChanged
My.Settings.Project = _utsApp.ProcessStation.ParentProject.Name
My.Settings.ProcessStation = _utsApp.ProcessStation.Name
UpdateStation(_utsApp.ProcessStation.ParentProject.Name, _utsApp.ProcessStation.Name)
End Sub
Public Sub UpdateStation(projectName As String, stationName As String)
If String.IsNullOrWhiteSpace(projectName) OrElse
String.IsNullOrWhiteSpace(stationName) Then
TssLblStaion.Text = $"Invalid Station"
Else
TssLblStaion.Text = $"{projectName} - {stationName}"
lab_ModelName.Text = $"{projectName} - {stationName}"
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
'自动保存设置
My.Application.SaveMySettingsOnExit = True
'初始化UTS窗体信息,失败则关闭窗体
If InitializeUtsApp() = False Then Return
'初始化界面信息
InitializeForm()
End Sub
Private Function InitializeUtsApp() As Boolean
_utsApp = UtsAppForm.CreateSingleton()
Try
If _utsApp.IsInitialized = False Then
_utsApp.AddStatisticsObserver(Me)
_utsApp.Initialize(ProcessStation.StationTypeEnum.Assem)
_utsApp.LoadStation(My.Settings.Project, My.Settings.ProcessStation)
End If
Catch ex As Exception
MsgBox($"Initialize UtsForm Error:{ex.Message}")
Close()
Return False
End Try
Return True
End Function
Private Sub InitializeForm()
'初始化产线信息
CboProductionLines.Items.Clear()
CboProductionLines.Items.AddRange(_utsApp.ProductionLines.GetLineNames())
CboProductionLines.SelectedIndex = CboProductionLines.Items.IndexOf(My.Settings.ProductionLine)
_txtList.Clear()
_txtList.Add(TxtFirstRecord)
_txtList.Add(TxtSecondRecord)
_txtList.Add(TxtThirdRecord)
_txtList.Add(TxtFourthRecord)
_txtList.Add(TxtFifthRecord)
RtxLog.Clear()
_barCodeCount = My.Settings.BarCount
If _barCodeCount < 1 Then _barCodeCount = 1
If _barCodeCount > 4 Then _barCodeCount = 4
Select Case _barCodeCount
Case 1
RadSingle.Checked = True
Case 2
RadTwo.Checked = True
Case 3
RadThree.Checked = True
Case 4
RadFour.Checked = True
End Select
Text = $"{Application.ProductName} {Application.ProductVersion} User:{_utsApp.Account.UserName}"
End Sub
Private Sub CboProductionLines_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProductionLines.SelectedIndexChanged
ProductionLineChanged()
End Sub
Private Sub BtnOpenProject_Click(sender As Object, e As EventArgs) Handles BtnOpenProject.Click
Try
_utsApp.ChangeStation()
Catch ex As Exception
MsgBox($"ChangeStation Error:{ex.Message}")
End Try
End Sub
Private Sub Tb_FirstRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFirstRecord.KeyDown
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
e.Handled = True
TxtSecondRecord.Focus()
TxtSecondRecord.SelectAll()
End If
End Sub
Private Sub Tb_SecondRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtSecondRecord.KeyDown
If e.KeyCode <> Keys.Enter Then Return
e.SuppressKeyPress = True
e.Handled = True
If _barCodeCount > 1 Then
TxtThirdRecord.Focus()
TxtThirdRecord.SelectAll()
Else
'此处为单个条码对应的执行逻辑
SaveTestResult()
End If
End Sub
Private Sub TxtThirdRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtThirdRecord.KeyDown
If e.KeyCode <> Keys.Enter Then Return
e.SuppressKeyPress = True
e.Handled = True
If _barCodeCount > 2 Then
TxtFourthRecord.Focus()
TxtFourthRecord.SelectAll()
Else
SaveTestResult()
End If
End Sub
Private Sub TxtFourthRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFourthRecord.KeyDown
If e.KeyCode <> Keys.Enter Then Return
e.SuppressKeyPress = True
e.Handled = True
If _barCodeCount > 3 Then
TxtFifthRecord.Focus()
TxtFifthRecord.SelectAll()
Else
SaveTestResult()
End If
End Sub
Private Sub TxtFifthRecord_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFifthRecord.KeyDown
If e.KeyCode <> Keys.Enter Then Return
e.SuppressKeyPress = True
e.Handled = True
If _barCodeCount > 4 Then
MsgBox("条码达到上限,请重新选择条码数")
Else
SaveTestResult()
End If
End Sub
Private Sub BtnStartProgramming_Click(sender As Object, e As EventArgs) Handles BtnStartProgramming.Click
SaveTestResult()
End Sub
Private Sub SaveTestResult()
If _utsApp.ProcessStation Is Nothing Then
MsgBox($"请选择项目与测试站后再尝试录入！")
Return
End If
If String.IsNullOrWhiteSpace(CboProductionLines.Text) Then
MsgBox($"请选择生产线后再尝试录入！")
Return
End If
If String.IsNullOrWhiteSpace(TxtFirstRecord.Text) Then
MsgBox($"请输入成品序号！")
TxtFirstRecord.Focus()
Return
End If
Dim snMain As String = TxtFirstRecord.Text
Dim sb As New StringBuilder
Dim snLst As New List(Of String)
snLst.Add(TxtFirstRecord.Text)
For i As Integer = 1 To _barCodeCount
If String.IsNullOrWhiteSpace(_txtList(i).Text) Then
MsgBox($"请输入第 [{i}] 个其他序号！")
_txtList(i).Focus()
Return
Else
If snLst.Contains(_txtList(i).Text) Then
MsgBox($"第 [{i}] 个序号 [{_txtList(i).Text}] 与已有序号重复,请重新输入！")
_txtList(i).SelectAll()
_txtList(i).Focus()
Return
Else
snLst.Add(_txtList(i).Text)
sb.Append($"{_txtList(i).Text},")
End If
End If
Next
Dim assemblyString As String = sb.ToString()
If assemblyString.Length >= 128 Then
MsgBox($"整机序号超过128个字符,无法录入,请联系管理员！")
Return
End If
assemblyString = assemblyString.Replace("，"c, ",")
If assemblyString.EndsWith(","c) OrElse assemblyString.EndsWith("，"c) Then
assemblyString = assemblyString.Substring(0, assemblyString.Length - 1)
End If
Dim saveDb As Boolean
Try
FillTestResult(snMain, assemblyString)
_utsApp.CommitTestResult(uniqueRecord:=True)
DbConnect.DbConnector.SaveOtherSn(snLst, _utsApp.ProcessStation, _utsApp.TestResult)
saveDb = True
Catch ex As Exception
MsgBox($"测试结果录入失败：{ex.Message}")
saveDb = False
End Try
Static inputCount As Integer = 0
inputCount += 1 : If inputCount > 9999 Then inputCount = 0
RtxLog.SelectionStart = 0
RtxLog.SelectionLength = RtxLog.TextLength
RtxLog.SelectionColor = Color.Gray
If saveDb Then
lab_Result.ForeColor = Color.Green
lab_Result.Text = $"{snMain}-Pass"
RtxLog.SelectionStart = RtxLog.TextLength
RtxLog.SelectionColor = Color.Green
AppendRecord($"{inputCount:D4}.BarcodeSn:{snMain},AssemblySn:{assemblyString},录入成功！")
_testPassCount += 1
Else
lab_Result.ForeColor = Color.Red
lab_Result.Text = $"{snMain}-Fail"
RtxLog.SelectionStart = RtxLog.TextLength
RtxLog.SelectionColor = Color.Red
AppendRecord($"{inputCount:D4}.BarcodeSn:{snMain},AssemblySn:{assemblyString},录入失败！")
_testFailCount += 1
End If
_testCount += 1
TssLblPassCount.Text = "Pass:" & _testPassCount.ToString
TssLblFailCount.Text = "Fail:" & _testFailCount.ToString
TsLblCheckSum.Text = "Sum:" & _testCount.ToString
TssLblYield.Text = "Yield:" & (_testPassCount / _testCount * 100).ToString("F2") & "%"
TxtFirstRecord.Focus()
TxtFirstRecord.SelectAll()
End Sub
Public Sub AppendRecord(logString As String)
If RtxLog.InvokeRequired Then '判断是否需要开委托
RtxLog.Invoke(New Action(Of String)(AddressOf AppendRecord), New Object() {logString})
Return
End If
With RtxLog
If .Lines.Length > 256 Then '超过上限则移除最初行内容
.ReadOnly = False
.SelectionStart = 0
.SelectionLength = .GetFirstCharIndexFromLine(1)
.SelectedText = String.Empty
.ReadOnly = True
.SelectionStart = .TextLength
End If
.AppendText($"{Now:yyyy:MM:dd HH:mm:ss} - {logString}{vbNewLine}")
.ScrollToCaret()
End With
End Sub
''' <summary>
''' 填充测试记录内容，每个应用程序这个部分有所差异
''' </summary>
Public Sub FillTestResult(barcodeString As String, assemblyString As String)
_utsApp.TestResult.ResetTestResult()
'产线索引
Dim lineID As Integer = _utsApp.ProductionLines(CboProductionLines.Text).ID
_utsApp.TestResult.ProductionLineID = lineID
'测试开始时间
_utsApp.TestResult.StartTime = Now
_utsApp.TestResult.DUT_SN = barcodeString
_utsApp.TestResult.TestResult = TestResult.TestResultEnum.Pass
'自定义字段
_utsApp.TestResult.AddCustomRecord("AssemblySn", $"{assemblyString}")
End Sub
Private Sub RadSingle_CheckedChanged(sender As Object, e As EventArgs) Handles RadTwo.CheckedChanged, RadThree.CheckedChanged, RadSingle.CheckedChanged, RadFour.CheckedChanged
Dim rad As RadioButton = CType(sender, RadioButton)
If rad.Checked Then
_barCodeCount = CInt(rad.Tag)
My.Settings.BarCount = _barCodeCount
Select Case _barCodeCount
Case 1
TxtSecondRecord.Visible = True
TxtThirdRecord.Visible = False
TxtFourthRecord.Visible = False
TxtFifthRecord.Visible = False
Case 2
TxtSecondRecord.Visible = True
TxtThirdRecord.Visible = True
TxtFourthRecord.Visible = False
TxtFifthRecord.Visible = False
Case 3
TxtSecondRecord.Visible = True
TxtThirdRecord.Visible = True
TxtFourthRecord.Visible = True
TxtFifthRecord.Visible = False
Case 4
TxtSecondRecord.Visible = True
TxtThirdRecord.Visible = True
TxtFourthRecord.Visible = True
TxtFifthRecord.Visible = True
End Select
End If
End Sub
End Class

38
AUTS_Assembly/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'注意:此文件是自动生成的；请勿直接进行修改。若要更改，
' 或者如果您在此文件中遇到生成错误，请转至项目设计器
' (转至“项目属性”或在解决方案资源管理器中双击“我的项目”节点)，
' 然后在“应用程序”选项卡中进行更改。
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.AUTS_Assembly.FrmMain
End Sub
End Class
End Namespace

10
AUTS_Assembly/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>FrmMain</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
AUTS_Assembly/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' 有关程序集的一般信息由以下
' 控制。更改这些特性值可修改
' 与程序集关联的信息。
'查看程序集特性的值
<Assembly: AssemblyTitle("AUTS_Assembly")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("AUTS_Assembly")>
<Assembly: AssemblyCopyright("Copyright © 2020")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'如果此项目向 COM 公开，则下列 GUID 用于 typelib 的 ID
<Assembly: Guid("7916ee8a-7f3c-49af-b4b5-1446c7611ad3")>
' 程序集的版本信息由下列四个值组成:
'
' 主版本
' 次版本
' 生成号
' 修订号
'
'可以指定所有这些值，也可以使用“生成号”和“修订号”的默认值
'通过使用 "*"，如下所示:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.1.1")>
<Assembly: AssemblyFileVersion("1.1.1.1")>

63
AUTS_Assembly/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'此类是由 StronglyTypedResourceBuilder
'类通过类似于 ResGen 或 Visual Studio 的工具自动生成的。
'若要添加或移除成员，请编辑 .ResX 文件，然后重新运行 ResGen
'(以 /str 作为命令选项)，或重新生成 VS 项目。
'''<summary>
''' 一个强类型的资源类，用于查找本地化的字符串等。
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' 返回此类使用的缓存的 ResourceManager 实例。
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("AUTS_Assembly.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' 重写当前线程的 CurrentUICulture 属性，对
''' 使用此强类型资源类的所有资源查找执行重写。
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
AUTS_Assembly/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

133
AUTS_Assembly/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,133 @@
'------------------------------------------------------------------------------
' <auto-generated>
' 此代码由工具生成。
' 运行时版本:4.0.30319.42000
'
' 对此文件的更改可能会导致不正确的行为，并且如果
' 重新生成代码，这些更改将会丢失。
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings 自动保存功能"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property Project() As String
Get
Return CType(Me("Project"),String)
End Get
Set
Me("Project") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property ProcessStation() As String
Get
Return CType(Me("ProcessStation"),String)
End Get
Set
Me("ProcessStation") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property ProductionLine() As String
Get
Return CType(Me("ProductionLine"),String)
End Get
Set
Me("ProductionLine") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property SingleSn() As Boolean
Get
Return CType(Me("SingleSn"),Boolean)
End Get
Set
Me("SingleSn") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("1")> _
Public Property BarCount() As Integer
Get
Return CType(Me("BarCount"),Integer)
End Get
Set
Me("BarCount") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.AUTS_Assembly.My.MySettings
Get
Return Global.AUTS_Assembly.My.MySettings.Default
End Get
End Property
End Module
End Namespace

21
AUTS_Assembly/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,21 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="Project" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="ProcessStation" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="ProductionLine" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="SingleSn" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="BarCount" Type="System.Int32" Scope="User">
<Value Profile="(Default)">1</Value>
</Setting>
</Settings>
</SettingsFile>

BIN
AUTS_Assembly/iconfinder_60_939814.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 361 KiB