- •Портативное устройство хранения и отображения текстовой информации
- •Устройство и принцип работы
- •Микроконтроллер в утройстве
- •Описание выводов
- •Организация памяти
- •Хранение текста
- •Описание выводов
- •Управление памятью
- •Вывод текста
- •Подключение
- •Технические характеристики
- •Программа на компьютере Основная форма (frmMain)
- •Форма передачи (frmSend)
Программа на компьютере Основная форма (frmMain)
Private Sub btnExit_Click()
End
End Sub
Private Sub btnOpen_Click()
Dialog.CancelError = True
On Error GoTo Cancel
Dialog.ShowOpen
Filename = Dialog.Filename
If Filename = "" Then
lblFilename = "not opened"
lblFSize = 0
lblPacks = 0
Else
Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)
If (Not SFile.AtEndOfLine) And (FileLen(Filename) <= 32768) Then
lblFSize = FileLen(Filename)
lblFilename = Filename
Packs = FileLen(Filename) \ 64: If FileLen(Filename) Mod 64 <> 0 Then Packs = Packs + 1
lblPacks = Packs
txtFiletxt = SFile.ReadAll
Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)
mnuSend.Enabled = True: btnSend.Enabled = True: btnRead64.Enabled = True
btnCloseFl.Enabled = True: btnReset.Enabled = True
optP1.Visible = False: optP2.Visible = False
ElseIf SFile.AtEndOfStream Then
x = MsgBox("File hasn't any text information! ", vbCritical, "Empty file")
Filename = ""
ElseIf (FileLen(Filename) > 32768) And (FileLen(Filename) <= 65536) Then
lblFSize = FileLen(Filename)
lblFilename = Filename
Packs = FileLen(Filename) \ 64: If FileLen(Filename) Mod 64 <> 0 Then Packs = Packs + 1
lblPacks = Packs
x = MsgBox("File is more than 32768 bytes, so it will be divided into 2 parts.", vbInformation, "Large file")
txtFiletxt = SFile.Read(32768)
Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)
mnuSend.Enabled = True: btnSend.Enabled = True: btnRead64.Enabled = True
btnCloseFl.Enabled = True: btnReset.Enabled = True
optP1.Visible = True: optP2.Visible = True
ElseIf FileLen(Filename) > 65536 Then
x = MsgBox("File size more than available memory in CheatReader!", vbCritical, "File is too large")
Filename = ""
End If
End If
Cancel:
End Sub
Private Sub btnReset_Click()
Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)
End Sub
Private Sub btnSend_Click()
frmSend.Show vbModal, frmMain
End Sub
Private Sub btnCloseFl_Click()
SFile.Close
btnRead64.Enabled = False
btnCloseFl.Enabled = False
btnReset.Enabled = False
End Sub
Private Sub Label4_DblClick()
btnRead64.Visible = Not (btnRead64.Visible)
btnReset.Visible = Not (btnReset.Visible)
btnCloseFl.Visible = Not (btnCloseFl.Visible)
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub mnuOpen_Click()
Call btnOpen_Click
End Sub
Private Sub mnuSend_Click()
Call btnSend_Click
End Sub
Private Sub Option1_Click()
Comm.CommPort = 1
End Sub
Private Sub Option2_Click()
Comm.CommPort = 2
End Sub
Private Sub btnRead64_Click()
If SFile.AtEndOfStream Then
Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)
End If
x = MsgBox(SFile.Read(64), vbOKOnly, "64...")
If SFile.AtEndOfStream Then x = MsgBox("It was last 64 bytes.", , "End:")
End Sub
Private Sub optP1_Click()
Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)
txtFiletxt = SFile.Read(32768)
End Sub
Private Sub optP2_Click()
Set SFile = FSO.OpenTextFile(Filename, ForReading, False, TristateFalse)
txtFiletxt = SFile.Read(32768): txtFiletxt = SFile.Read(32768)
End Sub