Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
04/11/2010 14:36
Konu Sahibi
gitarc
Yorumlar
3
Okunma
2557
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

gitarc

Aktif Üye
Aktif Üye
14
01/11/2010
0
Balıkesir
Ofis XP
01/05/2018,13:01
Exclamation 
resim

Gerekli Malzemeler:
1 Adet Timer
2 Adet Textbox
1 Adet Label
1 Adet Command Button

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
Private Sub Command1_Click()
Dim strkur
strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html") 'TCMB Sitesine bağlanır.
Text1.Text = Mid(strkur, InStr(strkur, "USD") + 70, 7) 'Alış Fiyatını texte yazdırır
Text2.Text = Mid(strkur, InStr(strkur, "USD") + 81, 9) 'Satış Fiyatını texte yazdırır
Label4.Caption = "30"
End Sub

Private Sub Form_Load()
Dim strkur
strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html") 'TCMB Sitesine bağlanır.
Text1.Text = Mid(strkur, InStr(strkur, "USD") + 70, 7) 'Alış Fiyatını texte yazdırır
Text2.Text = Mid(strkur, InStr(strkur, "USD") + 81, 9) 'Satış Fiyatını texte yazdırır
Label4.Caption = "30"
End Sub



Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Timer1_Timer()
Label4 = Val(Label4) - 1
If Label4 = "0" Then
Label4.Caption = "30"
Dim strkur
strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html") 'TCMB Sitesine bağlanır.
Text1.Text = Mid(strkur, InStr(strkur, "USD") + 70, 7) 'Alış Fiyatını texte yazdırır
Text2.Text = Mid(strkur, InStr(strkur, "USD") + 81, 9) 'Satış Fiyatını texte yazdırır
End If

End Sub

Hepinize İyi Program yazmalar...

.rar   kur.rar(Dosya Boyutu: 811 Bayt / İndirme Sayısı: 54)



Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
10/04/2018,10:30
Teşekkürler Sayın gitarc.


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

gitarc

Aktif Üye
Aktif Üye
14
01/11/2010
0
Balıkesir
Ofis XP
01/05/2018,13:01
önemli değil her zaman yardımcı olurum.


PROGRAMMER MEHMET

Kullanici Avatari

ercansahin

BlackEagle
Uzman
ER.... ŞA....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
03/03/2018,16:39
Sn gitarc, sitemize hoş geldiniz. Paylaşımınız için teşekkürler.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Dış İp Bulma Programı gitarc 1 4.583 05/11/2010, 10:13 akd
  Visual Basic'te On Numara Programı gitarc 2 3.232 04/11/2010, 20:14 benremix

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.