VB Bilenlere Sorum Var

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    eyuperol
    eyuperol's avatar
    Kayıt Tarihi: 13/Şubat/2011
    Erkek

    Option Compare Database

    Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)

    Me.FillStyle = 0

    yerlestir

    harfyerlestir

    End Sub

     

    Private Sub yerlestir()

    Dim x As Integer

    Dim y As Integer

    Dim z As Integer

    For x = 1 To 11

    y = Me("tc" & x).Value

    z = Me("tc" & x).Left

    Me.Circle (z + 80, (y * 300) + 500), 100, 0

    Next x

    End Sub

     

    Private Sub harfyerlestir()

    Dim harfler As String

    harfler = "abcçdefgğhıijklmnoöprsştuüvyz"

    Dim x As Integer

    Dim y As Integer

    Dim i As Integer

    Dim z As Integer

    Dim t As Integer

    Dim c As Integer

    y = Len(harfler)

    t = Len(Me.adı_soyadı)

    For c = 1 To 20

    Me("M" & c) = ""

    Next c

    For x = 1 To t

    Me("M" & x).Value = Mid(Me.adı_soyadı, x, 1)

    For z = 1 To y

    If Mid(Me.adı_soyadı, x, 1) = Mid(harfler, z, 1) Then

    Me.Circle (Me("M" & x).Left, (z * 200) + 6000), 100, 0

    End If

    Next z

    Next x

    End Sub

     

    Yukarıda yazdığım kod bir access dosyasındaki VB kodlarıdır.

    Accesste bu kodlar soldan sağa yazılmış bir ad soyadı optik kodlar gibi (yukarıdan aşağıya) işaretleme yapıyor.

    Benim sizden ricam bu ad soyad kısmını soldan sağa değilde yukarıdan aşağıya şeklinde yazdırıp optik gibi kodlamayıda yukarıdan aşağıya değilde soldan sağa şeklinde yapmanız. tabi bu mümkünse.

    daha önce bu kodları içerisinde barındıran dosyayı altta linki olan optik doldurma ile ilgili (o konuyada çözüm bulunamadı) konuda paylaşmıştım burada da paylaşıyorum zip halini.

    dosya linki:

    http://dosya.co/hbtyaefpq8po/optik_kodlama-acc.rar.html

     

    konu linki:

    https://www.tahribat.com/forum/optik-form-doldurma-programi-istek-234930


    İnsanları ( küçük-büyük, yaşlı-genç, tanıdık-tanımadık, eşdost-sevgili vs vs ) sevin, saygınızı gösterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    eyuperol
    eyuperol's avatar
    Kayıt Tarihi: 13/Şubat/2011
    Erkek

    konu yukarı


    İnsanları ( küçük-büyük, yaşlı-genç, tanıdık-tanımadık, eşdost-sevgili vs vs ) sevin, saygınızı gösterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    eyuperol
    eyuperol's avatar
    Kayıt Tarihi: 13/Şubat/2011
    Erkek

    Belki bir bilen görür yardım eder diye bir kez daha konu yukarı.


    İnsanları ( küçük-büyük, yaşlı-genç, tanıdık-tanımadık, eşdost-sevgili vs vs ) sevin, saygınızı gösterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    RitmFarbRacourci
    RitmFarbRacourci's avatar
    Kayıt Tarihi: 14/Mart/2008
    Erkek
    @EyupErol , @ksavir `e özel mesajdan bir sor bakalım dönecek mi?

    Düzel`ti`yorum ^^D), doğrusu : @Kvasir , olacak.


    RitmFarbRacourci tarafından 24/Mar/18 01:19 tarihinde düzenlenmiştir

    I'şıkY'ılı/sn'`` ^^D`?. SeySyRnk. -+/*., UzyınBlnmynlri(Prşmb21.55)TrtBlgsl U->Pb(ClrePtrsn) H.He Beringer İzlerSuretler(cemreYeşilDonan^^) ZemnŞekl CybrSpn. AirRace. UçşDntm'lri Ailrn,Elvtr,Ruddr HücmKenrı,KaçşKenrı BrainFck.bf AC/DC,H'll'sBlls~Brutl BütünSaadet'lerMümkün(müdür?). Bu imza @SubZero tarafindan degistirilmistir. "Bu kadar uzun karmakarisik bir imza yapma diye uyardim ama heeheeeey(^^D)_hey kim söylüyor, kim dinliyor." Imzanizi SubZero'ya bilgi vermeden degistirmeyiniz. Tesekkurler. (lord KelVin, kraliyet bilimler akademisi Aslî üyesi olarak, idari cezâ mı uyguladın. ^^P` CaptaineFantastique(film) )
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    eyuperol
    eyuperol's avatar
    Kayıt Tarihi: 13/Şubat/2011
    Erkek
    RitmFarbRacourci bunu yazdı
    @EyupErol , @ksavir `e özel mesajdan bir sor bakalım dönecek mi?

    Düzel`ti`yorum ^^D), doğrusu : @Kvasir , olacak.

    son giriş yaptığı tarih 20 Mayıs 2017 yazıyor hocam :(

    ilgin için teşekkür ederim.

    Görmeyen kaldıysa diye bir kez daha konunun güncel olduğunu belirteyim.

    Visual Basic ten anlayan birisi yardımcı olabilir mi? istediğim şey mümkün mü?


    İnsanları ( küçük-büyük, yaşlı-genç, tanıdık-tanımadık, eşdost-sevgili vs vs ) sevin, saygınızı gösterin ama kesinlikle insanlara acımayın. Çünkü acıdığınız anda acınacak duruma düşüyorsunuz
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    emirhan-exp
    emirhan-exp's avatar
    Kayıt Tarihi: 10/Ocak/2010
    Erkek

        

    emirhan-exp tarafından 14/Ağu/18 00:41 tarihinde düzenlenmiştir
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NoktaliVirgul
    NoktaliVirgul's avatar
    Kayıt Tarihi: 02/Temmuz/2007
    Erkek

    dosya silinmiş, upload edebilir misin?

     


    If my calculations are correct, when this baby hits eighty-eight miles per hour... you"re gonna see some serious shit.
Toplam Hit: 2434 Toplam Mesaj: 7
vb optik form