Skip to main content

AccessTr.neT


TheWayEnd VB.Net Program ve Dersleri

TheWayEnd
TheWayEnd
13
10689

TheWayEnd VB.Net Program ve Dersleri

#7
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

Cevapla
#8
sayın TheWayEnd;
teşekkürler...
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
#9
Sayın TheWayEnd;Bu güzel paylaşım için ayrı ayrı teşekkürler
Cevapla
#10
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

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

Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
#12
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

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task