Застой

[Saturn.65]

Что-то я топчусь на месте в изучении VB. Написал пару-тройку программ. И то одна с математическим уклоном, для бухгалтерии. Чтоб такого придумать, чтоб развитие шло дальше, начали бы появлятся вопросы. Я бы начал спрашивать.

[StimorolD3DX]

Сделай игру

[Nazarey]

Создай топ:Напишу программу под ваши нужды(БЕСПЛАТНО)-будут просьбы,глядиш и мысли в голову полезут

[Watts[]n!]

Nazarej
Особенно это актуально во время сессии, то есть сейчас

[Matew]

[offtop]Nazarej, я один читаю твой ник, как "На, зарежь"? [/offtop]

[Saturn.65]

Создай топ:Напишу программу под ваши нужды(БЕСПЛАТНО)-будут просьбы,глядиш и мысли в голову полезут

Интересно, какая программа может быть под личные нужды?
Хотелось бы пример.

[Twister]

Saturn.65
Начни ковырять систему - там всегда есть что поизучать, поисследовать...

[Денис]

Saturn.65
напиши, пожалуйста, контрол, наподобие стандартного Line, но который был бы сглаженным при угловых положениях. Еще было бы неплохо, чтобы получаемая линия была заданной толщины.

[Хакер]

Это не контрол, это алгоритм Ксиаолина Ву. Давайте не будем писать контроллов, которые находят число Pi и тому подобное.

[Watts[]n!]

Интересно, какая программа может быть под личные нужды?
Хотелось бы пример.

Например, мне нужно было создать в Html таблицу со ссылками на файлы, и их (файлов) свойствами (формат, размер и др.)
Написал несложную программу, которая генерирует кусок Html-кода таблицы, используя введенные в TextBox'ы значения.

[Saturn.65]

Saturn.65
Начни ковырять систему - там всегда есть что поизучать, поисследовать...

Было время, я в день не по разу Винду переустанавливал. Славное времечко. Сейчас я нашел путь, как ничего не ломать и эксперементировать. Видать остепенился.

[Lumen]

Saturn.65
Следующий этап должен быть - экпериментировать, но не ломать
В плане того, что если к экспериментам подходить с головой, то ломаться ничего не будет...

[Nazarey]

Создай топ:Напишу программу под ваши нужды(БЕСПЛАТНО)-будут просьбы,глядиш и мысли в голову полезут

Интересно, какая программа может быть под личные нужды?
Хотелось бы пример.

Пример -пусть это будет например программа которая удаляет временные файлы с компьютера,куки,истории посещения сайтов,а не одну папку Темп на диске С. (Действительно удаляла,чтоб не нужно было после неё лезть и вручную чистить папки)Пример-программа Clean Disk Security.

[Saturn.65]

Пример -пусть это будет например программа которая удаляет временные файлы с компьютера,куки,истории посещения сайтов,а не одну папку Темп на диске С. (Действительно удаляла,чтоб не нужно было после неё лезть и вручную чистить папки)Пример-программа Clean Disk Security.

Идея была. Вывел эти файлы в Listbox. A как методом перебора их оттуда удалить не знаю. По одному удаляет с помощью Kill при клике мышкой. А всю группу... . И что интересно скрытые файлы не хочет удалять. Еще бы реестр чистить научиться. Всякие битые ссылки, ненужные ключи.
Написал было твикер. Настройка реестра и служб винды одной кнопкой. В зависимости от конфигурации компа(с интернетом или без).
А то винду поставишь, а еще неделю галочки в настройках ставишь. Не удобно. Стоит ли его в наши проекты отправить, даже не знаю.

[Nazarey]

Конечно стоит!А на форуме всегда найдутся люди которые дадут совет и подскажут как и что лучше сделать

[Saturn.65]

Конечно стоит!А на форуме всегда найдутся люди которые дадут совет и подскажут как и что лучше сделать

Тогда выложу. Правда за код будет стыдно. Хотя его не сегодня писал. Сейчас другими глазами уже смотрю на некоторые детали. Можно было бы что-то иначе и проще сделать...

[Lumen]

Конечно выкладывай.
Всю группу файлов можно в цикле удалить.
Типа

Код: Выделить всё

For i = 0 to List1.ListCount
   Kill List1.List(i)
next


[Nazarey]

[offtop]Nazarej, я один читаю твой ник, как "На, зарежь"? [/offtop]

Иной,говоря бездумно,ранит,как мечом,а язык мудрых исцеляет.(Притчи 12:18)
Язык мудрых пользуется знанием на добро,а уста глупых источают глупость.(Притчи 15:2)
Уста мудрых распространяют знание,сердце же глупых не такое.(Притчи 15:7)
Не ссорься с человеком напрасно-если он не сделал тебе зла.(Притчи 3:30)
Я думаю этого будет достаточно.

[Saturn.65]

Тоже что-то помню. И фильм понравился.
...никогда не садитесь на первые места, ибо могут придти лучше вас
и тогда вас попросят сесть назад. Каково вам будет?

