AccessTr.neT

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...
[attachment=10817]

Teşekkürler Sayın gitarc.

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

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