Создать графический редактор

@den4ke · Регистрация: 07.05.2013

Студворк — интернет-сервис помощи студентам

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

@Pro_grammer · 07.05.2013, 17:58

Сообщение от den4ke

хотя бы начало, вообще не умею!

А это чей проект на картинке? Если твой, то выкладывай сюда, может кто и поможет тогда.

@den4ke · 07.05.2013, 19:12 **[ТС]**

Сообщение от Pro_grammer

А это чей проект на картинке? Если твой, то выкладывай сюда, может кто и поможет тогда.

ну это мой проект, сам создавал, просто программный код нужен

Добавлено через 57 минут
Ну помогите хоть что-нибудь, никто не умеет что ль ?
Хотя бы 1 команду для точки, чтобы печатал точку на PictureBox
Вот примерный код ДЛЯ СОЗДАНИЯ ТОЧКИ, но не знаю, что ещё вставить

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Graph1 As Graphics
Dim Pen1 As New Pen
Dim X1, X2, Y1, Y2, Red, Green, Blue As Integer
 
Private Sub Command1_Click()
X1 = Text1.Text
Y1 = Text2.Text
X2 = Text3.Text
Y2 = Text4.Text
Red = Val(Text5.Text)
Green = Val(Text6.Text)
Blue = Val(Text7.Text)
PSet (X1, Y1), C
End Sub

`где функции Dim ошибки выдает!!!

@Апострофф · 07.05.2013, 20:11

Рисование линии на PictureBox с помощью мыши - создание точки, вывод координат и ещё что-то

@Pro_grammer · 07.05.2013, 21:00

Сообщение от den4ke

ну это мой проект, сам создавал, просто программный код нужен

ну так выкладывай! Думаешь кому охота с самого начала для тебя лично всё создавать? Проще дополнить, то, что уже есть у тебя, заодно и ошибки исправить.

SoftIce · 08.05.2013, 07:04

Сообщение от den4ke

`где функции Dim ошибки выдает!!!

Потому что это кусок кода из VB.NET

VB.NET
1
2
Dim Graph1 As Graphics
Dim Pen1 As New Pen

Это можете убрать

@Craw · 08.05.2013, 15:53

Сообщение от den4ke

Visual Basic
1
Dim X1, X2, Y1, Y2, Red, Green, Blue As Integer

Не по теме:

Не забудьте, что в таком случае Blue будет типа Integer, а все остальное типа Variant.

@Alex77755 · 08.05.2013, 17:25

Visual Basic 5.0

Не по теме:

Подозреваю, что ТС имеет в виду 2005 бейсик

SoftIce · 08.05.2013, 17:30

Не по теме:

Сообщение от Alex77755

ТС имеет в виду 2005 бейсик

Но ведь у него Command1_Click, а не Button1_Click

Что-то он притих...:)

@den4ke · 08.05.2013, 19:03 **[ТС]**

ребят у меня получилось кароч, все рисует вот код !

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Dim X1, X2, Y1, Y2, Radius, Red, Green, Blue As Byte, Color As Long
Private Sub Command1_Click()
X1 = Text1.Text
Y1 = Text2.Text
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.PSet (X1, Y1), Color
End Sub
 
Private Sub Command2_Click()
X1 = Text1.Text
Y1 = Text2.Text
X2 = Text3.Text
Y2 = Text4.Text
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.Line (X1, Y1)-(X2, Y2), Color
End Sub
 
Private Sub Command3_Click()
X1 = Text1.Text
Y1 = Text2.Text
X2 = Text3.Text
Y2 = Text4.Text
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.Line (X1, Y1)-(X2, Y2), Color, B
End Sub
 
Private Sub Command4_Click()
X1 = Text1.Text
Y1 = Text2.Text
X2 = Text3.Text
Y2 = Text4.Text
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.Line (X1, Y1)-(X2, Y2), Color, BF
End Sub
 
Private Sub Command5_Click()
X1 = Text1.Text
Y1 = Text2.Text
X2 = Text3.Text
Y2 = Text4.Text
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.Circle (X, Y), Radius, Color
End Sub
 