Не совсем точно, но как-то так.

[Watts[]n!]

Saturn.65

Результатом творческих исканий стал твикер в проектах?

[Lumen]

Судя по этому сообщению этот проект является довольно старым.

[Saturn.65]

Saturn.65

Результатом творческих исканий стал твикер в проектах?

Не совсем. Я его давненько начал писать и потом забросил.
Просто сейчас выложил. Хотя сейчас, при нынешних компах отключать некоторые службы для увеличения быстродействия наверное не актуально. Но пишут же люди. Больше мне и похвастать то будет нечем.
Может что еще придумаю. Правда пока идей нет.

[Nazarey]

Тоже что-то помню. И фильм понравился.
...никогда не садитесь на первые места, ибо могут придти лучше вас
и тогда вас попросят сесть назад. Каково вам будет?

Не совсем точно, но как-то так.

«Когда будешь приглашён кем-нибудь на свадебный пир, не стремись возлечь на самое почётное место. Может быть, в это же время им приглашён кто-то более знатный, чем ты, и пригласивший тебя и его подойдёт и скажет тебе: „Уступи это место ему“. И тогда пойдёшь со стыдом занимать самое низкое место. Но когда будешь приглашён, иди, возляг на самое низкое место, чтобы пригласивший тебя, подойдя, сказал тебе: „Друг, пересядь выше“. Тогда будет тебе оказана честь перед всеми гостями, пришедшими с тобой. Ибо всякий возвышающий себя будет смирён, а смиряющий себя будет возвышен».
Луки 14:8-11

[Saturn.65]

«Когда будешь приглашён кем-нибудь на свадебный пир...

Точно это. Смысл помню, но дословно подзабыл.
Lumen
Несколько месяцев назад начал писать. Просто тут со службами заморочился. Хотелось отключить все не нужные. А кто их толком знает, какие нужны, а какие нет. Да так и забросил. Отключи к примеру Запуск серверных процессов DCOM и VB работать не будет.
Просто иной раз кому винду ставишь, надо кучу стандартных настроек делать(скорость мышки добавить, и т.п.). А тут все под рукой.

[Watts[]n!]

Saturn.65

А у меня после отключения некоторых сервисов Windows, наоборот, еще медленнее загружался и работал вообще. Наверное, что-то не то отключил

[Saturn.65]

Watts[]n!
Я отключал раньше заведомо ненужные сервисы, в которых был уверен. Когда инета небыло, я почти все поотключал. Правда автозагрузку я контролирую строго. Ничего лишнего. И касперского в очередь поставил. Пусть через 20 сек. загружается. А то Nero поставишь, смотришь, он уже в автозагрузку кучу своих модулей прописал. И так с многими программами.

[Денис]

Хакер, спасибо за ссылку

Если кому интересно, то вот работающий код:
http://alglib.sources.ru/graphics/wuline.php

Там остается только добавить собственный SetPixel. Вот мой вариант (API (SetPixel из GDI32) я не понял)

Код: Выделить всё

Sub SetPixel(ByVal X As Long, _
  ByVal y As Long, ByVal Alpha As Double)

Dim A1 As Double

A1 = 255 - Int(Alpha * 255)

Form1.PSet (X, y), RGB((A1), (A1), (A1))

End Sub

[Saturn.65]

Хочу научиться подключать модуль к проекту. Собственно подключать в слепую я умею. Add модуль и вставить туда нужный код. Я хочу сам разобраться, как из формы к нему обращаться.
Огромные познания о модуле я подчерпнул из Полного справочного руководства, специального издания использование VB6. Авторов книги Брыйана Сайлера и Джефа Споттса. Что там написано о модуле.
Модуль применяется для кода, который часто используется. И чтоб его постоянно не писать, все это пишется в модуль. Этот модуль можно применять с разными программами. Например печать отчета и т.д.
Это все, что говорится о модуле.
Может кто-нибудь накидает простейший пример обращения к модулю?
Например, на форме кнопка, а в модуле код MsgBox "AAA". Как мне вызвать этот MsgBox из формы? Тут, надеюсь, я разберусь. Будет проще и с более сложным.
Спрашиваю элементарное. Что поделаешь? Хочется знать.

[Lumen]

Там ничего сложного. Пишешь в модуле свою процедуру или функцию так же как и в коде формы, тока объявляешь её как Public, чтобы она была видна "отовсюду" (из модулей всех форм и др. модулей) или Private, если хочешь, чтобы вызывать эту функцию можно было только из этого же модуля.
Например

Код: Выделить всё

Public sub ShowMessasge(sText as string)
   Msgbox stext, vbOkOnly
end sub

Такой код, если разместить в модуле, то его можно вызвать из формы написав ShowMessage "Happy New Year", в то время как если в модуле Public изменить на Private, то ShowMessage можно будет вызывать только из модуля. А в форме вылезет ошибка.

[Debugger]

Попробуй закончить старые, недоделанные проекты.