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

Первая программа на VB

 
 

Сегодня мы создадим свой первый проект на VB, как я уже говорил, что мы не будем учить тупые определения, а сразу начнем создавать программу. Что нам для этого нужно? Нам нужен редактор по VB5, и выше (если у тебя VB4, то может тоже сойдет, но я рекомендую перейти на VB6, т. к у меня был VB5, и мне уже в последнее время стало стыдно появляться на форумах, чатах и конференциях, если я там скажу, что у меня VB5, то меня от туда сразу выкинут и еще обосрут...). Если у тебя нет редактора, то можешь его скачать в разделе "Скачать Visual Basic", или тебе надо изучать WEB языки(HTML, JavaScript, VBScript, JScript...), в них место редактора можно использовать блокнот. Итак, входим в редактор VB.

Нажимаем на Standart EXE, и перед тобой открывается новый мир, мир чудес и волшебства, ой я походу дела задумался, перед тобой открывается не новый мир, а редактор VB.

В нем мы видим с боку панель инструментов, форму... Теперь остановимся на этом месте.

Панель инструментов. Она располагается в левой части окна, в нее входит: Label(метка), CommandButton(командная кнопка), TextBox(текстовое поле), Timer(таймер), и др.

Свойства объекта.
Окно содержит список объектов и список свойств относящихся к выбранному объекту (форме, кнопке...) Сейчас я не буду о нем вам говорить, а скажу позже.
Программный код.
Это окно нужно для написания кода

Расположение формы.

Это окно показывает где будет располагаться форма


Создание программы

После ознакомительной части начнем делать свою первую программу. Для этого входим в редактор, нажимаем Standart EXE. На форме ставим кнопку(CommandButton), и метку(Label). Выделите метку, и в окне свойство объекта, в поле Caption введите: "Моя первая программа". Текст метки должен измениться. Кликаем по полю Font 2 раза. Открывается окно, в нем мы выбираем размер шрифта(12),и ставим полужирный. Теперь переходим к программной части программы. Кликаем два раза на кнопку, и появляется окно с кодом

Вписываем туда этот код: label1.caption="Теперь я программер", поясню позже что это означает.


Как я и обещал, теперь я буду объяснять что означает Label1.caption = "Теперь я программер":
Label1-это имя объекта (метка)
Caption-надпись, у текстового поля место Caption - TEXT.
Короче надо указать обьект.свойство = значение_свойства
У нашей программы при нажатии на кнопку, у метки будет меняться текст
Мы вроде все сделали, но у тебя возникает вопрос: "как превратить ее в EXE файл" отвечаю: "Тебе надо ее откомпилировать, для этого войди в файл, и кликни Make Project1.exe,выбери папку, в которую тебе ее надо откомпилировать, и все, теперь беги на улицу, и говори всем что ты программер, но смотри чтоб тебя в психушку не забрали. Ну вроде и все, исходник этой программы можешь скачать отсюда


Есть вопросы? Спроси на нашем форуме!!
Mapc [13.10.2010 23:28]

Цитата: "...Нам нужен редактор по VB5, и выше..."
как знать какой у меня VB ?
Нажатие каких кнопок приведет к появлению первой картинки ?

Алуксандр [29.12.2010 10:42]

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

Александр [02.01.2011 07:32]

Совет: Нужно было сначала показать описание человеку незнакомому с языком. Очень сложно понять даже само введение и описание окон, как их открывать. Жаль тратить много времени на расшифровку простейших вещей. Видимо, такие уроки желательно, чтобы писал не программист( похоже, что писал не профессионал), а профессионал(преподователь)

123 [24.03.2011 18:36]

Александр,вообще то существует 2 типа самоучителей (ну или таких вот уроков),1-для чайников,2-для более опытных пользователей.Делайте выводы.По мне,так здесь все разжевано и преподнесено на хрустальном блюдце.

Павел [27.03.2011 11:07]

А почему в учебнике картинки не отображаются?
Даже свериться не с чем.

Segoon [01.04.2011 18:53]

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

Егор [10.05.2011 22:18]

Если естно то этот урок просто фигня полная ,я изучаю vb6 певый год и я решил скачать себе книгу ,но то что он здесь описывает это фигня !!!

