folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder VB Bilenlere Sorum Var



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
    Reply With Quote Alıntı yap
  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
    Reply With Quote Alıntı yap
  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
    Reply With Quote Alıntı yap
  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ı;^^`) Zk't^^` RnSySyTk.Ödl.SpRtÇzBşBkYd Kryptia.agogE Sa'd-l'Suûd az.ç'k 'lmyn'Dşn Pnct'tnAnNttn Blgi,YpBlgi 'Ct'nDrm.CmdyDrm.MdrnDrm hRşYdşR ClptcPth'Strsm M'nPhs' Ld,X/Y YrYnZmnGrçklk,AlgBzklğ KrzFrst'tr Tiytr' Pugchv,Jtrn,İmmlmn,FllngLef,Pik' SuprmcySprrty CoBehTh elFnmno:NzrioRonldo AdnKy TkSs,TkHrf(?) .RtNsTk.KvMp.Mk.TrmDyn ScklkNmRzgr ŞkHcBy ccp.kky Snrlr'Çz SnaSnLzmsn 'NsnKsknçtr BgDppr.MagllnCl'ds.S'thCro's Ch'kW'ng CreazioneDiAdamo^^`, Arctrs.Spic' ArcScnd,YySnye TrbProp,TrbJet,TrbFan ~3.10^5km/sn~343m/sn ~900-1240m/snMacH RamJt,ScRamJt Przdi^^' Tbu.XL Prsek MAtv^^` mLAT G'dWllHnting(f). 3id't^^` TareZmenPr ParaMotor TrflrVArsİlşklr (-)+.(/)*,~ ZminŞkil . ..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...
    Reply With Quote Alıntı yap
  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
    Reply With Quote Alıntı yap
  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
    Reply With Quote Alıntı yap
  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.
    Reply With Quote Alıntı yap
Toplam Hit: 3757 Toplam Mesaj: 7
vb optik form