VBNet - Форум - Помогите с программой

Вопрос: Помогите с программой Добавлено: 24.05.09 15:17

Автор вопроса: Lecture

Добрый день, уважаемые форумчане. Управляю шаговым двигателем. Выдаю на LPT порт 1,3,2,5,4,6.
Подскажите, пожалуйста, какую здесь можно вывести формулу?
1 - 2^0
3 - 2^0+2^1
2 - 2^1
5 - 2^0+2^2
4 - 2^2
6 - 2^2 + 2^1
Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #1	Добавлено: 24.05.09 16:13
	А нафиг тебе формула? Может, тебе функция нужна? Ответить

Номер ответа: 2 Автор ответа: Lecture Вопросов: 1 Ответов: 2	Профиль \| \| #2	Добавлено: 24.05.09 16:14
	Просто буду использовать с разными типамидвигателей и нужна универсальная Ответить

Номер ответа: 3 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #3	Добавлено: 24.05.09 16:47
	Дык для каждого типа двигателей создай свою таблицу, как ты в примере показал. Храни таблицы в файлах и все. Ответить

Номер ответа: 4 Автор ответа: rw12lq Вопросов: 2 Ответов: 80	Профиль \| \| #4	Добавлено: 24.05.09 16:49
	Не совсем понятно что на порт и дет... но вот функция Private Function DriveType(ByVal bType As Byte) As Double '1 - 2^0 '3 - 2^0+2^1 '2 - 2^1 '5 - 2^0+2^2 '4 - 2^2 '6 - 2^2 + 2^1 Select Case bType Case 1: DriveType = 2 ^ 0 Case 2: DriveType = 2 ^ 0 + 2 ^ 1 Case 3: DriveType = 2 ^ 1 Case 4: DriveType = 2 ^ 0 + 2 ^ 2 Case 5: DriveType = 2 ^ 2 Case 6: DriveType = 2 ^ 2 + 2 ^ 1 End Select End Function Ответить

Номер ответа: 5 Автор ответа: Lecture Вопросов: 1 Ответов: 2	Профиль \| \| #5	Добавлено: 24.05.09 16:53
	Спасибо всем. Разобрался Ответить

Номер ответа: 6 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #6	Добавлено: 24.05.09 19:48
	rw12lq, хах так твоя функция упрощается) Private Function DriveType(ByVal bType As Byte) As Double DriveType = bType End Function Ответить

Номер ответа: 7 Автор ответа: rw12lq Вопросов: 2 Ответов: 80	Профиль \| \| #7	Добавлено: 25.05.09 01:34
	неа Winand. у меня взависимости от типа двигателя.. 1,2 или третий... функция возвращает определенную степень... Это если задание мной правильно понято... а упрощение, которое ты показал... возвращает пользователю введеное им же число Private Function DriveType2(ByVal bType As Byte) As Double DriveType2 = bType End Function Private Function DriveType(ByVal bType As Byte) As Double '1 - 2^0 '3 - 2^0+2^1 '2 - 2^1 '5 - 2^0+2^2 '4 - 2^2 '6 - 2^2 + 2^1 Select Case bType Case 1: DriveType = 2 ^ 0 Case 2: DriveType = 2 ^ 0 + 2 ^ 1 Case 3: DriveType = 2 ^ 1 Case 4: DriveType = 2 ^ 0 + 2 ^ 2 Case 5: DriveType = 2 ^ 2 Case 6: DriveType = 2 ^ 2 + 2 ^ 1 End Select End Function Private Sub Form_Load() Text1 = DriveType(2) 'результат 3 Text2 = DriveType2(2) 'результат 2 End Sub Ответить

Номер ответа: 8 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #8	Добавлено: 25.05.09 01:36
	Winand, невнимательный Не везде тип двигателя равен возвращаемому значению. Ответить

Номер ответа: 9 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #9	Добавлено: 25.05.09 15:39
	Во мля! я исправился Private Function DriveType(ByVal bType As Byte) As Byte If bType = 1 Or bType = 6 Then DriveType = bType _ Else DriveType = bType Xor 1 End Function Ответить

Страница: 1 |