First attempt at recreating ACEPM
This commit is contained in:
commit
e3a889bc9a
3
.gitignore
vendored
Normal file
3
.gitignore
vendored
Normal file
|
|
@ -0,0 +1,3 @@
|
||||||
|
bin/
|
||||||
|
obj/
|
||||||
|
.vs/
|
||||||
25
ACEdotnet.sln
Normal file
25
ACEdotnet.sln
Normal file
|
|
@ -0,0 +1,25 @@
|
||||||
|
|
||||||
|
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||||
|
# Visual Studio Version 17
|
||||||
|
VisualStudioVersion = 17.8.34330.188
|
||||||
|
MinimumVisualStudioVersion = 10.0.40219.1
|
||||||
|
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ACEdotnet", "ACEdotnet.vbproj", "{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}"
|
||||||
|
EndProject
|
||||||
|
Global
|
||||||
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
|
Debug|Any CPU = Debug|Any CPU
|
||||||
|
Release|Any CPU = Release|Any CPU
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||||
|
{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||||
|
{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||||
|
{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||||
|
{331BB0DD-FEC8-48C2-8ADD-CB05DC318FF8}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
|
HideSolutionNode = FALSE
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ExtensibilityGlobals) = postSolution
|
||||||
|
SolutionGuid = {28C11CDB-B928-444D-AA9D-B57D1DCAF9E4}
|
||||||
|
EndGlobalSection
|
||||||
|
EndGlobal
|
||||||
33
ACEdotnet.vbproj
Normal file
33
ACEdotnet.vbproj
Normal file
|
|
@ -0,0 +1,33 @@
|
||||||
|
<Project Sdk="Microsoft.NET.Sdk">
|
||||||
|
|
||||||
|
<PropertyGroup>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<TargetFramework>net8.0-windows</TargetFramework>
|
||||||
|
<StartupObject>ACEdotnet.My.MyApplication</StartupObject>
|
||||||
|
<UseWindowsForms>true</UseWindowsForms>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<AppDesignerFolder>Acedotnet</AppDesignerFolder>
|
||||||
|
</PropertyGroup>
|
||||||
|
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Drawing" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
</ItemGroup>
|
||||||
|
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Update="Acedotnet\Application.Designer.vb">
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
|
||||||
|
<ItemGroup>
|
||||||
|
<None Update="Acedotnet\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
|
||||||
|
</Project>
|
||||||
8
ACEdotnet.vbproj.user
Normal file
8
ACEdotnet.vbproj.user
Normal file
|
|
@ -0,0 +1,8 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="Current" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Update="Acepm.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
45
Acedotnet/Application.Designer.vb
generated
Normal file
45
Acedotnet/Application.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,45 @@
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||||
|
' or if you encounter build errors in this file, go to the Project Designer
|
||||||
|
' (go to Project Properties or double-click the My Project node in
|
||||||
|
' Solution Explorer), and make changes on the Application tab.
|
||||||
|
'
|
||||||
|
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
|
||||||
|
Me.HighDpiMode = HighDpiMode.DpiUnaware
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||||
|
Protected Overrides Sub OnCreateMainForm()
|
||||||
|
Me.MainForm = Global.ACEdotnet.Acepm
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||||
|
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
|
||||||
|
Me.MinimumSplashScreenDisplayTime = 0
|
||||||
|
Return MyBase.OnInitialize(commandLineArgs)
|
||||||
|
End Function
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
10
Acedotnet/Application.myapp
Normal file
10
Acedotnet/Application.myapp
Normal file
|
|
@ -0,0 +1,10 @@
|
||||||
|
<?xml version="1.0" encoding="utf-16"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>true</MySubMain>
|
||||||
|
<MainForm>Acepm</MainForm>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
477
Acepm.Designer.vb
generated
Normal file
477
Acepm.Designer.vb
generated
Normal file
|
|
@ -0,0 +1,477 @@
|
||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Class Acepm
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
|
||||||
|
'Form overrides dispose to clean up the component list.
|
||||||
|
<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
|
||||||
|
|
||||||
|
'Required by the Windows Form Designer
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'NOTE: The following procedure is required by the Windows Form Designer
|
||||||
|
'It can be modified using the Windows Form Designer.
|
||||||
|
'Do not modify it using the code editor.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
DLAP = New Button()
|
||||||
|
DLBP = New Button()
|
||||||
|
InA = New Button()
|
||||||
|
InText = New TextBox()
|
||||||
|
InB = New Button()
|
||||||
|
TS = New Button()
|
||||||
|
InputText = New Button()
|
||||||
|
InstrText = New Button()
|
||||||
|
Up = New Button()
|
||||||
|
Down = New Button()
|
||||||
|
Button6 = New Button()
|
||||||
|
Writer = New Button()
|
||||||
|
Reader = New Button()
|
||||||
|
Enter = New Button()
|
||||||
|
Run = New Button()
|
||||||
|
Oneshot = New Button()
|
||||||
|
InitCards = New Button()
|
||||||
|
Exitt = New Button()
|
||||||
|
Button14 = New Button()
|
||||||
|
Frame1 = New GroupBox()
|
||||||
|
Instruction = New CheckBox()
|
||||||
|
Hexadecimal = New CheckBox()
|
||||||
|
Dec = New CheckBox()
|
||||||
|
MCV = New TextBox()
|
||||||
|
Label1 = New Label()
|
||||||
|
TCAText = New TextBox()
|
||||||
|
TCBText = New TextBox()
|
||||||
|
mcText = New TextBox()
|
||||||
|
TotalText = New TextBox()
|
||||||
|
OutText = New TextBox()
|
||||||
|
Label2 = New Label()
|
||||||
|
Label3 = New Label()
|
||||||
|
Trackk = New TextBox()
|
||||||
|
DL = New TextBox()
|
||||||
|
EnterAt = New TextBox()
|
||||||
|
Label4 = New Label()
|
||||||
|
CardNumber = New TextBox()
|
||||||
|
PunchNumber = New TextBox()
|
||||||
|
Frame1.SuspendLayout()
|
||||||
|
SuspendLayout()
|
||||||
|
'
|
||||||
|
' DLAP
|
||||||
|
'
|
||||||
|
DLAP.Location = New Point(25, 25)
|
||||||
|
DLAP.Name = "DLAP"
|
||||||
|
DLAP.Size = New Size(25, 25)
|
||||||
|
DLAP.TabIndex = 0
|
||||||
|
DLAP.Text = "A"
|
||||||
|
DLAP.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' DLBP
|
||||||
|
'
|
||||||
|
DLBP.Location = New Point(225, 25)
|
||||||
|
DLBP.Name = "DLBP"
|
||||||
|
DLBP.Size = New Size(25, 25)
|
||||||
|
DLBP.TabIndex = 1
|
||||||
|
DLBP.Text = "B"
|
||||||
|
DLBP.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' InA
|
||||||
|
'
|
||||||
|
InA.Location = New Point(625, 25)
|
||||||
|
InA.Name = "InA"
|
||||||
|
InA.Size = New Size(25, 25)
|
||||||
|
InA.TabIndex = 2
|
||||||
|
InA.Text = "A"
|
||||||
|
InA.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' InText
|
||||||
|
'
|
||||||
|
InText.Location = New Point(656, 25)
|
||||||
|
InText.Name = "InText"
|
||||||
|
InText.Size = New Size(200, 23)
|
||||||
|
InText.TabIndex = 3
|
||||||
|
'
|
||||||
|
' InB
|
||||||
|
'
|
||||||
|
InB.Location = New Point(625, 50)
|
||||||
|
InB.Name = "InB"
|
||||||
|
InB.Size = New Size(25, 25)
|
||||||
|
InB.TabIndex = 4
|
||||||
|
InB.Text = "B"
|
||||||
|
InB.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' TS
|
||||||
|
'
|
||||||
|
TS.Location = New Point(656, 50)
|
||||||
|
TS.Name = "TS"
|
||||||
|
TS.Size = New Size(55, 25)
|
||||||
|
TS.TabIndex = 5
|
||||||
|
TS.Text = "TS"
|
||||||
|
TS.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' InputText
|
||||||
|
'
|
||||||
|
InputText.Location = New Point(717, 50)
|
||||||
|
InputText.Name = "InputText"
|
||||||
|
InputText.Size = New Size(55, 25)
|
||||||
|
InputText.TabIndex = 6
|
||||||
|
InputText.Text = "Input"
|
||||||
|
InputText.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' InstrText
|
||||||
|
'
|
||||||
|
InstrText.Location = New Point(778, 50)
|
||||||
|
InstrText.Name = "InstrText"
|
||||||
|
InstrText.Size = New Size(55, 25)
|
||||||
|
InstrText.TabIndex = 7
|
||||||
|
InstrText.Text = "Instr."
|
||||||
|
InstrText.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Up
|
||||||
|
'
|
||||||
|
Up.Location = New Point(656, 137)
|
||||||
|
Up.Name = "Up"
|
||||||
|
Up.Size = New Size(50, 25)
|
||||||
|
Up.TabIndex = 8
|
||||||
|
Up.Text = "Up"
|
||||||
|
Up.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Down
|
||||||
|
'
|
||||||
|
Down.Location = New Point(712, 137)
|
||||||
|
Down.Name = "Down"
|
||||||
|
Down.Size = New Size(50, 25)
|
||||||
|
Down.TabIndex = 9
|
||||||
|
Down.Text = "Down"
|
||||||
|
Down.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Button6
|
||||||
|
'
|
||||||
|
Button6.Location = New Point(768, 137)
|
||||||
|
Button6.Name = "Button6"
|
||||||
|
Button6.Size = New Size(50, 25)
|
||||||
|
Button6.TabIndex = 10
|
||||||
|
Button6.Text = "Zero"
|
||||||
|
Button6.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Writer
|
||||||
|
'
|
||||||
|
Writer.Location = New Point(625, 300)
|
||||||
|
Writer.Name = "Writer"
|
||||||
|
Writer.Size = New Size(50, 25)
|
||||||
|
Writer.TabIndex = 11
|
||||||
|
Writer.Text = "Write"
|
||||||
|
Writer.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Reader
|
||||||
|
'
|
||||||
|
Reader.Location = New Point(681, 300)
|
||||||
|
Reader.Name = "Reader"
|
||||||
|
Reader.Size = New Size(50, 25)
|
||||||
|
Reader.TabIndex = 12
|
||||||
|
Reader.Text = "Read"
|
||||||
|
Reader.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Enter
|
||||||
|
'
|
||||||
|
Enter.Location = New Point(625, 350)
|
||||||
|
Enter.Name = "Enter"
|
||||||
|
Enter.Size = New Size(50, 25)
|
||||||
|
Enter.TabIndex = 13
|
||||||
|
Enter.Text = "Enter"
|
||||||
|
Enter.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Run
|
||||||
|
'
|
||||||
|
Run.Location = New Point(710, 350)
|
||||||
|
Run.Name = "Run"
|
||||||
|
Run.Size = New Size(50, 25)
|
||||||
|
Run.TabIndex = 14
|
||||||
|
Run.Text = "Run"
|
||||||
|
Run.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Oneshot
|
||||||
|
'
|
||||||
|
Oneshot.Location = New Point(765, 350)
|
||||||
|
Oneshot.Name = "Oneshot"
|
||||||
|
Oneshot.Size = New Size(50, 25)
|
||||||
|
Oneshot.TabIndex = 15
|
||||||
|
Oneshot.Text = "1-Shot"
|
||||||
|
Oneshot.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' InitCards
|
||||||
|
'
|
||||||
|
InitCards.Location = New Point(625, 400)
|
||||||
|
InitCards.Name = "InitCards"
|
||||||
|
InitCards.Size = New Size(100, 25)
|
||||||
|
InitCards.TabIndex = 16
|
||||||
|
InitCards.Text = "Init. Cards"
|
||||||
|
InitCards.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Exitt
|
||||||
|
'
|
||||||
|
Exitt.Location = New Point(625, 450)
|
||||||
|
Exitt.Name = "Exitt"
|
||||||
|
Exitt.Size = New Size(50, 25)
|
||||||
|
Exitt.TabIndex = 17
|
||||||
|
Exitt.Text = "EXIT"
|
||||||
|
Exitt.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Button14
|
||||||
|
'
|
||||||
|
Button14.Location = New Point(700, 450)
|
||||||
|
Button14.Name = "Button14"
|
||||||
|
Button14.Size = New Size(50, 25)
|
||||||
|
Button14.TabIndex = 18
|
||||||
|
Button14.Text = "Punch Card"
|
||||||
|
Button14.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Frame1
|
||||||
|
'
|
||||||
|
Frame1.Controls.Add(Instruction)
|
||||||
|
Frame1.Controls.Add(Hexadecimal)
|
||||||
|
Frame1.Controls.Add(Dec)
|
||||||
|
Frame1.Location = New Point(625, 81)
|
||||||
|
Frame1.Name = "Frame1"
|
||||||
|
Frame1.Size = New Size(250, 50)
|
||||||
|
Frame1.TabIndex = 19
|
||||||
|
Frame1.TabStop = False
|
||||||
|
Frame1.Text = "Word Format"
|
||||||
|
'
|
||||||
|
' Instruction
|
||||||
|
'
|
||||||
|
Instruction.AutoSize = True
|
||||||
|
Instruction.Location = New Point(179, 22)
|
||||||
|
Instruction.Name = "Instruction"
|
||||||
|
Instruction.Size = New Size(49, 19)
|
||||||
|
Instruction.TabIndex = 22
|
||||||
|
Instruction.Text = "Instr"
|
||||||
|
Instruction.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Hexadecimal
|
||||||
|
'
|
||||||
|
Hexadecimal.AutoSize = True
|
||||||
|
Hexadecimal.Location = New Point(21, 22)
|
||||||
|
Hexadecimal.Name = "Hexadecimal"
|
||||||
|
Hexadecimal.Size = New Size(47, 19)
|
||||||
|
Hexadecimal.TabIndex = 20
|
||||||
|
Hexadecimal.Text = "Hex"
|
||||||
|
Hexadecimal.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' Dec
|
||||||
|
'
|
||||||
|
Dec.AutoSize = True
|
||||||
|
Dec.Location = New Point(106, 22)
|
||||||
|
Dec.Name = "Dec"
|
||||||
|
Dec.Size = New Size(46, 19)
|
||||||
|
Dec.TabIndex = 21
|
||||||
|
Dec.Text = "Dec"
|
||||||
|
Dec.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
' MCV
|
||||||
|
'
|
||||||
|
MCV.Location = New Point(625, 137)
|
||||||
|
MCV.Name = "MCV"
|
||||||
|
MCV.Size = New Size(25, 23)
|
||||||
|
MCV.TabIndex = 20
|
||||||
|
'
|
||||||
|
' Label1
|
||||||
|
'
|
||||||
|
Label1.AutoSize = True
|
||||||
|
Label1.Location = New Point(625, 176)
|
||||||
|
Label1.Name = "Label1"
|
||||||
|
Label1.Size = New Size(172, 15)
|
||||||
|
Label1.TabIndex = 21
|
||||||
|
Label1.Text = "TCA TCB m.c. total m.c."
|
||||||
|
'
|
||||||
|
' TCAText
|
||||||
|
'
|
||||||
|
TCAText.Location = New Point(624, 194)
|
||||||
|
TCAText.Name = "TCAText"
|
||||||
|
TCAText.Size = New Size(25, 23)
|
||||||
|
TCAText.TabIndex = 22
|
||||||
|
'
|
||||||
|
' TCBText
|
||||||
|
'
|
||||||
|
TCBText.Location = New Point(655, 194)
|
||||||
|
TCBText.Name = "TCBText"
|
||||||
|
TCBText.Size = New Size(25, 23)
|
||||||
|
TCBText.TabIndex = 23
|
||||||
|
'
|
||||||
|
' mcText
|
||||||
|
'
|
||||||
|
mcText.Location = New Point(686, 194)
|
||||||
|
mcText.Name = "mcText"
|
||||||
|
mcText.Size = New Size(25, 23)
|
||||||
|
mcText.TabIndex = 23
|
||||||
|
'
|
||||||
|
' TotalText
|
||||||
|
'
|
||||||
|
TotalText.Location = New Point(717, 194)
|
||||||
|
TotalText.Name = "TotalText"
|
||||||
|
TotalText.Size = New Size(100, 23)
|
||||||
|
TotalText.TabIndex = 23
|
||||||
|
'
|
||||||
|
' OutText
|
||||||
|
'
|
||||||
|
OutText.Location = New Point(686, 237)
|
||||||
|
OutText.Name = "OutText"
|
||||||
|
OutText.Size = New Size(100, 23)
|
||||||
|
OutText.TabIndex = 23
|
||||||
|
'
|
||||||
|
' Label2
|
||||||
|
'
|
||||||
|
Label2.AutoSize = True
|
||||||
|
Label2.Location = New Point(625, 239)
|
||||||
|
Label2.Name = "Label2"
|
||||||
|
Label2.Size = New Size(45, 15)
|
||||||
|
Label2.TabIndex = 21
|
||||||
|
Label2.Text = "Output"
|
||||||
|
'
|
||||||
|
' Label3
|
||||||
|
'
|
||||||
|
Label3.AutoSize = True
|
||||||
|
Label3.Location = New Point(636, 272)
|
||||||
|
Label3.Name = "Label3"
|
||||||
|
Label3.Size = New Size(154, 15)
|
||||||
|
Label3.TabIndex = 21
|
||||||
|
Label3.Text = "DRUM / CARDS Track DL"
|
||||||
|
'
|
||||||
|
' Trackk
|
||||||
|
'
|
||||||
|
Trackk.Location = New Point(737, 300)
|
||||||
|
Trackk.Name = "Trackk"
|
||||||
|
Trackk.Size = New Size(25, 23)
|
||||||
|
Trackk.TabIndex = 22
|
||||||
|
'
|
||||||
|
' DL
|
||||||
|
'
|
||||||
|
DL.Location = New Point(768, 300)
|
||||||
|
DL.Name = "DL"
|
||||||
|
DL.Size = New Size(25, 23)
|
||||||
|
DL.TabIndex = 22
|
||||||
|
'
|
||||||
|
' EnterAt
|
||||||
|
'
|
||||||
|
EnterAt.Location = New Point(680, 350)
|
||||||
|
EnterAt.Name = "EnterAt"
|
||||||
|
EnterAt.Size = New Size(25, 23)
|
||||||
|
EnterAt.TabIndex = 22
|
||||||
|
'
|
||||||
|
' Label4
|
||||||
|
'
|
||||||
|
Label4.Location = New Point(731, 400)
|
||||||
|
Label4.Name = "Label4"
|
||||||
|
Label4.Size = New Size(61, 20)
|
||||||
|
Label4.TabIndex = 24
|
||||||
|
Label4.Text = "Read Card"
|
||||||
|
'
|
||||||
|
' CardNumber
|
||||||
|
'
|
||||||
|
CardNumber.Location = New Point(798, 400)
|
||||||
|
CardNumber.Name = "CardNumber"
|
||||||
|
CardNumber.Size = New Size(25, 23)
|
||||||
|
CardNumber.TabIndex = 22
|
||||||
|
'
|
||||||
|
' PunchNumber
|
||||||
|
'
|
||||||
|
PunchNumber.Location = New Point(761, 452)
|
||||||
|
PunchNumber.Name = "PunchNumber"
|
||||||
|
PunchNumber.Size = New Size(25, 23)
|
||||||
|
PunchNumber.TabIndex = 22
|
||||||
|
'
|
||||||
|
' Acepm
|
||||||
|
'
|
||||||
|
AutoScaleDimensions = New SizeF(7.0F, 15.0F)
|
||||||
|
AutoScaleMode = AutoScaleMode.Font
|
||||||
|
ClientSize = New Size(866, 492)
|
||||||
|
Controls.Add(Label4)
|
||||||
|
Controls.Add(OutText)
|
||||||
|
Controls.Add(TotalText)
|
||||||
|
Controls.Add(mcText)
|
||||||
|
Controls.Add(TCBText)
|
||||||
|
Controls.Add(DL)
|
||||||
|
Controls.Add(PunchNumber)
|
||||||
|
Controls.Add(CardNumber)
|
||||||
|
Controls.Add(EnterAt)
|
||||||
|
Controls.Add(Trackk)
|
||||||
|
Controls.Add(TCAText)
|
||||||
|
Controls.Add(Label2)
|
||||||
|
Controls.Add(Label3)
|
||||||
|
Controls.Add(Label1)
|
||||||
|
Controls.Add(MCV)
|
||||||
|
Controls.Add(Frame1)
|
||||||
|
Controls.Add(Button14)
|
||||||
|
Controls.Add(Exitt)
|
||||||
|
Controls.Add(InitCards)
|
||||||
|
Controls.Add(Oneshot)
|
||||||
|
Controls.Add(Run)
|
||||||
|
Controls.Add(Enter)
|
||||||
|
Controls.Add(Reader)
|
||||||
|
Controls.Add(Writer)
|
||||||
|
Controls.Add(Button6)
|
||||||
|
Controls.Add(Down)
|
||||||
|
Controls.Add(Up)
|
||||||
|
Controls.Add(InstrText)
|
||||||
|
Controls.Add(InputText)
|
||||||
|
Controls.Add(TS)
|
||||||
|
Controls.Add(InB)
|
||||||
|
Controls.Add(InText)
|
||||||
|
Controls.Add(InA)
|
||||||
|
Controls.Add(DLBP)
|
||||||
|
Controls.Add(DLAP)
|
||||||
|
Name = "Acepm"
|
||||||
|
Text = "Acepm"
|
||||||
|
Frame1.ResumeLayout(False)
|
||||||
|
Frame1.PerformLayout()
|
||||||
|
ResumeLayout(False)
|
||||||
|
PerformLayout()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend WithEvents DLAP As Button
|
||||||
|
Friend WithEvents DLBP As Button
|
||||||
|
Friend WithEvents InA As Button
|
||||||
|
Friend WithEvents InText As TextBox
|
||||||
|
Friend WithEvents InB As Button
|
||||||
|
Friend WithEvents TS As Button
|
||||||
|
Friend WithEvents InputText As Button
|
||||||
|
Friend WithEvents InstrText As Button
|
||||||
|
Friend WithEvents Up As Button
|
||||||
|
Friend WithEvents Down As Button
|
||||||
|
Friend WithEvents Button6 As Button
|
||||||
|
Friend WithEvents Writer As Button
|
||||||
|
Friend WithEvents Reader As Button
|
||||||
|
Friend WithEvents Enter As Button
|
||||||
|
Friend WithEvents Run As Button
|
||||||
|
Friend WithEvents Oneshot As Button
|
||||||
|
Friend WithEvents InitCards As Button
|
||||||
|
Friend WithEvents Exitt As Button
|
||||||
|
Friend WithEvents Button14 As Button
|
||||||
|
Friend WithEvents Frame1 As GroupBox
|
||||||
|
Friend WithEvents Instruction As CheckBox
|
||||||
|
Friend WithEvents Hexadecimal As CheckBox
|
||||||
|
Friend WithEvents Dec As CheckBox
|
||||||
|
Friend WithEvents MCV As TextBox
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents TCAText As TextBox
|
||||||
|
Friend WithEvents TCBText As TextBox
|
||||||
|
Friend WithEvents mcText As TextBox
|
||||||
|
Friend WithEvents TotalText As TextBox
|
||||||
|
Friend WithEvents OutText As TextBox
|
||||||
|
Friend WithEvents Label2 As Label
|
||||||
|
Friend WithEvents Label3 As Label
|
||||||
|
Friend WithEvents Trackk As TextBox
|
||||||
|
Friend WithEvents DL As TextBox
|
||||||
|
Friend WithEvents EnterAt As TextBox
|
||||||
|
Friend WithEvents Label4 As Label
|
||||||
|
Friend WithEvents CardNumber As TextBox
|
||||||
|
Friend WithEvents PunchNumber As TextBox
|
||||||
|
|
||||||
|
End Class
|
||||||
120
Acepm.resx
Normal file
120
Acepm.resx
Normal file
|
|
@ -0,0 +1,120 @@
|
||||||
|
<?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.Runtime.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:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<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" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</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" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
29
ApplicationEvents.vb
Normal file
29
ApplicationEvents.vb
Normal file
|
|
@ -0,0 +1,29 @@
|
||||||
|
Imports Microsoft.VisualBasic.ApplicationServices
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
' The following events are available for MyApplication:
|
||||||
|
' Startup: Raised when the application starts, before the startup form is created.
|
||||||
|
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
|
||||||
|
' UnhandledException: Raised if the application encounters an unhandled exception.
|
||||||
|
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
|
||||||
|
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
|
||||||
|
|
||||||
|
' **NEW** ApplyApplicationDefaults: Raised when the application queries default values to be set for the application.
|
||||||
|
|
||||||
|
' Example:
|
||||||
|
' Private Sub MyApplication_ApplyApplicationDefaults(sender As Object, e As ApplyApplicationDefaultsEventArgs) Handles Me.ApplyApplicationDefaults
|
||||||
|
'
|
||||||
|
' ' Setting the application-wide default Font:
|
||||||
|
' e.Font = New Font(FontFamily.GenericSansSerif, 12, FontStyle.Regular)
|
||||||
|
'
|
||||||
|
' ' Setting the HighDpiMode for the Application:
|
||||||
|
' e.HighDpiMode = HighDpiMode.PerMonitorV2
|
||||||
|
'
|
||||||
|
' ' If a splash dialog is used, this sets the minimum display time:
|
||||||
|
' e.MinimumSplashScreenDisplayTime = 4000
|
||||||
|
' End Sub
|
||||||
|
|
||||||
|
Partial Friend Class MyApplication
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
Loading…
Reference in New Issue
Block a user