Ö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
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
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
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
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
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
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
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
İ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