Программа предназначена для записи в подсознание различной информации.
Название 25 кадр чисто символическое ( по умолчанию стоит время 40 миллисекунд, что соответствует 25 кадрам в секунду ).
Можно установить любое время смены кадров, это полезно при изучении языков, когда сначала просматривают на большой скорости, а потом можно поставить допустим 500 или даже 1000
и уже на сознательном уровне просмотреть слова. К тому же в программе есть полный листинг всех слов, который также можно использовать для обучения.
***
Работать с программой очень просто.
Сначала надо подготовить текстовый файл со словарём или любым текстом. Главное, чтобы строка текста была не более 3-4 слов.
Затем в программе нажимаем кнопку OPEN и выбираем нужный файл. ( по умолчанию корневая директория с:/ ).
Затем вводим в окошке нужное время ( по умолчанию 40 ) и нажимаем кнопку START .
Программа прокручивает весь текст построчно в бесконечном цикле, поэтому надо самостоятельно отключать нажав на кнопку STOP.
Программа довольно умная, она убирает с экрана всё лишнее, принцип Дзен! и показывает количество строчек в тексте.
****
Рекомендуется работать в режиме просмотра не более 15 минут, затем надо потратить ещё 15-20 минут на просмотр текста уже
на скорости восприятия сознанием. Это нужно, чтобы возникла связь между подсознанием ( вернее с тем, что туда записалось) и
сознанием, в этом и есть секрет сверхзапоминания. Многие игнорируют этот процесс и в итоге у них нулевые результаты.
***
Кроме изучения слов, эту программу можно использовать для других целей, например закодироваться от курения, или на сброс
лишнего веса. Можно кодироваться на позитив, излечение от болезней и многое другое .Главнае грамотно составить текст.
Imports System.IO
Public Class Form1
Dim i, ddd As Integer
Dim r As IO.StreamReader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 40
i = 0
TextBox1.Visible = False
ListBox1.Items.Add(" ")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
If TextBox2.Text = "" Or Not IsNumeric(TextBox2.Text) Then
ddd = 40
Else
ddd = Val(TextBox2.Text)
End If
Timer1.Interval = ddd
Label2.Text = CStr(ListBox1.Items.Count) & " words"
If Button1.Text = "start" Then
TextBox1.Visible = True
ListBox1.Visible = False
Button2.Visible = False
Timer1.Start()
Button1.Text = "stop"
Else
Timer1.Stop()
Button1.Text = "start"
TextBox1.Visible = False
ListBox1.Visible = True
Button2.Visible = True
End If
End Sub
'загрузить список из файла
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
ListBox1.Items.Clear()
TextBox1.Visible = False
ListBox1.Visible = True
Dim myStream As Stream = Nothing
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
myStream = openFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
r = New IO.StreamReader(myStream)
While (r.Peek() > -1)
ListBox1.Items.Add(r.ReadLine)
End While
r.Close()
End If
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
Finally
' Check this again, since we need to make sure we didn't throw an exception on open.
If (myStream IsNot Nothing) Then
myStream.Close()
End If
End Try
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
TextBox1.Text = ListBox1.Items.Item(i)
i = i + 1
If i > ListBox1.Items.Count - 1 Then
i = 0
End If
End Sub
End Class
