Ekleyen Üyemiz :   Mehmet GÜZEL

Yararlı olması dileğiyle…

Ekleyen Üyemiz :    Mehmet GÜZEL

Ekleyen Üyemiz : ibrahim

Ekleyen Üyemiz : ibrahim

Ekleyen Üyemiz : Levent Yıldız

Ekleyen Üyemiz : Levent YILDIZ

Ekleyen Üyemiz : oneylabs

[25,15] ->Topla (25 + 15) -> [40]

Burada 3 aşama mevcuttur.
1-25 ile 15 değerleri Topla isimli fonksiyona gönderilir.
2-Topla fonksiyonu bu değerleri toplar.
3-Sonucu bize geri göderir.
Lafı fazla uzatmadan hemen gerçek bir örneğe geçelim.
İlk olarak Abs fonksiyonunu ele alalım.Bu fonksiyon gönderdiğiniz sayının mutlak değerini dödürür.
Standart bir exe projesi açın,Form1’e text1 ismi ile bir textbox ve command1 ismi ile bir commandbutton ekleyin.
Formun kod kısmına aşağıdaki kodu yapıştırın.

Private Sub Command1_Click()
Text1.text=Abs(Text1.text)
End Sub

Programı çalıştırın, textbox’a –1 değerini girin ve command buton’a basın.Evet –1 olarak girdiğiniz değer 1 oldu değil mi? Evet artık fonksiyonları nasıl test edeceğimizi öğrendiğimize göre diğer fonksiyonlara geçebiliriz.
Asc : Gönderdiğiniz karakterin ASCII değerini döndürür.
Chr : Gönderdiğiniz ASCII değerini karakter cinsinden döndürür.
Cbool : Gönderdiğiniz değeri boolean veri tipine döndürür.
Cbyte : Gönderdiğiniz değeri byte veri tipine döndürür.
Ccur : Gönderdiğiniz değeri currency veri tipine döndürür.
Cdate : Gönderdiğiniz değeri tarih veri tipine döndürür.
Cdbl : Gönderdiğiniz değeri double veri tipine döndürür.
Date : Herhangi bir değer göndermenize gerek kalmadan size sistem tarihini döndürür.
FormatCurrency : Gönderdiğiniz değeri para birimi yazımı şeklinde döndürür.
Lcase : Gönderdiğiniz metni küçük harfe çevirir ve döndürür.
Left : Gönderdiğiniz metnin sol tarafından istediğiniz sayıda harfi döndürür.
Len : Gönderdiğiniz mernin kaç harften oluştuğunu döndürür.
Ucase : Gönderdiğiniz merni büyük harfe çevirir ve döndürür.
Right : Gönderdiğiniz metnin sağ tarafından istediğiniz sayıda harfi döndürür.
Başlangıç olarak yukarıdaki fonksiyonlar yeterli olacaktır.Derslerimiz ilerledikçe ve örneklerimiz çoğaldıkça diğer fonksiyonları da kullanacağız.
Şimdi isterseniz biraz da standart nesnelerin özelliklerine değinelim

Textbox (Metin Kutusu) – Özellikler

