AutoCAD ile VBA Makro Kullanımı #6-3

Yayınlama: 9/4/2020

Güncelleme: 8/11/2023

Slot(oyuk) çizen VBA makro kodları:

QuickBasic Kod Yarışması. Soru 4

TC kimlik numarasının son 2 basamağı kontrol kodlaması içindir. İlk 10 basamaktaki rakamlar ile yapılan algoritmik işlemlerin sonucu ile son 2 basamak karşılaştırılır. Çıkan sonuç algoritmaya uygunsa TC kimlik no doğru değilse yanlıştır.

Soru 4

Kullanıcının girdiği TC kimlik numarasının doğruluğunu kontrol eden QuickBasic program kodlarını yazınız.

TC Kimlik No Doğrulama Algoritması:

Kurallar:

1. TC kimlik numaraları 11 basamaklı bir sayıdır.
2. İlk basamak 0 olamaz.
3. TC kimlik numarası 1. 3. 5. 7. 9. basamaklarının toplamının 7 katından,
   2. 4. 6. 8. basamaklarının toplamını çıkarttığımızda elde ettiğimiz sonucun 10'a bölümünden kalan sayı 10. basamaktaki sayıyı vermelidir.
4. İlk 10 basamağın toplamından elde edilen sonucun 10'a bölümünden kalan sayı 11. basamaktaki sayıyı vermelidir.
5. Bu 4 kuraldan biri tutmuyor ise TC kimlik numarası yanlıştır.

Kodlar QuickBasic v4.5 uyumlu olacak.

Hedefler:

• En kısa kodlama,
• En az değişken ve fonksiyon kullanma
• En hızlı çalışan kodu yazma.

Maalesef yarışmanın bir ödülü yok.

Kodlarınızı veya kodlarınızın olduğu sayfa linkini yorum kısmına ekleyiniz.

Hedefe ulaşan en iyi kod ve kod yazarı bu sayfada yayınlanacak.

• Kod paylaşma siteleri

---

QuickBasic Ana Sayfa

QuickBasic Kod Yarışması. Soru 3

Soru 3

Optik kodlamada kullanılan kağıtlarda olduğu gibi verilen numarayı kodlama alanına kodlayan QuickBasic program kodlarını yazınız.

Örnek çıktı aşağıdaki gibidir.

Kodlar QuickBasic v4.5 uyumlu olacak.

Hedefler:

• En kısa kodlama,
• En az değişken ve fonksiyon kullanma
• En hızlı çalışan kodu yazma.

Maalesef yarışmanın bir ödülü yok.

Kodlarınızı veya kodlarınızın olduğu sayfa linkini yorum kısmına ekleyiniz.

Hedefe ulaşan en iyi kod ve kod yazarı bu sayfada yayınlanacak.

• Kod paylaşma siteleri

---

QuickBasic Ana Sayfa

AutoLisp ile programlama: Orijine zumla

Yayınlama: 20/11/2010
Güncelleme: 6/1/2022

Belli bir düzende sıralı tekrar ettiğimiz Autocad komutlarını bir komutla tekrar yürütmek için Autocad içinde bulunan Lisp dilini kullanabiliriz. Lisp'e alternatif olarak Microsoft Office programlarında bulunan VBA'da (Visual basic makro dili) kullanılabilir ama Lisp daha yaygın olarak kullanılmaktadır.

Lisp ile AutoCAD programına yeni kullanışlı komutlar ekleme imkanına sahip oluruz. Bazı firmalar AutoCAD altında çalışan Lisp ile kodlanmış büyük kullanışlı programlar üretip satmaktadır.

Ayrıca internette bedava Lisp kodlarını da bulabilirsiniz.

Lisp Nedir?

LISP, List Processing (Liste işleme) kelimelerinin kısaltılmış halidir. John McCarthy'in icat ettiği eski ve güçlü programlama dillerinden biridir. Yapay zeka çalışmalarında kullanılır.

AutoLisp Nedir?

Lisp programlama dilinden türetilmiş bir makro dili olup, AutoCAD yazılımında kullanılmak üzere uyarlanmış ve geliştirilmiştir. AutoLisp ile kullanıcının AutoCAD'e yeni komutlar eklemesi ile daha verimli ve etkin kullanması sağlanmıştır.

AutoLisp ile AutoCAD'in hemen hemen tüm özelliklerine müdahale edilebilir, AutoCAD'in tüm komutları kullanılabilir. Hesaba dayalı otomatik çizimler oluşturulabilir, mevcut çizimler değiştirilebilir, dosyalar ile çalışılabilir, AutoCAD'in tüm sistem değişkenlerinde değişiklik yapabilir.

Visual LISP Nedir?

Visual LISP, AutoLISP programlama dilinin bir uzantısıdır. Visual LISP, AutoCAD'de yerleşik olarak kendi geliştirme ortamına sahiptir. İlk olarak 1997'de AutoCAD Sürüm 14 için ücretli bir eklenti olarak tanıtıldı, ancak Mart 1999'da AutoCAD 2000'e dahil edildi.

AutoLISP programlama dili tek başına da çok güçlüdür, ancak Visual LISP kullanarak AutoLISP ile çok daha fazlası yapılabilir. Visual LISP, Windows işletim sisteminin bölümlerine ve AutoLISP'in normalde erişemediği AutoCAD uygulamasına erişmenizi sağlar.

AutoLisp dosyaları salt metin editörleriyle (örneğin notepad) düzenlenebilse de AutoCAD içinde bulunan Visual LISP for AutoCAD ile düzenlenmesi daha kolay ve kullanışlı olacaktır. AutoLisp dosya uzantısı .lsp olmalıdır.

