Visual Basic Programlama Temelleri



user warning: Table './mc_hanciorg/cache_form' is marked as crashed and last (automatic?) repair failed query: UPDATE cache_form SET data = 'a:21:{s:6:\"choice\";a:3:{s:5:\"#type\";s:6:\"radios\";s:14:\"#default_value\";i:-1;s:8:\"#options\";a:7:{i:0;s:35:\"Sitede var olan içerik ve yazılar\";i:1;s:38:\"Sitenin görsel tasarımı ve renkleri\";i:2;s:54:\"Ziyaretçinin siteye yazılar ekleyip yorumlayabilmesi\";i:3;s:46:\"Sitenin adresi ve arama motorunda listelenmesi\";i:4;s:73:\"İnsanların çok fazla ziyaret ediyor olması ve onlarla iletişim ağı\";i:5;s:44:\"Sitenin arkaplan yazılımı ve alt yapısı\";i:6;s:47:\"Ben farklı şeyler düşünüyorum yazacağım\";}}s:4:\"vote\";a:3:{s:5:\"#type\";s:6:\"submit\";s:6:\"#value\";s:6:\"Oy ver\";s:7:\"#submit\";a:1:{i:0;s:9:\"poll_vote\";}}s:5:\"#node\";O:8:\"stdClass\":37:{s:3:\"nid\";s:2:\"72\";s:4:\"type\";s:4:\"poll\";s:8:\"language\";s:2:\"tr\";s:3:\"uid\";s:1:\"1\";s:6:\"status\";s:1:\"1\";s:7:\"created\";s:10:\"1266655218\";s:7:\"changed\";s:10:\"1266655313\";s:7:\"comment\";s:1:\"2\";s:7:\"promote\";s:1:\"1\";s:8:\"moderate\";s:1:\"0\";s:6:\"sticky\";s:1:\"1\";s:4:\"tnid\";s:1:\"0\";s:9:\"translate\";s:1:\"0\";s:3:\"vid\";s:2:\"72\";s:12:\"revision_uid\";s:1:\"1\";s:5:\"title\";s:37:\"Web sitesinde hangisi daha önemlidir\";s:4:\"body\";s:0:\"\";s:6:\"teaser\";s:358:\"* Sitede var olan içerik ve yazılar\n* Sitenin görsel tasarımı ve renkleri\n* Ziyaretçinin siteye yazılar ekleyip yorumlayabilmesi\n* Sitenin adresi ve arama motorunda listelenmesi\n* İnsanların çok fazla ziyaret ediyor olması ve onlarla iletişim ağı\n* Sitenin arkaplan yazılımı ve alt yapısı\n* Ben farklı şeyler düşünüyorum yazacağım\n\";s:3:\"log\";s:0:\"\";s:18:\"revision_timestamp\";s:10:\"1266655313\";s:6:\"format\";s:1:\"0\";s:4:\"name\";s:5:\"hanci\";s:7:\"picture\";s:0:\"\";s:4:\"data\";s:120:\"a:3:{s:7:\"contact\";i:0;s:18:\"admin_compact_mode\";b:1;s:13:\"form_build_id\";s:37:\"form-5bb20dab86db6430977269d8df6a74bb\";}\";s:7:\"runtime\";s:1:\"0\";s:6:\"active\";s:1:\"1\";s:6:\"choice\";a:7:{i:0;a:3:{s:6:\"chtext\";s:35:\"Sitede var olan içerik ve yazılar\";s:7:\"chvotes\";s:4:\"5390\";s:7:\"chorder\";s:1:\"0\";}i:1;a:3:{s:6:\"chtext\";s:38:\"Sitenin görsel tasarımı ve renkleri\";s:7:\"chvotes\";s:3:\"307\";s:7:\"chorder\";s:1:\"1\";}i:2;a:3:{s:6:\"chtext\";s:54:\"Ziyaretçinin siteye yazılar ekleyip yorumlayabilmesi\";s:7:\"chvotes\";s:3:\"210\";s:7:\"chorder\";s:1:\"2\";}i:3;a:3:{s:6:\"chtext\";s:46:\"Sitenin adresi ve arama motorunda listelenmesi\";s:7:\"chvotes\";s:3:\"182\";s:7:\"chorder\";s:1:\"3\";}i:4;a:3:{s:6:\"chtext\";s:73:\"İnsanların çok fazla ziyaret ediyor olması ve onlarla iletişim ağı\";s:7:\"chvotes\";s:3:\"215\";s:7:\"chorder\";s:1:\"4\";}i:5;a:3:{s:6:\"chtext\";s:44:\"Sitenin arkaplan yazılımı ve alt yapısı\";s:7:\"chvotes\";s:3:\"207\";s:7:\"chorder\";s:1:\"5\";}i:6;a:3:{s:6:\"chtext\";s:47:\"Ben farklı şeyler düşünüyorum yazacağım\";s:7:\"chvotes\";s:3:\"412\";s:7:\"chorder\";s:1:\"6\";}}s:10:\"allowvotes\";b:1;s:4:\"vote\";i:-1;s:4:\"path\";s:47:\"anket/web-sitesinde-hangisi-daha-onemlidir.html\";s:22:\"last_comment_timestamp\";s:10:\"1266655218\";s:17:\"last_comment_name\";s:0:\"\";s:13:\"comment_count\";s:1:\"0\";s:8:\"taxonomy\";a:0:{}s:5:\"files\";a:0:{}s:8:\"readmore\";b:0;s:5:\"links\";a:3:{s:11:\"comment_add\";a:4:{s:5:\"title\";s:15:\"Yeni yorum ekle\";s:4:\"href\";s:16:\"comment/reply/72\";s:10:\"attributes\";a:1:{s:5:\"title\";s:31:\"Bu sayfaya yeni bir yorum ekle.\";}s:8:\"fragment\";s:12:\"comment-form\";}i:0;a:3:{s:5:\"title\";s:13:\"Eski anketler\";s:4:\"href\";s:4:\"poll\";s:10:\"attributes\";a:1:{s:5:\"title\";s:43:\"Sitedeki anketlerin listesini görüntüle.\";}}i:1;a:3:{s:5:\"title\";s:9:\"Sonuçlar\";s:4:\"href\";s:15:\"node/72/results\";s:10:\"attributes\";a:1:{s:5:\"title\";s:28:\"Güncel anketi görüntüle.\";}}}}s:6:\"#block\";b:1;s:6:\"#cache\";b:1;s:6:\"#theme\";s:9:\"poll_vote\";s:11:\"#parameters\";a:4:{i:0;s:16:\"poll_view_voting\";i:1;a:3:{s:7:\"storage\";N;s:9:\"submitted\";b:0;s:4:\"post\";a:0:{}}i:2;r:18;i:3;b:1;}s:9:\"#build_id\";s:37:\"form-c3a584a4e61390d0d5a42210267cbe26\";s:5:\"#type\";s:4:\"form\";s:11:\"#programmed\";b:0;s:13:\"form_build_id\";a:4:{s:5:\"#type\";s:6:\"hidden\";s:6:\"#value\";s:37:\"form-c3a584a4e61390d0d5a42210267cbe26\";s:3:\"#id\";s:37:\"form-c3a584a4e61390d0d5a42210267cbe26\";s:5:\"#name\";s:13:\"form_build_id\";}s:7:\"form_id\";a:3:{s:5:\"#type\";s:6:\"hidden\";s:6:\"#value\";s:16:\"poll_view_voting\";s:3:\"#id\";s:21:\"edit-poll-view-voting\";}s:3:\"#id\";s:16:\"poll-view-voting\";s:12:\"#description\";N;s:11:\"#attributes\";a:0:{}s:9:\"#required\";b:0;s:5:\"#tree\";b:0;s:8:\"#parents\";a:0:{}s:7:\"#method\";s:4:\"post\";s:7:\"#action\";s:62:\"/visual-basic-dersleri/visual-basic-programlama-temelleri.html\";s:9:\"#validate\";a:1:{i:0;s:25:\"poll_view_voting_validate\";}}', created = 1563231170, expire = 1563252770, headers = '', serialized = 1 WHERE cid = 'form_form-c3a584a4e61390d0d5a42210267cbe26' in /home/hanci/domains/hanci.org/private_html/includes/cache.inc on line 112.

Cümleler

Bir cümleyi yazıp Enter tuşuna bastığınızda o komut cümlesi
değerlendirilir ve yazım yanlışları saptanır. Büyük küçük harf
ayrımı yapılmaz. Komutun ilk harfi otomatikman büyültülür.
Komut olmayan açıklama satırları için tek tırnak, Rem ya da
Remark kullanılır.

Rem Yardım Düğmesi

' Bu düğme tıklanınca çalışır.

Print "Yardım yok" 'satır arasına da açıklama koyabilirsiniz

Değişkenler

Kullanıcıdan alınan bilgiler ve hesaplama sonuçları değişken
denilen geçici bölgelerde tutulur. Değişken adları en fazla
255 karakter olabilir. Değişken adı bir alfabe karakteri ile
başlamalıdır. Değişkenin özellikleri ise aşağıda verilen
listedeki gibi belirlenir:

s -String : Karakter dizisi

n - Integer : Tamsayı (-32768 +32767)

l - Long : Uzun Tamsayı (yaklaşık +/- 2 milyar)

f - Single : Tek Duyarlı Ondalıklı Sayı (floating)(1E-45,
3E38)

d - Double : Çift Duyarlı Ondalıklı Sayı (floating)(5E-324
)1.8E308

c - Currency : Para değeri ($) (xxxxxxxxxxxxxxx.xxxx)

