Visual Basic в вопросах и ответах

через dll наверное легче всего будет.

Sounds

To demson
А по подробней можно=)

pirotehnick

Sounds писал(а):Кто знает как работать с USB 2.0 в Visual Basic 6.0?
Поделитесь ссылками. В заранее спасибо!!!

Если напрямую, то через драйвер, по-моему в винде это уже всё готово, можно так же написать свой.
Но по моему работать напрямую с USB 2.0 дюже гиморно, проще использовать специальные контроллеры.

см.

http://www.pcports.ru/articles/usb1.php

по драйверам:

http://www.pcports.ru/articles/ddk3.php

dll USB
UControl называется по мойму отсюда
http://radiokot.ru/circuit/audio/amplifier/33/
да точно отсюда http://radiokot.ru/circuit/audio/amplifier/33/04.rar
там как-раз этот пример, и болле точно можно спросить у автора проекта.

Деня

Ребята а как сделать чтоб картинку по форме таскать можно было?
Тобиш менять координаты.

параметр .DragMode в параметрах картинки в авто, после этого она будет таскаться
ну и

Код: Выделить всё

Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Source.Move X, Y
End Sub

Деня

Demson спасибо большое.
и еще вопрос-
вызываю меню "сохранить как" или "открыть" , и жму отмена или ввожу несуществующее имя файла; по on erorr перехожу в обработчик , вопрос собственно в следующем:
как распознать какой параметр возвращается чтоб его обработать?
пробовал так:
if erorr = "file not found" then goto
получается но думаю это неправильно.
Заранее спасибо.

это common dialog чтоли
If Form1.CommonDialog1.FileName = "" Then Exit Sub
On Error GoTo NameErr1
или так
If Not Dir(фаил1.у) = vbNullString Then

P-cad

Ошибки обрабатываются по номерам)

Код: Выделить всё

On Error GoTo err1
......
err1:
If Err.Number = 53 Then ........

У ошибки File Not Found 53й номер.

Деня

Ребята спасибо за помощь все получилось :))

вот еше вопрос если сталкивались, програмное управление сигналами DTR и DTS.
Задача собственно в захвате входных данных в определенный момент, и грубо говоря подмена, аппаратно это резистор, транзистор и диод. При подачи DTR или DTS транзистор отрубает входящие данные и подставляет свои и т.д. Использование микроконтроллера не целесообразно так как требует источника питания и т.п.
Зарание спасибо!

Alexey1969

Программное изменение этих сигналов, под Win происходит очень медленно относительно потока данных.

Деня

Не согласен на 9600 с стандартной паузой в 20мс работает отлично.
Кстати с задачей справился. Но всеравно спасибо что откликнулись. :wink:

Деня

Ребята как програмно завершить другую (чужую) программу из своей,
аще как переименовать фаил, удалить.
:cry:

помогите плиз!

P-cad

Удалить файл - Kill [файл].
Переименовываем с помощью (кажется) Name...

Насчет убийства процессов - это к API. Я так не помню, погугли что нибудь типа "завершение процессов API".

AndrNet

Деня писал(а):Ребята как програмно завершить другую (чужую) программу из своей,
аще как переименовать фаил, удалить.
помогите плиз!

Так лучше будет.

Option Explicit
Dim strName As String

Private Sub Form_Load()
On Error GoTo NumberErr
strName = Dir(App.Path & "\444.txt")
If Trim(strName) <> vbNullString Then
Name App.Path & "" + strName As App.Path & "" & "333.txt"
End If
Exit Sub

NumberErr:
Dim Message As String
If Err.Number = 58 Then
Message = MsgBox("Файл уже существует!" & _
vbCrLf & "Задайте другое имя конечного файла", _
vbCritical + vbOKOnly)
End
End If
End Sub

Деня

Спасибо огромное, получается, ну все с меня бутылка. :tea:

А вот бы завершить процесс и автоматизация закончина :music:

krant

Вопрос, если я захочу общаться с мк посредством ПК, собственно софт допустим напишу (эх вспомним VB).

доппустим реализую УАРТ через FT232, подцеплю его по USB к ПК. Как собственно дальше опрашивать устройство через софт, и собственно что посылать мк -> ПК .

Довайте пока то не будем конкретизировать производителя, а так, в общем случае.

Деня

Зачем тебе USB если у тебя 232 липи к COM.
Но если хочеш можеш ганять пакеты и через аппаратный преобразователь USB to COM.
В VB с USB я не работал а с COMом легко.
Фармируеш пакет: (Это самый простой)
1й - байт.
от кого (0 to 255)
2й - байт.
кому (0 to 255)
3й - байт.(n to 255)
сколько байт в посылке с учетом контрольной суммы
4й - байт.(0 to 255)
функция (Команда на выполнение каких либо действий)
5й - байт.(0 to 255)
6й - байт.(0 to 255)
7й - байт.(0 to 255)
Nй - байт.(0 to 255)
Данные
и последний контрольная сумма :))

Если я правельно понял вопрос то чуть-чуть ответил.

krant

К сожалению ком порты вымирают. как я понял из ДШ на микросхему FT232 - при подключении устройства к USB порту, система видит как бдуто появился новый СОМ порт, к которому уже подключен наш контроллер. Т.е. грубо говоря вспылвает работа с тем же самым COM портом...

Формировать пакеты надо с мк ? или же с ПК ?
Я если честно делаю первые шаги в связи контроллеров и ПК , поэтому для меня это пока что дремучий лес

Деня

Первый пакет у тебя формирует мастер устройство
например-
ты хочес снять данные с датчика который у тебя висит на МК
формируш посылку с компа такого типа:
01,7D,05,19,9С
где
01- от кого
7D- кому
05- кол-во байт в посылке
19- отдать данные
9С-CRC

ответ с МК примерно такой:

7D- от кого
01- кому
05- кол-во байт в посылке
00- состояние датчика
83- CRC

между посылками делаеш паузу 20мс это стандарт.
*все цифры взяты из головы автор не несет отвецтвенности за использование выше изложенной информации :))