TheWayEnd Visual Basic Program ve Dersleri

TheWayEnd Visual Basic Program ve Dersleri - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Dersleri (https://accesstr.net/forum-visual-basic-6-dersleri.html)
+--- Konu Başlığı: TheWayEnd Visual Basic Program ve Dersleri (/konu-thewayend-visual-basic-program-ve-dersleri.html)

Sayfalar: 1 2

TheWayEnd Visual Basic Program ve Dersleri - TheWayEnd - 09/08/2011

Evet arkadaşlar kendi kodlamış olduğum visual basic 6 programlarımı kodlarıyla birlikte sizlere bu konu altında paylaşacağım.
Derslerimiz Görsel ve Metin şeklinde devam edecektir.

Proje 1 : TheWayEnd Kilo Kontrol

[Resim: 15g6lc3.jpg]

Private Sub Command1_Click()

On Error Resume Next

a = Text1.Text

b = Text2.Text

If Text1.Text = "" Then

MsgBox "BOYUNUZU GİRİNİZ!.."

End If

If Text2.Text = "" Then

MsgBox "KİLONUZU GİRİNİZ!.."

End If

c = (a - 150) / 4 + 100

d = a - c

e = b - d

Text4.Text = d

Text3.Text = " Kilogram Olmanız Gerekli."

Text6.Text = e

Text5.Text = " Kilo Farkı Kapatınız."

End Sub



Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

End Sub



Private Sub Form_Load()



End Sub



Private Sub Label5_Click()

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

End Sub

Kod:

Program İçin Gerekli Eklentiler



1- 2 Ad. Buton

2- 6 Ad. TextBox

Proje 2 : TheWayEnd Günlük Döviz

[Resim: 34gajoj.jpg]

Private Sub Command1_Click()

Dim strkur As String

strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html")

lblDovizUsd = Trim(Mid(strkur, InStr(strkur, "USD") + 39, 10))

lblDovizUsdsatis = Trim(Mid(strkur, InStr(strkur, "USD") + 55, 10))

lblDovizEftUsd = Trim(Mid(strkur, InStr(strkur, "USD") + 70, 10))

lblDovizEftUsdSatis = Trim(Mid(strkur, InStr(strkur, "USD") + 83, 7))

lblDovizEUR = Trim(Mid(strkur, InStr(strkur, "EUR") + 39, 10))

lblDovizeursatis = Trim(Mid(strkur, InStr(strkur, "EUR") + 55, 10))

lblDovizEurEft = Trim(Mid(strkur, InStr(strkur, "EUR") + 70, 10))

lblDovizEurEftSatis = Trim(Mid(strkur, InStr(strkur, "EUR") + 83, 7))



Text1.Text = lblDovizUsd

Text2.Text = lblDovizUsdsatis

Text3.Text = lblDovizEftUsd

Text4.Text = lblDovizEftUsdSatis

Text5.Text = lblDovizEUR

Text6.Text = lblDovizeursatis

Text7.Text = lblDovizEurEft

Text8.Text = lblDovizEurEftSatis



End Sub



Private Sub Label10_Click()

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

End Sub

Kod:

Program İçin Gerekli Eklentiler



1- 1 Ad. Buton

2- 8 Ad. TextBox

3- msınet

Cvp: TheWayEnd Visual Basic Program ve Dersleri - TheWayEnd - 09/08/2011

Proje 3 : TheWayEnd Gazete

[Resim: 2enz5lf.jpg]

Private Sub Combo1_Click()

If Combo1.Text = "Sabah Gazetesi" Then

WebBrowser1.Navigate ("http://www.sabah.com.tr")

End If

If Combo1.Text = "Akşam Gazetesi" Then

WebBrowser1.Navigate ("http://www.aksam.com.tr")

End If

If Combo1.Text = "Taraf Gazetesi" Then

WebBrowser1.Navigate ("http://www.taraf.com.tr")

End If

If Combo1.Text = "HaberTürk Gazetesi" Then

WebBrowser1.Navigate ("http://www.haberturk.com")

End If

If Combo1.Text = "Zaman Gazetesi" Then

WebBrowser1.Navigate ("http://www.zaman.com.tr")

End If

If Combo1.Text = "Milliyet Gazetesi" Then

WebBrowser1.Navigate ("http://www.milliyet.com.tr")

End If

If Combo1.Text = "Hürriyet Gazetesi" Then

WebBrowser1.Navigate ("http://www.hurriyet.com.tr")

End If

If Combo1.Text = "Star Gazetesi" Then

WebBrowser1.Navigate ("http://www.stargazete.com")

End If

If Combo1.Text = "Bugün Gazetesi" Then

WebBrowser1.Navigate ("http://www.bugun.com.tr")

End If

If Combo1.Text = "Posta Gazetesi" Then

WebBrowser1.Navigate ("http://www.posta.com.tr")

End If

If Combo1.Text = "Takvim Gazetesi" Then

WebBrowser1.Navigate ("http://www.takvim.com.tr")

End If

If Combo1.Text = "Tercuman Gazetesi" Then

WebBrowser1.Navigate ("http://www.tercuman.com.tr")

End If

If Combo1.Text = "Fanatik Gazetesi" Then

WebBrowser1.Navigate ("http://www.fanatik.com.tr")

End If

If Combo1.Text = "Fotomaç Gazetesi" Then

WebBrowser1.Navigate ("http://www.fotomac.com.tr")

End If

End Sub





Private Sub Form_Load()

Combo1.AddItem ("Sabah Gazetesi")

Combo1.AddItem ("Akşam Gazetesi")

Combo1.AddItem ("Taraf Gazetesi")

Combo1.AddItem ("HaberTürk Gazetesi")

Combo1.AddItem ("Zaman Gazetesi")

Combo1.AddItem ("Milliyet Gazetesi")

Combo1.AddItem ("Hürriyet Gazetesi")

Combo1.AddItem ("Star Gazetesi")

Combo1.AddItem ("Bugün Gazetesi")

Combo1.AddItem ("Posta Gazetesi")

Combo1.AddItem ("Takvim Gazetesi")

Combo1.AddItem ("Tercuman Gazetesi")

Combo1.AddItem ("Fanatik Gazetesi")

Combo1.AddItem ("Fotomaç Gazetesi")

End Sub



Private Sub Label1_Click()

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



End Sub

Kod:

Program İçin Gerekli Eklentiler



1- 1 Ad. Combobox

2- webbrowser

Cvp: TheWayEnd Visual Basic Program ve Dersleri - benremix - 09/08/2011

Sn TheWayEnd emek paylaşım için teşekkürler. Ancak; programı kurmak isteyince şifre soruyor.
Saygılar...

Cvp: TheWayEnd Visual Basic Program ve Dersleri - TheWayEnd - 09/08/2011

Özür Dilerim

Tüm Programların Şifresi: accesstr.net

Cvp: TheWayEnd Visual Basic Program ve Dersleri - DUAYEN - 10/08/2011

Paylaşım için teşekkürler.

Cvp: TheWayEnd Visual Basic Program ve Dersleri - TheWayEnd - 23/08/2011

Proje 4 : TheWayEnd Altın Borsası

[Resim: 15gv9zn.jpg]

Dim altin As String

Private Sub Form_Load()

Option1.Value = False

Option2.Value = False

Option3.Value = False

Option4.Value = False

Option6.Value = False

Option8.Value = False

End Sub



Private Sub Label6_Click()

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

End Sub



Private Sub Option1_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

guncel = Trim(Mid(altin, InStr(altin, "ctl00_ContentPlaceHolder1_lb_time") + 35, 19))

Label2.Caption = guncel

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaral22 = Trim(Mid(altin, InStr(altin, "22 Ayar Bilezik") + 208, 7))

ayarsat22 = Trim(Mid(altin, InStr(altin, "22 Ayar Bilezik") + 416, 7))

Text1.Text = ayaral22

Text2.Text = ayarsat22

End Sub

Private Sub Option2_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaral18 = Trim(Mid(altin, InStr(altin, "18 Ayar") + 225, 7))

ayarsat18 = Trim(Mid(altin, InStr(altin, "18 Ayar") + 451, 7))

Text1.Text = ayaral18

Text2.Text = ayarsat18

End Sub

Private Sub Option3_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaral14 = Trim(Mid(altin, InStr(altin, "14 Ayar") + 207, 7))

ayarsat14 = Trim(Mid(altin, InStr(altin, "14 Ayar") + 415, 7))

Text1.Text = ayaral14

Text2.Text = ayarsat14

End Sub

Private Sub Option4_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaralce = Trim(Mid(altin, InStr(altin, "eyrek") + 221, 7))

ayarsatce = Trim(Mid(altin, InStr(altin, "eyrek") + 446, 7))

Text1.Text = ayaralce

Text2.Text = ayarsatce

End Sub



Private Sub Option6_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaralcum = Trim(Mid(altin, InStr(altin, "Cumhuriyet") + 201, 7))

ayarsatcum = Trim(Mid(altin, InStr(altin, "Cumhuriyet") + 408, 7))

Text1.Text = ayaralcum

Text2.Text = ayarsatcum

End Sub





Private Sub Option8_Click()

altin = Inet1.OpenURL("http://www.altinkaynak.com/gold.aspx")

ayaralgr = Trim(Mid(altin, InStr(altin, "Gram") + 204, 7))

ayarsatgr = Trim(Mid(altin, InStr(altin, "Gram") + 412, 7))

Text1.Text = ayaralgr

Text2.Text = ayarsatgr

End Sub

Kod:

Program İçin Gerekli Eklentiler



1- Optionlar

2- 2 Ad. TextBox

3- msınet