Alignment
Alabileceği değerler : 0 (Left Justify) , 1 (Right Justify), 2(Center)
Metinkutusu içine yazılan metnin sola , sağa veya ortaya hizalanması için ayarlanması gereken özelliktir.
Eğer bu değer 1 yapılırsa metinkutusu içine yazılan metin sağa hizalanır.
Appearance
Alabileceği değerler : 0 (Flat), 1(3D)
Metinkutusunun ekranda düz veya 3 boyutlu olarak görünmesi için ayarlanması gereken özelliktir.
Backcolor
Alabileceği değerler : Sisteminizin size sunduğu renk paletindeki renk değerleri
Metinkutusunun arkaplan renginin belirlenmesi için ayarlanması gereken özelliktir.
BorderStyle
Alabileceği değerler : 0 (None), 1(Fixed Single)
Metinkutusunun çerçevesinin görüntülenip görüntülenmesi için ayarlanması gereken özelliktir.
CausesValidation
Alabileceği değerler : True,False
Metinkutusu değerinin değiştiğinde Validate event’inin tetiklenip tetiklenmeyeceğini belirten özelliktir.
Enabled
Alabileceği değerler : True,False
True değeri atanmışşa metinkutusuna erişebilir ve değerini değiştirebilirsiniz.False değeri atanmışsa
sadece metinkutusu içindeki değeri görebilirsiniz.
Font
Alabileceği değerler : Sisteminizin size sunduğu font değerleri
Metinkutusu içinde kullanılacak font değerini belirler.
ForeColor
Alabileceği değerler : Sisteminizin size sunduğu renk paletindeki renk değerleri
Metinkutusunun yazı renginin belirlenmesi için ayarlanması gereken özelliktir.
Height
Metinkutusunun yüksekliğini belirten/ayarlayan özelliktir.
Left
Metinkutusunun formun en sağ kısmından itibaren uzaklığını belirten/ayarlayan özelliktir.
Locked
Alabileceği değerler : True,False
True ise metinkutusu içinde imleç ile gezinebilir fakat değeri değiştiremezsiniz.False ise istediğiniz
değişiklikleri yapabilirsiniz.
MaxLength
Metinkutusu içine yazabileceğiniz maksimum karakter sayısını belirten/ayarlayan özelliktir.
Eğer 0 değeri girilirse metinkutusuna istediğiniz kadar giriş yapabilirsiniz.
Multiline
Alabileceği değerler : True,False
True ise enter tuşuna bastığınızda bir alt satıra geçer,False ise geçmez.
PasswordChar
Bu özelliğe bir değer atadığınızda metinkutusuna hangi karakteri girerseniz girin PasswordChar’a atadığınız
karakter gösterilir.Bu özellik daha çok şifre girişlerinde kullanılır.
ScrollBars
Alabileceği değerler : 0(None), 1(Horizontal), 2(Vertical), 3(Both)
Metinkutusunda ne tür kaydırma çubuklarının gösterileceğini belirtir/ayarlar.
Text
Metinkutusu içerisinde yazan metin değerini belirten/ayarlayan özelliktir.
Top
Metinkutusunun formun en üst kısmından itibaren uzaklığını belirten/ayarlayan özelliktir.
Width
Metinkutusunun genişliğini belirten/ayarlayan özelliktir.

Olaylar

Click
Metinkutusuna tıklandığında tetiklenen olaydır.
GotFocus
İmleç metinkutusuna konumlandığında tetiklenen olaydır.
Keydown
İmleç metinkutusu üzerinde iken bir tuşa basıldığı anda tetiklenen olaydır.
Keypress
İmleç metinkutusu üzerinde iken bir tuşa basıldığı anda Keydown’dan sonra tetiklenen olaydır.
Keyup
İmleç metinkutusu üzerinde iken bir tuşa basılıp bırakıldığı anda tetiklenen olaydır.
Lostfocus
İmleç metinkutusu’nu terkettiğinde tetiklenen olaydır.
Mousedown
Fare ile metinkutusuna tıklandığında tetiklenen olaydır.(Mouse’un hangi tuşu ile tıklandığını
Button değerinden anlayabilirsiniz.)
Mousemove
Fare metinkutusu üzerinde gezindiğinde tetiklenen olaydır.
Mouseup
Fare ile metinkutusu’na tıklanıp bırakıldığında tetiklenen olaydır.

Metodlar

Setfocus
İmlecin metinkutusu üzerine konumlanmasını sağlar.
Zorder
Metinkutusunun ön veya arka plana atılmasını sağlar.
Eveeeet yukarıda anlattığım fonksiyon ve obje özellik, olaylarının lab projesini indirmek için tıklayınız.
Bir sonraki dersimizde veritipleri değişken tanımlama , fonksiyon ve sub kullanma konularına değineceğiz.

Levent YILDIZ
lyildiz@ceturk.com

Sıra geldi bu değişkenleri kullanmaya. Standart bir exe projesi açın.Formun kod kısmına geçin. Değişken tanımlama Dim,Redim,Private,Public,Global,Static anahtar sözcükleri ile yapılmaktadır ve yazımı:
Dim değişken_ismi as veri_tipi
şeklindedir.Şimdi 2.Lab’ı indirip bu değişkenleri nasıl kullandığımızı görelim. Formun yüklenmesinde (form_load sub’i calisir) gördüğünüz üzere değişkenlerimizi tanımladık, herbir değişkene değerler atayıp formun üzerine yazdırdık. Form yüklendikten sonra “Hatalı Atama Yap” butonuna bastığınızda ise vb Overflow hatası verecektir.Bunun sebebi max 255 değer alabilecek byte veri tipine 260 değerini atamaya çalışmamızdır. Lab2 de farkettiyseniz bytArabaninMaxHizi değişkeni iki kere tanımlanmıştır.Bunun sebebi değişkenlerin tanımlandıkları yerlerle alakalıdır. Aslında bunu en iyi aşağıdaki şema açıklar.

Şemada standart bir exe projesinin kod bölümünü görmektesiniz.Bütün kod sayfasının başında
Dim dteDogumGunum as Date değişken tanımlaması bulunmaktadır.Şimdi olayı biraz daha karmaşıklaştırıyoruz.
-dteDogumGunum değişkeninin değeri form unload edilene kadar yani biz formu kapatana kadar hafızada kalacak ve formun içinden herhangi bir program bloğundan (sub veya function) erişilebilecektir.
-strDegisken1 değişkeninin değeri sadece Command1_Click sub’ı süresince hafızada tutulacaktır.
-intA değişkeninin değeri de sadece Command2_Click sub’ı süresince hafızada tutulacaktır.
Peki ya Private ve Public ? Eğer bir formun kod sayfasının en üstüne (General Declerations)
Public strDeğişken1 as string yazarsanız proje’de herhangi bir bölümden formismi.strDeğişken1 yazarak değişkene erişebilirsiniz.
Bunu daha iyi anlamak için 3.Lab’ı indirip çalıştırmanız yeterli olacaktır.
İlerleyen derslerimizde örneklerle daha detaylı açıklamalar yapacağız.
Simdi gelelim Sub ve Functionlara.Sub ve Functionlar program bloklarıdır.Belli bir iş için biraraya getirdiğimiz kodu içerirler.Örnek olarak Toplama işlemi için Toplama Sub’ına istegiğimiz değerleri gönderir ve toplatırız.Dolayısı ile projede herhangi bir yerde toplama işlemini kullanmamız gerektiğinde bu Sub’i çağırabilir tekrar kodlama yapmaktan kurtulabiliriz.
Sublar iki bölüme ayrılırlar.Form objelerinin olayları tetiklendiğinde çalıştırdıkları sublar ve kullanıcının kendi yazdığı sublar.Orneğin Private Sub Command1_Click sub’ı command1 objesinin click olayı tetiklendiğinde vb tarafından otomatik olarak çalıştırılır.
Sub’ın Function dan farkı nedir? Sub’ı çağırdığınızda vb o sub içindeki kodu çalıştırır ve End Sub ile işlemi bitirir.
Functionlara hatırlarsanız bir önceki dersimizde biraz değinmiştik.Tekrar yapmamız gerekirse functionlar yaptıkları işlemler sonucunda çağırıldıkları yere bir sonuç, bir değer döndürürler.
Değişken tanımlamalarda olduğu gibi fonksiyon ve sub larında tanımalama sınırları mevcuttur ve bu sınırlar Private,Public,Friend anahtar kelimeleriyle belirlenir.

Private Sub MerhabaDunya()
Msgbox “Merhaba Dunya”
End Sub
Public Sub HeryerdenErisebilirsin()
Msgbox “Eriştin”
End Sub

Projede çok fazla public değişken sub veya function kullanırsanız bu hafızayı gereğinden fazla meşgul eder ve performansı etkiler.Bunu engellemenin bir yolu da sub veya function ın içine parametre gödermek ile olur.

Private Sub ParametreleriToplaVeGoster(intParam1 as integer,intParam2 as integer)
Msgbox intParam1+intParam2
End Sub

Bir sonraki dersimizde modüller, classmodüller konularına değineceğiz.
Lab2 ve lab3 ‘ü indirmek için Tıklayınız.

Levent YILDIZ
lyildiz@ceturk.com

Mapinfo uygulaması için kullandığımız üç komut var. Bunlar DO, EVAL, FETCH dir.
DO bir komutu çalıştırmak herhangi bir işlem yaptırmak için kullanılır.
EVAL mapinfo’dan bir değer almak için kullanılır.
FETCH kayıtlar arasında gezmek, belirli kayıtları seçmek için kullanılır.
Bu uygulamamızda MapInfo’da hazırladığımız workspace göstermek, üzerinde işlem yapmak için Picture nesnesi kullanacağız.
Bunun için aşağıdaki komutları kullanacağız:

MI.do "Set Window Info Parent " & frmGRAFIK.hwnd 'Bağlantının yapılacağı form
MI.do "Set Application Window " & frmGRAFIK.Picture1.hwnd
'Tüm işlemlerin yapılacağı nesne(Picture)


MI.do "Set Next Document Parent " & frmGRAFIK.Picture1.hwnd & " Style 1"
'MapInfo için picture nesnesini kullanacağımız belirtiyoruz

Tüm bağlantı ve uygulamaları aşağıdaki kodlarla yapacağız.
Tüm bağlantı ve kodları elimden geldiğince anlaşılabilir bir şekilde açıklamaya çalıştım.
Tüm soru ve sorunlarınız, takıldığınız yerler için bana e-mail ile ulaşabilirsiniz.

Global MI As Object 'MapInfo nesnesi
Global theResponder As Object 'MapInfo ile VB arasındaki haberleşmeyi sağlayacak nesnemiz
Global kosuyor As Boolean
Dim strfile1 As String, strfile2 As String, strfile3 As String
Dim strSQL as string


'Parsel göstermek için kullanılacak
Sub Parsel_Goster(pID As String, pADA As Long, pPARSEL As Long)
'Gösterilecek parselin İşletme ID si, Adası ve parseli parametre olarak geliyor
Workspace_Yukle (pID) 'İşletmeye ait Workspace yükleme
'İstenilen işletmenin ID, Ada, Parsele göre SQL cümlesi Sel1 geçici tablosuna atılıyor.
strSQL = "select * from PARSEL where ISLETME_ID=" & Chr(34) & pID & Chr(34) & " and " _
& "ADA = " & Chr(34) & pADA & Chr(34) & " and " & "PARSEL = " _
& Chr(34) & pPARSEL & Chr(34) & " into sel1"
MI.do strSQL 'SQL cümlemiz MI da çalıştırılıyor
MI.do "add map layer sel1" 'sel1 tablomuz haritaya ekleniyor
MI.do "set map zoom entire layer sel1" 'sel1 tablosunu ekrana sığacak şekilde zoomla
MI.do "REMOVE map layer sel1" 'sel1 i haritadan kaldır
End Sub


Sub Bina_Goster(bID As String, bADA As Long, bPARSEL As Long, bNO As Integer)
Dim z As Double
'İşletme ID, Ada, Parsel ve Bina no su verilen işletmeye ait workspace yükleniyor
Workspace_Yukle (bID)
'parametre olan gelen İşletme ID, Ada, Parsel ve Bina no ya ait SQL cümlesi çıkartılıyor
strSQL = "select * from BINA where ISLETME_ID=" & Chr(34) & bID & Chr(34) & " and " _
& "ADA = " & Chr(34) & bADA & Chr(34) & " and " & "PARSEL = " _
& Chr(34) & bPARSEL & Chr(34) & " and " & "BINA_SIRA_NO = " & bNO & " into sel2"
MI.do strSQL 'MapInfo da SQL cümlesi işleteliyor
MI.do "add map layer sel2" 'Geçici katmanımız haritaya ekleniyor
MI.do "set map zoom entire layer sel2"
'SQL in sonucunda oluşturduğumuz katman ekrana tam sığacak şekilde zoom yapılıyor
MI.do ("set distance units ""m""") 'Zoom için kullanılan ölçek Metre olarak setleniyor
MI.do "set map zoom 500 units ""m"" layer sel2 "
'Geçici katman için zoom seviyesi 500 metre olarak atanıyor
MI.do "remove map layer sel2" 'Haritadan geçici katman kaldırılıyor
End Sub


'Workspace yüklemek için kullanılılıyor
Sub Workspace_Yukle(strID As String)
Dim app_yolu As String 'Uygulanın çalıştığı path
Dim dosya_yolu As String 'Dosya yolu
Dim dosya_adi As String 'Dosya adı
Dim tabName As String 'MapInfo tablosunun adı
dosya_adi = strID & ".wor" 'Dosya adlarımızı Isletmet ID.wor şeklinde oluşturuyoruz
app_yolu = App.Path 'Uygulama yolu
strfile = app_yolu & "\data\" & strID & "\" & dosya_adi 'Dosya yolu ve adı
If Len(Trim(strfile)) > 0 Then
If FileExist(strfile, "") = True Then
If strMapinfoWorkSpace strfile Then 'Workspace i ikinci kez açmamak için
If strMapinfoWorkSpace "" Then 'Daha önce açık ise kapat
MI.do "Close All Interactive"
End If
strMapinfoWorkSpace = strfile
InitializeMapInfoConnection 'MapInfo bağlantısını başlat
Mapinfo_Run 'MapInfo yu koştur
MI.do "run application """ & strMapinfoWorkSpace & """"
frmGRAFIK.lstLayers.Clear
frmGRAFIK.tvwInfo.Nodes.Clear
Mapinfo_Run
thereIsAMap = True
kosuyor = True
End If
frmGRAFIK.Show 'MapInfo formunu goster
frmGRAFIK.tbarMain.Visible = True
Workspace_Yuklu = True 'Workspace in yuklu oldugunu tutan değişken
Else
MsgBox strfile & " Dosya Bulunamadi."
End If
End If
End Sub


'MapInfo uygulamasını koşturan prosedürümüz
Sub Mapinfo_Run()
If MI Is Nothing Then 'MapInfo uygulamsı daha önce oluşturulmamıssa olustur
Set MI = CreateObject("MapInfo.Application")
''Set theResponder = New mmcallback
'VB ile MapInfo arasındaki haberleşmeyi yapacak responder ı oluştur
'Şimdilik bu class ı kullanmayacağız.
InitializeMapInfoConnection 'MapInfo yu başlat
Else
InitializeMapInfoConnection
End If
End Sub


'MapInfo uygulamasını başlatmak için değişkenelri setlemek ve gerekli bağlantıları yapma
Public Sub InitializeMapInfoConnection()
frmGRAFIK.tbarMain.Buttons("Seç").Value = tbrPressed
MI.SetCallback theResponder 'Haberleşme için Responder ı çalıştır
'Sağ tuşa tıklanınca ekrana çıkan Zoom Seviyesi, Ölçü Değeri, Kursorun Koordinat düzelmindeki gerçek yeri,
'Katman Kontrolu, Tablo Aç gibi popup menu seçeneklerini oluşturma ve setleme
MI.do "Create Buttonpad ""Callback"" As Toolbutton ID 2001 DrawMode 34 Cursor 138 Calling OLE ""QueryTool"""
MI.do "Create Menu ""TitleBarMenu"" As " & _
"""!+Zoom Seviyesi"" ID 1101 Calling OLE ""HandleMenuSelection"", " & _
"""!Ölçü Değeri"" ID 1102 Calling OLE ""HandleMenuSelection"", " & _
"""!Kursör Yeri"" ID 1103 Calling OLE ""HandleMenuSelection"""
MI.do "Create Menu ""MapperShortcut"" ID 17 As " & _
"""Katman Kontrolü.."" ID 1001 Calling OLE ""HandleMenuSelection"", " & _
"""Status Barda Göster"" As ""TitleBarMenu"", " & _
"""(-"", " & _
"""Tablo Aç..."" ID 1002 Calling OLE ""HandleMenuSelection"", " & _
"""Seçili Katmanı Kapat"" ID 1003 Calling OLE ""HandleMenuSelection"""
MI.do "Create ButtonPad ""Custom Tools"" As " & _
"ToolButton ID 2001 DrawMode 34 Calling OLE ""HandleToolButton"" " & _
"ToolButton ID 2002 DrawMode 32 Calling OLE ""HandleToolButton"""
'Form ve kullanılacak Picture nesnesinin MapInfoya bağlanması
MI.do "Set Window Info Parent " & frmGRAFIK.hwnd
MI.do "Set Application Window " & frmGRAFIK.Picture1.hwnd
MI.do "Set Next Document Parent " & frmGRAFIK.Picture1.hwnd & " Style 1"
mapWinID = CLng(MI.Eval("FrontWindow()")) 'MapInfo penceresinin Handlerı alınıyor
MI.RunMenuCommand M_TOOLS_SELECTOR 'MapInfo nun seç toolu aktif yapılıyor.
End Sub


'Alan seçme toolu aktif yapılıyor
Sub Alan_Sec()
MI.RunMenuCommand M_TOOLS_SELECTOR
End Sub

'Kapalı lan bilgi almak için
Sub Alan_Bilgi()
MI.do "Run Menu Command ID 2001"
End Sub

Bir sonraki derste buluşmak üzere hoşçakalın, dostçakalın…
Kendinize iyi bakın, iyi çalışmalar…

Mehmet GÜZEL
Yazılım Uzmanı
Web: http://www.mehmetguzel.net