مشكلة : تصحيح الخطأ فى الكود _ QR code

[ابو جودي]

السلام عليكم ورحمة الله الله وبركاته

الموضوع بخصوص تصحيح كود منشئ الباركود طبعا الموضوع يعتمد على مشاركة استاذى القدير و معملى الجليل الاستاذ العظيم @jjafferr

يتم انشاء الباركود من الكود الاتى كل ذلك الكود الاصلى ويعمل بنجاح

'imgMyBarcode

If Len(Me.str_Text & "") = 0 Then Exit Sub
    Dim MyAppName As String
    Dim OutputText As String
    Dim OutputFile As String

    
    MyAppName = Chr(34) & CurrentProject.Path & "\Program Files\Utility\zint.exe" & Chr(34)
    OutputText = Chr(34) & Me.str_Text & Chr(34)
    OutputFile = Chr(34) & CurrentProject.Path & "\Program Files\QR images\" & "TestQRCode.png" & Chr(34)
    
    'السطر الاصلى
    ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 --cmyk --fg=004700 -d  " & OutputText

 

هذه الجزئية فى الكود --barcode=55  هى التى تحدد نوع الباركود بناء على الرقم فلكل رقم دلالة على نوع ما
ادرجت كل الارقام بانواعها بجدول  وقمت بعمل مربع سرد لتغيير الرقم بناء على النوع المختار من مربع السرد الذى يجلب هذه الارقام من الجدول
وحاولت تعديل السطر الاخير من كود الاستاذ جعفر بأكثر من شكل ولكن لا ادرى لا يعمل بتاتا 
 

    Dim MyCodType As String
    MyCodType = "--barcode=" & CboBarcodeType.Column(1)
    txtBarcodeNumeric = MyCodType
    'المحاولات الفاشلة
    'ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary & MyCodType & --mode=3 --cmyk --fg=004700 -d  " & OutputText
    'ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary & MyCodType --mode=3 --cmyk --fg=004700 -d  " & OutputText
    'ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary MyCodType --mode=3 --cmyk --fg=004700 -d  " & OutputText
    'ShellWait MyAppName & " -o " & OutputFile & " --rotate=0 --eci=24 --binary" & MyCodType & "--mode=3 --cmyk --fg=004700 -d  " & OutputText

لست افهم السبب
هل من حل او من فكرة 

 

QR-Code_Generator_question.zip

[ابو جودي]

الحمد لله و بفضل الله أخيرا  بعد عذاب توصلت للنتيجة
لكن بعض الاكواد لم يتم انشاؤها ولا اعلم السبب 

وللاسف فقدت اللغة العربية

 

 

QR-Code_Generator(Done).zip

تم تعديل يونيو 21, 2019 بواسطه ابا جودى

[jjafferr]

وعليكم السلام اخوي ابا جودي 🙂

 

شو السؤال ؟

 

جعفر

[ابو جودي]

اللغة العربية