TheWayEnd Visual Basic Program ve Dersleri
Tarih
09/08/2011 13:25
Konu Sahibi
TheWayEnd
Yorumlar
6
Okunma
4779
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



TheWayEnd
Aktif Üye
Kullanici Avatari
Aktif Üye
79
20/06/2011
24
Bursa
Ofis 2003
12/10/2015,08:11
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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 http://www.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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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 http://www.accesstr.net")
End Sub


Kod:
Program İçin Gerekli Eklentiler

1- 1 Ad. Buton
2- 8 Ad. TextBox
3- msınet



Cevapla


TheWayEnd
Aktif Üye
Kullanici Avatari
Aktif Üye
79
20/06/2011
24
Bursa
Ofis 2003
12/10/2015,08:11
Proje 3 : TheWayEnd Gazete

resim

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
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 http://www.accesstr.net")

End Sub


Kod:
Program İçin Gerekli Eklentiler

1- 1 Ad. Combobox
2- webbrowser


Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
05/12/2016,09:18
Sn TheWayEnd emek paylaşım için teşekkürler. Ancak; programı kurmak isteyince şifre soruyor.
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


TheWayEnd
Aktif Üye
Kullanici Avatari
Aktif Üye
79
20/06/2011
24
Bursa
Ofis 2003
12/10/2015,08:11
Özür Dilerim

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


DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Paylaşım için teşekkürler.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla


TheWayEnd
Aktif Üye
Kullanici Avatari
Aktif Üye
79
20/06/2011
24
Bursa
Ofis 2003
12/10/2015,08:11
Proje 4 : TheWayEnd Altın Borsası


resim


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
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 http://www.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


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Visual Basic 6 952 Sayfa Kitap alpeki99 28 17.910 28/10/2015, 22:12 Mehmet Tolga Karaduman
  Visual Basic 6.0 Profesyonel Türkçe Eğitim Seti steeel 1 3.949 17/03/2014, 15:14 aydın3838
  Visual basic temel egitim seti chopper07 25 17.046 17/02/2012, 17:41 chopper07
  Visual Basic Menü Elemanları zihniates 5 4.010 08/01/2011, 15:18 Hayri16
  Visual Basic'te On Numara Programı gitarc 2 2.875 04/11/2010, 20:14 benremix


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya