Форум программистов, компьютерный форум, киберфорум
Pure Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
0 / 0 / 0
Регистрация: 17.08.2020
Сообщений: 21
1

Как вставлять фото в код программы

20.08.2020, 13:41. Показов 3526. Ответов 9

Author24 — интернет-сервис помощи студентам
Здравствуйте,возможно я вас задолбал своими темами,но все же) Сегодня у меня целых 4 вопроса,1 мой вопрос если у меня есть одна папка где лежит моей exe и папка например Photo nomber 1 и там лежит фото которое я хочу вставить в свое окно(в exe)например на задний план,как мне это сделать? 2 вопрос как изменить значок в левом верхнем углу левее значков свернуть и тд. 3 Как мне сделать что бы например у меня есть гаджет кнопка,и в папке с exe есть например папка programs,и там лежит 2 exe и я хочу что бы по нажатию на один гаджет открывался этот exe который лежит в папке. 4 Вопрос,хочу сделать хорошое окно авторизации каким способом,когда открывается exe Там есть полное окно Login: Password: и как я буду изменять логин и пороль,я хочу что бы база бралась от сайта с тексом тоесть,я как-то создам сайт с текстовым документом,и там я буду прописовать так Weyz_Halofite sss444sss 06.08.2020 1 это логин 2 это пороль, 3 это до кого оно действует,и программа будет брать эти данные с сайта и если подписка или пороль логин неправильный то основная программа не открывалась,вы можете написать мне в вк https://vk.com/ogskater возможно я заплочу если вы это сделаете) Ну если вы оооооочень добрый человек то можете сказать как это сделать,спасибо за внимание,удачи всем! Вот кстати код моей программы.
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
OpenWindow(1,400,400,1000,350,"Storm Project",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
 
TextGadget(230, 5, 5, 150, 75, "������������������������������������ ������������������������������������������������")
TextGadget(231, 5, 88, 150, 75, "������������������������������������������������������������")
ButtonGadget(2,5,60,150,25,"Склейщик Asi/Sf Файлов")
ButtonGadget(3,5,30,150,25,"Склейщик Lua Файлов ")
ButtonGadget(4,5,110,150,25,"Декомпилер Lua Файлов")
ButtonGadget(5,5,140,150,25,"Anti Decompiler Lua")
ButtonGadget(6,845,280,150,25,"Авторы")
ButtonGadget(7,845,240,150,25,"Проверка на вирусы")
ButtonGadget(8,845,210,150,25,"Sms Bomber")
ButtonGadget(9,845,180,150,25,"Создать свой стилер")
SetWindowColor(1, RGB(211, 211, 211))
SetGadgetColor(2, #PB_Gadget_TitleBackColor, RGB(10, 230, 120))
SetGadgetColor(230, #PB_Gadget_BackColor, RGB(248, 248, 255))
SetGadgetColor(231, #PB_Gadget_BackColor, RGB(248, 248, 255))
SetGadgetColor(231, #PB_Gadget_FrontColor, RGB(255, 0, 0))
SetGadgetColor(230, #PB_Gadget_FrontColor, RGB(255, 0, 0))
CreateMenu(0, WindowID(1))
MenuTitle("Файл")
MenuItem(0, "Выход")
 
CreateStatusBar(0, WindowID(1))
AddStatusBarField(0)
AddStatusBarField(100)
StatusBarText(0, 1, "Storm Project 1.0")
 
Repeat
  Event=WaitWindowEvent()
  Gadget=EventGadget()
  
  If Event=#PB_Event_Gadget And Gadget=2
    MessageRequester("Storm Project","Данный раздел находится в разработке.")   
    EndIf
    If Event=#PB_Event_Gadget And Gadget=3
    RunProgram("https://luajit.ru/")
    MessageRequester("Storm Project","Вы были перенесены на склейщик Lua файлов.")
    EndIf
      If Event=#PB_Event_Gadget And Gadget=4
    RunProgram("https://luajit.ru/conv?/")
    MessageRequester("Storm Project","Вы были перенесены на Декомпилятор Lua Файлов.")   
    EndIf
    If Event=#PB_Event_Gadget And Gadget=5
      MessageRequester("Storm Project","Данный раздел находится в разработке.")
    EndIf
    If Event=#PB_Event_Gadget And Gadget=6
      MessageRequester("Авторы","Авторы: Weyz VK - https://vk.com/ogskater                                                  Murzik VK - https://vk.com/murzik_gandon_pidoras.                          Sweezy VK - https://vk.com/oglook00.")
      EndIf
      If Event=#PB_Event_Gadget And Gadget=7
        RunProgram("https://www.virustotal.com/gui/home/upload")
        MessageRequester("Storm Project","Вы были перенесены на сайт для проверки на вирусы.(Virus Total)")
              EndIf
      If Event=#PB_Event_Gadget And Gadget=8
        RunProgram("https://smsbomber.online/unlimited-bomber.php")
        MessageRequester("Storm Project","Вы были перенесены на сайт Sms Bomber введите номер жертвы и нажмите Bomb.")
                      EndIf
      If Event=#PB_Event_Gadget And Gadget=9
        RunProgram("http://free-steal.ru/auth/")
      MessageRequester("Storm Project","Вы были перенесены на сайт для создание своего стилеря,или же управление им.")
 
  ElseIf Event=#PB_Event_Menu
    Select EventMenu()
      Case 0
        Break
    EndSelect
  EndIf 
Until Event = #PB_Event_CloseWindow 
End
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.08.2020, 13:41
Ответы с готовыми решениями:

Как вставлять фото в phpmyadmin?
Пожалуйста, подскажите, как вставлять фото в phpmyadmin. если можно пошагово. Заранее большое...

Как вставлять код в тему?
Простите пожалуйста за тупой вопрос, но я не могу понять, как вставлять код в тему, не картинкой?..

Как вставлять музыку в программы на Delphi?
научите плиз как вставлять музыку в программы delphi . зарание спасибо

Напишите пожалуйста код программы по фото заданию!
П.5.18.Правил Запрещено размещать задания и решения в виде картинок и других файлов с их текстом....

9
 Аватар для Pro_grammer
6807 / 2837 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
20.08.2020, 14:21 2
Лучший ответ Сообщение было отмечено Weyz как решение

Решение

Правила соблюдаем!
п 4.4 На каждый вопрос создавайте по одной теме - это помогает избежать путаницы в ответах и облегчает поиск.

Ответ на вопрос темы такой

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
UseJPEGImageDecoder()
LoadImage(0, "C:\ВАШ ПУТЬ К Изображению.jpg")
OpenWindow(0, 50, 50, 500, 300, "TEST", #PB_Window_MaximizeGadget)
ButtonGadget(0,50,50,100,20,"Butt")
   hdc = GetDC_(WindowID(0))
   memDC = CreateCompatibleDC_(hdc)
   SelectObject_(memDC, ImageID(0))
   SetStretchBltMode_(hdc, #STRETCH_HALFTONE)
   StretchBlt_(hdc, 0, 0, 500, 300, memDC, 0, 0, ImageWidth(0), ImageHeight(0), #SRCCOPY)
   DeleteDC_(memDC)
 
While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend
0
0 / 0 / 0
Регистрация: 17.08.2020
Сообщений: 21
20.08.2020, 14:50  [ТС] 3
GetDc_() is not a function,array,lits.map or macro Что за ошибка встовляю такой код
PureBasic
1
2
3
4
5
6
7
8
9
10
11
        
        UseJPEGImageDecoder()
LoadImage(0, "C:\Users\Busted Stepan\Desktop\Storm Project\Photo 1/Fak.jpg")
OpenWindow(0, 50, 50, 500, 300, "TEST", #PB_Window_MaximizeGadget)
ButtonGadget(0,50,50,100,20,"Butt")
   hdc = GetDC_(WindowID(0))
   memDC = CreateCompatibleDC_(hdc)
   SelectObject_(memDC, ImageID(0))
   SetStretchBltMode_(hdc, #STRETCH_HALFTONE)
   StretchBlt_(hdc, 0, 0, 500, 300, memDC, 0, 0, ImageWidth(0), ImageHeight(0), #SRCCOPY)
   DeleteDC_(memDC)
0
Эксперт по электронике
5995 / 2711 / 285
Регистрация: 28.10.2011
Сообщений: 10,272
Записей в блоге: 6
20.08.2020, 15:13 4
Цитата Сообщение от Weyz Посмотреть сообщение
как изменить значок в левом верхнем углу
В IDE меню Компилятор -> Настройки компилятора. Там есть возможность задать значок приложения. Он же будет и у окна.

Цитата Сообщение от Weyz Посмотреть сообщение
папка например Photo nomber 1 и там лежит фото которое я хочу вставить в свое окно(в exe)например на задний план,как мне это сделать?
PureBasic
1
2
3
4
5
6
7
UseJPEGImageDecoder()
LoadImage(0, "C:\ВАШ ПУТЬ К Изображению.jpg")
OpenWindow(0, 50, 50, 500, 300, "TEST", #PB_Window_MaximizeGadget)
ImageGadget(0, 0, 0, 0, 0, ImageID(0))
DisableGadget(0 , 1)
 
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
Или
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
UseJPEGImageDecoder()
CatchImage(0, ?img, ?End_img-?img)
OpenWindow(0, 50, 50, 500, 300, "TEST", #PB_Window_MaximizeGadget)
ImageGadget(0, 0, 0, 0, 0, ImageID(0))
DisableGadget(0, 1)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
 
DataSection
  img:
  IncludeBinary "C:\ВАШ ПУТЬ К Изображению.jpg"
  End_img:
EndDataSection
0
 Аватар для Pro_grammer
6807 / 2837 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
20.08.2020, 16:15 5
Цитата Сообщение от Weyz Посмотреть сообщение
Что за ошибка
А что за PureBasic? Или Demo версия?
0
0 / 0 / 0
Регистрация: 17.08.2020
Сообщений: 21
20.08.2020, 16:36  [ТС] 6
Pure Bssic 5.72 x86
0
 Аватар для Pro_grammer
6807 / 2837 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
20.08.2020, 17:02 7
Цитата Сообщение от Weyz Посмотреть сообщение
Pure Bssic 5.72 x86
Вероятно демо версия, насколько мне известно, в сети нет такой полной версии 5.72.
А что купили полную, сомнительно, судя по уровню владения Пуриком
Тогда код locm реально ваш вариант!
Потому, что в демо отключены прямые вызовы API функций, можно только через подключение dll.
0
0 / 0 / 0
Регистрация: 17.08.2020
Сообщений: 21
20.08.2020, 19:16  [ТС] 8
Спасибо вам, вы очень помогаете,а как вы думаете что я описал с входом в программу такое же возможно? И за сколько бы вы это могли сделать если вам не сложно? Или так же просто другим путем.

Добавлено через 2 часа 0 минут
Спасибо вам, вы очень помогаете,а как вы думаете что я описал с входом в программу такое же возможно? И за сколько бы вы это могли сделать если вам не сложно? Или так же просто другим путем.
0
 Аватар для Pro_grammer
6807 / 2837 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
20.08.2020, 19:49 9
Цитата Сообщение от Weyz Посмотреть сообщение
что я описал с входом в программу такое же возможно?
Да, возможно. Но есть нюансы.
0
0 / 0 / 0
Регистрация: 17.08.2020
Сообщений: 21
20.08.2020, 19:51  [ТС] 10
А можно узнать какие и за сколько вы бы сделали это?)
0
20.08.2020, 19:51
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.08.2020, 19:51
Помогаю со студенческими работами здесь

Не знаю куда вставлять провода в материнку. Фото внутри
Компьютер даже не включается.

Можно ли код, написанный на asp вставлять в aspx и как?
Скажите кто - нибудь. Можно ли код, написанный на asp вставлять в aspx и как.

Как вставлять различные символы в текст программы, для вывода на экран?
Те символы которые набираются с помощью Alt

Как в tpl файлы вставлять php код или просто файл
Всем привет работаю с сайтом попросили прикрутить к нему голосование я написал голосование на php а...

Пофиксить код как на фото
<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <link...

Куда вставлять код?
Вот мне скинули код, а куда его вставлять надо? function perim(a,b,h: integer): real; var p:...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Элементы алгоритмизации
hw_wired 28.01.2025
Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .
Человек и информация
hw_wired 28.01.2025
Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .
Компьютер и информация
hw_wired 28.01.2025
Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .
Информационные технологии
hw_wired 28.01.2025
Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .
Информация вокруг нас
hw_wired 28.01.2025
Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .
Компьютер для начинающих
hw_wired 28.01.2025
Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array
alhaos 28.01.2025
Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .
КуМир: решение задач на матрицы
bytestream 28.01.2025
КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .
КуМир: решение задач на строки
bytestream 28.01.2025
В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .
КуМир: решение геометрических задач
bytestream 28.01.2025
Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .
КуМир, исполнитель Водолей: Задачи и решения
bytestream 28.01.2025
КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .
КуМир, исполнитель Чертежник: Решение задач
bytestream 28.01.2025
КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru