se516v36.frm

C51单片机的程序下载器软件源代码

         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5880
      TabIndex        =   13
      Top             =   6000
      Width           =   255
   End
   Begin VB.CheckBox Program_chk 
      Caption         =   "Check3"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   129
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4920
      TabIndex        =   12
      Top             =   6000
      Width           =   255
   End
   Begin VB.CheckBox Blank_chk 
      Caption         =   "Check2"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   129
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3960
      TabIndex        =   11
      Top             =   6000
      Width           =   255
   End
   Begin VB.CheckBox Erase_chk 
      Caption         =   "Check1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   129
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3000
      TabIndex        =   10
      Top             =   6000
      Width           =   255
   End
   Begin VB.CommandButton Verify 
      Caption         =   "VERIFY"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   129
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5640
      TabIndex        =   5
      Top             =   6360
      Width           =   855
   End
   Begin VB.CommandButton Read 
      Caption         =   "READ"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   129
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1440
      TabIndex        =   8
      Top             =   6360
      Width           =   1095
   End
   Begin VB.CommandButton Program 
      Caption         =   "WRITE"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   129
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4680
      TabIndex        =   4
      Top             =   6360
      Width           =   855
   End
   Begin VB.CommandButton Blank 
      Caption         =   "BLANK"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   129
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3720
      TabIndex        =   3
      Top             =   6360
      Width           =   855
   End
   Begin VB.CommandButton Erase 
      Caption         =   "ERASE"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   129
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2760
      TabIndex        =   2
      Top             =   6360
      Width           =   855
   End
   Begin VB.Label Label4 
      BackColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   24
      Top             =   4920
      Width           =   3375
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   23
      Top             =   4680
      Width           =   3375
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   240
      TabIndex        =   22
      Top             =   4440
      Width           =   3375
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   240
      TabIndex        =   21
      Top             =   4200
      Width           =   3375
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************************
'* Description:
'*
'* SE-516SP V3.6
'* ATMEL 8051 FLASH CPU SIMULATOR/PROGRAMMER
'*
'* Support Devices :
'*
'*   AT89C1051     20 Pin   1KB FLASH
'*   AT89C2051     20 Pin   2KB FLASH
'*   AT89C4051     20 Pin   4KB FLASH
'*   AT89C51       40 Pin   4KB FLASH
'*   AT89C52       40 Pin   8KB FLASH
'*   AT89S51       40 Pin   4KB FLASH
'*   AT89S52       40 Pin   8KB FLASH
'*   AT89S8252     40 Pin   8KB FLASH + 2KB EEPROM
'*   AT89C55WD     40 Pin  20KB FLASH
'*
'* Written by Junghoon Kim 01-June-2002, 30-May-2004
'*
'* SAMPLE Electronics co.
'* C-18 KwangJang-fl Main bd. ET-Land 16-9 Hangangno-3ga YongSan-gu
'* Seoul 140-879 South KOREA
'* Tel: [phone]
'* Fax: [phone]
'* Mail : [e-mail]
'* Web : HTTP://WWW.SAMPLE.CO.KR
'*
'***********************************************************
'
Option Explicit

Dim buffer(65535) As Byte       '定义缓冲器数组
Dim datainbuffer As String      '数据读入缓冲器
Dim loadfilename As String      '文件名
Dim train As String
Dim flashsize As Long           '存储器大小
Dim readhexsize As Long         '读取HEX文件大小
Dim proghexsize As Long
Dim inputcount As Integer
Dim msgtxt As String
Dim progmark As Boolean
Dim readmark As Boolean
Dim savemark As Boolean
Dim erasemark As Boolean
Dim verifymark As Boolean
Dim blankmark As Boolean
Dim comdiaskip As Boolean
Dim loadsucess As Boolean


Sub msgout()

  Label1.Caption = Label2.Caption
  Label2.Caption = Label3.Caption
  Label3.Caption = Label4.Caption
  Label4.Caption = msgtxt
  
End Sub

Sub serialinput(I As Integer)

