Gelişmiş Translator

[ahmetbaba2120000]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

İyi günler arkadaşlar
Nacizane elimden geldiğince yapmış olduğum bir program var.
Amacı : Bir kutuya yazılan İngilizce cümle/kelime çevirisini yapıyor.
5 Cümle, 1 İngilizce ve Türkçe, 1 adet de İngilizce sözlük içeriyor.
Program 7 siteden aynı anda veri çekiyor.Bu yüzden açılışta 3-4 saniye donuyor ondan sonra düzeliyor.Belki benim pc eski olduğu için kasma yapıyordur.Ben çeviri yaparken kullanıyorum.Normalde 4-5 tane sekme açık olacağına programı açıyorum o tarayıcı sekmelerinin yaptığı işi tek başına yapıyor ve düzgün çalışıyor.Arada hata veriyor ama çok uzun kullanımlardan sonra oluyor.Yani 3-4 saatlik sık kullanımdan sonra bazen yavaşlama oluyor.Yenile yapınca da zaten düzeliyor.Kendini toparlıyor.
Programı sizlere sunmak istiyorum umarım birimizin işini görür.
Kuralları inşAllah ihlal etmiyorumdur.Eğer kural ihlali yapıyorsam lütfen beni uyarın konuyu direk silerim.
Fotoğraf :

(Kusura bakamyın resimdeki reklamdan dolayı.Aynı zamanda çevirmenlik yapıyorumda orada da paylaşmıştım belki birilerinin işine yarar diye.)

Çok konuştum programın linkini vereyim :

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

(Programı kendi açtığım bir free hosting sağlayıcısına yükledim.Programın güncellemesi sistemi için ücretsiz olmasından dolayı kullanıyorum.Başka bir amacı da yok zaten.Ücretsiz bunu bulduğum için kullanıyorum.)
Virüs total :

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

ÜYELİK BİLGİLERİ :
K.adı = turkmmo
Şifre = forum
Eğer tavsiye/öneri alırım.İyi kullanmalar.

 

[gameoveras]

Güzel kodlanmış bir program ellerinize sağlık. bunu sadece windows için değilde linux ve mac içinde kodlayın bence

 

[ahmetbaba2120000]

Güzel kodlanmış bir program ellerinize sağlık. bunu sadece windows için değilde linux ve mac içinde kodlayın bence

Teşekkürler, beğenmiş olmanıza sevindim.Yaptığım bu proğramdan yakında üyelik satışı yapmayı düşünüyorum şuan ki üyeliğide bir müddet sonra sileceğim.Eğer windows sürümü tutarsa diğer versionlarda da yapmak isterim açıkcası.Neden olmasın.
Bu arada bu tarz programların reklamını yapabileceğim bir yer var mı?

 

[ahmetbaba2120000]

Tam sürüm yayına girdi arkadaşlar.Siteden edinebilirsiniz.
Beta ve full versiyon olarak.

 

[Stax]

Friend Overridable Property

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

As

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

<

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

> _
Get
Return Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

End Get
<

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

(

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

),

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

> _
Set(ByVal WithEventsValue As

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

)
Dim handler As

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

= New

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

(AddressOf Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

)
If (Not Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Is Nothing) Then
RemoveHandler Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

, handler
End If
Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

= WithEventsValue
If (Not Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Is Nothing) Then
AddHandler Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

, handler
End If
End Set
End Property


Private Sub

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

(ByVal sender As

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

, ByVal e As

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

)
Dim enumerator As

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Dim all As

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

= Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Try
enumerator = all.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Do While enumerator.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Dim current As

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

= DirectCast(enumerator.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

,

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

)
If current.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

("data-placeholder").

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

("Translation") Then
Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

= current.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Me.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

.

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

End If
Loop
Finally
If TypeOf enumerator Is

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Then
TryCast(enumerator,

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

).

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

End If
End Try
End Sub


tarzında bütün uygulamanızın açık kaynak kodlarına erişilebilir durumda acemice kodlanmış klasik bir uygulama lütfen sabitlerinizi hex olarak tanımlayın