AutoLisp ile Programlama Nasıl Yapılır?

AutoCAD açık iken menüden Tools/AutoLisp/Visual Lisp Editor tıklayın.

AutoCAD ile VBA Makro #6-5

Bu videoda AutoCAD VBA makro kodları ile SLOT çizme açıklandı.

VBA ile slot çizimi 5 bölüm halinde yayınlandı. Bu video 5. bölümdür.

Bu bölümde SLOT çizen kodlar yazıldı ve açıklandı.

Videoda kullanılan AutoCAD VBA kodları:

Sub SLOT()
' Mesut Akcan
' 7/3/2021
' mesutakcan.blogspot.com
Dim ut As AcadUtility
Dim ms As AcadModelSpace
Dim cizgi As AcadLine
Dim vl(7) As Double
Dim pl As AcadLWPolyline

Set ut = ThisDrawing.Utility
Set ms = ThisDrawing.ModelSpace
pi = 4 * Atn(1) '3.14159265358979
aci90 = pi / 2 ' 1.5707963267949 'radyan
aci270 = pi * 1.5 '4.71238898038469 'radyan
With ut
    ' n1 noktasını al
    n1 = .GetPoint(, "1. merkez nokta:")
    ' n2 noktasını al
    n2 = .GetPoint(n1, "2. merkez nokta:")
    ' n1-n2 arasına geçici çizgi çiz
    Set cizgi = ms.AddLine(n1, n2)
    ' cizgiyi vurgulu yap
    cizgi.Highlight True
    ' r yarıçap değerini al
    r = .GetDistance(n2, "Yarıçap:")
    ' a açısını hesapla
    a = .AngleFromXAxis(n1, n2) 'radyan
    ' geçici çizgiyi sil
    cizgi.Delete

    ' p1 noktasını hesapla
    p1 = .PolarPoint(n1, a + aci90, r)
    ' p2 noktasını hesapla
    p2 = .PolarPoint(n2, a + aci90, r)
    ' p3 noktasını hesapla
    p3 = .PolarPoint(n2, a + aci270, r)
    ' p4 noktasını hesapla
    p4 = .PolarPoint(n1, a + aci270, r)

    ' vertex listesini oluştur
    vl(0) = p1(0): vl(1) = p1(1) 'vertex 1 X,Y
    vl(2) = p2(0): vl(3) = p2(1) 'vertex 2 X,Y
    vl(4) = p3(0): vl(5) = p3(1) 'vertex 3 X,Y
    vl(6) = p4(0): vl(7) = p4(1) 'vertex 4 X,Y
    ' vertex listesi ile polyline çiz
    Set pl = ms.AddLightWeightPolyline(vl)
    ' close özelliği ile kapalı şekil oluştur
    pl.Closed = True
    ' karşılıklı kenar çizgilerini yay yap.
    pl.SetBulge 1, -1
    pl.SetBulge 3, -1
End With
End Sub

AutoCAD ile VBA Makro #6-4

VBA ile slot çizimi 5 bölüm halinde yayınlandı. Bu video 4. bölümdür.

Bu bölümde polyline ile basit bir çizim kodlaması yapıldı.

Videoda kullanılan AutoCAD VBA kodları:

Sub polyLine()
    Dim pl As AcadLWPolyline
    Dim vl(7) As Double 'vertex listesi için
    vl(0) = 290: vl(1) = 40 'vertex 1 X,Y
    vl(2) = 275: vl(3) = 125 'vertex 2 X,Y
    vl(4) = 335: vl(5) = 65 'vertex 3 X,Y
    vl(6) = 300: vl(7) = 75 'vertex 4 X,Y
    
    Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(vl)
    pl.Closed = True
    pl.Update
End Sub

AutoCAD ile VBA makro kullanımı #1

AutoCAD özelliklerini geliştirmek ve isteğe özel uygulamalar ve işlevler kazandırmak için VBA makroları kullanılabilir.

VBA kısaltmasının açılımı Visual Basic for Application(Uygulamalar için Visual Basic)dir.
BASIC öğrenilmesi ve kodlaması en kolay olan programlama dilidir. Microsoft Visual Studio Programlama seti içerisinde Microsoft Visual Basic bulunur. Bununla Windows uygulamaları geliştirip derleyebilir ve çalışabilir EXE dosyaya dönüştürebilirsiniz.

PHP: iconv; dil kodlaması dönüşümü

Ziyaretçi defteri scriptimi geliştirirken son mesajları ana sayfada göstermesi için bir eklenti yazmak istedim.
Fakat şöyle bir sorun çıktı. Ana sayfa UTF-8 dil kodlaması ile yayınlanıyor, ziyaretçi defteri kayıtları ise ISO-8859-9 dil kodlaması ile kaydediliyordu.

Ana sayfada son mesajlar görünüyor ama Türkçe karakterler farklı görünüyordu.

Bu durumu düzeltmek için şimdiye kadar hiç kullanmadığım bir PHP fonksiyonundan faydalandım.

ICONV

Bu fonksiyon dil kodlamaları arasında dönüşüm sağlayabiliyor.
Aşağıdaki kod ISO-8859-9 ile kodlanmış metni UTF-8'e dönüştürüyor. PHP 4.0.5 ve üzeri sürümler içindir.

$kayit = iconv('ISO-8859-9', 'UTF-8', 'Türkçe karakterler ÜĞİŞÇÖ');
echo $kayit;