1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

Проблема С Таймером

Тема в разделе "Visual Basic", создана пользователем Aris, 3 янв 2014.

  1. Aris

    Aris New Member

    Репутация:
    0
    Регистрация:
    3 янв 2014
    Сообщения:
    1
    Симпатии:
    0
    Доброго времени суток!
    Помогите пожалуйста! Очень нужно.
    Я новичок вообще в программировании и нужна помощь.
    Работаю с Visual Basic и проблема связана с работой таймера.
    Таймер должен проверять изменения в файле 1.ini и если изменения есть, то считывать и записывать в файл 2.ini. Эта часть работает, все вроде прекрасно! НО.
    Таймер одну и ту же инфу считывает и записывает бесконечно.
    А мне нужно, чтобы инфа в 1.ini и последняя строка в 2.ini совпадают, то таймер должен перестать работать до поступления новой инфы в 1.ini.
    Код примерно таков:

    Код:
    [i][b]Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
    
    Dim ChangeInfo As String
    If (Unfinished = 1) Then
    
    UnfinishedCases = 1
    
    CaseTimer.Enabled = True
    
    Else
    FileOpen(44, CaseFile, OpenAccess.Read, OpenMode.Input, OpenShare.Shared)
    Do Until EOF(44)
    
    ChangeInfo = LineInput(44)
    
    If ChangeInfo = "[Номер]:") Then
    Number = LineInput(44)
    End If
    
    If ChangeInfo = "[Время]:") Then
    Time = LineInput(44)
    End If				 
    
    If ChangeInfo = "[Человек]:") Then
    Iniciator = LineInput(44)
    End If
    
    Loop
    
    CaseTimer.Enabled = False
    End If
    FileClose()
    
    Dim SaveInfo As String = My.Computer.FileSystem.ReadAllText(FilePath + "\" + "1.ini", System.Text.Encoding.Default)
    
    SaveInfo= SaveInfo.Replace("Number", Number)
    SaveInfo= SaveInfo.Replace("TransferTime", "#" + Time)
    
    SaveInfo =SaveInfo.Replace("Iniciator", "%" + Name)
    
    
    My.Computer.FileSystem.WriteAllText(OtherFilePath + "\" + "2.ini", SaveInfo, False, System.Text.Encoding.Default)
    
    End If
    End Sub[/b][/i]
     
Загрузка...

Поделиться этой страницей