bu soruyu belki sorunu çözen olurda okullara büyük bir iyilik yapmış olur diye soruyorum
milli eğitim eokul uygulaması kapsamında her öğrencinin fotoğrafı internete yüklenir yalnız bazı kısıtlamaları vardır mutlaka 105x120 pixell olacak ve 10 kb geçmeyecek boyutu
neyse biz fotoğrafları önceden fotoğraf makinesi ile çeker onları büyük ve küçük diye 2 klasöre koyar sonra her fotoğrafa o öğrencinin okul nosunu veriririz tek tek bu işlemle uğraşırız sonrada microsoftun power toys undan picture resize ile topluca 105x120 pixell e küçültürüz ondan sorada eokul a yükleriz fotoğrafları işte bu fotoğrafı çek sınıf sınıf klasörle küçült fotoğrafların isimlerini değiştir. bir sürü işti bu program bu işden kurtaracaktı bizi yalnız fotoğrafı çekme klasörleme küçültme yani anlayacağınız her işini yaptım klasör oluşturma işinde takılmıştım ondada bilgisayarcı arkadaş sağolsun yardımcı oldu sen yaşa bilgisayarcı iyiki varsın neyse buraya kadar program iyi istediğimiz her şeyi yapıyor yalnız fotoğraflar istediğimiz boyutta olmasına rağmen kb olarak 40-45 kb arasında kalıyor asla 10 kb yada altına inmiyor işte bu sorunu bir arkadaş halledebilirse okullara müthiş bir yardımı dokunacak piyasaya bu tip programlar sürmüşler benim yaptığım program la birebir aynı işi yapıyor ne bir eksik ne bir fazla ama onlarında fiatı 250 ytl neyse arkadaşlar yardımlarınızı bekliyorum
program şu mantıkta çalışyor ezVidCap ocx leri webcam i form üzerinde gösteriyor ve bu kod ile fotoğrafı çekiyor çektiği fotoğraf 240x320 boyutunda
ezVidCap1.SaveDIB CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
biz wiaaut.dll crop kodu ile
Sub Komut3()
Dim yol As String
yol = CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
Dim img 'As ImageFile
Dim IP 'As ImageProcess
Set img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
img.LoadFile CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
IP.Filters.Add IP.FilterInfos("Crop").FilterID
IP.Filters(1).Properties("Left") = 250
IP.Filters(1).Properties("Top") = 150
IP.Filters(1).Properties("Right") = 250
IP.Filters(1).Properties("Bottom") = 140
Set img = IP.Apply(img)
If Len(Dir(yol)) > 0 Then
Kill yol
End If
img.SaveFile CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
End Sub
formda webcam karesinde gördüğümüz alanın içine sığan fotoğrafı alacak şekilde fotoğrafın kenarlarını kırpıyoruz neden çünkü webcam aslında geniş bir alanı çekiyor bize ise sadece vesikalık lazım neyse vesikalık olacak şekilde kırptığımız fotoğrafı
Sub Komut8()
Dim yol As String
yol = CurrentProject.Path & "\KÜÇÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
Dim img 'As ImageFile
Dim IP 'As ImageProcess
Set img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
img.LoadFile CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 105
IP.Filters(1).Properties("MaximumHeight") = 120
Set img = IP.Apply(img)
If Len(Dir(yol)) > 0 Then
Kill yol
End If
img.SaveFile CurrentProject.Path & "\KÜÇÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
End Sub
bu kod ile 105x120 pixelle düşürüyoruz ve hem büyük kalsöründeki yazdığımız soınıfa ait klasöre hemde küçük klasöründe yazdığımız sınıf kalsörüne yazdığımız okul noya göre kaydediyoruz
programın çalışması için öncelikle activex leri sistem32 içine kopyalayın
milli eğitim eokul uygulaması kapsamında her öğrencinin fotoğrafı internete yüklenir yalnız bazı kısıtlamaları vardır mutlaka 105x120 pixell olacak ve 10 kb geçmeyecek boyutu
neyse biz fotoğrafları önceden fotoğraf makinesi ile çeker onları büyük ve küçük diye 2 klasöre koyar sonra her fotoğrafa o öğrencinin okul nosunu veriririz tek tek bu işlemle uğraşırız sonrada microsoftun power toys undan picture resize ile topluca 105x120 pixell e küçültürüz ondan sorada eokul a yükleriz fotoğrafları işte bu fotoğrafı çek sınıf sınıf klasörle küçült fotoğrafların isimlerini değiştir. bir sürü işti bu program bu işden kurtaracaktı bizi yalnız fotoğrafı çekme klasörleme küçültme yani anlayacağınız her işini yaptım klasör oluşturma işinde takılmıştım ondada bilgisayarcı arkadaş sağolsun yardımcı oldu sen yaşa bilgisayarcı iyiki varsın neyse buraya kadar program iyi istediğimiz her şeyi yapıyor yalnız fotoğraflar istediğimiz boyutta olmasına rağmen kb olarak 40-45 kb arasında kalıyor asla 10 kb yada altına inmiyor işte bu sorunu bir arkadaş halledebilirse okullara müthiş bir yardımı dokunacak piyasaya bu tip programlar sürmüşler benim yaptığım program la birebir aynı işi yapıyor ne bir eksik ne bir fazla ama onlarında fiatı 250 ytl neyse arkadaşlar yardımlarınızı bekliyorum
program şu mantıkta çalışyor ezVidCap ocx leri webcam i form üzerinde gösteriyor ve bu kod ile fotoğrafı çekiyor çektiği fotoğraf 240x320 boyutunda
ezVidCap1.SaveDIB CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
biz wiaaut.dll crop kodu ile
Sub Komut3()
Dim yol As String
yol = CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
Dim img 'As ImageFile
Dim IP 'As ImageProcess
Set img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
img.LoadFile CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
IP.Filters.Add IP.FilterInfos("Crop").FilterID
IP.Filters(1).Properties("Left") = 250
IP.Filters(1).Properties("Top") = 150
IP.Filters(1).Properties("Right") = 250
IP.Filters(1).Properties("Bottom") = 140
Set img = IP.Apply(img)
If Len(Dir(yol)) > 0 Then
Kill yol
End If
img.SaveFile CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
End Sub
formda webcam karesinde gördüğümüz alanın içine sığan fotoğrafı alacak şekilde fotoğrafın kenarlarını kırpıyoruz neden çünkü webcam aslında geniş bir alanı çekiyor bize ise sadece vesikalık lazım neyse vesikalık olacak şekilde kırptığımız fotoğrafı
Sub Komut8()
Dim yol As String
yol = CurrentProject.Path & "\KÜÇÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
Dim img 'As ImageFile
Dim IP 'As ImageProcess
Set img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
img.LoadFile CurrentProject.Path & "\BÜYÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 105
IP.Filters(1).Properties("MaximumHeight") = 120
Set img = IP.Apply(img)
If Len(Dir(yol)) > 0 Then
Kill yol
End If
img.SaveFile CurrentProject.Path & "\KÜÇÜK\" & Me.sınıfı & "\" & Me.no & ".jpg"
End Sub
bu kod ile 105x120 pixelle düşürüyoruz ve hem büyük kalsöründeki yazdığımız soınıfa ait klasöre hemde küçük klasöründe yazdığımız sınıf kalsörüne yazdığımız okul noya göre kaydediyoruz
programın çalışması için öncelikle activex leri sistem32 içine kopyalayın
Son düzenleme: