Başlangıç > Kodlar > Visual Basic 6 ile Text kutusuna girilen işlemi gerçekleştirmek

Visual Basic 6 ile Text kutusuna girilen işlemi gerçekleştirmek


Örneğin bir text kutusuna girilen "2*(sin(37)+5)*(500/sin(45) gibi bir işlemi VBScript ile yapmak aslında çok kolay

Bir textbox'a girilen (Örn:(3+5*(13-Sin(90))) mod 5) bir işlemi gerçekleştirmek için VB'deki ScriptControl nesnesini kullanmak en iyi yöntem herhalde .  Bunun için Project Menüsünden Components'e girerek "Microsoft Script Control 1.0" nesnesini aktif hale getirin . Toolbox'a ScriptControl nesnesi yerleşecektir . Bu nesneyi formun herhangibir yerine yerleştirerek "Language" özelliğinin "VBScript" olmasına dikkat edelim . Şimdi iki tane textbox yerleştirip formun kod penceresine şu kodu yerleştirmek yeterli olacaktır:

'Code By UA
'
'
Private Sub Text1_KeyPress(Keyascii as Integer)
if keyascii=13 then ' Text1'de Enter a basılırsa
ScriptControl1.ExecuteStatement "sonuc=" & Text1'text1 deki işlemi gerçekleştir
Text2=scriptControl1.Eval("sonuc") ' sonuc değişkenini text2'ye aktar
End if
End Sub



TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: