📗 Bursa Belediyesi Yayınları

Bursa Belediyesi'nin PDF yayınlarına erişmek için adımları izleyiniz. PDF dosyalarını bu şekilde indirebilirsiniz.

✅ Fontlar İçin Türkçe Karakter Uyarlama Araçları

Türkçe karakterleri tam olarak desteklemeyen fontlar için Türkçe karakterleri tamamlama işlemi için Gemini https://www.glyphrstudio.com/app/ aracını önerdi.

"Ç", "ç" karakterleri Portekizcede olduğu için Adobe, Microsoft gibi şirketler font kümelerine bu karakterleri ekliyorlar ya da ekletiyorlar. "Ü", "ü", "Ö", "ö" karakterleri de Almancada olduğu için bunlar da hazır. Geriye "Ğ", "ğ", "Ş", "ş", "İ", "ı" karakterleri eksik kalıyor. Yalnızca bunları eklemek yeterli.

Refrans harflerden kopya ürettikten sonra, boşluk hiza çizgilerinin ayarlanması gerekiyor. Sonra harfleri dışarıya aktarabiliyorsunuz.

Görselde "ı" harfi üretimi gösteriliyor. ⚠️ Harfin sınırlarını belirleyen çizgilerin kesinlikle belirlenmesi gerekir. Aksi takdirde font kullanılırken "ı" harfinden sonra gelen karakter, "ı" harfinin üzerine biner. Yani "advance width" değeri mutlaka tutarlı olmalıdır.

Türkçe karakterler için Unicode adres listesi:

Harf, Unicode Kodu

ı, U+0131 

İ,U+0130

ğ,U+011F 

Ğ,U+011E

ş,U+015F 

Ş,U+015E

ç,U+00E7 

Ç,U+00C7

ö,U+00F6 

Ö,U+00D6

ü,U+00FC 

Ü,U+00DC

"Yapısal Şiddet"ten Kazananlar Kim?

"Itsayseser" ( https://www.facebook.com/people/Itsayseser/61575671841012/?sk=reels_tab ) rumuzlu hesaptan böyle bir paylaşım yapılmış. Üzerine çalışmalar yapılması gereken bir konu.

SSD'ler İçin Trim Ayarı

Bu içerik, SSD'lerin yavaşlaması durumunda çözüm önerisi olarak yayınlanmış. Ancak henüz doğrulanmadı.

Sorgulama CMD istemi:

fsutil behavior query DisableDeleteNotify

Trim değerinin "1" gelmesi hâlinde "0" atamak için CMD istemi:

fsutil behavior set DisableDeleteNotify 0

Kaynak: https://www.facebook.com/share/r/1BDRTNAgWw/

Yeşilçam'ın Figüranları - 1

Egehan Aliefendioğlu ANILAR PAYLAŞIM PLATFORMU grubunda 22 Haziran 2025 Pazar 19:43 tarihinde paylaşmış.

Bursa-İnegöl, Sağlam Nakliyat 

Rahmetli Mustafa Bektaş ve diğer şoförler

(İlyas Salman'ın ''Sarı Mersedes'' filminde rol alan abimiz)

 

Kaynak: https://www.youtube.com/watch?v=OJgUxjY3lxU

Mimar Kemaleddin'in Restorasyonlu Fotoğrafları

Kaynak: https://youtu.be/9d5kw9kjw-U

Excel'de Seçili Sayfalarda Çoklu Kriterde Satır Boyamak

GPT üzerinde şu istek üretildi.

Excel'de adları "Dizüstü", "Kasa", "Takım", "Tümleşik", "Ekran" olan sayfalarda, başlığı "tckn_yerlesim_yeri" olan sütun bulunacak ve bu sütunda 11 basamaklı yinelenen sayıların bulunduğu satır kırmızı renge boyanacak. Bunun için VBA kodu yaz.

Sub TCKN_Yinelenenleri_Kirmiziya_Boya() Dim sayfalar As Variant Dim ws As Worksheet Dim baslikHucresi As Range Dim kontrolSutun As Long Dim sonSatir As Long Dim i As Long Dim sayac As Object Dim deger As String ' Kontrol edilecek sayfa adları sayfalar = Array("Dizüstü", "Kasa", "Takım", "Tümleşik", "Ekran") For Each ws In ThisWorkbook.Worksheets If Not IsError(Application.Match(ws.Name, sayfalar, 0)) Then ' Başlığı bul Set baslikHucresi = ws.Rows(1).Find(What:="tckn_yerlesim_yeri", _ LookAt:=xlWhole, _ MatchCase:=False) If Not baslikHucresi Is Nothing Then kontrolSutun = baslikHucresi.Column sonSatir = ws.Cells(ws.Rows.Count, kontrolSutun).End(xlUp).Row Set sayac = CreateObject("Scripting.Dictionary") ' Sayıları say For i = 2 To sonSatir deger = Trim(ws.Cells(i, kontrolSutun).Value) If Len(deger) = 11 And IsNumeric(deger) Then If sayac.Exists(deger) Then sayac(deger) = sayac(deger) + 1 Else sayac.Add deger, 1 End If End If Next i ' Yinelenenleri kırmızıya boya For i = 2 To sonSatir deger = Trim(ws.Cells(i, kontrolSutun).Value) If Len(deger) = 11 And IsNumeric(deger) Then If sayac(deger) > 1 Then ws.Rows(i).Interior.Color = RGB(255, 128, 128) End If End If Next i End If End If Next ws MsgBox "Yinelenen 11 basamaklı TCKN'ler kırmızıya boyandı.", vbInformation End Sub