Программирование
Веб программирование

Задание по Visual Basic

 
 

Ну задание сегодня не такое сложное, а даже легкое. Тебе надо сделать программу, у которой при нажатии на кнопку, был запрос о выходе, если юзер нажимает Да - то Выход, Нет - возврат.

Исходник программы можешь скачать отсюда.

Ну на этом я закончу тебя грузить, можешь переходить следующей части. В ней будем делать приколы (ты с вражеским компом будешь делать все что захочешь (каждые 3 сек открывать CD - ROM, перезагружать, убирать курсор)), создадим меню, получим доступ к клаве...
Если у тебя есть какие - нибуть вопросы, то задавай их на форуме, или пиши в наглую на мыло(лучше оставляй на форуме, я быстрее отвечу, и может еще кто - нибуть ответит).
Мой сайт: http://vbbook.ru/
Мыло: padre03@mail.ru
И если ты зайдешь на мой сайт, не поленись, кликни по банеру, мне за это немного бабла прибавится. И если ты захочешь поддержать Отечественного производителя(т.е. Меня), то кликай по банеру раз в месяц. А если ты очень богатый, то не просто кликни, а еще что - нибуть купи.


Есть вопросы? Спроси на нашем форуме!!
Alex [28.12.2010 11:29]

Ураааааааа!!! 4 часть!!!!!Ё!!!!

Гость [17.03.2011 15:30]

очень лёгкие задания...

Дэн [17.07.2011 18:41]

Классный учебник :) все понятно и просто, автору респект)))

Антон [13.11.2011 22:09]

Заданы стороны квадрата, правильного треугольника и ра-диус круга. Вывести названия тел в порядке возрастания площадей, периметров и их отношения

помогите если ни составит труда

алексей [13.11.2011 22:16]

чем помочь. найти площадь или в порядке возростание вывести название

Светлана [05.12.2011 12:37]

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

KILLO [05.12.2011 14:29]

На каком языке надо?

triimeni [05.12.2011 14:40]

Светлана написать можно но куда? На форуме вопрос задай помогу.

Katya [24.12.2011 14:56]

Помогите плиз!!!
1.В комірці С з 2-14 рядок записані числа.Створити праграму що зменшує числа записані в рядках в 2рази та помістіть результат в комірку D.числа записані в непарних рядах.

2.В комірці А1 розміщене прізвище працівника.в комірці В1 його місячна зарплата.а комірка С2 позначена 'володіє ' якщо він володіє іноземною мовою.і пуста комірка в іншому випадку володіє іноземною мовою становить 85%. Вивести доплату в комірку Е1.

алексей [24.12.2011 15:10]

а по русски можно я плохо хахолский знаю

Каменный остров [24.12.2011 21:35]

Хохлятский тоже самое что и русский, только у них буква i отвечает за любую гласную.
Тоесть если в слове ты не знаешь какую букву ставить, у хохлов принято ставить i. Например,
я не знаю как правильно пишется слово "размещение". Если я хохол я пишу так: рiзмiщiние. И пускай другие сами допирают что я написал

Katya [24.12.2011 23:47]

1.В ячейке С с 2-14 строку записаны числа.Создать праграму что уменьшает числа записаны в строках в 2 раза и поместите результат в ячейку D.числа записаны в нечетных рядах.

2.В ячейке А1 размещено фамилия працивника.в ячейке В1 его месячная зарплата.а ячейка С2 обозначена 'владеет' если он владеет иностранным языком.и пустая ячейка в противном случае владеет иностранным языком составляет 85%. Вывести доплату в ячейку Е1.

Masha [06.01.2012 00:44]

здравствуйте, помогите пожалуйста с задачей.
Создать приложение «Просмотр картинок». Картинки (не менее 10 шт.) имеют имена вида «01.jpg», «02.jpg», «03.jpg» и т.д. и загружаются по очереди из папки, где находится само приложение. На форме предусмотреть кнопки «Вперед», «Назад», «Перейти к первой», «Перейти к последней». Также предусмотреть возможность просмотра картинки по выбранному номеру.

Сложность возникла с двумя кнопками - "вперед" и "назад"

Юра [06.01.2012 12:09]

здравствуйте, помогите пожалуйста с задачей.
Какие объекты размещены на форме?

Юра [06.01.2012 12:46]

Option Explicit

Dim lngBuf As Long

Dim strPath As String

