Страница 1 из 1
Помогите с кодом для кнопки в Mach3
Добавлено: 14 мар 2018, 23:09
AndersonS
Всем привет:)
Хочу в скринсет из темы -
http://www.cnc-club.ru/forum/viewtopic. ... &start=300
для своих нужно добавить под экран с УП до десятка кнопок:
Отв1, Отв2, Отв3..
Паз1, Паз2...
как сделать что бы при нажатии на кнопку сразу загружался определенный файл
Отв1.tap..
Паз1.tap..
Кто может помочь с кодом, какой код под кнопкой прописать?
чем лучше Скрин редактировать?
Заранее благодарен.
Re: Помогите с кодом для кнопки в Mach3
Добавлено: 14 мар 2018, 23:27
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/
Re: Помогите с кодом для кнопки в Mach3
Добавлено: 15 мар 2018, 00:07
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()
че то вообще непонятно..
или я не правильно путь прописал?
Re: Помогите с кодом для кнопки в Mach3
Добавлено: 15 мар 2018, 01:08
aftaev
AndersonS писал(а):или я не правильно путь прописал?
или путь не правильно написал, например С русская буква
Re: Помогите с кодом для кнопки в Mach3
Добавлено: 15 мар 2018, 15:40
AndersonS
путь проверил, все правильно, копировал из проводника. может еще что не так?
Re: Помогите с кодом для кнопки в Mach3
Добавлено: 16 мар 2018, 00:31
FLUKE
Пробуй так:
LoadFile("C:\Mach3\GCode\roadrunner.tap")
Code "(roadrunner.tap загружен!)"