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

@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 спасибо большое все рисует отлично, очень помог!

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

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

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

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	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

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

Решение