Доброго времени суток всем!
Сейчас Я расскажу тебе о таком языке программирования как Visual Basic. Вот увидишь что писать на нем приложения под ВыньДос очень и очень легко. Особенно это полезно когда сдавать надо уже завтра, а возиться сильно не очень то и хочется)))), еще на это языке можно написать много прикольных вещей, но это будет дальше, а пока основы. Вдаваться в историю языка и во все подробности сразу не будем, походу дела сам все поймешь…
Как и всегда писать будем для двух вариантов это Visual Basic 6.0 и для Visual Basic 2008 Express Edetion.
И так преступим:
Урок первый:
Итак ты наверно уже скачал и установил дистрибутив, а еще нет… тогда быстрей.
Вот после легких манипуляций у тебя на ПК стоит Visual Basic.
Вот так выглядит Visual Basic 6.0
Вот так выглядит Visual Basic 2008
Теперь можно приступать.
Запускаем. И тут первый диалог нам предлагают выбрать тип проекта (это для VB6.0), выбираем “Standard EXE”. А вот для VB 2008 надо лезть в меню File -> New Project -> и выбираем Windows Form Application
Приступим… сейчас мы напишем твою первую программу на Visual Basic.
Нам понадобиться:
1) Label – 1 шт.
2) CommandButton – 2 шт. (для VB 2008 просто Button)
Рисуем на форме 2 кнопки и 1 надпись (Label)
Листинг для VB 6.0:
Код:
Private Sub Form_Load()
Label1.Caption = ""
Command1.Caption = "Close"
Command2.Caption = нажми сюда!!!"
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Label1.Caption = "Моя первая прога!"
End Sub
Label1.Caption = ""
Command1.Caption = "Close"
Command2.Caption = нажми сюда!!!"
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Label1.Caption = "Моя первая прога!"
End Sub
Листинг для VBE 2008
Код:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = ""
Button1.Text = "Нажми сюда!!!"
Button2.Text = "Close"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "Моя первая прога!"
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = ""
Button1.Text = "Нажми сюда!!!"
Button2.Text = "Close"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "Моя первая прога!"
End Sub
End Class
Все теперь можно запустить на исполнение нажав F5 или на треугольник на стандартной панели…
Если ты все правильно сделал то когда программа запуститься и ты нажмешь на кнопку
«нажми сюда!!!» ты увидишь надпись "Моя первая прога!"
Давай теперь разберем что мы только что написали
)))) Для VB6.0
Сделав двойной щелчок по форме и внутри ф-ции
Код:
Private Sub Form_Load()
End Sub
End Sub
Вписываем значения свойств наших объектов, т.е. в итоге должно получиться вот так
Код:
Private Sub Form_Load()
Label1.Caption = ""
Command1.Caption = "Close"
Command2.Caption = нажми сюда!!!"
End Sub
Label1.Caption = ""
Command1.Caption = "Close"
Command2.Caption = нажми сюда!!!"
End Sub
Для кнопки «нажми сюда!!!»
Код:
Private Sub Command2_Click()
Label1.Caption = "Моя первая прога!"
End Sub
Label1.Caption = "Моя первая прога!"
End Sub
Тут я думаю ты уже догадался что для чего…, а если нет то для тех кто не понял объясняю: при нажатии на кнопку Command2 объекту Label1 присваивается значение "Моя первая прога!" то есть на форме появляется эта самая надпись.
Для кнопки «Close»
Код:
Private Sub Command1_Click()
end
End Sub
end
End Sub
Для VBE 2008
Все тоже самое только вместо Caption используется Text…
В свойстве объектов для VBE2008 свойства Caption и Text объединены в одно -> Text
Вот и закончился наш первый урок. Дальше будет интересней!