b - Boolean : Doğru/Yanlış (true-false 0/-1)

v- Variant : Değişken

d - Date : Gün ve saat bilgisi (1/1/100 den 12/31/9999 a
kadar)

Değişken Tanımları

Bir formda tanımlanan değişken o formda yaratılacak tüm
prosedürlerde kullanılabilir. Bir prosedürde Dim ya da Private
ile yerel olarak tanımlanan değişken ise sadece o prosedür
için tanımlı kalır. Genel tanımların kısıtlanması kod
hatalarının ayıklanması açısından kolaylık getirir. Bu nedenle
yalnızca prosedür içinde kullanılacak değişkenler yerel olarak
tanımlanmalıdır. Heryerde (formlar arası) kullanılabilecek
değişken tanımlaması ise Public ile tanımlanmalıdır.

Dim değişkenadı [As değişkentipi] [, değişkenadı2 [As
değişkentipi2]]

Private değişkenadı [As değişkentipi] [, değişkenadı2 [As
değişkentipi2]]

Public değişkenadı [As değişkentipi] [, değişkenadı2 [As
değişkentipi2]]

Buna göre dolar olarak gösterilecek para değişkeni tanımı şu
olabilir:

Dim cPara As Currency

Atama ve Özellik Belirleme

Değişkenlere değer ataması için "=" ya da "Let" deyimi
kullanılır. Değişkenin adı eşitliğin sağ tarafında, değeri ise
sol tarafında olmalıdır.

Faiz = .6

Let Faiz = .6

Yardım.Caption = "&Yardım" 'Yardım düğmesinin başlığını
belirler

Yardım.Left = Yardım.Left-200 ' Yardım düğmesini 200 piksel
sola alır

Yardım.Visible = False ' Yardım düğmesini gizler

Yardım.TabStop = False ' Tab ile bu düğmeye geçilmez

' Alttaki komut yardım düğmesi gizli ise görüntüler, değilse
gizler

