<% 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

Servo kontrollü
Otomatik çoklu Punta
Çift Trafo Beslemeli
Programlanabilir Hat ve Ayarı
İşe göre özel üretim

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.