ferd [12.05.2011 14:16]

У автора есть чувство умора. :)

by.vania [05.06.2011 19:02]

понравилось

Black_Bass [14.06.2011 10:09]

Это очень просто, можно было бы и как-нибудь усложнить для продвинутых

random() [21.07.2011 19:45]

Black_Bass,это первый урок,если ты продвинут в бесике,или знаешь др.языки - пожалуйста,шагай вперед...

Гость [29.07.2011 11:32]

Чтобы не тратить время на списывание кода копируй его из учебника в бэйсик. Если на экране нет формы(например когда открыл исходник) нужно в окне обозреватель проэкта открыть форму. Вверху экрана в меню вид(view) выводим: форму,окно свойств,обозреватель проэкта(project explorer) и остальное. Когда на форме много объектов(кнопки, лэйблы и др.) то у каждого объекта своё окно свойств и своё окно кода.

Kyma [08.09.2011 14:26]

блин люблю трудности !! но не такая !!!

Владимир [20.10.2011 17:07]

"caption" не является членом "System.Windows.Forms.Label".
ошибка на этапе компиляции

Seavulf [12.11.2011 16:23]

У меня было то же самое, попробуй вместо caption ввести Text, у меня пошло!

алексей [12.11.2011 16:41]

label1.caption - это на языке vb5-vb6 , а label1.text - это на языках vb8-vb10

алексей [12.11.2011 16:45]

для чайников (не далёких програмистов) язык програмирование лучше не изучать, а для професиональных програмистов начать примерно с 150 урока и ещё сами добавляйте свои статьи для других читателей!!!!!!

для чайников максимум можно изучать "Учебник про програмирование на visual basick 6 Для Чайников" !!!! [12.11.2011 16:47]
Карим [16.11.2011 02:00]

везде начинают с хеллоу ворлд !

Älekßändr [17.11.2011 13:50]

А чё, нитак чтоли? Чё плохого? Ведь так и надо делать!

Гость [29.11.2011 12:31]

Круто

Андрей [29.11.2011 12:31]

КРУТО!!!

Дима [29.11.2011 12:33]

понятно !!!

Гуля М. [29.11.2011 12:35]

Супер

Андрей [29.11.2011 12:36]

Дима, Чё понятно?

Д [29.11.2011 12:36]

конечно, я прям все понял

алех [30.12.2011 20:35]

как перевести в ехе файл

алексей [30.12.2011 22:29]

если vb5 то не как
а если vb6 файл => создать "Проект.ехе"

Гость [15.02.2012 20:18]

Здесь не все уроки(((

Padre [15.02.2012 22:20]

Все ))

Макс [19.02.2012 12:42]

Добрый день! Кто может ответить на вопрос, пожалуйста, суть вопроса такова: Как в visual basic поменять в четырёхзначном числе разряд сотен и единиц в одном текст. поле?

Гость [21.02.2012 13:33]

КЛАСС

МЕРЛИН [21.02.2012 13:33]

ЗДОРОВО

Виктория [21.02.2012 13:34]

пиконя

смурфетта [21.02.2012 13:46]

ааееее!!

FireDay [21.02.2012 14:11]

"Добрый день! Кто может ответить на вопрос, пожалуйста, суть вопроса такова: Как в visual basic поменять в четырёхзначном числе разряд сотен и единиц в одном текст. поле?"
Тебе нужно воспользоваться вырезанием текста из строки.
На форму кнопку и текст бокс

Private Sub FormLoad()
Text1.Text = "1234"
End Sub

Private Sub Command1
Click()
Dim a(3) As String
a(0) = Mid(Text1.Text, 1, 1)
a(1) = Mid(Text1.Text, 2, 1)
a(2) = Mid(Text1.Text, 3, 1)
a(3) = Mid(Text1.Text, 4, 1)
Text1.Text = a(0) & a(3) & a(2) & a(1)
End Sub

Константин Болховских [23.02.2012 17:36]

Здесь массив, и литерная функция, а для того чтоб считать, нужно к Integer каждый a - элемент массива, ведь так?

Константин Болховских [23.02.2012 17:44]

Можно было сразу менять "лету" при потере фокуса в поле, например, только при записи фокус заново установить нужно, спасибо за код!

алексей [24.02.2012 13:09]

женёк а не легче так

Private Sub FormLoad()
Text1.Text = "1234"
End Sub

Private Sub Command1
Click()
Dim a(3) As String
for i=0 to 3 step 1
a(i) = Mid(Text1.Text, i, 1)
next i
randomize
for rnd1=0 to 3 step 1
Text1.Text = Text1.Text & a(rnd*3)
next rnd1
End Sub

женек [24.02.2012 18:06]

Да действительно легче
нада сказать админу чтобы переделал первый урок на твой

Release [24.02.2012 22:31]

А вот это ты к чему написал? Private Sub Command1_Click()
Dim a(3) As String
for i=0 to 3 step 1
a(i) = Mid(Text1.Text, i, 1)
next i
randomize
for rnd1=0 to 3 step 1
Text1.Text = Text1.Text & a(rnd*3)
next rnd1
End Sub

алексей [24.02.2012 23:59]

а что скажешь первый вариант лучше??

Release [25.02.2012 07:25]

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

алексей [25.02.2012 12:30]

ясно. ну просто решил помочь

Release [25.02.2012 12:47]

Да нет)) Твой метод легче, но все равно урок не нужно менять.

Шрек [18.03.2012 14:37]

Понравилось. Доступно для понимания.

Gray Bell [10.04.2012 20:33]

ну написано для тех кто хоть немного, но знаком)
а вообще понадобилось ибо нужно было по инфе представить такой урок(самим сделать), а я не помню ничего с прошлого года :D
спасибо :3

NataliyR [31.07.2012 15:25]

Приветствую, всех.
При прочтении этого учебника, у меня складывается двойственное ощущение. Такое чувство, что учебник написан человеком, который сам учился программированию на таком вот учебнике/учебниках. Нет это вовсе не плохо, а наоборот даже приветствуется. То, что люди читают, повторяют и переделывают учебники это хорошо конечно, хоть какой-то опыт или представление о программировании можно получить новичку.
Второе чувство у меня очень отрицательное. Настоящий программист никогда не позволит себе высказываться в своих трудах матюшками. Комплексовать или бояться того что его осудят, или оскорбят за то что на его компьютере стоит старая версия среды разработки! Что за бред вообще! Настоящий программист любит свою работу, ценит свое время и силы, и никогда не станет тратить время на написание вот таких вот уроков, где даже сам не может дать толкового объяснения тому какой код прописал. Двух слов связать не может в разъяснениях. Для чего это делать? Я не понимаю. Не проще ли воспользоваться справочником для объяснения или какой-либо книгой?
Я не знаю какую пользу здесь можно подчерпнуть, уверена куча ошибок в коде и описании материала. Так что мой совет каждому кто это читает, дочитать до конца, но вместе с тем взять в руки хорошую умную книжку с определениями и всем прочим, написанную профессионалами и знающими людьми, чтобы стать профессионалом!

Edward [31.07.2012 15:47]

NataliyR,ну чтоб стать профессионалом надо начинать с таких простых задач , или прав-до купить книгу!

NataliyR [02.08.2012 13:24]

Edward, книгой пользоваться надо однозначно. Учиться программированию методом тыка не есть хорошо:-)

NataliyR [02.08.2012 13:58]

Ну о чем я и говорила! Ошибки не только в описании уроков (в текстах урока), но и в исходниках к ним. Третий урок - ужас!!!

Padre [02.08.2012 14:39]

NataliyR, есть 2 типа людей, одни что-то делают, чтобы помочь другим, а другие ни чего не делают, и только обсерают тех, кто хоть что-то делает.
Ты второй тип

Padre [02.08.2012 14:41]

Можешь сама написать статью, урок, учебник, а нет, ты будешь только тратить кучу времени на то, чтобы написать коммент на 2 листа, обсерающий авторов учебника.

Padre [02.08.2012 14:53]

Ааа, и твой совет бестолковый.

Я советую всем читать статьи в интернете, потому что "хорошую умную книжку с определениями" пишут в основном дилетанты, а в интернете ведут множество интересных блогов "профессионалы". И в хороших умных книжках 80% это вода, на которую тратиться время и засерается мозг.