Private Sub cmdBackClick()
On Error GoTo PicErr
lngBuf = lngBuf - (1)
strPath = (App.Path & "\" & lngBuf & ".jpg")
Me.imgPic.Picture = LoadPicture(strPath)
Exit Sub
PicErr:
MsgBox "Êàòðèíîê äëÿ ïðîñìîòðà áîëüøå íåò.", 64, "Info..."
End Sub

Private Sub cmdNext
Click()
On Error GoTo PicErr
lngBuf = lngBuf + (1)
strPath = (App.Path & "\" & lngBuf & ".jpg")
Me.imgPic.Picture = LoadPicture(strPath)
Exit Sub
PicErr:
MsgBox "Êàòðèíîê äëÿ ïðîñìîòðà áîëüøå íåò.", 64, "Info..."
End Sub

Private Sub Form_Load()
lngBuf = (1)
strPath = App.Path & "\" & lngBuf & ".jpg"

With Me
.imgPic.Stretch = (True): .imgPic.Picture = LoadPicture(strPath)
.cmdBack.Caption = ("Íàçàä"): .cmdNext.Caption = ("Âïåð¸ä")
End With
End Sub

алексей [06.01.2012 12:47]

юра,скорее всего picture1,command(1-..),Combo1,CommonDialog1

алексей [06.01.2012 12:50]

а я ща подругому сделаю

Юра [06.01.2012 12:59]

Описания маловато дали по проекту что у неё(го) надо писать точнее.

Юра [06.01.2012 13:06]

Картинки (не менее 10 шт.) имеют имена вида «01.jpg», «02.jpg», «03.jpg» и т.д. и загружаются по очереди из папки, где находится само приложение.

алексей [06.01.2012 14:23]

блиин я уже всё сделал нажимаю кнопку сохранит прога закрылась.
у меня компонент Microsoft Common Dialog Control 6.0 хреновый
надо скачать компонент

Юра [06.01.2012 14:26]

Напиши свой, хоть даже самый простой за то свой.

алексей [06.01.2012 14:34]

юра, ты кому это?

Юра [06.01.2012 14:44]

Тебе!

алексей [06.01.2012 14:52]

я написал у меня проблемы при сохранение
я теперь заного по память пишу
я только не код а исходник выложу в коменты

Юра [06.01.2012 14:58]

Давай сделаем вместе, я тебе помогу.

алексей [06.01.2012 15:21]

я уже сделал
юр,я сделал при загрузки проги выбор формата
юр,напиши все форматы картинок
сюда

Юра [06.01.2012 15:28]

Поясни поточнее!?

алексей [06.01.2012 15:42]

блин напиши мне сюда все форматы картинок
например
jpeg
ну не все а какие знаешь??

алексей [06.01.2012 15:44]

или сделать без выбора
только формат jpeg

Юра [06.01.2012 15:51]

jpg, jpeg, gif, bmp,
Для открытия файла с любым расширением можно так
1.
или с любым именем -> *.jpg
с любым именем и расширением -> *.

алексей [06.01.2012 16:57]

юра, я всё сделал
вот сылка на скачивание исходника

алексей [06.01.2012 17:01]

юра.я забыл кое что записть
напиши
Private Sub Command1Click()
Call ris(min
n, 0): cb1.Text = nomer
End Sub

Private Sub Command2Click()
Call ris(max
n, 0): cb1.Text = nomer
End Sub

Юра [07.01.2012 10:17]

Попозжа как комп включу тогда скачаю.
Я только отхожу от днюхи, у меня пока еще руки трясутся.

Юра [07.01.2012 12:56]

Ну и что тебе надо сделать?

алексей [07.01.2012 16:28]

во всё сделал забыл не которые вещи до писать

а так прога норм??

Юра [07.01.2012 16:40]

Какая именно прога?

Katerina [07.01.2012 20:27]

Здравствуйте, помогите с задачей :
Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы.
(P. S. b так чтобы, человек который не особо разбирается смог понять)

Юра [07.01.2012 20:44]

Private Sub Command1_Click()
Dim strText As String
strText = StrConv(Me.Text1.Text, vbProperCase)
Me.Text1.Text = strText
End Sub

алексей [07.01.2012 20:58]

Katerina, вот
Dim txt As String ' создаём и регистрируем переменную txt ' переменная нужна чтоб text1 не трогать во время чтение
Private Sub Command1_Click() ' начало процедуре при нажати на кнопку
For i = 1 To Len(Text1) Step 1 ' читаем текст
On Error Resume Next ' при чтение первой буквы сдесь ошибка Mid(Text1, i - 1, 1) = " " мы её игнорируем
If Mid(Text1, i - 1, 1) = " " Or i = 1 Then 'если предыдущий знак пробел или мы читаем первую букву текста то
txt = txt & Chr(Asc(Mid(Text1, i, 1)) - 32) 'изменяем первую букву слова с маленькой на большую и добавляем в переменную
Else ' иначе
txt = txt & Mid(Text1, i, 1) ' просто добавляем в переменную
End If ' конец если
Next i 'выход из цикла
Text1 = txt 'после цикла приравневаем переменную к тексту
txt = "" ' чистим переменную ' обезательно после приравневание
End Sub ' конец процедуре


вроде обЪяснил очень хорошо

Katerina [08.01.2012 00:35]

спасибо большое Алексей и Юра...
Юра не могли бы вы мне расписать вашу программу...что обозначает str и почему перед text надо писать Me
и что такое vbProperCase?

Карим [08.01.2012 01:23]

О_о девочки ..
а где же вы были ...
скучно...
вот бы и меня так похвалили ...

Юра [08.01.2012 13:44]

StrConv - Конвертирует строку в формат
vbProperCase - Конвертирует первую букву каждого слова с заглавной буквы

Юра [08.01.2012 13:48]

me - писать не обязательно
str - строковая переменная String сокращенно (str) типа Dim strText As String что бы не путаться в переменных

Юра [08.01.2012 13:51]

Ещё можно знаками
Dim a$, Dim b%, Dim c&
Dim a$ - строковая переменная типа String
Dim b% - Числовая переменная типа Integer
Dim c& - Числовая переменная типа Long

андрей [18.01.2012 20:07]

как написьть корень в квадрате от х в икселе помогите нада решить задачку

triimeni [19.01.2012 08:08]

Андрей если я правильно понял необходим квадратный корень из числа,тогда выделяеш необходимую ячейку жмеш Fx в появившемся окне выбираеш математические, находиш нужное.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.