Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Программа управления станком ЧПУ 
:(
    Опции темы
genanch
  Дата 2.2.2010, 21:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.2.2010

Репутация: нет
Всего: нет



 Привет Всем .
Я радиолюбитель , автор "Станок для рисования печатных плат и выжигания лазером" 

[removed]

программу управления станком я написал сам на FREEBASIC . Решил усовершенствовать программу на VisualBasic но опыта нет , кое-что не получается . Поиски в интернете ничего не дают . Может кто нибудь сможет помочь ?
 Задача в следующем - открыть BMP файл большого размера , считать и заменить цвет пикселей . 
Необходим PictureBox и ScrollBar , но на тех  примерах , которые я находил в интернете , не могу рисовать в PictureBox , рисую на картинке все отлично но только начинаю перемещать ScrollBar мой рисунок пропадает с картинки . AvtoRedraw не помогает.

 smile 


Это сообщение отредактировал(а) Akina - 2.2.2010, 22:45
PM MAIL   Вверх
Akina
Дата 2.2.2010, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



А что собственно делает программа? Почему надо создавать свой инструмент для рисования, когда есть сотни готовых?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
genanch
Дата 3.2.2010, 14:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.2.2010

Репутация: нет
Всего: нет



Цитата

Почему надо создавать свой инструмент для рисования, когда есть сотни готовых?


Станок уже зделан , ни одна программа из готовых не подойдет . А не ужели VisualBasic так плох что в нем нельзя сделать графический редактор для BMP большого размера (PictureBox и ScrollBar )    .
 "Станок для рисования печатных плат и выжигания лазером"  можно найти через поисковик .

PM MAIL   Вверх
Akina
Дата 3.2.2010, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(genanch @  3.2.2010,  15:52 Найти цитируемый пост)
не ужели VisualBasic так плох что в нем нельзя сделать графический редактор для BMP большого размера (PictureBox и ScrollBar )    .

Сделать в нём можно практически что угодно. 
Графических редакторов для битмапов большого размера - тонны. Программа же на VB может просто передавать такой программе файл на редактирование и принимать результат. И при этом пользователь получает достаточно большой и вылизанный функционал, причём практически без каких-либо телодвижений со стороны программиста. Более того - каждый пользователь, если это предусмотреть, сможет использовать СВОЙ, наиболее знакомый и привычный ему, инструмент редактирования картинки.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
genanch
  Дата 3.2.2010, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.2.2010

Репутация: нет
Всего: нет



Принцип программы такой :
я открываю BMP с рирунком который надо наресовать на плате или выжеч лазером (рисунок Ч/Б) , запускаю программу . Программа начинает поиск первого закрашенного  пикселя , как только находит перемещает инструмент в соответствующюю координату , перекрашивает черный пиксель на экране в зеленый (чтобы знать что здесь мы уже были ) и рисует точку на заготовке (на станке) , дальше работает алгоритм поиска ближайшей точки . И так пока не отсканирует весь ресунок . Но это все не важно , мне нужно на форму поместить PictureBox и ScrollBar , наресовать к примеру линию (LINE) переместить ScrollBar , чтобы переместился рисунок вместе с линней , не ужели VisualBasic так плох что в нем нельзя сделать такое ?


 smile 
PM MAIL   Вверх
Akina
Дата 3.2.2010, 19:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(genanch @  3.2.2010,  20:01 Найти цитируемый пост)
 не ужели VisualBasic так плох что в нем нельзя сделать такое ?

Как я уже говорил, на нём можно сделать практически всё. И если у программиста на VB что-то не получается, то из них двоих плох явно не Бэйсик.

Цитата(genanch @  3.2.2010,  20:01 Найти цитируемый пост)
Принцип программы такой :

А весь остальной функционал программы, кроме отрисовки всей этой лабуды на экране, уже реализован?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
genanch
  Дата 3.2.2010, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.2.2010

Репутация: нет
Всего: нет



Цитата

программу управления станком я написал сам на FREEBASIC . Решил усовершенствовать программу на VisualBasic но опыта нет 


Уже четыре года работает программа написаная на FREEBASIC , но с малым разрешением (980 х 680 точек , точно не помню) . Я переделал электронику , теперь есть возможность работать с разрешением в два раза больше , вот и решил изучить VisualBasic и написать программу ( купил книги , много инфы скачал с нета ) он мне ближе , с basic я знаком с конца 80-х . Это не комерческий вариант , если Вы были на VRI CNC форум , Вы наверное поняли что второго такого станка не сделать .  

Я просто прошу помощи : мне нужно на форму поместить PictureBox и ScrollBar , наресовать к примеру линию (LINE) переместить ScrollBar , чтобы переместился рисунок вместе с линней
PM MAIL   Вверх
Akina
Дата 3.2.2010, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата

Question
I am using Visual basic 6.0 ,my question is how to put horizontal and 
vertical scrollbar in a picture box. I , mean when I scroll down the 
scrollbar the content of the picture box will also goes down and also down 
and right to left ...hope you can help me...thanks

Answer
Not too tough.  Here's a technique I learned a while back.  The key is to have TWO picture boxes on your form.  The first one is the parent of the 2nd picture box, and the 2nd is the container for the picture.  The reason is because the 2nd picture box will be the one that is "scrolled".  Except it isn't really.  You are just moving the "Top" and "Left" of the picture box up to make more visible.

To use the code below, create a new form.  On it draw a picture box (color it Blue just so you know it's the 1st picture box), and then draw another picture box inside it (leave it white so you know it's the second).  Now, create a horizontal scroll bar below the outside picture box and a vertical scroll bar to the right of the outside picture box.  Finally, create a command button anywhere on the form outside the picture box.

Now, double-click your form, clear all code and paste the below:
Код

Option Explicit

Private Sub Command1_Click()
   
   Dim i As Integer
   
   Picture1.DrawWidth = 5
   For i = 1 To 200
       Picture1.Circle (Rnd * 10000, Rnd * 10000), Rnd * 2200, QBColor(Int(Rnd * 15))
   Next i

End Sub

Private Sub Form_Load()
  
  Picture1.Width = 10000
  Picture1.Left = 0
  Picture1.Top = 0
  Picture1.Height = 10000
  Command1_Click

End Sub

Private Sub VScroll1_Change()
  
  Call VerticalScroll

End Sub

Private Sub VScroll1_Scroll()
  
  Call VerticalScroll

End Sub

Private Sub HScroll1_Change()
  
  Call HorizontalScroll

End Sub

Private Sub HScroll1_Scroll()
  
  Call HorizontalScroll

End Sub

Private Sub VerticalScroll()
  
  Dim l As Double
  Dim a As Double
  Dim x As Double
  
  x = VScroll1.Value
  a = Picture1.Height - Picture2.Height
  l = (a * x) / 100
  Picture1.Top = -l

End Sub

Private Sub HorizontalScroll()
  
  Dim l As Double
  Dim a As Double
  Dim x As Double
  
  x = HScroll1.Value
  a = Picture1.Width - Picture2.Width
  l = (a * x) / 100
  Picture1.Left = -l

End Sub



Добавлено через 1 минуту и 16 секунд
И вообще поиск по словам PictureBox scrolling visual basic даёт чёртову уйму ссылок.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
genanch
Дата 3.2.2010, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 2.2.2010

Репутация: нет
Всего: нет



 СПАСИБО ОГРОМНОЕ !!!
Это самый лутьший код из тех которые я видел !
 smile  smile  smile 
Если чем нибуть могу Вам помоч , всегда буду рад !


user posted image
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0484 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.