Userform' da dijital elektronik sayı oluşturma

[pNouma]

Kıymetli Hocalarım selamlar saygılar

Userform' da dijital elektronik sayı oluşturma ile ilgili bildiğiniz bir örnek var mıdır?

https://dosya.co/bmr6kldpkxof/dijital-elektronik-sayi-seti.jpg.html

Örne: textbox' a yada combobox' a bir sayı yazıldığı zaman elektronik sayı oluşacak gibi...

yardımlarınız için şimdiden teşekkürler,
iyi çalışmalar dilerim.

 

[Zeki Gürsoy]

Görseli düzgün bir portala yükleyin. Resim dışında herşey var...

.

 

[pNouma]

Görseli düzgün bir portala yükleyin. Resim dışında herşey var...

.

Zeki Hocam görsel: Dijital sayıların görüntüsü ...

Görünüt Aşağıdaki linkte mevcut:
https://tr.freepik.com/premium-vektor/dijital-elektronik-sayi-seti_30162526.htm

iyi Akşamlar.

 

[netzone]

Merhaba,
Yapmak istediğinizi görsel üzerinden map tanımlayıp karakter eşleştirmesi yaptırarak sonuç almak değil ise;
Örnek fontu kullanarak söz konusu sayıların yer aldığı yere görsel olarak djital görünüm kazandırabilirsiniz.
İyi çalışmalar.

 

[pNouma]

Merhaba,
Yapmak istediğinizi görsel üzerinden map tanımlayıp karakter eşleştirmesi yaptırarak sonuç almak değil ise;
Örnek fontu kullanarak söz konusu sayıların yer aldığı yere görsel olarak djital görünüm kazandırabilirsiniz.
İyi çalışmalar.

Hocam öyle uzun bir şey yazmak istemiyorum, bir userform' da en fazla 2-3 karakterli bir değer yazmak ;

textbox' a 123 yazınca label etiketlerine digital sayı ile 123 şeklinde yazsın;

teşekkürler,

 

[Zeki Gürsoy]

Hocam öyle uzun bir şey yazmak istemiyorum, bir userform' da en fazla 2-3 karakterli bir değer yazmak ;

textbox' a 123 yazınca label etiketlerine digital sayı ile 123 şeklinde yazsın;

Font yerine GDI çizim yaparak ilgili nesneye bu rakamları resim olarak da göstermek mümkün... Ancak;

Yukarıdaki alıntılanan mesajınızdan bu iş için ileri düzey programlama için kolları sıvamaya değmeyeceği, bunun yerine bu görünümü verebilen, internetten edinebileceğiniz hazır bir fontu kullanmanız daha hızlı ve uygun görünüyor. (Belki internette bu çizim için hazır kodlar vardır; araştırmadım)

.

 

[pNouma]

Font yerine GDI çizim yaparak ilgili nesneye bu rakamları resim olarak da göstermek mümkün... Ancak;

Yukarıdaki alıntılanan mesajınızdan bu iş için ileri düzey programlama için kolları sıvamaya değmeyeceği, bunun yerine bu görünümü verebilen, internetten edinebileceğiniz hazır bir fontu kullanmanız daha hızlı ve uygun görünüyor. (Belki internette bu çizim için hazır kodlar vardır; araştırmadım)

.

Zeki Hocam ilginiz ve önerileirniz için çok teşekkür ederim..

 

[Korhan Ayhan]

Merhaba,

@netzone paylaştığı linkteki fontu indirip sisteminize tanıttıktan sonra ekteki örnek dosyayı deneyiniz.

Font dosyalarını da ekte paylaşıyorum.

Harici Link (Silinebilir) ; https://www.filemail.com/d/asbshsmjslpuobw

 

[Biolightant]

Merhaba,

ekteki örnek dosyayı deneyiniz

Pratik, Güzel Kod ? Teşekkürler.

Private Sub UserForm_Activate()
    Do: DoEvents: Me.TextBox1 = Format(Time, "hh:mm:ss"): Loop
End Sub

 

[netzone]

Merhaba,
Korhan Bey, aslında Ds-digital yerine yukarıdaki önermiş olduğum font (Digital Dismay).
Bu fontu önermemin sebebi; Karakter genişlikleri sebebiyle arkadaşımızın paylaştığı görselde karakter altında yer tutucu olarak silik olarak görünen "8" leride kullanacağını düşünüp "1" ler için fontda kayma olmaması içindi.
2 labelden üstte kalanı için değişken ve altta kalanı için ise sabit (88:88:88) girişleri yapıldığında bu fontda kayma olmadığını görselden gözlemleyebilirsiniz.

Teşekkürler, iyi çalışmalar.

 

[Korhan Ayhan]

@netzone ,

Site benzer olunca benim ulaştığım fontu önerdiğinizi düşündüm... Dikkatiniz için teşekkür ederim.

Sonuç olarak ben bir örnek hazırladım. Arkadaşımız dilediğini kullanarak sonuca ulaşabilir.

 

[pNouma]

Merhaba,

@netzone paylaştığı linkteki fontu indirip sisteminize tanıttıktan sonra ekteki örnek dosyayı deneyiniz.

Font dosyalarını da ekte paylaşıyorum.

Harici Link (Silinebilir) ; https://www.filemail.com/d/asbshsmjslpuobw

Çok teşekkürler Korhan Hocam