Articles by "sı"
sı etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Kızartma yağını getir, ayçiçeği götür!

'Atık yağı getir, ayçiçek yağını götür' kampanyası
Bursa Mustafakemalpaşa Belediyesi, sağlığı ve çevreyi tehdit eden bitkisel ve hayvansal atık yağların toplanması için yeni bir uygulama başlattı. Lavaboya dökülen bir litre atık yağın 1 milyon litre suyu kirlettiği gerçeğinden hareketle Ezici&Deha Biodizel firması işbirliğiyle düzenlenen uygulama kapsamında evlerde biriktirilen atık yağlar toplanacak. Vatandaşlara her 5 litre atık yağ için 1 litrelik ambalajlı ayçiçeği yağı hediye edilecek.

'DÖNÜŞÜM PROJESİ'
Kampanya hakkında bilgi veren Belediye Başkanı Sadi Kurtulan, atık yağ toplama uygulamasının çevreye ve ekonomiye katkı sunan önemli bir dönüşüm projesi olduğunu söyledi. Bitkisel ve hayvansal yağları temiz bir çevre için topladıklarına dikkat çeken Başkan Kurtulan, "Çevremizi, sağlığımızı ve suyumuzu korumak, çocuklarımıza yaşanabilir bir gelecek bırakmak için herkese büyük sorumluluk düşüyor. AB ülkelerinde kişi başına düşen yıllık toplanan atık yağ miktarı 2,4 kilogram iken, Türkiye'de 200 gramdır." dedi.
Evlerde ve lokantalarda kullanılan atık yağların lavaboya veya toprağa dökülmesinin çevre açısından çok büyük zararlara yol açtığını vurgulayan Kurtulan, "Bir litre atık yağın bir milyon metreküp suyu kirlettiği bilimsel araştırmalarla ortaya konmuştur. Atık su kanallarına karışan bitkisel yağlar, kanalizasyon sistemlerini tıkadığı gibi denizlere ulaşarak sularda yaşayan canlılara da ciddi zararlar vermektedir. Bütün bu etkiler dikkate alındığında daha temiz bir Mustafakemalpaşa için çevremizi kirleten atıklar konusunda hepimiz duyarlı olmalıyız. Başlattığımız bu kampanya ile hem su kirliliğini önlemiş hem de atıkların geri dönüşümü ile ekonomiye kazandırmış olacağız. Mustafakemalpaşa Belediyesi olarak bu konuya özel bir önem veriyor ve kampanyaya katılımı özendirmek amacıyla, ekiplerimize teslim edilen her 5 litre atık yağ karşılığında vatandaşımıza 1 litrelik ambalajlı ayçiçeği sıvı yağ hediye ediyoruz." diye konuştu.

ATIK YAĞLAR EVLERDEN ALINACAK
Atık yağların 15 günde bir anlaşmalı firma yetkilileri tarafından toplanacağını dile getiren Belediye Başkanı Sadi Kurtulan, kampanyaya katılacak vatandaşların iletişim için mesai saatleri içinde (0224) 613 35 50 nolu telefonla Mustafakemalpaşa Belediyesi Temizlik İşleri Müdürlüğü'ne, mesai saatleri dışında ise 153 nolu Zabıta Müdürlüğü'ne başvurabileceklerini sözlerine ekledi.
Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Microsoft, TL simgesi için resmi güncelleme yayınladı..
Yayınlanan resmi güncelleme ile yeni TL simgemiz artık Windows 7, Windows Vista, Windows Server 2008, Windows Server 2008 R2′de sorunsuz bir şekilde kullanılabilecek.
Yeni TL simgesini Türkçe Q ve F klavyede AltGr + T kısayolu ile kullanabilirsiniz.
Simgemizi kullanmak istiyorsanız http://link.tl/11x6 adresinden yayınlanan güncellemeyi işletim sisteminize göre indirebilirsiniz.
Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..

Internet üzerinden alinan ve gönderilen byte miktarlari 
Registry icine kaydedilir. Yanliz Bu kod Windows NT altinda 
calismiyor. Ek olarak transfer hizini ve baglanti hizini da 
ögrenebiliyoruz.
 Option Explicit
Private Declare Function RegOpenKeyEx Lib "advapi32.dll"Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal _
lpSubKey As String, ByVal ulOptions As Long, ByVal _
samDesired As Long, phkResult As Long] As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
hKey As Long] As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll"Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal lpReserved As Long, lpType As Long, _
lpData As Any, lpcbData As Any] As Long
Const HKEY_DYN_DATA = &H80000006
Const KEY_READ = &H19
Const ERROR_SUCCESS = 0&
Dim s1&, e1&, LBytes&, CNT&, Q&, QQ&, SUM&
Private Sub Command1_Click(]
Reset
End Sub
Private Sub Form_Load(]
Reset
LBytes = e1
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer(]
Dim EBytes&, SBytes&, CSpeed&
EBytes = ReadBytes("Dial-Up AdapterBytesRecvd"]
SBytes = ReadBytes("Dial-Up AdapterBytesXmit"]
CSpeed = ReadBytes("Dial-Up AdapterConnectSpeed"]
If EBytes ] -1 Then Label1.Caption = EBytes - e1
If SBytes ] -1 Then Label2.Caption = SBytes - s1
If SBytes ] -1 And EBytes [] e1 Then
Label5.Caption = CSpeed
End If
If LBytes [ EBytes Then
Q = (EBytes - LBytes] / (Timer1.Interval / 1000]
CNT = CNT + 1
Else
Q = 0
End If
SUM = SUM + Q
QQ = SUM / CNT
Label6.Caption = "[ " & QQ & " ] " & Q
LBytes = EBytes
End Sub
Private Function ReadBytes(Entry$] As Long
Dim hKey&, L&, X&, DW&
X = RegOpenKeyEx(HKEY_DYN_DATA, "PerfStatsStatData", 0, _
KEY_READ, hKey]
If X [] ERROR_SUCCESS Then Exit Function
X = RegQueryValueEx(hKey, Entry, 0&, DW, ByVal 0&, L]
If X [] ERROR_SUCCESS Then Exit Function
X = RegQueryValueEx(hKey, Entry, 0&, DW, ReadBytes, L]
If X [] ERROR_SUCCESS Then Exit Function
RegCloseKey hKey
End Function
Private Sub Reset(]
e1 = ReadBytes("Dial-Up AdapterBytesRecvd"]
s1 = ReadBytes("Dial-Up AdapterBytesXmit"]
SUM = 0
CNT = 1
End Sub
Continue reading
Kaydol: Kayıtlar (Atom)