Merhabalar webbrowser kodlarını kullanarak kod çeviri kullanacağız. Bu sefer ki konumuzda diğerlerinden farklı olarak seçenekler üzerinden webbrowser'ımıza işlem yaptırmayı öğreneceğiz. Umarım Yararlı olmuşumdur.
Gerekenler;
Bir adet webbrowser URL'si
olsun.
2 adet textbox ikisi de scrollbars özelliği both olsun birisine kod gireceğiz diğeri girdiğimiz kodu istenen dile çevirecek yani sonuç textbox'u olacak.
colorize adında bir çağrı oluşturalım programı yıllar önce kodladığım için ne işe yaradığını araştırmadım siz değerli kullanıcılar çözecektir.
Form Load olayına programımızın script hataları ile bulanmaması için aşağıdaki kodu ekleyelim;
WebBrowser'imiz sayfa yüklenmeden işlem yapmaya kalkarsa diye aşağıdaki kodu ekleyelim;
1 tane buton koyalım ve çevir yazalım kodumuz aşağıdadır;
3 tane Radiobutton ekleyelim
İlkine VB.NET Dilinden C# Diline Çevir diyelim çift tıklayalım ve içerisine aşağıdaki kodu yapıştıralım;
İkincisine C# Dilinden VB.NET Diline Çevir diyelim ve çift tıklayalım daha sonra içerisine aşağıdaki kodu yapıştıralım;
Sonuncusuna ise Java Dilinden C# Diline Çevir diyelim çift tıkladıktan sonra aşağıdaki kodu yapıştıralım;
Bir adet timer ekleyelim enabled özelliğini false yapalım ıntervıval'ımız 100 olsun aşağıdaki kodu girelim;
Gerekenler;
Bir adet webbrowser URL'si
CodeTranslator: Code Translation From VB.NET <-> C# <-> TypeScript <-> Java
Code Converter. Free Online Code Translation for .NET C# and VB and TypeScript, Convert VB to C# and C# to VB. Convert C# to TypeScript. Convert VB to TypeScript. Convert Java to C#. Convert Java to TypeScript. Convert Java to VB
www.carlosag.net
2 adet textbox ikisi de scrollbars özelliği both olsun birisine kod gireceğiz diğeri girdiğimiz kodu istenen dile çevirecek yani sonuç textbox'u olacak.
colorize adında bir çağrı oluşturalım programı yıllar önce kodladığım için ne işe yaradığını araştırmadım siz değerli kullanıcılar çözecektir.
Kod:
Sub colorrize()
WebBrowser1.Document.GetElementById("_colorize").InvokeMember("click")
End Sub
Form Load olayına programımızın script hataları ile bulanmaması için aşağıdaki kodu ekleyelim;
Kod:
WebBrowser1.ScriptErrorsSuppressed = True
WebBrowser'imiz sayfa yüklenmeden işlem yapmaya kalkarsa diye aşağıdaki kodu ekleyelim;
Kod:
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Button1.PerformClick()
Timer1.Start()
End Sub
1 tane buton koyalım ve çevir yazalım kodumuz aşağıdadır;
Kod:
On Error Resume Next
Call colorrize()
WebBrowser1.Document.GetElementById("_code").SetAttribute("Value", TextBox1.Text)
WebBrowser1.Document.GetElementById("_colorize").InvokeMember("click")
3 tane Radiobutton ekleyelim
İlkine VB.NET Dilinden C# Diline Çevir diyelim çift tıklayalım ve içerisine aşağıdaki kodu yapıştıralım;
Kod:
TextBox2.Text = ""
WebBrowser1.Refresh()
İkincisine C# Dilinden VB.NET Diline Çevir diyelim ve çift tıklayalım daha sonra içerisine aşağıdaki kodu yapıştıralım;
Kod:
TextBox2.Text = ""
WebBrowser1.Document.GetElementById("_src").SetAttribute("Value", "C#")
Sonuncusuna ise Java Dilinden C# Diline Çevir diyelim çift tıkladıktan sonra aşağıdaki kodu yapıştıralım;
Kod:
TextBox2.Text = ""
WebBrowser1.Document.GetElementById("_src").SetAttribute("Value", "Java")
Bir adet timer ekleyelim enabled özelliğini false yapalım ıntervıval'ımız 100 olsun aşağıdaki kodu girelim;
Kod:
Dim PageElement As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
For Each CurElement As HtmlElement In PageElement
If (CurElement.GetAttribute("className") = "code") Then
TextBox2.Text = CurElement.InnerText
End If
Next
Button1.PerformClick()