Кулхацкер [02.08.2012 16:02]

NataliyR, ваши знания русского языка, да в нужное русло бы... напишите парочку уроков. А насчет матюков - так это все себе позволяют иногда.

Кулхацкер [02.08.2012 16:31]

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

Edward [02.08.2012 16:36]

Padre,не ошибайся есть книги написсаные профессионалами 80-90 годов вот это я называю книгами))) блин что-то мне понравился c++6)))

Edward [02.08.2012 16:37]

И ещё не на всех блогах пишут на супер))

Padre [02.08.2012 18:32]

Учебник кстати я писал когда был в 8 классе, 2002 год помойму..

Edward [02.08.2012 18:48]

Круто))

Edward [02.08.2012 18:49]

Padre у тебя в vc++ есть глюки при открытий проекта через vc++?

Padre [02.08.2012 19:01]

У меня vc++ нету, я на нем не программирую )

Edward [02.08.2012 20:13]

бЛИН)

Alex_шестисотый [16.12.2012 15:13]

Учебник то, что надо!

Guf [16.12.2012 16:47]

Если бы в университетах преподаватели объясняли так же доступно, как на этом сайте,то многие студенты наверняка стали бы профессорами )))

Kitcat [16.12.2012 17:42]

Ага,Прфессорами XD

Samou4120 [04.03.2013 20:02]

Помнится программировал в Basic еще на кворуме
затем в Q-Basic на 486ом
так вот VB6 намного удобнее! =D

Ivan40 [15.07.2013 09:09]

Можно также написать простую базу данных с номерами телефонов, ICQ, адресами, ФИО. Для этого открываем форму Standart.exe и делаем на ней 3 текстовых окна. Под ними делаем кнопки CommandButton (будет значиться первая кнопка как Command1). Каждую кнопку подписываем в свойствах Caption=Иванов Иван Иванович. Далее к каждой кнопке код:

Private Sub Command1_Click()
Text1.Text="275-54-31" 'номер телефона
Text2.Text="360666666" 'номер аськи
Text3.Text="г. Санкт-Петербург, ул. Адмиралтейская, д.2" 'адрес
End Sub

Это я привёл в качестве примера. Если каких-то контактных данных просто нет, то делаете пустое текстовое окно с отсутствующими контактными данными. Где нет у человека аськи, пишете код:

Text2.Text="" 'аськи нет

И так далее с каждой кнопкой. Если будут вопросы, пишите сюда в комментарии.

ForsMajor10 [21.05.2014 15:51]

Добрый вечер! Подскажите, пожалуйста, каким образом нужно писать буквы и цифры в lable, чтобы показывало верхние и нижние индексы, ну допустим степень? Спасибо!

pjp07190 [22.05.2014 14:42]

Действительно в VB6 не вставляет надстрочные символы. Вместо них вставляется "?". В VB.NET этой проблемы нет все вставляется как надо.

ForsMajor10 [21.06.2014 01:41]

Весь сайт и форум облазил, так и не смог решить проблему(
- данные ввожу через val(text1.text), внутри одного саба(ну при нажатии кнопки), ВБ адекватно все считывает и выдает ответ.
Но в программе нужно было по мере расчета вводить еще некоторые данные, которые зависят от данных, рассчитываемых в программе, и соответственно добавляются еще кнопки, в зависимости от нажатия кнопки, расчеты идут по разным формулам, но тут уже все данные, которые вводились в первом сабе в val(text1.text),
не считываются,равны нулю. Как все это исправить? Спасибо большое!

Stertor370 [21.06.2014 16:44]

Ни х.. не понял, что ты хочешь сделать.
Могу по teamviewer помочь. Пиши: stertor@inbox.ru

AK-LorD [08.10.2014 19:29]

Не нажимается Make Project1.exe. Не могу скомпилировать. В чём дело?

Stertor370 [08.10.2014 19:31]

Хз, телепатов тут нет. Попробуй обратиться к Кашпировскому.

serega110 [14.10.2014 17:06]

AK-LorD, просто версия VB у тебя не та.



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




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