Как сделать, чтобы текст выводился поочередно буква за буквой через определенный промежуток времени? - VB

Узнай цену своей работы

Формулировка задачи:

Еще раз доброго времени суток! Задача такая: есть текст, который нужно выводить плавно, буква за буквой (такой эффект многие наверняка видели в играх или фильмах). Наваял, к примеру, такой код:
Работать то работает, но только если текст в файле выглядит так: П р и в е т ! (т.е. вертикально). Можно забить и сказать, что главное - работает. Но, наверняка есть точно такое же решение, если бы текст был одной строкой и считывался просто по одному символу по таймеру. Может кто сталкивался? Помогите, пожалуйста! Заранее спасибо!

Решение задачи: «Как сделать, чтобы текст выводился поочередно буква за буквой через определенный промежуток времени?»

textual
Листинг программы
Option Explicit
Dim N, CF As String
Private Sub Form_Load()
   Dim File As String
   File = App.Path & "\test.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
   Close #1
End Sub
 
Private Sub Комманда1_Click()
Часы1.Interval = 100
Часы1.Enabled = True
End Sub
 
Private Sub Часы1_Timer()
Cls
N = N + 1
If N = Len(CF) Then N = 1
Print Left(CF, N)
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы