{"id":657,"date":"2015-01-26T11:55:58","date_gmt":"2015-01-26T09:55:58","guid":{"rendered":"http:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/"},"modified":"2021-12-18T13:30:50","modified_gmt":"2021-12-18T11:30:50","slug":"nesne-deger-girme","status":"publish","type":"post","link":"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/","title":{"rendered":"Nesne De\u011fer Girme"},"content":{"rendered":"

Bu yaz\u0131mda sizlere Textbox, Numericupdown gibi nesnelere de\u011fer girmek i\u00e7in kullanaca\u011f\u0131n\u0131z InputBox \u00f6zelli\u011finden bahsedece\u011fim. NumericUpDown kullan\u0131ld\u0131\u011f\u0131nda Text \u00f6zelli\u011fi yerine Value \u00f6zelli\u011fi kullan\u0131lmal\u0131d\u0131r. InputBox, Dat Net’in de\u011fer girme penceresidir. Bu pencere a\u00e7\u0131lmadan \u00f6nce girilen \u00fc\u00e7 de\u011feri g\u00f6sterir.<\/p>\n

myValue = InputBox(<\/span>“TextBox_0 de\u011ferini yaz\u0131n\u0131z:”<\/span> , <\/span>“TextBox De\u011fer Girme”<\/span> , sender.Text)<\/span><\/p>\n

Yukar\u0131da g\u00f6r\u00fcld\u00fc\u011f\u00fc gibi “TextBox_0 de\u011ferini yaz\u0131n\u0131z:” a\u00e7\u0131klama allan\u0131d\u0131r. “TextBox De\u011fer Girme” bu k\u0131s\u0131m ise ba\u015fl\u0131k alan\u0131d\u0131r. sender.Text ise ba\u015flang\u0131\u00e7ta g\u00f6sterece\u011fi de\u011fer alan\u0131d\u0131r. Bu parametreler ile a\u00e7\u0131lan inputBox cancel butonuna t\u0131kland\u0131\u011f\u0131nda bo\u015f\u00a0bir string d\u00f6nd\u00fcr\u00fcr.\u00a0\u00a0Bu nedenle kodumuzda bo\u015f string g\u00f6r\u00fcld\u00fc\u011f\u00fcnde fonksiyonu bitiren a\u015fa\u011f\u0131daki sat\u0131r\u0131 yazd\u0131k.<\/span><\/span><\/span><\/span><\/p>\n

if<\/span> myValue = <\/span>“”<\/span><\/span> then<\/span><\/span> exit<\/span><\/span> sub<\/span><\/span><\/p>\n

Okey butonuna bas\u0131ld\u0131\u011f\u0131nda ise InputBox i\u00e7ersinde yazd\u0131\u011f\u0131m\u0131z veri myValue nesnesine yaz\u0131l\u0131r. Kodumuzda bu de\u011fer ile ilgili baz\u0131 s\u0131n\u0131rlamalar\u0131 kontrol ettikten sonra de\u011feri Tag_1’e ve TextBox_0’a yaz\u0131yoruz. Yazd\u0131\u011f\u0131m\u0131z bu script sayfa a\u00e7\u0131l\u0131rken bir kere \u00e7al\u0131\u015fmas\u0131 yeterlidir. Bunun i\u00e7in Screen Load fonksiyonunu kullanabilirsiniz. Bu fonksiyona scada sayfas\u0131nda bo\u015f bir yere sa\u011f kilik yaparak Screen Properties men\u00fcs\u00fcnden ula\u015fabilirsiniz.<\/p>\n

Imports<\/span> System<\/span><\/p>\n

Imports<\/span><\/span> System.IO<\/span><\/p>\n

Imports<\/span><\/span> System.Windows.Forms<\/span><\/p>\n

Imports<\/span><\/span> Microsoft.VisualBasic<\/span><\/p>\n

Namespace<\/span><\/span> WinTr<\/span><\/p>\n

Public<\/span><\/span> Class<\/span><\/span> MainClass <\/span><\/p>\n

Public<\/span><\/span> RWTagValue <\/span>As<\/span><\/span> Object<\/span><\/span><\/p>\n

Public<\/span><\/span> ObjectOfActiveScreen <\/span>As<\/span><\/span> System.Collections.ArrayList<\/span><\/p>\n

Public<\/span><\/span> ObjectNameOfActiveScreen <\/span>As<\/span><\/span> System.Collections.ArrayList<\/span><\/p>\n

Public<\/span><\/span> Sub<\/span><\/span> Load<\/span><\/p>\n

dim<\/span><\/span> i <\/span>as<\/span><\/span> integer<\/span><\/span> = ObjectNameOfActiveScreen.IndexOf(<\/span>“TextBox_0”<\/span><\/span>)<\/span><\/p>\n

if<\/span><\/span> i > -1 <\/span>Then<\/span><\/span><\/p>\n

Dim<\/span><\/span> t <\/span>as<\/span><\/span> TextBox = ObjectOfActiveScreen(i)<\/span><\/p>\n

AddHandler<\/span><\/span> t.MouseClick, <\/span>AddressOf<\/span><\/span> TextBox_0_MouseClick<\/span><\/p>\n

Else<\/span><\/span><\/p>\n

Msgbox(<\/span>“TextBox_0 bu sayfada yok!”<\/span><\/span>)<\/span><\/p>\n

End<\/span><\/span> If<\/span><\/span><\/p>\n

End<\/span><\/span> Sub<\/span><\/span><\/p>\n

Private<\/span><\/span> Sub<\/span><\/span> TextBox_0_MouseClick(<\/span>ByVal<\/span><\/span> sender <\/span>As<\/span><\/span> Object, <\/span>ByVal<\/span><\/span> e <\/span>As<\/span><\/span> System.Windows.Forms.MouseEventArgs)<\/span><\/p>\n

Dim<\/span><\/span> myValue <\/span>As<\/span><\/span> Object<\/span><\/span><\/p>\n

Tekrar: myValue = InputBox(<\/span>“TextBox_0 de\u011ferini yaz\u0131n\u0131z:”<\/span><\/span> , <\/span>“TextBox De\u011fer Girme”<\/span><\/span> , sender.Text)<\/span><\/p>\n

if<\/span><\/span> myValue = <\/span>“”<\/span><\/span> then<\/span><\/span> exit<\/span><\/span> sub<\/span><\/span><\/p>\n

if<\/span><\/span> isNumeric(myValue) <\/span>Then<\/span><\/span><\/p>\n

if<\/span><\/span> myValue > 0 <\/span>and<\/span><\/span> myValue < 100 <\/span>Then<\/span><\/span><\/p>\n

If<\/span><\/span> MsgBox(<\/span>“De\u011fer de\u011fi\u015ftirilecek, Eminmisiniz?”<\/span><\/span> ,MsgBoxStyle.YesNo) = MsgBoxResult.Yes <\/span>Then<\/span><\/span><\/p>\n

sender.Text = myValue<\/p>\n

RWTagValue.Value(<\/span>“Tag_1”<\/span><\/span>) = sender.Text<\/span><\/p>\n

Else<\/span><\/span><\/p>\n

goto<\/span><\/span> Tekrar<\/span><\/p>\n

End<\/span><\/span> If<\/span><\/span><\/p>\n

Else<\/span><\/span><\/p>\n

MsgBox(<\/span>“Girilen de\u011fer 0 ile 100 aras\u0131nda olabilir.”<\/span><\/span>)<\/span><\/p>\n

Goto<\/span><\/span> Tekrar<\/span><\/p>\n

End<\/span><\/span> If<\/span><\/span><\/p>\n

End<\/span><\/span> If<\/span><\/span><\/p>\n

End<\/span><\/span> Sub<\/span><\/span><\/p>\n

End<\/span><\/span> Class<\/span><\/span><\/p>\n

End<\/span><\/span> Namespace<\/span><\/span><\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

Bu yaz\u0131mda sizlere Textbox, Numericupdown gibi nesnelere de\u011fer girmek i\u00e7in kullanaca\u011f\u0131n\u0131z InputBox \u00f6zelli\u011finden bahsedece\u011fim. NumericUpDown kullan\u0131ld\u0131\u011f\u0131nda Text \u00f6zelli\u011fi yerine Value \u00f6zelli\u011fi kullan\u0131lmal\u0131d\u0131r. InputBox, Dat Net’in de\u011fer girme penceresidir. Bu pencere a\u00e7\u0131lmadan \u00f6nce girilen \u00fc\u00e7 de\u011feri g\u00f6sterir. myValue = InputBox(“TextBox_0 de\u011ferini yaz\u0131n\u0131z:” , “TextBox De\u011fer Girme” , sender.Text) Yukar\u0131da g\u00f6r\u00fcld\u00fc\u011f\u00fc gibi “TextBox_0 de\u011ferini yaz\u0131n\u0131z:” a\u00e7\u0131klama allan\u0131d\u0131r. […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11,20],"tags":[282,281,283,284,280],"class_list":["post-657","post","type-post","status-publish","format-standard","hentry","category-scada-sayfa","category-scada-script","tag-deger-kontrol-ekrani","tag-eminmisiniz-sorgusu","tag-input-box","tag-inputbox","tag-onay-kutusu"],"yoast_head":"\nNesne De\u011fer Girme - SCADA E\u011fitim Sitesi<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/\" \/>\n<meta name=\"twitter:label1\" content=\"Yazan:\" \/>\n\t<meta name=\"twitter:data1\" content=\"Salih\" \/>\n\t<meta name=\"twitter:label2\" content=\"Tahmini okuma s\u00fcresi\" \/>\n\t<meta name=\"twitter:data2\" content=\"2 dakika\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2015\\\/01\\\/nesne-deger-girme\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2015\\\/01\\\/nesne-deger-girme\\\/\"},\"author\":{\"name\":\"Salih\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#\\\/schema\\\/person\\\/b439f08807fdc9e273a233976c5eb1be\"},\"headline\":\"Nesne De\u011fer Girme\",\"datePublished\":\"2015-01-26T09:55:58+00:00\",\"dateModified\":\"2021-12-18T11:30:50+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2015\\\/01\\\/nesne-deger-girme\\\/\"},\"wordCount\":406,\"commentCount\":5,\"keywords\":[\"De\u011fer Kontrol Ekran\u0131\",\"Eminmisiniz sorgusu\",\"Input Box\",\"InputBox\",\"Onay kutusu\"],\"articleSection\":[\"Sayfa D\u00fczenleyici\",\"Script Writer\"],\"inLanguage\":\"tr\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2015\\\/01\\\/nesne-deger-girme\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2015\\\/01\\\/nesne-deger-girme\\\/\",\"url\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2015\\\/01\\\/nesne-deger-girme\\\/\",\"name\":\"Nesne De\u011fer Girme - SCADA E\u011fitim Sitesi\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#website\"},\"datePublished\":\"2015-01-26T09:55:58+00:00\",\"dateModified\":\"2021-12-18T11:30:50+00:00\",\"author\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#\\\/schema\\\/person\\\/b439f08807fdc9e273a233976c5eb1be\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2015\\\/01\\\/nesne-deger-girme\\\/#breadcrumb\"},\"inLanguage\":\"tr\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2015\\\/01\\\/nesne-deger-girme\\\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/2015\\\/01\\\/nesne-deger-girme\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Nesne De\u011fer Girme\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#website\",\"url\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/\",\"name\":\"SCADA E\u011fitim Sitesi\",\"description\":\"SCADA program\u0131 hakk\u0131nda bilmek istedikleriniz.\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"tr\"},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/#\\\/schema\\\/person\\\/b439f08807fdc9e273a233976c5eb1be\",\"name\":\"Salih\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"tr\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g\",\"caption\":\"Salih\"},\"sameAs\":[\"http:\\\/\\\/www.fultek.com.tr\"],\"url\":\"https:\\\/\\\/www.fultek.com.tr\\\/scada-yardim\\\/author\\\/salih\\\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Nesne De\u011fer Girme - SCADA E\u011fitim Sitesi","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/","twitter_misc":{"Yazan:":"Salih","Tahmini okuma s\u00fcresi":"2 dakika"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/#article","isPartOf":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/"},"author":{"name":"Salih","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#\/schema\/person\/b439f08807fdc9e273a233976c5eb1be"},"headline":"Nesne De\u011fer Girme","datePublished":"2015-01-26T09:55:58+00:00","dateModified":"2021-12-18T11:30:50+00:00","mainEntityOfPage":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/"},"wordCount":406,"commentCount":5,"keywords":["De\u011fer Kontrol Ekran\u0131","Eminmisiniz sorgusu","Input Box","InputBox","Onay kutusu"],"articleSection":["Sayfa D\u00fczenleyici","Script Writer"],"inLanguage":"tr","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/","url":"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/","name":"Nesne De\u011fer Girme - SCADA E\u011fitim Sitesi","isPartOf":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#website"},"datePublished":"2015-01-26T09:55:58+00:00","dateModified":"2021-12-18T11:30:50+00:00","author":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#\/schema\/person\/b439f08807fdc9e273a233976c5eb1be"},"breadcrumb":{"@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/#breadcrumb"},"inLanguage":"tr","potentialAction":[{"@type":"ReadAction","target":["https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/2015\/01\/nesne-deger-girme\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/www.fultek.com.tr\/scada-yardim\/"},{"@type":"ListItem","position":2,"name":"Nesne De\u011fer Girme"}]},{"@type":"WebSite","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#website","url":"https:\/\/www.fultek.com.tr\/scada-yardim\/","name":"SCADA E\u011fitim Sitesi","description":"SCADA program\u0131 hakk\u0131nda bilmek istedikleriniz.","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/www.fultek.com.tr\/scada-yardim\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"tr"},{"@type":"Person","@id":"https:\/\/www.fultek.com.tr\/scada-yardim\/#\/schema\/person\/b439f08807fdc9e273a233976c5eb1be","name":"Salih","image":{"@type":"ImageObject","inLanguage":"tr","@id":"https:\/\/secure.gravatar.com\/avatar\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/71953beeb6b97dd8eeecb5d9b86339eedb7662215ebdf0761d17ac26bc31f94b?s=96&d=mm&r=g","caption":"Salih"},"sameAs":["http:\/\/www.fultek.com.tr"],"url":"https:\/\/www.fultek.com.tr\/scada-yardim\/author\/salih\/"}]}},"_links":{"self":[{"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/posts\/657","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/comments?post=657"}],"version-history":[{"count":3,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/posts\/657\/revisions"}],"predecessor-version":[{"id":660,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/posts\/657\/revisions\/660"}],"wp:attachment":[{"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/media?parent=657"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/categories?post=657"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.fultek.com.tr\/scada-yardim\/wp-json\/wp\/v2\/tags?post=657"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}