Мои Visual Basic туторијали
Во оваа тема ќе постирам туторијали за Visual Basic напишани од мене.
Туторијал #1
Windows Media Player во Visual Basic 6.0
Треба да додадете две компоненти во проектот. Тоа се:
1. Windows Media Player (стандардно би требало да биди последна).
2. Microsoft Common Dialog Controls 6.0 (SP 6)
Компоненти во проект се додаваат на следниот начин:
Project --> Components или со кратенка: CTRL + T
Потоа нагодеде ја големината на проектот со тоа колку сакате да биде голем медиа плеерот. Откако ќе го направите ова, од страна во менито General каде што се сите алатки, најдоле се и двете новододадени компоненти. Одберете ја Windows Media Player и означете во проектот колкав сакате да биде плеерот.
Потоа одберете ја компонентата Microsoft Common Dialog Controls 6.0 (SP 6) од истото место (лево на вашиот екран, најдоле) и селектирајте мало квадратче во средината од проектот.
Потоа одете во Menu Editor од лентата со алатки, или со кратенка: CTRL + E и креирајте едно мени "File" и потоа две под-мениа на "File" со имиња: "Open" и "Stop".
Интерфејсот на вашиот плеер е готов. Сега кодовите.
Одберете го менито Open. Во него треба да биде напишано вака:
Код:
Private Sub Open_Click()
CoomonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
Во менито Stop треба да биде напишано вака:
Код:
Private Sub Stop_Click()
WindowsMediaPlayer1.Close
End Sub
Со ова е завршен програмот. Снимете го само како .exe проект, и со тоа е се комплетирано:
File -> Make Project1.exe
Еве некои слики како би требало да изгледа во текот на програмирањето:
1. Еве како изгледа компонентата Windows Media Player со која треба да селектирате дел од проектот:
2. Еве како изгледа компонентата Microsoft Common Dialog Controls 6.0
3. Еве како треба да изгледа пополнето во Menu Editor:
4. И за крај еве како треба да изгледа кодот на Open и Stop:
Tуторијал #2
Интернет Пребарувач во Visual Basic 6.0
Еве го мојот втор туторијал за денес. Овде ќе научите како да направите основен, но сопствен интернет пребарувач. Па да почнеме:
Како за почеток ќе треба да додадете една компонента, која се вика: Microsoft Internet Controls. За тоа како се додава компонента, прочитајте го мојот пост погоре.
Потоа треба да си прилагодите големина. Откако ќе го сторите тоа, одберете ја компонентата од листата "General" лево на екранот и селектирајте во Проектот колку голем да биди пребарувачот. Потоа додадете 5 Command Buttons. За нив ви требаат следниве имиња:
1. Back
2. Forward
3. Stop
4. Home
5. Go
Ви треба и еден TextBox каде што ќе се впишува интернет адресата. Прилагодете го интерфејсот (дизајнот) според Ваша желба и потреба.
Сега почнуваме со кодовите:
1. За BACK ви треба следниов код:
Код:
Private Sub Command1_Click()
WebBrowser1.GoBack
End Sub
2. За FORWARD ви треба следниов код:
Код:
Private Sub Command2_Click()
WebBrowser1.GoForward
End Sub
3. За STOP ви треба следниов код:
Код:
Private Sub Command3_Click()
WebBrowser1.Stop
End Sub
4. За HOME ви треба следниов код:
Код:
Private Sub Command4_Click()
WebBrowser1.GoHome
End Sub
5. За GO! ви треба следниов код:
Код:
Private Sub Command5_Click()
WebBrowser1.Navigate = Text1.Text
End Sub
Потоа направете само Make Project1.exe и Вашиот пребарувач е готов.
Еве неколку слики за полесна ориентација:
1. Еве како изгледа компонентата Microsoft internet controls:
2. Еве го мојот интерфејс (дизајн) за веб пребарувачот:
3. Еве како би требало да изгледаат кодовите:
Туторијал #3
Text To Speech во Visual Basic 6.0
Во овој туторијал ќе ви објаснам како да направите едно просто програмче, со кое ќе можете да напишите некој текст и компјутерот да го изговори.
За ова ви се потребни само еден TextBox и еден CommandButton. Распоредете ги по ваша желба.
Потоа треба само да се напиши кодот во CommandButton1.
Кодот е вака:
Код:
Private Sub Command1_Click()
Set ObjTextToSpeech = CreateObject("SAPI.spVoice")
ObjTextToSpeech.speak Text1.Text
End Sub
Снимете го програмот во .exe фајл и уживајте
Слики:
1. Интерфејс на мојот програм:
2. Како би требало да изгледа кодот:
Туторијал #5
Програма која ја открива вашата локална ИП адреса во Visual Basic 6.0
Пуштете го Visual Basic 6.0 и одберете Standard EXE. Потоа ви треба само еден TextBox и едно Командно Копче (Command Button). Ви треба и компонентата: Microsoft Winsock Control 6.0.
Прилагодете го интерфејсот по Ваша желба. Само додадете ја во некој агол и компонентата спомната погоре. Едноставно е, кликнете еднаш на неа и потоа селектирајте мало квадратче во некој агол. Се што ви треба е само кодот за командното копче.
Еве го кодот:
Код:
Private Sub Command1_Click()
Text1.Text = Winsock1.LocalIP
End Sub
Снимете го проектот какo .exe фајл и вашата нова програма е готова
Слики:
1. Како изгледа Winsock компонентата:
2. Како би требало да изгледа интерфејсот:
3. Како би требало да изгледа кодот:
Туторијал #5
Програма која ја открива вашата локална ИП адреса во Visual Basic 6.0
Пуштете го Visual Basic 6.0 и одберете Standard EXE. Потоа ви треба само еден TextBox и едно Командно Копче (Command Button). Ви треба и компонентата: Microsoft Winsock Control 6.0.
Прилагодете го интерфејсот по Ваша желба. Само додадете ја во некој агол и компонентата спомната погоре. Едноставно е, кликнете еднаш на неа и потоа селектирајте мало квадратче во некој агол. Се што ви треба е само кодот за командното копче.
Еве го кодот:
Код:
Private Sub Command1_Click()
Text1.Text = Winsock1.LocalIP
End Sub
Снимете го проектот какo .exe фајл и вашата нова програма е готова
Слики:
1. Како изгледа Winsock компонентата:
2. Како би требало да изгледа интерфејсот:
3. Како би требало да изгледа кодот:
Туторијал #6
Kалкулатор во Visual Basic 6.0
Овде ќе научите како да направите сопствен калкулатор во Visual Basic 6.0. Калкулаторот ќе има само неколку опции, колку да ја сватите суштината на работа во Visual Basic.
Почнуваме:
Ви требаат три TextBox. Едното е за првиот собирок/множител/деленик, вториот за вториот собирок/множител/делител, додека третиот е за збирот/производот/количникот.
Ви требаат и четири Командни Копчиња:
1. Собирање
2. Одземање
3. Множење
4. Делење
Поставете ги како сакате. Сега одиме со кодовите:
1. Собирање:
Код:
Private Sub Command1_Click()
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
End Sub
2. Одземање:
Код:
Private Sub Command2_Click()
Label1.Caption = Val(Text1.Text) - Val(Text2.Text)
End Sub
3. Множење:
Код:
Private Sub Command3_Click()
Label1.Caption = Val(Text1.Text) * Val(Text2.Text)
End Sub
4. Делење:
Код:
Private Sub Command4_Click()
Label1.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub
Снимете го проектот како .exe фајл и вие имате сопствен дигитрон
Еве и неколку слики:
1. Интерфејс на дигитронот:
2. Еве како би требало да изгледа кодот:
