Форум программистов, компьютерный форум, киберфорум
Pure Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Pure Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 19.10.2012
Сообщений: 29

Задний фон программы

18.08.2015, 23:33. Показов 2579. Ответов 5
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
В свое время как то знакомый скидывал исходы кода, когда jpg картинка вшивалась в код а не подгружалась с папки при каждом запуске программы, если кто знает как сделать такое напишите пожалуйста, для упрощения, просто задний фон окна который при компиляции вошьется в программу. заранее огромное спасибо.

Добавлено через 1 минуту
Код программы если нужно)



PureBasic
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

;////////////////////////////////////////////////////////////// ИНДИКАТОР /////////////////////////////////////////
Enumeration
#Window_0
EndEnumeration
 
Procedure LineGadgetHeight(Gadget, x, y, Height,color)
Im=CreateImage(#PB_Any, 2, Height)
If Im
 If StartDrawing(ImageOutput(Im))
     CompilerIf #PB_Compiler_Version > 430
        Line(0,0, 1,Height ,color)
     CompilerElse
        Line(0,0, 0,Height ,color)
     CompilerEndIf
  StopDrawing()
  ImageGadget(Gadget,x, y, 2,Height,ImageID(Im))
 EndIf
EndIf
EndProcedure
 
 
 
OpenWindow(#Window_0, 0, 0, 350, 80, "Индикатор", #PB_Window_ScreenCentered | #PB_Window_BorderLess )
   SetWindowColor(#Window_0, $000000)
     TextGadget(300, 85, 45, 180, 15, "Подключение к сети")
     SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
     SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 
    For a = 1 To 150
    LineGadgetHeight(151-a, 22+a*2, 20, 20,$E3031C)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(5)
   Next
 
 TextGadget(300, 85, 45, 180, 15, "Загрузка всякой херни")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 
   For a = 1 To 150
    LineGadgetHeight(a, 324-a*2, 20, 20,$0302FC)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(10)
   Next
 
 TextGadget(300, 85, 45, 180, 15, "херня загружена")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
   For a = 1 To 150
    LineGadgetHeight(151-a, 22+a*2, 20, 20,$000000)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(5)
   Next
 
 TextGadget(300, 115, 35, 180, 25, " GOOD!!!!")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 SetGadgetFont(300, LoadFont(301, "Microsoft Sans Serif", 14, 272))
    Delay(2000)
;////////////////////////////////////////////////////////////// ОКОНЧАНИЕ ИНДИКАТОРА ////////////////////////////////////
 
 
;////////////////////////////////////////////////////////////// открытие начального окна ///////////////////
OpenWindow(0, 100, 200, 400, 300, "исталятор епта") 
ButtonGadget(1, 10, 10, 100, 25, "SA 530") 
ButtonGadget(2, 10, 40, 100, 25, "DB2") 
ButtonGadget(3, 10, 70, 100, 25, "VIPnet Server") 
ButtonGadget(4, 10, 100, 100, 25, "VIPnet Service") 
ButtonGadget(5, 10, 130, 100, 25, "Office") 
ButtonGadget(9, 150, 130, 100, 25, "КРЯК")    ;////////////////////////////////////////////////////////////// ОФФИС КРЯК //////////////////
ButtonGadget(6, 10, 160, 100, 25, "DOSprn") 
ButtonGadget(10, 150, 160, 100, 25, "КРЯК")    ;////////////////////////////////////////////////////////////// КРЯК ДЛЯ ПРИНТА //////////////////
ButtonGadget(7, 10, 190, 100, 25, "TotalCMD")
ButtonGadget(8, 10, 220, 100, 25, "КОНФИГИ")
 
 
;////////////////////////////////////////////////////////////// цикл кнопок ///////////////////////////
 
Repeat 
 Event = WaitWindowEvent() 
 EventGadgetID = EventGadget() 
;////////////////////////////////////////////////////////////// кнопка 1 //////////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 1 
 RunProgram("\soft\sa530\setup.exe") 
 EndIf 
 EndIf 
;////////////////////////////////////////////////////////////// кнопка 2 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 2
 RunProgram("\soft\db2\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 3 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 3
 RunProgram("\soft\VIPserver\setup.msi") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 4 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 4
 RunProgram("\soft\VIPservice\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 5 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 5
 RunProgram("\soft\Office\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 6 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 6
 RunProgram("\soft\dos\setup.exe") 
 EndIf 
 EndIf 
  ;////////////////////////////////////////////////////////////// кнопка 7 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 7
 RunProgram("\soft\total\Totalcmd.exe") 
 EndIf 
 EndIf 
   ;////////////////////////////////////////////////////////////// кнопка 8 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 8
 RunProgram("\soft\Config\") 
 EndIf 
 EndIf 
 
 
    ;////////////////////////////////////////////////////////////// Кряк для оффиса //////////////////
 
 
 If Event=#PB_Event_Gadget
 If EventGadgetID = 9
 MessageRequester("Ключик для Office 2003", "GWH28-DGCMP-P6RC4-6J4MT-3HFDY"+Str(B), 0)
 EndIf
 EndIf
 
   ;////////////////////////////////////////////////////////////// кряк для доспринта //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 10
 RunProgram("\soft\dos\Crack\setup.exe") 
 EndIf 
 EndIf 
 
 
 
 
Until Event = #PB_Event_CloseWindow
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 18.08.2015, 23:33
Ответы с готовыми решениями:

Задний фон программы, не картинка
Здравствуйте, интересует такой вопрос, как поставить на задний фон программы, GIF или Video?(и можно ли это вообще сделать?)

Задний фон
Добрый день. Есть проблемка, куча форм и по кнопкам перехожу с помощью кода: Form1.ActiveForm.Hide(); ...

Задний фон
Скажите как сделать что бы задник страницы не копировался при прокрутке страницы в низ а был как бы на месте

5
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
19.08.2015, 07:23
Лови:
PureBasic
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165

;////////////////////////////////////////////////////////////// ИНДИКАТОР /////////////////////////////////////////
Enumeration
#Window_0
EndEnumeration
 
Procedure LineGadgetHeight(Gadget, x, y, Height,color)
Im=CreateImage(#PB_Any, 2, Height)
If Im
 If StartDrawing(ImageOutput(Im))
     CompilerIf #PB_Compiler_Version > 430
        Line(0,0, 1,Height ,color)
     CompilerElse
        Line(0,0, 0,Height ,color)
     CompilerEndIf
  StopDrawing()
  ImageGadget(Gadget,x, y, 2,Height,ImageID(Im))
 EndIf
EndIf
EndProcedure
 
 
 
OpenWindow(#Window_0, 0, 0, 350, 80, "Индикатор", #PB_Window_ScreenCentered | #PB_Window_BorderLess )
   SetWindowColor(#Window_0, $000000)
     TextGadget(300, 85, 45, 180, 15, "Подключение к сети")
     SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
     SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 
    For a = 1 To 150
    LineGadgetHeight(151-a, 22+a*2, 20, 20,$E3031C)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(5)
   Next
 
 TextGadget(300, 85, 45, 180, 15, "Загрузка всякой херни")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 
   For a = 1 To 150
    LineGadgetHeight(a, 324-a*2, 20, 20,$0302FC)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(10)
   Next
 
 TextGadget(300, 85, 45, 180, 15, "херня загружена")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
   For a = 1 To 150
    LineGadgetHeight(151-a, 22+a*2, 20, 20,$000000)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(5)
   Next
 
 TextGadget(300, 115, 35, 180, 25, " GOOD!!!!")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 SetGadgetFont(300, LoadFont(301, "Microsoft Sans Serif", 14, 272))
    Delay(2000)
    ;////////////////////////////////////////////////////////////// ОКОНЧАНИЕ ИНДИКАТОРА ////////////////////////////////////
    
 ;{ Included Images
DataSection
  Image_Image_0:
  IncludeBinary "C:\kartina4.jpg" ; Твоя картинка!!!
 
EndDataSection
;}
UseJPEGImageDecoder()
 
;////////////////////////////////////////////////////////////// открытие начального окна ///////////////////
OpenWindow(0, 100, 200, 400, 300, "исталятор епта") 
ImageGadget(0, 0, 0, 400, 300, CatchImage(0, ?Image_Image_0)):DisableGadget(0,1)
ButtonGadget(1, 10, 10, 100, 25, "SA 530") 
ButtonGadget(2, 10, 40, 100, 25, "DB2") 
ButtonGadget(3, 10, 70, 100, 25, "VIPnet Server") 
ButtonGadget(4, 10, 100, 100, 25, "VIPnet Service") 
ButtonGadget(5, 10, 130, 100, 25, "Office") 
ButtonGadget(9, 150, 130, 100, 25, "КРЯК")    ;////////////////////////////////////////////////////////////// ОФФИС КРЯК //////////////////
ButtonGadget(6, 10, 160, 100, 25, "DOSprn") 
ButtonGadget(10, 150, 160, 100, 25, "КРЯК")    ;////////////////////////////////////////////////////////////// КРЯК ДЛЯ ПРИНТА //////////////////
ButtonGadget(7, 10, 190, 100, 25, "TotalCMD")
ButtonGadget(8, 10, 220, 100, 25, "КОНФИГИ")
 
 
;////////////////////////////////////////////////////////////// цикл кнопок ///////////////////////////
 
Repeat 
 Event = WaitWindowEvent() 
 EventGadgetID = EventGadget() 
;////////////////////////////////////////////////////////////// кнопка 1 //////////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 1 
 RunProgram("\soft\sa530\setup.exe") 
 EndIf 
 EndIf 
;////////////////////////////////////////////////////////////// кнопка 2 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 2
 RunProgram("\soft\db2\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 3 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 3
 RunProgram("\soft\VIPserver\setup.msi") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 4 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 4
 RunProgram("\soft\VIPservice\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 5 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 5
 RunProgram("\soft\Office\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 6 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 6
 RunProgram("\soft\dos\setup.exe") 
 EndIf 
 EndIf 
  ;////////////////////////////////////////////////////////////// кнопка 7 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 7
 RunProgram("\soft\total\Totalcmd.exe") 
 EndIf 
 EndIf 
   ;////////////////////////////////////////////////////////////// кнопка 8 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 8
 RunProgram("\soft\Config\") 
 EndIf 
 EndIf 
 
 
    ;////////////////////////////////////////////////////////////// Кряк для оффиса //////////////////
 
 
 If Event=#PB_Event_Gadget
 If EventGadgetID = 9
 MessageRequester("Ключик для Office 2003", "GWH28-DGCMP-P6RC4-6J4MT-3HFDY"+Str(B), 0)
 EndIf
 EndIf
 
   ;////////////////////////////////////////////////////////////// кряк для доспринта //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 10
 RunProgram("\soft\dos\Crack\setup.exe") 
 EndIf 
 EndIf 
 
 
 
 
Until Event = #PB_Event_CloseWindow
0
0 / 0 / 0
Регистрация: 19.10.2012
Сообщений: 29
19.08.2015, 23:46  [ТС]
Pro_grammer, Спасибо огромное, пытался так же сделать картинку на кнопку но не получилось, можешь помочь с этим?
0
Эксперт JSЭксперт HTML/CSS
2436 / 1115 / 312
Регистрация: 23.06.2011
Сообщений: 3,529
20.08.2015, 06:37
Цитата Сообщение от Итачи Посмотреть сообщение
пытался так же сделать картинку на кнопку но не получилось
Есть же гаджет, кнопка с картинкой, картинка должна быть немного меньше размеров задаваемых кнопке, иначе краёв картинки не увидишь.
приер из справочника
PureBasic
1
2
3
4
5
6
7

  If OpenWindow(0, 0, 0, 120, 100, "ButtonImage", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If LoadImage(0, "map.bmp")    ; укажите путь к вашему изображению
      ButtonImageGadget(0, 10, 10, 100, 83, ImageID(0))
    EndIf
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf
А где в форме ответа кнопочка КОД РВ? не вижу я её.
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
20.08.2015, 06:46
Цитата Сообщение от Итачи Посмотреть сообщение
сделать картинку на кнопку
Надо вместо ButtonGadget использовать ButtonImageGadget
Надписи типа "SA 530" придется делать заранее, в графическом редакторе прямо на картинке, у ButtonImageGadget нет поля Text,
Остальное всё так же:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14

 ;{ Included Images
DataSection
  Image_Image_0:
  IncludeBinary "C:\kartina4.jpg" ; Твоя картинка!!!
 Image_ButtonImage_1:
  IncludeBinary "C:\kartina1.jpg"
  Image_ButtonImage_2:
  IncludeBinary "C:\kartina2.jpg"
  ...
EndDataSection
....
ButtonImageGadget(1, 10, 10, 100, 25, CatchImage(1, ?Image_ButtonImage_1))
ButtonImageGadget(2, 10, 40, 100, 25, CatchImage(2, ?Image_ButtonImage_2))
....
0
Эксперт по электронике
6582 / 3209 / 335
Регистрация: 28.10.2011
Сообщений: 12,514
Записей в блоге: 7
20.08.2015, 09:46
Цитата Сообщение от Pro_grammer Посмотреть сообщение
у ButtonImageGadget нет поля Text,
Но текст вывести можно.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12

OpenWindow(0, 0, 0, 200, 200, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateImage(0, 20, 20) And StartDrawing(ImageOutput(0))
  Box(0, 0, 20, 20, RGB(Random(255), Random(255), Random(255)))
  StopDrawing() 
EndIf
 
ButtonImageGadget(0, 10, 10, 100, 83, ImageID(0), #PB_Button_Left)
SetGadgetText(0, "1234")
 
Repeat
  Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 20.08.2015, 09:46
Помогаю со студенческими работами здесь

Полупрозрачный задний фон
С помощью чего это модно сделать максимально рационально? Можно ли использовать filter ?

Задний фон Label
Есть текст в лэйбле. Установил на форму картинку через image. Разместил label на картинке, компилирую, картинка есть а лэйбел пропадает....

Простейший Задний Фон
Всем привет! Помогите плиз сделать задний фон как тут Но только в поле регистрации пользователей!!!! а то вот так получается

Задний фон меню
Тут такое дело, блок меню находится в центральном блоке, его ширина 960px. но фон меню мне нужен на весь браузер то есть не 100% внутри...

Задний фон кнопки
Как изменить задний фон кнопки: <input type="submit" value="Удалить" width="40" height="40" style="s" <?=$flag2 ? 'disabled' :...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru