Muharrem DOĞANCI

Kütahya, Tavşanlı yöresine ait olduğu öğrenilen "Samsak Döveci" için hazırlanmış videonun altyazı dosyasını paylaştım. https://www.youtube.com/embed/-7ivGse6p9o yerleştirme kodlu video yayından kaldırılmış, söz konusu içeriğin alt yazısı berbat durumda olduğu için bu alt yazı hazırlanmıştı. Fakat her zamanki gibi, gerek kalmadığı için alt yazı burada kaldı. 1 00:00:02,120 --> 00:00:06,176 Langıdı lanlan langıdı lanlan Samsak döveci 2 00:00:06,201 --> 00:00:10,003 Gümbüdü gümbam gümbam gümbam Ebegümeci 3 00:00:10,035 --> 00:00:14,169 Ebelerin ilacıdır ebegümeci 4 00:00:14,448 --> 00:00:18,288 Uyuz eşek yoncasıdır ebegümeci 5 00:00:18,523 --> 00:00:22,616 Ebegümecini toplayalım 6 00:00:22,641 --> 00:00:26,462 Lazım olur saklayalım 7 00:00:26,749 --> 00:00:30,595 Lazım olur saklayalım 8 00:00:30,845 --> 00:00:34,799 Ardımıza bile bakmayalım 9 00:00:34,888 --> 00:00:39,028 Langıdı lanlan langıdı lanlan Samsak döveci 10 00:00:39,067 -->...

İstanbul Üniversitesi, Sosyal Bilimler Enstitüsü, İstanbul Araştırmaları Anabilim Dalı, İstanbul'da Mimarlık ve Sanat dersi bünyesinde, Sketchup ile yaptığımız çalışmalardan biri. İstanbul, Üsküdar, Beylerbeyi Mahallesi, Eskiçınar Sokağı, Numara 11. Bu çalışma, İstanbul'un yok olmaya yüz tutmuş, vakıf eserlerinin kapsamı dışında kalan yapılarının dijitale aktarma denemesi olarak ortaya çıktı. 📍 Google: https://goo.gl/maps/BYA23oBEwrdjT63b7 📍 Yandex: https://yandex.com.tr/harita/-/CCUB5-FZdD Fotoğraf eşleştirme başta olmak üzere, iz düşüm ile her bir detayı mümkün oldukça yakalamaya çalıştık. Çalışmayı hızlandırmak için komponentler kullanılmıştır. Sütun başlığı, trabzanlar gibi bazı organik objeler Blender ile oluşturulup Sketchup içerisine alınmıştır. Çalışma boyunca yararlandığımız, Evren ÇAVUŞOĞLU 'nun verdiği " Sketchup 7'den 70'e " kursunu tavsiye ederim. 💾 SKP 2020; 400 MB. https://www.cgtrader.com/free-3d-models/architectural/othe...

Merhabalar. Bir müddet üstünde çalıştığım fakat bilgi eksikliği nedeniyle tamamlayamadığım bir Excel VBA denemesi vardı. Mehmet CANBULAT'ın Excel VBA eğitimindeki bilgileri ve bu bağlantıdaki bilgileri bir araya getirip yaptığım deneyde istediğimi kısmen başardım. Öncelikle Mehmet CANBULAT'ın Recursive Programming detayını verdiği vidyo yu paylaşayım. Burada FSO (File System Object) olarak bilinen objenin SubFolders özelliğini temel aldım. Ardından Shell.Application objesinin GetDetailsOf özelliğini vidyoda anlatılan özyinelemeli yapının içine yerleştirdim. Jess adlı kullanıcının paylaştığı refernas kod şu: Sub GetFileName() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Dim objShell As Object Dim objFolder As Object Dim objFile As Variant Dim i As Integer Dim bone As Workbook Set bone = ActiveWorkbook bone.Sheets("Result").Activate 'Create an instance of the FileSystemObje...

Merhaba. Sayısal olarak verilen fiyatları kelimelere çevirmek için kodun bazı yerlerinde düzenleme yapılmıştır. Çünkü, orijinal kod çalışınca, "1000", "100" gibi sayılar, "Bir Bin", "Bir Yüz" olarak dönüşüyordu. Kodu VBA düzenleyiciye yapıştırdıktan sonra, dosyayı, XSLM veya XLSB olarak kaydederseniz kod korunur. Boş bir hücreye =Fiyati_Metne_Cevir(A1) işlevi yazarak fonksiyonu kullanabilirsiniz. Option Explicit Function Fiyati_Metne_Cevir(ByVal MyNumber) Dim Dollars, Cents, Temp As String Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Bin " Place(3) = " Milyon " Place(4) = " Milyar " Place(5) = " Trilyon " ' String representation of amount MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none DecimalPlace = InStr(MyNumber, ".") 'Convert cents and set MyNumber to dollar amount If DecimalPlace >...