Genelbilge.com | nedir, tanımı, anlamı,nasıl yapılır

Ö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 Devamını Oku…

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 Devamını Oku…

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
Devamını Oku…

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)
Devamını Oku…

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

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
Devamını Oku…

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!”)
Devamını Oku…

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
Devamını Oku…

İ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
Devamını Oku…