AccessTr.neT

Bul · 15/08/2011, 09:29

Proje 4: TheWayEnd Web Çeviri

[Resim: f4hb80.jpg]

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 WebBrowser1.Navigate("http://translate.google.com.tr/translate?js=n&prev=_t&hl=tr&ie=UTF-8&layout=2&eotf=1&sl=en&tl=tr&u=" & TextBox1.Text & "&act=url")

	End Sub

End Class

Kod:

Program İçin Gerekli Eklentiler



1- 1 Ad. Webbrowser

2- 1 Ad. Buton

3- 1 Adet TextBox

Bul · 15/08/2011, 09:37

sayın TheWayEnd;
teşekkürler...

Bul · 15/08/2011, 10:10

Sayın TheWayEnd;Bu güzel paylaşım için ayrı ayrı teşekkürler

Bul · 19/08/2011, 08:43

Proje 5 : TheWayEnd Gazete Manşetleri

[Resim: 2q2e788.jpg]

Public Class Form1

	Private Sub Label1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/sabah-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/aksam-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/taraf-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label14.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/zaman-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/vatan-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/star-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/posta-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/vakit-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/fanatik-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/milliyet-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/radikal-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/takvim-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label17.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/fotomac-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label16.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/turkiye-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label15.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/sozcu-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label18.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/bugun-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/hurriyet-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/haberturk-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label19.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/yenisafak-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label20.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/fotospor-gazetesi/bugun.jpg")

	End Sub



	Private Sub Label21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label21.Click

 PictureBox1.Visible = True

 PictureBox1.Load("http://resimler.haberler.com/gazete/gunes-gazetesi/bugun.jpg")

	End Sub



	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 PictureBox1.Visible = False

	End Sub

End Class

Kod:

Program İçin Gerekli Eklentiler



1- 1 Ad. PictureBox

2- Labellar

Bul · 19/08/2011, 09:01

arkadaşlar bir htırlatma
TheWayEnd tarfından hazırlanan
Tüm Programların Şifresi: accesstr.net

Bul · 22/08/2011, 16:25

Proje 6 : TheWayEnd Şans Oyunları

[Resim: nqafcx.jpg]

Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 If RadioButton1.Checked = True Then ' Sayısal Loto

 TextBox1.Clear()

 TextBox2.Clear()

 TextBox3.Clear()

 TextBox4.Clear()

 TextBox5.Clear()

 TextBox6.Clear()

 TextBox7.Clear()

 TextBox8.Clear()

 TextBox9.Clear()

 TextBox10.Clear()

 Dim sayilar(5) As Integer

 Dim rsayi, sayac As Integer

 sayac = 0

 While sayac < 6

 rsayi = Int(Rnd() * 49 + 1)

 If (Array.IndexOf(sayilar, rsayi) = -1) Then

 sayilar(sayac) = rsayi

 sayac = sayac + 1

 End If

 End While

 TextBox1.Text = sayilar(0)

 TextBox2.Text = sayilar(1)

 TextBox3.Text = sayilar(2)

 TextBox6.Text = sayilar(3)

 TextBox7.Text = sayilar(4)

 TextBox8.Text = sayilar(5)

 End If

 If RadioButton3.Checked = True Then	'10 Numara

 TextBox1.Clear()

 TextBox2.Clear()

 TextBox3.Clear()

 TextBox4.Clear()

 TextBox5.Clear()

 TextBox6.Clear()

 TextBox7.Clear()

 TextBox8.Clear()

 TextBox9.Clear()

 TextBox10.Clear()

 Dim sayilar(9) As Integer

 Dim rsayi, sayac As Integer

 sayac = 0

 While sayac < 10

 rsayi = Int(Rnd() * 80 + 1)

 If (Array.IndexOf(sayilar, rsayi) = -1) Then

 sayilar(sayac) = rsayi

 sayac = sayac + 1

 End If

 End While

 TextBox1.Text = sayilar(0)

 TextBox2.Text = sayilar(1)

 TextBox3.Text = sayilar(2)

 TextBox6.Text = sayilar(3)

 TextBox7.Text = sayilar(4)

 TextBox8.Text = sayilar(5)

 TextBox4.Text = sayilar(6)

 TextBox5.Text = sayilar(7)

 TextBox9.Text = sayilar(8)

 TextBox10.Text = sayilar(9)

 End If

 If RadioButton2.Checked = True Then	' Şans Topu

 TextBox1.Clear()

 TextBox2.Clear()

 TextBox3.Clear()

 TextBox4.Clear()

 TextBox5.Clear()

 TextBox6.Clear()

 TextBox7.Clear()

 TextBox8.Clear()

 TextBox9.Clear()

 TextBox10.Clear()

 Dim sayilar(4) As Integer

 Dim rsayi, sayac As Integer

 sayac = 0

 While sayac < 5

 rsayi = Int(Rnd() * 34 + 1)

 If (Array.IndexOf(sayilar, rsayi) = -1) Then

 sayilar(sayac) = rsayi

 sayac = sayac + 1

 End If

 End While

 TextBox1.Text = sayilar(0)

 TextBox2.Text = sayilar(1)

 TextBox3.Text = sayilar(2)

 TextBox4.Text = sayilar(3)

 TextBox5.Text = sayilar(4)

 End If

 Dim sayilar2(0) As Integer

 Dim rsayi2, sayac2 As Integer

 sayac2 = 0

 While sayac2 < 1

 rsayi2 = Int(Rnd() * 14 + 1)

 If (Array.IndexOf(sayilar2, rsayi2) = -1) Then

 sayilar2(sayac2) = rsayi2

 sayac2 = sayac2 + 1

 End If

 End While

 TextBox8.Text = sayilar2(0)

 If RadioButton4.Checked = True Then	'Süper Loto

 TextBox1.Clear()

 TextBox2.Clear()

 TextBox3.Clear()

 TextBox4.Clear()

 TextBox5.Clear()

 TextBox6.Clear()

 TextBox7.Clear()

 TextBox8.Clear()

 TextBox9.Clear()

 TextBox10.Clear()

 Dim sayilar(5) As Integer

 Dim rsayi, sayac As Integer

 sayac = 0

 While sayac < 6

 rsayi = Int(Rnd() * 54 + 1)

 If (Array.IndexOf(sayilar, rsayi) = -1) Then

 sayilar(sayac) = rsayi

 sayac = sayac + 1

 End If

 End While

 TextBox1.Text = sayilar(0)

 TextBox2.Text = sayilar(1)

 TextBox3.Text = sayilar(2)

 TextBox6.Text = sayilar(3)

 TextBox7.Text = sayilar(4)

 TextBox8.Text = sayilar(5)

 End If

	End Sub



	Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

 Shell("explorer.exe https://accesstr.net")

	End Sub

End Class

Kod:

Program İçin Gerekli Eklentiler



1- 10 Ad. TextBox

2- 1 Ad. Buton

3- 4 Ad. RadioButon

4- 1 Ad. GroupBox

AccessTr.neT

TheWayEnd VB.Net Program ve Dersleri

TheWayEnd VB.Net Program ve Dersleri

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri