Visual Basic Detaylı Anlatım

ÖNSÖZ
Çıktığı günden beri büyük beğeni toplayan ve programcılığı zevke dönüştüren Visual Basic programlama dili,programcılık korkulacak,sıkıcı bir iş olmaktan çıkıp herkesin ilgisi haline gelmiştir. Bunda Visual Basic dilinin katkısı azımsanamayacak kadar çoktur. Visual Basic hem Basic dilinin getirdiği kolaylığı hem de Windows ortamının getirdiği görselliği en üst seviyede programcıya sunabilmektedir. Eskiden Basic dili ile başlangıç olarak kabul edilir ancak ciddi denebilecek hiçbir uygulama Basic dili ile yazılamazdı. Halbuki Visual Basic hem başlangıç seviyesinde bir dil olma özelliğini korurken hem de en profosyonel uygulamaları bile geliştirebilecek kapasitede bir dildir. Günümüzde Visual Basic ile yapılmış bir çok modern uygulama görebilir ve kendiniz de kolayca yapabilirsiniz.
Windows ‘un Visual Basic Programlama yapısının programlamaya getirdiği yeni boyut programlama dillerinin monotonluktan kurtarmış ve her versiyonda büyük yeniliklerin ve kolaylıkların programlama dilleri içerisinde yer almasına sebep olmuştur. Visual Basic in ilk versiyonu ile bugün ulaştığı (Visual Basic Pro 6.0) versiyonu arasında gerçekten çok büyük bir gelişme yaşanmıştır ve uzun bir süre yenilik ve kolaylıkların

1.046 views

MSFlexGrid ve VERÄ°TABANI

Dim WithEvents RsERRORS As Recordset
Dim DbConnection As ADODB.Connection
Dim sn as Integer
sn=0
—–
Private Sub Form_Load()
Move (Screen.Width – Width) \ 2, (Screen.Height – Height) \ 2
Set DbConnection = New ADODB.Connection
With DbConnection
.Provider = “Microsoft.JET.OLEDB.4.0″
.Open App.Path & “\DataBase\Deneme.mdb”
End With
Set RsPLANLAMA = New ADODB.Recordset
With RsPLANLAMA

36 views

Pencereleri Kapatan Program

Aşağıdaki kodları kullanarak seçilen pencereyi kapatan bir program yapabilirsiniz.

Form kodları

———————

VERSION 5.00

Object = “{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0″; “mscomctl.ocx”

Begin VB.Form Form1

Caption = “Form1″

ClientHeight = 5340

11 views

Telefon Numarası Formatı

Private Function TelFormat(TelNo As String) As String

If Len(Trim(TelNo)) < = 7 Then TelFormat = ""

'7725410 -> 772 54 10
If Len(Trim(TelNo)) = 7 Then _
TelFormat = Mid(TelNo, 1, 3) + ” ” + Mid(TelNo, 4, 2) + ” ” + _
Mid(TelNo, 6, 2)

68 views

Sıfır Ekleme

Public Function Doldur(Sayi As Long, Boyut As Integer) As String
Doldur = Trim(String(Boyut – Len(Trim(str(Sayi))), “0″) + Trim(str(Sayi)))
End Function

2 views

Yıl içinde belirli bir haftanın ilk tarihini bulma

Option Explicit

Private Sub cmdHesapla_Click()
Dim Gun As Integer
Dim Tarih As Date

If txtYil.Text = “” Or txtYil.Text < 1800 Then _
txtYil.Text = "": txtYil.SetFocus: Exit Sub

If txtHafta.Text = "" Or txtHafta.Text > 52 Then _
txtHafta.Text = “”: txtHafta.SetFocus: Exit Sub

21 views

Karışık metinden e-mail adreslerini ayırma

Dim a As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim d() As String, i, f, j, g, ff, gg As Short

a = TextBox1.Text

If a = “” Then

MsgBox(“Lütfen metni giriniz.”, MsgBoxStyle.Information, “Metin girilmedi!”)

25 views

Line ile işe başlayalım

selam sitemize genelde ziyaretçi olarak katılıyrdum bu gün üye olmaya karar verdim yazılımcılıkla hobi olarak uğraşıyorum az da olsa benimde faydam dokunur diye düşündüm iyi bilenlerin şimdiden affına sığınıyorum

ne yapayım derken aklıma çizim proğramı denemelerimden biri geldi neden olmasın dedim ve line komutunu ele alan bir proğramcık eklemeye karar verdim bütün eleştiri ve tavsiyelerinize açığım şimdiden selamlar

uygulamamıza standart exe ile başlayıp 1 picture box 7 adet textbox ve 1 adet command button ekleyelim

10 views

Para Üstü Hesaplama programı

İlk önce açtığınız forma 7 tane label 2 tane text 1 tanede command butonu koyun ve başlayalım

‘ilk önce burda deÄŸiÅŸkenleri tanımlıyoruz..

dim müsteriver as integer
dim müsteritutar as integer

‘ve burda tanımladığımız deÄŸiÅŸkenleri textlere tanıtıyoruz

49 views