Private Sub Command6_Click()
`нужно нарисовать систему координат помогите 
End Sub
 
Private Sub Command7_Click()
Picture1.Cls
End Sub

не могу только понять как систему координат нарисовать ?

@Alex77755 · 08.05.2013, 23:02

Примерно так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Picture1.Scale (-10, 10)-(10, -10)
 
'Рисуем координатные оси
Picture1.Line (-10, 0)-(10, 0)
Picture1.Line (-5, -10)-(-5, 10)
 
'Делаем циферки
Dim i As Integer
For i = -5 To 15 ' по Х
Picture1.CurrentX = i - 5
Picture1.CurrentY = 0
Picture1.Print i
Picture1.Line (i - 5, -0.2)-(i - 5, 0.2)
Next
 
For i = -10 To 10  ' по Y
Picture1.CurrentX = 0 - 5
Picture1.CurrentY = i
Picture1.Print i
Picture1.Line (-4.8, i)-(-5.2, i)
Next
 
'Дорисовываем стрелки
Picture1.Line (-5, 10)-(-6, 9)
Picture1.Line (-5, 10)-(-4, 9)
Picture1.Line (10, 0)-(9, -1)
Picture1.Line (10, 0)-(9, 1)

@den4ke · 09.05.2013, 15:16 **[ТС]**

у меня visual basic 5.0, нужно по рисунку делать, писать в text1,text2 и т.д. значения, и чтобы рисовались оси x,y
я не знаю как делать, погуглил вроде бы через Scale ?
Picture1.Scale (X1,Y1)-(X2,Y2) - не знаю зачем, обьясните как должно выглядеть

@den4ke · 10.05.2013, 18:04 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command6_Click()
X1 = Text1.Text
Y1 = Text2.Text
X2 = Text3.Text
Y2 = Text4.Text
Red = Val(Text6.Text): Green = Val(Text7.Text): Blue = Val(Text8.Text): Color = RGB(Red, Green, Blue)
Picture1.Line (0, 0)-(300, 0) ' Os X
Picture1.Line (0, 0)-(0, 200) ' Os Y
For X = 0 To 300 Step 50
Picture1.Line (X1, 0)-(X1, 10)
Next X
For Y = 0 To 200 Step 50
Picture1.Line (Y1, 0)-(Y2, 0)
Next Y
For X = 0 To 300 Step 50
Picture1.Scale (X1, 0)-(X2, 10)
Next X
For Y = 0 To 200 Step 50
Picture1.Scale (Y1, 0)-(Y2, 10)
Next Y
End Sub

Вот код не помогает, помогите ошибку найти!

@gaw · 10.05.2013, 19:23

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Picture1.Width = 340 * Picture1.Height / 240
Picture1.Scale (-20, 200 + 20)-(300 + 20, -20)
 
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Picture1.Line (-20, 0)-(320, 0) ' Os X
Picture1.Line (0, 220)-(0, -20) ' Os Y
For x = 0 To 300 Step 50
Picture1.Line (x, 10)-(x, -10): Picture1.Print x
Next x
For y = 50 To 200 Step 50
Picture1.Line (-10, y)-(10, y): Picture1.Print y
Next y
'==================================
x0 = 50: y0 = 75: R = 20: cl = vbBlue
Picture1.Circle (x0, y0), R, cl
   Picture1.Circle (x0, y0), 0.5, cl
 
X1 = 100: Y1 = 40: X2 = 150: Y2 = 100: cl = vbGreen
Picture1.Line (X1, Y1)-(X2, Y2), cl
 
X1 = 170: Y1 = 10: X2 = 200: Y2 = 120: cl = 0
Picture1.Line (X1, Y1)-(X2, Y2), cl, B
          
X1 = 110: Y1 = 140: X2 = 270: Y2 = 200: cl = vbRed
Picture1.Line (X1, Y1)-(X2, Y2), cl, BF

@Alex77755 · 11.05.2013, 08:04

Picture1.Scale (X1,Y1)-(X2,Y2) - не знаю зачем, обьясните как должно выглядеть

Самый простой и правильный метод - посмотреть в справочнике(или хотя бы в словаре перевод) - Масштаб
На приведённом мной примере было видно, что задаётся он один раз для рисунка и потом уже всё строится в этих координатах

Visual Basic
1
Picture1.Scale (-10, 10)-(10, -10)

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

@den4ke · 11.05.2013, 14:52 **[ТС]**

gaw спасибо большое все рисует отлично, очень помог!

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .

@den4ke 0 / 0 / 1 Регистрация: 07.05.2013 Сообщений: 60

	Создать графический редактор 07.05.2013, 16:55. Показов 8472. Ответов 15 Метки нет (Все метки) Помогите создать графический редактор, хотя бы начало, вообще не умею! Миниатюры 0

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	07.05.2013, 20:11
	Рисование линии на PictureBox с помощью мыши - создание точки, вывод координат и ещё что-то 0

@den4ke 0 / 0 / 1 Регистрация: 07.05.2013 Сообщений: 60
	09.05.2013, 15:16 [ТС]
	у меня visual basic 5.0, нужно по рисунку делать, писать в text1,text2 и т.д. значения, и чтобы рисовались оси x,y я не знаю как делать, погуглил вроде бы через Scale ? Picture1.Scale (X1,Y1)-(X2,Y2) - не знаю зачем, обьясните как должно выглядеть 0

@den4ke 0 / 0 / 1 Регистрация: 07.05.2013 Сообщений: 60
	11.05.2013, 14:52 [ТС]
	gaw спасибо большое все рисует отлично, очень помог! 0

Создать графический редактор

Решение