AccessTr.neT
Kur Takip Programı Yazalım - 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ığı: Kur Takip Programı Yazalım (/konu-kur-takip-programi-yazalim.html)



Kur Takip Programı Yazalım - gitarc - 04/11/2010

[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)



Cvp: Kur Takip Programı Yazalım - Hayri16 - 04/11/2010

Teşekkürler Sayın gitarc.


Cvp: Kur Takip Programı Yazalım - gitarc - 04/11/2010

önemli değil her zaman yardımcı olurum.


Cvp: Kur Takip Programı Yazalım - ercansahin - 04/11/2010

Sn gitarc, sitemize hoş geldiniz. Paylaşımınız için teşekkürler.