Skip to main content

AccessTr.neT


Kur Takip Programı Yazalım

Kur Takip Programı Yazalım

Exclamation #1
[Resim: nv73hf.jpg]

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

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ı: 55)
Son Düzenleme: 04/11/2010, 14:42, Düzenleyen: gitarc.
Cevapla
#2
Teşekkürler Sayın gitarc.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#3
önemli değil her zaman yardımcı olurum.
PROGRAMMER MEHMET
Cevapla
#4
Sn gitarc, sitemize hoş geldiniz. Paylaşımınız için teşekkürler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task