Dim t As String
Dim m As String
Dim v As String
Dim K As Long
Dim J As Long

 v = ""

 Do
   t = MSComm1.Input
   
    v = v + t
 
   J = Len(v)
   If J >= I Then Exit Do
 
   For K = 1 To J
    m = Mid(v, K, 1)
    If m = Chr(13) Or m = Chr(10) Then Exit Do
    
   Next K
 
 Loop

  train = ""
  J = Len(v)
  For K = 1 To J
    m = Mid(v, K, 1)
    If m = Chr(13) Or m = Chr(10) Then Exit For
    train = train + m
  Next K
  
Form1.Caption = train

End Sub

Sub buffer_initial()

Dim I As Long
Dim J As Long
Dim K As Long
Dim t As String

For I = 0 To 65535            '数组缓冲器填充 FF
   buffer(I) = &HFF
Next I

MSFG.FormatString = "    | 0| 1| 2| 3| 4| 5| 6| 7| 8| 9| A| B| C| D| E| F"
   
   For I = 0 To 4095

     t = "0000" + Hex(I * 16)
     MSFG.TextMatrix(I + 1, 0) = Right(t, 4)  '第一列复制地址

     For J = 0 To 15

       t = "0" + Hex(buffer(16 * I + J))
       MSFG.TextMatrix(I + 1, J + 1) = Right(t, 2) '表格中填充 FF
     Next J

   Next I
 
MSFG.Visible = True

End Sub

Private Sub auto_Click()
' Auto command

If loadfilename = "" Then
   
   comdiaskip = False
  
Else

  comdiaskip = True

End If

Fillchk.Value = 1

loadsucess = True

If autochk.Value = 1 Then

   Load_Click

End If

If loadsucess = True Then

  If Erase_chk.Value = 1 Then
     Erase_Click
  End If
  
  If Blank_chk.Value = 1 Then
     Blank_Click
  End If
  
  If Program_chk.Value = 1 Then
     Program_Click
  End If
  
  If Verify_chk.Value = 1 Then
     Verify_Click
  End If
  
  If Lockchk.Value = 1 Then
     lock_Click
  End If
  
End If

comdiaskip = False

End Sub

Private Sub Erase_Click()
' Erase Command

Reset_Click

MSComm1.PortOpen = True
MSComm1.Output = "S"          ' eraSe

serialinput (1)
MSComm1.PortOpen = False

If train = "S" Then

  msgtxt = "Erase."
  msgout

  ElseIf train = "s" Then

  msgtxt = "Erase Error !"
  msgout
  MsgBox "Erase ERROR", vbExclamation, ""
 
  Else
 
 MsgBox "System ERROR", vbCritical, "ERASE"
 
End If

Beep

End Sub

Private Sub lock_Click()

Reset_Click

MSComm1.PortOpen = True

If Lb1chk.Value = 1 Then
  MSComm1.Output = "A"
  serialinput (1)
End If

If Lb2chk.Value = 1 Then
  MSComm1.Output = "B"
  serialinput (1)
End If

If Lb3chk.Value = 1 Then
  MSComm1.Output = "C"
  serialinput (1)
End If

MSComm1.PortOpen = False

Beep

End Sub

Private Sub MSComm1_OnComm()

End Sub

Private Sub Option1_Click()
' Com1 Port

Option1.Value = True
Option2.Value = False
MSComm1.CommPort = 1

End Sub

Private Sub Option2_Click()
' Com2 Port

Option1.Value = False
Option2.Value = True
MSComm1.CommPort = 2

End Sub

Private Sub Save_Click()
' Save Command

Dim t As String
Dim v As String
Dim F As Integer
Dim I As Long
Dim J As Integer
Dim K As Integer
Dim g As Integer
Dim b As Integer
Dim C As Integer

If flashsize <> 0 Then                      ' Flash 农扁啊 瘤沥登瘤 臼疽栏搁 65536 傈备埃 历厘
  g = (flashsize / 16) - 1
Else
  g = 65536 / 16 - 1
End If