Yardım.Visible = Not(Yardım.Visible

Sayılar ve İşlemler

Tamsayı (Integer) değişkenlere reel sayı atandığında tamsayıya
yuvarlanarak atanır. Değişken tipine uymayan bir atama yapılır
ise sistem uyarı verir.

Dim Sayi As Integer

Dim Yil As String

Sayi = 50000 ' Yanlış, en fazla 32768.

Sayi = 32.2 ' 32 olarak atanır

Sayi=Val("1994") ' 1994 değeri atanır

Yil = Str$(1994) ' "1994" değeri atanır

Aritmetik işlemlerde parantezlerin önceliği vardır. Parantez
yok ise yukarıda belirtilen öncelik sıraları uygulanır. Aynı
öncelik sırasına sahip olan işlemler soldan sağa doğru
gerçekleştirilir.

Aritmetik Operatörler ve Öncelik Sırası

1
^
Üs alma

2
-
Negatif sayıları gösterme

3
*
Çarpma

3
/
Bölme

4
\
Tamsayı bölme

5
Mod
Kalanı bulma (5 Mod 2 = 1) (Tamsayı)

6
+
Toplama

6
-
Çıkartma

Farklı tipte iki sayıya işlem yapıldığında sonuç sayılardan
daha duyarlı olan tipte olur. Duyarlılık sırası Integer, Long,
Single, Double ve Currency'dir.

Komut İşlemleri Kodlama

Visual Basic'de nesnelere hangi durumlarda hangi işlemleri
yapacağı kodlama ile belirtilir. Bunlar nesnenin üzerine
farenin gelmesi, nesnenin tıklanması ya da nesnenin çift
tıklanması gibi durumlar olabilir.

Bir komut düğmesini kodlamak için:

Düğmeyi çift tıklayınız.

Kod penceresine gerekli kodu giriniz. İlk olarak ekrana gelen
prosedür tıklama için olacaktır. Değişik olaylar için sağdaki
prosedür düşen listesini tıklayarak diğer durumları seçip
değişik kodlar yazabilirsiniz.

İlk satırdaki Private Sub xxxx_Click() komutu bu prosedürün
xxxx komut düğmesi tıklandığında çalışacak prosedür olduğunu
belirtir. En alt satırdaki End Sub komutu ise prosedürün
bittiğini göstermektedir.

Bir diğer komut düğmesine kod yazmak için kod penceresini
kapattıktan sonra, o düğmeyi çift tıklayarak, ya da açık olan
kod penceresinin sağdaki nesne düşen listesini tıklayarak ve
istenilen nesneyi seçerek de prosedürü yazabiliriz.

Diyalog Pencereleri

Yazı kutusu dışında kullanıcıdan bilgi almak için diyalog
pencereleri kullanılabilir. Bunun için kullanılan fonksiyon
InputBox (kullanıcının girdiği biçimde atanır) ya da InputBox$
(karakter olarak atanır) dır.

InputBox$ (Açıklama$[,[Başlık$][,[İlkDeğer$][,x%,y%]]])

Sub Form_Load

'Form görüntülendiğinde adınızı soran diyalog penceresi ekrana
gelir.

Ad = InputBox$("Lütfen adınızı giriniz:", "Ad", "Damla Buket")

End Sub

Prosedür Kodu

Bu kısımda program için gerekli hesaplamalar yazılacaktır.
Programın içine yazılacak olan açıklamalar için satırın en
soluna tek tırnak işareti koymak yeterlidir. Yazı kutusundan
gelen değerlerin sayı değerine çevrilmesi için gerekli komut
Val komutudur.

"txtSure" yazı kutusunun değerini bir değişkene atamak için
aşağıdaki komut kullanılabilir:

' Sure değerini değişkene atar

nSure = Val(txtSure.Text)

Programın Çalıştırılması

Bir program 3 şekilde çalıştırılabilir:

Visual Basic araç çubuğu üzerindeki "Start" düğmesine basınız.

Run/Start menü seçeneğini tıklayınız.

Klavyede F5 tuşuna basınız.

Hata olduğu takdirde bunlar bir pencerede görüntülenecektir.

Yeni yorum gönder

Bu alanın içeriği gizli tutulacak ve açıkta gösterilmeyecektir.
CAPTCHA
Aşağıdaki resimde yer alan karakterleri kutucuğa doğru olarak yazınız
Image CAPTCHA
Enter the characters shown in the image.

Anket

Web sitesinde hangisi daha önemlidir: