merhaba arkadaşlar userformda bu siteden aldığım döviz kurları kodunu kullanıyordum. Ancak internete bağlı olmayan bir bilgisayarda programımı çalıştırmaya çalışınca bu kodlar sorun yaptı. Bunun için kodları silmeden ne yapmalıyım?
Private Sub butdoviz_Click()
'Microsoft İnternet Transfer Control, version 6.0 ı ekleyiniz.
'C:\Windows\System32 de MSINET.OCX i
'Bu kodlar genellikle *.html ve *.htm uzantılı sayfalarda işlem görmektedir.
partner = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html")
'USD adlı kelimeyi bulur ve 42. karakterden itibaren 6 karakter sağındakine kadar TextBox1 e aktarır. ‘Aşağıdakileri de bu şekilde yorumlayabilirsiniz.
TDolarSat.Text = Mid(partner, InStr(partner, "USD") + 55, 6) & " YTL"
TEuroSat.Text = Mid(partner, InStr(partner, "EUR") + 55, 6) & " YTL"
End Sub
Private Sub butdoviz_Click()
'Microsoft İnternet Transfer Control, version 6.0 ı ekleyiniz.
'C:\Windows\System32 de MSINET.OCX i
'Bu kodlar genellikle *.html ve *.htm uzantılı sayfalarda işlem görmektedir.
partner = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html")
'USD adlı kelimeyi bulur ve 42. karakterden itibaren 6 karakter sağındakine kadar TextBox1 e aktarır. ‘Aşağıdakileri de bu şekilde yorumlayabilirsiniz.
TDolarSat.Text = Mid(partner, InStr(partner, "USD") + 55, 6) & " YTL"
TEuroSat.Text = Mid(partner, InStr(partner, "EUR") + 55, 6) & " YTL"
End Sub