Форум РадиоКот

Попробую...

Все, готово! Стоит хотя бы раз запустить прогу, она тут же копирует себя в автозагрузку, делается скрытой и...

У меня не получается писать в блокноте на ВБскрипт. Какой тэг его вкючает?

P-cad, впоследствии лишние посты буду просто удалять. Паятель.

Добрый день.
сформулирую вопрос более точно. я для собственного опыта хочу узнать как создавать переферийные устройства работающие от USB. Как они работают? Как пишется драйвер устройства и что из себя он представляет? недавно начал заниматься visual basik. можно драйвера делать в нем?
http://www.pcports.ru/Articles.php
а здесь уже дано готовое устройство.

Вам наверно книгу Агурова по USB нужно читать.

Вы подумайте, может не надо USB, для начала попробуйте поработать с COM-портом (через компонент MSComm) а на USB всегда можно пересесть?
С СОМ-портом тоже можно дел натворить.

На том же сайте есть обширная библиотека.
А начинать наверное нужно с простого а именно с LPT порта а уж потом и на USB переходить.

У меня не получается писать в блокноте на ВБскрипт. Какой тэг его вкючает?

Пишешь код в блокноте, а потом просто сохраняешь файл с расширением .vbs
Но - VBS не совсем тоже самое, что VB. Хотя они немного похожи.
Для примера можешь на VBS вот такой код написать:

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

Do
MsgBox "Скрипт работает!"
Loop

Скрипт рабочий. Только запустив его, ты помучаешься с его закрытием.

Тож мысль... А про проблемы я и так по DO...LOOP догадался.
Тему опять переименовали

Не спится модераторам.
ЗЫ: прошу не пинимать всерьез.

Есть ли команда, позволяющая проверять подлинность пути? (например, ввожу C:\...\aa и проверяется, а то Runtime Error надоел)?

Проверка наличия файла:

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

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\1.txt") = True Then
    MsgBox "Файл существует"
Else
    MsgBox "Файл не существует"
End If

Код работает и для VBS

Или, если не использовать FSO, то так:

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

If Len(Dir("C:\1.txt")) > 0 Then
    MsgBox "Файл существует"
Else
    MsgBox "Файл не существует"
End If

Но этот код для VBS уже недействителен.

Спасибо. Пойду мучаться дальше

(например, ввожу C:\...\aa и проверяется, а то Runtime Error надоел)?

Ну, дык, ошибки можно обрабатывать. Для этого существует оператор On Error. Если, ты, например захотел удалить файл 1.txt, которого нет, то собственно, вылетит ошибка 53.
Вот ее можно обработать:

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

On Error GoTo FileNotFound

Kill "C:\1.txt"

FileNotFound:
    If Err.Number = 53 Then MsgBox "Файл не найден"

Честно - я в этом не разбираюсь.

bogosja писал(а):Добрый день.
сформулирую вопрос более точно. я для собственного опыта хочу узнать как создавать переферийные устройства работающие от USB. Как они работают? Как пишется драйвер устройства и что из себя он представляет? недавно начал заниматься visual basik. можно драйвера делать в нем?
http://www.pcports.ru/Articles.php
а здесь уже дано готовое устройство.

Драйвера на VB писать нельзя. Да и вообще что-то путнее писать нельзя. Я знаю VB на 110%, потратил на изучение лет 5 своей жизни, и поверьте, очень, очень об этом жалею.

Хых. А я в Visual С++ просто не могу пвзобраться. Вот и приходится на VB.

Я вот тоже непрофессиональный программист, но если говорить по теме ветки, VB6 начал изучать именно за его контрол mscomm32.ocx, чтобы не заморачиваясь с API можно было "интегрировать с ПК" разные устройства например вот так:
http://www.schemz.narod.ru/COMdevice.htm
Очень часто слышу негатив об этом языке, но меня для тех задач, что приходится решать он очень даже устраивает.
Ну например, здесь некоторые проекты:
http://www.schemz.narod.ru/Projects.htm

Мне хватает и VB. Я не отношусь к его врагам.

gan писал(а):VB6 вот так:
http://www.schemz.narod.ru/COMdevice.htm

Отличная страничка !

tych писал(а): Отличная страничка !

Спасибо, хочу её дополнить- недавно в качестве эксперимента попробовал вывести с ком-порта системные дату-время на 4-разрядный LED -индикатор, частота обновления получилась около 70 Гц, мерцания не заметно. Схему приаттачил.

Снова здравствуйте, я вернулся.
Есть такой вопрос:
в одной программе у меня "летает" картинка - каждые 0.025 сек. она сдвигается на 10 пикселей. При этом она мигает. Возможно ли это убрать?

Форум РадиоКот

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