HARDW.net

Добавлено: Вт Янв 15, 2008 10:46 am

Kuk писал(а):

Сергей Белов
ууууу .... и шо? помагает? Smile

А если начали А .. то кажите и Б к DE\B0

Вот почему-то от Вас я такого вопроса не ожидал...

Добавлено: Вт Янв 15, 2008 11:43 am

Цитата:

>ууууу .... и шо? помагает? Smile

>А если начали А .. то кажите и Б к DE\B0

Я правда честно не понял зачем вам, но на провокацию повёлся.
Внимание халявщикам! говорю "Б"
----код----
Private Sub mnuClearSMART_Click()
Dim TimerVisStart As Long
Dim TimerVisCurrent As Long
Dim TimerVisValue As Long
Dim LVIS0 As Label
Dim LVIS1 As Label
Dim LVIS2 As Label
Dim LVIS3 As Label
LVIS0:
R1H = 0
R1L = &Hххх
R2H = 0
R2L = &Hххх
R3H = 0
R3L = &Hххх
R4H = 0
R4L = 0
R5H = 0
R5L = 0
R6 = &Hххх
R7 = &Hххх

'ххх обозначены параметры для техноключа
Call LoadRegisters ' распихивает значения по регистрам винта
Delay (50)
'проверка висняка
TimerVisValue = 0
TimerVisStart = GetTickCount
LVIS1:
TimerVisCurrent = GetTickCount
TimerVisValue = TimerVisCurrent - TimerVisStart
If TimerVisValue > 5000 Then
If MsgBox("Попробовать еще раз?", vbCritical + vbYesNo, "Висняк при подаче техноключа") = vbYes Then GoTo LVIS0
Exit Sub
End If

If BUSY = True Then GoTo LVIS1

If ERR_D = True Then
MsgBox "ошибка подачи техноключа", vbCritical, "Ошибка"
Exit Sub
End If

'***************
'вот собственно сброс СМАРТ
LVIS2:
R1H = 0
R1L = &Hхх
R2H = 0
R2L = 0
R3H = 0
R3L = &H1
R4H = 0
R4L = &H4F
R5H = 0
R5L = &HC2
R6 = &HA0
R7 = &Hхх

Call LoadRegisters
Delay (1000)
TimerVisValue = 0
TimerVisStart = GetTickCount
LVIS3:
TimerVisCurrent = GetTickCount
TimerVisValue = TimerVisCurrent - TimerVisStart
If TimerVisValue > 5000 Then
If MsgBox("Попробовать еще раз?", vbCritical + vbYesNo, "Висняк при подаче команды очистки СМАРТ") = vbYes Then GoTo LVIS2
Exit Sub
End If

If BUSY = True Then GoTo LVIS3

If ERR_D = True Then MsgBox "ошибка очистки SMART", vbCritical, "Ошибка"
MsgBox "SMART очищен Smile

", vbInformation, "ДЕРГАЙ ПИТАЛЬНИК!"
End Sub
----
ФСЁ!

Добавлено: Вт Янв 15, 2008 5:35 pm

Сергей Белов
Very Happy

Гуд!

Добавлено: Чт Янв 17, 2008 2:55 pm

Kuk

Цитата:

Сергей Белов
Very Happy

Гуд!

не совсем.
выход из процедуры по ошибке в конце неправильно написан, а переделать лень

Добавлено: Пн Янв 21, 2008 1:48 pm

Спасибо.

Добавлено: Пн Янв 21, 2008 4:23 pm

KIT

Цитата:

Спасибо.

за что?

Добавлено: Чт Янв 24, 2008 1:50 am

мне нравится ход мыслей величайших ветеранов но вместо того чтобы помочь они постоянно заводят в дебри я думаю что здесь проблема связана с переполнением
а листа который необходимо очистить есть такая команда которая очищает этот лист и сбрасывает смарт ,но после этого могут появиться софтовые беды которые необходимо проэрейзить и думаю будеть все в порядке .но обратить внимание на блок питания может из-за сбоев произошло переполнение листа.Если нужна команда отправлю по почте или айсикюшкой -эта команда не на всех моделях работает !!!

Добавлено: Пн Янв 28, 2008 4:26 am

Уважаемые гуру !!!!
Что же никто не скажет про другую команду которая очищает а-лист и обнуляет смарт ,а потом я бы занес дефекты в с-лист и дефект лист ,но может это не дефекты ,а просто сбои блока питания и после этого а лист переполнился я бы его после обнуления проэрейзил хутилом 1.28 и посмотрел если нет ошибок значит все окей . Поменял бы блок питания и все.

Добавлено: Пт Апр 11, 2008 10:49 pm

уважаемый Robot !!!!!
Так как величайшие гуру умеют только издеватся а не довать умные советы рекомендую попробовать одну команду 20 00 01 00 00 A0 83 а после этого во втуле произвести инициализацию смарта , а потом проверить поверхность если все окей значит повезло или прийдется лов левел формат.

Добавлено: Сб Апр 12, 2008 2:07 pm

kolobki
мля .. нате вам
хх хх хх хх хх хх 8F
параметры ищите сами
када наломаете дров - поймёте почему не говорят