<% Public Function VeriAl(strGelen) Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) objVeriAl.Open "GET" , strGelen, FALSE objVeriAl.sEnd VeriAl = objVeriAl.Responsetext SET objVeriAl = Nothing End Function strAdres = "http://www.tcmb.gov.tr/kurlar/today.html" strVeri = VeriAL(strAdres) iDolar=InStr(strVeri,"USD" ) strDolarAlis=Mid(strVeri,iDolar+50,10) strDolarSatis=Mid(strVeri,iDolar+51,10) strDolarSatis1=Mid(strVeri,iDolar+51,5) strDolarSatis2=Mid(strVeri,iDolar+57,13) iEuro=InStr(strVeri,"EUR" ) strEuroAlis=Mid(strVeri,iEuro+38,11) 'alis strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis strEuroSatis1=Mid(strVeri,iEuro+50,6) 'satis strEuroSatis2=Mid(strVeri,iEuro+57,4) 'satis dolar = strDolarSatis1+","+strDolarSatis2 euro = strEuroSatis1+","+strEuroSatis2 'dolar=1 'euro=1 %> Punta - Mak

   

        Teknik Özellikler

Pnömatik sistem
Plc kontrollü Dijital Kumanda
Su Soğutmalı
380 volt iki faz girişi
24 volt Dc bobin
Pedal veya Buton ikazlı
Çelik kasa ve konstriksiyon

Savaş Punta Makinası  
Tablalı Punta Makinası
Kollu Punta Makinası
Alın Punta Makinası
Alt Üst Hareketli Punta Makinası
Seruo Kontrollü Punta Makinası
Masaüstü Punta Makinası

  Designed By Stratejimedya

Tüm Hakları Saklıdır.