form1.frm

目前只支持 s51

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "ChipType"
   ClientHeight    =   5865
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   5130
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5865
   ScaleWidth      =   5130
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "Exit"
      Height          =   495
      Left            =   3120
      TabIndex        =   12
      Top             =   5280
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Save"
      Height          =   495
      Left            =   480
      TabIndex        =   11
      Top             =   5280
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Height          =   5055
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4815
      Begin VB.TextBox Text9 
         Height          =   375
         Left            =   2040
         TabIndex        =   19
         Text            =   "28"
         Top             =   4320
         Width           =   2415
      End
      Begin VB.TextBox Text8 
         Height          =   375
         Left            =   2040
         TabIndex        =   16
         Text            =   "20"
         Top             =   3840
         Width           =   2415
      End
      Begin VB.TextBox Text7 
         Height          =   375
         Left            =   2040
         TabIndex        =   15
         Text            =   "40"
         Top             =   3360
         Width           =   2415
      End
      Begin VB.TextBox Text6 
         Height          =   375
         Left            =   2040
         TabIndex        =   13
         Text            =   "AC80"
         Top             =   2880
         Width           =   2415
      End
      Begin VB.TextBox Text5 
         Height          =   375
         Left            =   2040
         TabIndex        =   5
         Text            =   "1"
         Top             =   2280
         Width           =   2415
      End
      Begin VB.TextBox Text4 
         Height          =   375
         Left            =   2040
         TabIndex        =   4
         Text            =   "1E516"
         Top             =   1800
         Width           =   2415
      End
      Begin VB.TextBox Text3 
         Height          =   375
         Left            =   2040
         TabIndex        =   3
         Text            =   "5"
         Top             =   1320
         Width           =   2415
      End
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   2040
         TabIndex        =   2
         Text            =   "4"
         Top             =   840
         Width           =   2415
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   2040
         TabIndex        =   1
         Text            =   "AT89S51"
         Top             =   360
         Width           =   2415
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         Caption         =   "读特征字的特征字："
         Height          =   180
         Left            =   240
         TabIndex        =   20
         Top             =   4440
         Width           =   1620
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "读代码特征字："
         Height          =   180
         Left            =   240
         TabIndex        =   18
         Top             =   3960
         Width           =   1260
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "写代码特征字："
         Height          =   180
         Left            =   240
         TabIndex        =   17
         Top             =   3480
         Width           =   1260
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "擦除特征字："
         Height          =   180
         Left            =   240
         TabIndex        =   14
         Top             =   2880
         Width           =   1080
      End
      Begin VB.Label Label5 
         Caption         =   "编程类别："
         Height          =   375
         Left            =   240
         TabIndex        =   10
         Top             =   2280
         Width           =   975
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "特征字："
         Height          =   180
         Left            =   240
         TabIndex        =   9
         Top             =   1920
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "电压（V）："
         Height          =   180
         Left            =   240
         TabIndex        =   8
         Top             =   1440
         Width           =   990
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "容量（K）："
         Height          =   180
         Left            =   240
         TabIndex        =   7
         Top             =   960
         Width           =   990
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "器件名称："
         Height          =   180
         Left            =   240
         TabIndex        =   6
         Top             =   480
         Width           =   900
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal Appname As String, ByVal KeyName As Any, ByVal NewString As Any, ByVal Filename As String) As Integer

Private Type ChipType
     Name As String
     PID As Integer
     Rom As Integer
     Sign As String
     DY As Integer
     ESign As String
     WSign As String '写代码特征字
     RSign As String
     RRSign As String
End Type

Dim a As ChipType
Dim FileN As String

Private Function GetSysIni(ByVal IniFile$, ByVal Key$, ByVal KeyName$, ByVal lpDefault As String) As String
On Error Resume Next
Dim retval As Integer
Dim T As String * 255
   retval = GetPrivateProfileString(Key$, KeyName$, lpDefault, T, Len(T), IniFile)
   If retval > 0 Then
      GetSysIni = Left$(T, retval)
   Else
      GetSysIni = lpDefault
   End If
End Function

Private Function SaveSysIni(ByVal IniFile$, ByVal Key$, ByVal KeyName$, ByVal Value$)
  On Error Resume Next
  SaveSysIni = WritePrivateProfileString(Key$, KeyName$, Value$, IniFile)
End Function

Private Sub Command1_Click()
 a.Name = Text1.Text
 a.Rom = Val(Text2.Text)
 a.DY = Val(Text3.Text)
 a.Sign = Text4.Text
 a.PID = Val(Text5.Text)
 a.ESign = Text6.Text
 a.WSign = Text7.Text
 a.RSign = Text8.Text
 a.RRSign = Text9.Text
 SaveSysIni FileN, a.Sign, "NAME", a.Name
 SaveSysIni FileN, a.Sign, "PID", a.PID
 SaveSysIni FileN, a.Sign, "ROM", a.Rom
 SaveSysIni FileN, a.Sign, "DY", a.DY
 SaveSysIni FileN, a.Sign, "ESign", a.ESign
 SaveSysIni FileN, a.Sign, "WSign", a.WSign
 SaveSysIni FileN, a.Sign, "RSign", a.RSign
 SaveSysIni FileN, a.Sign, "RRSign", a.RRSign
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Dim a As String
a = App.Path
If Right(a, 1) <> "\" Then a = a & "\"
FileN = a & "ChipType.ini"
End Sub