Versions Compared

Old Version 5

changes.mady.by.user Yuksel Ozbuga

Saved on

compared with

New Version Current

changes.mady.by.user Yuksel Ozbuga

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

Dinamik Kodlama ile ilgili ayrıntılı bilgiye bu dokümandan ulaşabilirsiniz.

Ürün Grubu

[X] Fusion@6

Kategori

[X] Yeni Fonksiyon

Versiyon Önkoşulu

@6

...

Stok kodu girildiğinde girilen kod'a göre oluşan değerin depo kodu sahasına atılması istenebilir. Stok koduna IZM001,IZM002 gibi kodlar yazıldığında stoğun stokun depo koduna 1 yazılması; IST001,IST002 şeklinde kodlar yazıldığında depo koduna 2 yazılması aksi durumda 3 yazılması isteniyorsa;

Burada stok kodu bilgisi edit olduğu için TDBNEdit altında bulunabilir. Yukarıdaki tanımlamaya bakıldığında Stok_kodudb'nin OnExit olayında script yazılmıştır ve stok koduna yazılan değerin ilk 3 hanesini alarak IZM olup olmadığı kontrol ediliyor eğer IZM ise depo koduna 1 yazılıyor. Depo kodu bilgisi de edit olduğu için Depo_Kodu.TEXT olarak atama yapılmıştır. Eğer IZM değilse kontrole devam ederek IST olup olmadığına bakılıyor doğru ise 2 aksi durumda 3 olarak depo kodu belirleniyor.

...

'Graphic nesnesi hazırlanıyor
Set GraphLib = NETSISCORE.NetLibGraph

'Ekran nesnesindeki TEdit sınıfına ait örnekler listeye alınıyor
Set EditListesi = Self.ComponentList("TEdit")

'Listede kayıt var mı?
if EditListesi.Count > 0 then 'Listedeki tüm kayıtları dön For i=1 To EditListesi.Count
'Listedeki aktif nesneye erişim
Set edObj = EditListesi.Items(I - 1)
'erişim yapılan nesnenin renk özelliği "domates" rengine atanıyor...
edObj.PropertyValue("Color") = GraphLib.WEBColorToColor ("clwebTomato") Next End If


Örnek-8: INetTWEBBrowser
WEB sayfaları ve HTML düzeninde hazırlanan bilgilerin gösterilmesi için tasarlanmıştır. NDI paketinde Win32 ortamında, WEB sekmesinde TNetWEBBrowser nesnesi için
kullanılabilir.


'WEB nesnesini ilk kullanım için hazırla
call NETWB.Navigate("about:blank")

'Basit HTML rapor hazırla htmlcode = "<html><body>"&_ "<table width=50% border=1 >"&_ "<tr><th>Adı<th>yasi"&_ "<tr><td>Cemal<td>50"&_ "<tr><td>Kemal<td>18"&_ "<tr><td>Đnes<td>20"&_ "</body></html>"

'Hazırlanan HTML bilgisinin ekranda görünmesi için güncelle
call NETWB.SetDisplayHTML(htmlcode) msgBox "Hazırlanan raporu izle"


'NetWB nesnesini Netsis ana sayfasına yönlendir

call NETWB.Navigate("http://www.netsis.com.tr")




Yukarıdaki örnek koda ait ekran görüntüsü
Örnek-9: INetControl
"Perform" ve "ClientRect" özellikleri eklendi.
Perform komutuna ait bir örnek


'************************************************************************* 'CB_GETITEMHEIGHT windows mesajı nedir? '************************************************************************* '
'ComboBox nesnelerinde yer alan satırların yükselik 'değerini geriye dönmektedir.
'Bu örnek, perform komutunun kullanımı için kullanılmıştır.
'Windows API seviyesinde dinamik kodlama için Windows SDK veya benzeri 'kaynaklardan yardım alınması gerekmektedir...
'
'*************************************************************************

'Windows mesaj listesindeki özel değer tanımlanıyor...
Const CB_GETITEMHEIGHT = 340
'Bu tür mesajlar için Windows SDK yardımları kullanılabilir

'Ekrana Windows mesajının cevabını yazdır!
msgbox COMBOBOX1.Perform( CB_GETITEMHEIGHT, 0, 0 )


Örnek-10: INetObject
InvokeEvent yöntemi eklendi.
InvokeEvent komutuna ait örnek


'Button nesnesindeki "OnClick" olayının (event) tetiklenmesi

'OnClick gibi olay isimlerini öğrenmek için Dinamik kodlama 'tasarım ekranından yardım alınabilir.

BTNSAKLA.InvokeEvent("OnClick")


OnClick olayının Dinamik Kodlama Ekranından izlenmesi
Not: InvokeEvent yöntemi sadece tek parametreli olaylar için kullanılmalıdır. (Sender: Tobject) parametre deseninde olmayan olaylarda çalıştırılması sonucunda hata alınacaktır.

Örnek – 11: ICoreSession
"EntegrasyonTarihi" özelliği eklendi.

Örnek – 12: ICoreLocalizationConvert
Genelde Iran kültüründe ihtiyaç duyulan fonksiyonlar için kullanılabilir. Normal takvim sistemindeki bir değer Farsi sisteme, Farsi tarih sistemdeki tarih değeri de normal
takvime çevrilebilir.


'Localization servis nesnesine erişim yap
Set NetLocalizationService = NETSISCORE.NetLibLocalizationConvert

'Normal takvim bilgisi Iran takvim sistemine çevriliyor '***NOT:****
'Iran takvim sistemi, Netsis Çalışma Kültür değerinin Iran'a göre 'ayarlanması durumunda çalışacaktır...
MsgBox NETSISCORE.NetLibLocalizationConvert.StrDateToStrFarsi("01/01/2007")


Örnek-13: ICoreWin32
KrediKartNoDogrula, OzelParamVarMi , OzelParamDegerOku, YaziIlePara, YaziIleParaIng, WinPostMessage, WinSendMessage yöntemleri eklendi.
Özel Parametre Kontrolü


Dim BasimParamAcik
BasimParamAcik = NETSISCORE.NetLibWin32. OzelParamVarMi("FATURA", "BASIM")


WinPostMessage Kullanımı


'Windows form kapanış özel mesaj değeri tanımlanıyor...
Const WINDOWS_MESSAGE_FORM_CLOSE = 16

'Windows mesaj kuyruğuna zamanuyumsuz (asynch) mesaj gönderimi için kullanılır

'Zamanuyumlu mesaj gönderimlerinde (synch) WinPostMessage yerine 'WinSendMessage yöntemi kullanılmalıdır.

'************************************************************************ 'Windows mesaj yönetimi için Windows-SDK yardımı kullanılabilir.. '***********************************************************************

CALL NETSISCORE.NetLibWin32.WinPostMessage(SELF.HANDLE, WINDOWS_MESSAGE_FORM_CLOSE, 0, 0)


Örnek-14: ICoreSMS
ICore. NetLibSMS yöntemi ile yaratılan nesne, tek ya da toplu olarak SMS gönderimi için kullanılmaktadır. Desteklediği yöntemler: AddMessage, SendMessage ve


SendMessages yöntemleridir. Toplu mesaj gönderimlerinde, mesajlar AddMessage yöntemi ile eklenmeli ve tüm mesajlar eklendikten sonra SendMessages yöntemi çağırılmalıdır. Sadece bir mesaj gönderimi durumunda ise; SendMessage yöntemi çağırılmalıdır.


'ICoreSMS nesnesi yaratılıyor
Set SMSObj = ICore. NetLibSMS( "Netsis", now, now+2 )

'Mesaj gönderiliyor
Call SMSObj.SendMessage("Netsis",now,now+2,"Deneme","00905333333333","01","Netsis")


Gainsboro

MistyRose

GhostWhite

Moccasin

Gold

NavajoWhite

GoldenRod

Navy

Gray

OldLace

Grey

Olive

Green

OliveDrab

GreenYellow

Orange

HoneyDew

OrangeRed

HotPink

Orchid

IndianRed

PaleGoldenRod

Indigo

PaleGreen

Ivory

PaleTurquoise

Khaki

PaleVioletRed

Lavender

PapayaWhip

LavenderBlush

PeachPuff

LawnGreen

Peru

CornflowerBlue

LemonChiffon

Pink

Cornsilk

LightBlue

Plum

Crimson

LightCoral

PowderBlue

Cyan

LightCyan

Purple

DarkBlue

LightGoldenRodYellow

Red

DarkCyan

LightGray

RosyBrown

DarkGoldenRod

LightGrey

RoyalBlue

DarkGray

LightGreen

SaddleBrown

DarkGrey

LightPink

Salmon

DarkGreen

LightSalmon

SandyBrown

DarkKhaki

LightSeaGreen

SeaGreen

DarkMagenta

LightSkyBlue

SeaShell

DarkOliveGreen

LightSlateGray

Sienna

Darkorange

LightSlateGrey

Silver

DarkOrchid

LightSteelBlue

SkyBlue

DarkRed

LightYellow

SlateBlue

DarkSalmon

Lime

SlateGray

DarkSeaGreen

LimeGreen

SlateGrey

DarkSlateBlue

Linen

Snow

DarkSlateGray

Magenta

SpringGreen

DarkSlateGrey

Maroon

SteelBlue

DarkTurquoise

MediumAquaMarine

Tan

DarkViolet

MediumBlue

Teal

DeepPink

MediumOrchid

Thistle

DeepSkyBlue

MediumPurple

Tomato

DimGray

MediumSeaGreen

Turquoise

DimGrey

MediumSlateBlue

Violet

DodgerBlue

MediumSpringGreen

Wheat

FireBrick

MediumTurquoise

White

FloralWhite

MediumVioletRed

WhiteSmoke

ForestGreen

MidnightBlue

Yellow

Fuchsia

MintCream

YellowGreen

Windows mesajlaşma sistemi (Windows Messaging)
Windows işletim sisteminde kullanılan mesajlar için +http://msdn.microsoft.com/library/default.asp?url=/library/en-+ us/winui/winui/windowsuserinterface/windowing/messagesandmessagequeues.asp adresi kullanılabilir.

GDI (Graphics Device Interface)
Windows GDI (grafik aygıt arabirimi), grafik çıktıyı görüntülemede kullanılan bir takım API lerden (Application Programming Interface) oluşur.

CANVAS
Canvas nesnesi, nesnelerin resimlerini şekillendirmek için kullanılan bir çizim yüzeyi olarak ifade edilmektedir. Canvas nesnesi, özellikleri, olayları ve yöntemleri ile, nesnelerin, grafiksel olarak, çizim, boyama ve yazı yüzü özelliklerini belirlemek için kullanılmaktadır

BRUSH
Brush, kapalı şekilleri doldurmak için kullanılan bir araçtır. Brush nesnesinin taşıdığı renk (brush.color), boyanacak alanın doldurulması için kullanılacaktır ve doldurma işlemi ile(fill), seçilen alan(clientrect, cliprect, vb.) bu renk ile boyanmış olacaktır. Brush nesnesi, taşıdığı renk(color), resim(bitmap) ve desen(style) ile tanımlanmaktadır.

...