Помогите с кодом для кнопки в Mach3

Mach, популярные и не очень CAD, CAM. Обсуждение и разработка программ для управления станками.
AndersonS
Новичок
Сообщения: 4
Зарегистрирован: 13 мар 2018, 21:01
Репутация: 0
Настоящее имя: Andrey
Контактная информация:

Помогите с кодом для кнопки в Mach3

Сообщение AndersonS »

Всем привет:)
Хочу в скринсет из темы - http://www.cnc-club.ru/forum/viewtopic. ... &start=300

для своих нужно добавить под экран с УП до десятка кнопок:
Отв1, Отв2, Отв3..
Паз1, Паз2...

как сделать что бы при нажатии на кнопку сразу загружался определенный файл
Отв1.tap..
Паз1.tap..

Кто может помочь с кодом, какой код под кнопкой прописать?
чем лучше Скрин редактировать?

Заранее благодарен.
aftaev
Зачётный участник
Зачётный участник
Сообщения: 34042
Зарегистрирован: 04 апр 2010, 19:22
Репутация: 6194
Откуда: Казахстан.
Контактная информация:

Re: Помогите с кодом для кнопки в Mach3

Сообщение aftaev »

AndersonS писал(а):как сделать что бы при нажатии на кнопку сразу загружался определенный файл

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

'Построчное чтение текстового файла
iFile = FreeFile
    Open FileName() For Input As iFile
        Do While Not EOF(iFile) ' Loop until end of file.
            Line Input #iFile, txt
 MsgBox txt
        Loop
    Close iFile
или

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

OpenTeachFile "Отв1.tap"
CloseTeachFile
call LoadStandardLayout()
call LoadTeachFile()
AndersonS писал(а):чем лучше Скрин редактировать?
machscreen http://www.kd-dietz.com/klausphp/
Дилетанту сложные вещи кажутся очень простыми, и только профессионал понимает насколько сложна самая простая вещь
Кто хочет - ищет возможности, кто не хочет - ищет оправдание.
Найди работу по душе и тебе не придется работать.
AndersonS
Новичок
Сообщения: 4
Зарегистрирован: 13 мар 2018, 21:01
Репутация: 0
Настоящее имя: Andrey
Контактная информация:

Re: Помогите с кодом для кнопки в Mach3

Сообщение AndersonS »

'Построчное чтение текстового файла
iFile = FreeFile
Open FileName("c:\Mach3\1\44.tap") For Input As iFile
Do While Not EOF(iFile) ' Loop until end of file.
Line Input #iFile, txt
MsgBox txt
Loop
Close iFile
не сработало, пишет - Error on line 3: - Wrong number of arguments or invalid property assignement

а тут:
OpenTeachFile "c:\Mach3\1\44.tap"
CloseTeachFile
Call LoadStandardLayout()
Call LoadTeachFile()
че то вообще непонятно..

или я не правильно путь прописал?
aftaev
Зачётный участник
Зачётный участник
Сообщения: 34042
Зарегистрирован: 04 апр 2010, 19:22
Репутация: 6194
Откуда: Казахстан.
Контактная информация:

Re: Помогите с кодом для кнопки в Mach3

Сообщение aftaev »

AndersonS писал(а):или я не правильно путь прописал?
или путь не правильно написал, например С русская буква ;)
Дилетанту сложные вещи кажутся очень простыми, и только профессионал понимает насколько сложна самая простая вещь
Кто хочет - ищет возможности, кто не хочет - ищет оправдание.
Найди работу по душе и тебе не придется работать.
AndersonS
Новичок
Сообщения: 4
Зарегистрирован: 13 мар 2018, 21:01
Репутация: 0
Настоящее имя: Andrey
Контактная информация:

Re: Помогите с кодом для кнопки в Mach3

Сообщение AndersonS »

путь проверил, все правильно, копировал из проводника. может еще что не так?
Аватара пользователя
FLUKE
Мастер
Сообщения: 843
Зарегистрирован: 11 мар 2013, 21:18
Репутация: 187
Настоящее имя: Сергей
Откуда: Смоленск
Контактная информация:

Re: Помогите с кодом для кнопки в Mach3

Сообщение FLUKE »

Пробуй так:
LoadFile("C:\Mach3\GCode\roadrunner.tap")
Code "(roadrunner.tap загружен!)"
Ответить

Вернуться в «Windows / Mach»