[ackore]

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

اولاً نحن نتعلم طريقة البرمجة من الصفر

والحمدلله انجزت برنامج لشركتي للطاقه النضيفه او البديله

البرنامج عباره عن تيكست الحمل بالامبير والثاني اختيار وقت التشغيل ان كان Ups او Inverter عاكس ..

يستخرجلك الجهاز المطلوب .. وعدد البطاريات وان كان احادي الطور او ثلاثي  

والحمل فيه اختيارين Ampeir او KVA 

والان وصلت الى مرحله ادخل بي مكتبات ال PDf 

 ملاحضه : لاتعطيني .. كود كامل .. مكمل .. انا اريد اتعلم وكيف اكتب الكود بالطريقة الصحيحه بعد عده تجارب ..

اعطني

مثال : تعريف السترنك  الي راح استخدمه من اي مكتبه تعطيناه ..

انا محتاج اولاً .. كود  ان شاء ملف بي دي اف ..

ثانياً كود اختيار .. الصوره المراد تحويلها ..

ثالثاً  تغيير حجم الصورة الى A4 

رابعاً حفظ الملف في مكان انا اختاره ..

خامساً بعد الحفظ سوف انا اقوم بطباعه الملف كاملاً .. مع عده .. ملفات ..وادمجهم مع بعض ليصبح 

الملف 

الصفحه الاولى الصوره التي تم تحويلهاً

ثاني صفحه اسم الجهاز الذي سوف اقوم .. بانشائه .

ثالث صفحه Datasheet البطاريات 

وتكون كلها في ملف واحد .. وحفظ الملف الاخير 

مكان انا احدده 

ولكم جزيل الشكر والتقدير .. 

[تركي الحلواني]

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

اول قم بجلب البيانات

PHP كود :

Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf 


ثانياً اضف هذه الدالة

PHP كود :

Private Sub ConvertImageToPDF(imagePath As String, pdfPath As String)
    Using doc As New Document()
        Try
            Dim writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(pdfPath, FileMode.Create))
            doc.Open()
            Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(imagePath)
            Dim originalWidth As Single = img.Width
            Dim originalHeight As Single = img.Height
            If originalWidth > originalHeight Then
                img.ScaleToFit(doc.PageSize.Width, doc.PageSize.Height)
            Else
                img.ScaleToFit(doc.PageSize.Height, doc.PageSize.Width)
            End If
            doc.NewPage()
            img.SetAbsolutePosition(0, doc.PageSize.Height - img.ScaledHeight)
            doc.Add(img)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            doc.Close()
        End Try
    End Using
End Sub 


ثالثاً في حدث الزر 

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim openFileDialog As New OpenFileDialog()
    openFileDialog.Filter = "Image Files|*.jpg;*.jpeg;*.png;*.gif;*.bmp"
    openFileDialog.Title = "Select an Image File"

    If openFileDialog.ShowDialog() = DialogResult.OK Then
        Dim imagePath As String = openFileDialog.FileName
        Dim saveFileDialog As New SaveFileDialog()
        saveFileDialog.Filter = "PDF Files|*.pdf"
        saveFileDialog.Title = "Save PDF File"

        If saveFileDialog.ShowDialog() = DialogResult.OK Then
            Dim pdfPath As String = saveFileDialog.FileName
            ConvertImageToPDF(imagePath, pdfPath)
            MessageBox.Show("Image converted to PDF successfully!")
        End If
    End If
End Sub 


[ackore]

(14-07-24, 02:33 PM)تركي الحلواني كتب : السلام عليكم ورحمة الله وبركاته

اول قم بجلب البيانات

PHP كود :

Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf 


ثانياً اضف هذه الدالة

PHP كود :

Private Sub ConvertImageToPDF(imagePath As String, pdfPath As String)
    Using doc As New Document()
        Try
            Dim writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(pdfPath, FileMode.Create))
            doc.Open()
            Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(imagePath)
            Dim originalWidth As Single = img.Width
            Dim originalHeight As Single = img.Height
            If originalWidth > originalHeight Then
                img.ScaleToFit(doc.PageSize.Width, doc.PageSize.Height)
            Else
                img.ScaleToFit(doc.PageSize.Height, doc.PageSize.Width)
            End If
            doc.NewPage()
            img.SetAbsolutePosition(0, doc.PageSize.Height - img.ScaledHeight)
            doc.Add(img)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            doc.Close()
        End Try
    End Using
End Sub 


ثالثاً في حدث الزر 

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim openFileDialog As New OpenFileDialog()
    openFileDialog.Filter = "Image Files|*.jpg;*.jpeg;*.png;*.gif;*.bmp"
    openFileDialog.Title = "Select an Image File"

    If openFileDialog.ShowDialog() = DialogResult.OK Then
        Dim imagePath As String = openFileDialog.FileName
        Dim saveFileDialog As New SaveFileDialog()
        saveFileDialog.Filter = "PDF Files|*.pdf"
        saveFileDialog.Title = "Save PDF File"

        If saveFileDialog.ShowDialog() = DialogResult.OK Then
            Dim pdfPath As String = saveFileDialog.FileName
            ConvertImageToPDF(imagePath, pdfPath)
            MessageBox.Show("Image converted to PDF successfully!")
        End If
    End If
End Sub 


بارك الله بيك اخي العزيز لكن انت اعطيتني الزبده .. شكرا لك على المساعده

لكني ليس قوي في استدعاء الدوال ياريت لو تعطيني مثالاً .. بارك الله فيك .

[تركي الحلواني]

البيانات في الاعلاء هيا مثال

انسخها كما هي

وقم بعمل زر في النموذج وجرب

[abu ammar]

ممتاز رائع .. بارك الله فيك
ممكن كود تحويل ملفات الورد الى بي دي اف ان أمكن

[atefkhalf2004]

الزميل    

PHP كود :

http://vb4arb.com/vb/member.php?action=profile&uid=31301 


برجاء وضع المثال كامل انا احتاجه   والاخرين

[asmarsou]

(22-07-24, 04:59 PM)abu ammar كتب : ممتاز رائع .. بارك الله فيك
ممكن كود تحويل ملفات الورد الى بي دي اف  ان أمكن

اليك بمثال لتحويل ملف وورد الى بي دي اف

PHP كود :

Public Class Form1
    Public Sub ConvertToPDF(sInputPath As String, sOutputPath As String)
        'type to be saved
        Const wdFormatPDF As Integer = 17

        Dim wdApp As Object
        Dim wdDoc As Object

        'open the file
        wdApp = CreateObject("Word.Application")
        wdDoc = wdApp.Documents.Open(sInputPath)

        'convert it
        Call wdDoc.SaveAs2(sOutputPath, wdFormatPDF)

        'close and clean
        wdDoc.Close()
        wdApp.Quit()

        wdDoc = Nothing
        wdApp = Nothing
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim openFileDialog As New OpenFileDialog()
        openFileDialog.Filter = "Word Files|*.docx"
        If openFileDialog.ShowDialog() = DialogResult.OK Then
            Dim wordPath As String = openFileDialog.FileName
            Dim saveFileDialog As New SaveFileDialog()
            saveFileDialog.Filter = "PDF Files|*.pdf"
            saveFileDialog.Title = "Save PDF File"

            If saveFileDialog.ShowDialog() = DialogResult.OK Then
                Dim pdfPath As String = saveFileDialog.FileName
                ConvertToPDF(wordPath, pdfPath)
                MessageBox.Show("the word document has been converted to PDF successfully!")
            End If
        End If
    End Sub
End Class 


[atefkhalf2004]

إقتباس :abu ammar

الزميل برجاء وضع المثال    لاني ارغب   في طباعة ملف  كريستال بمقاسات يتحكم فيها العميل

[محمد مسافر]

(14-07-24, 02:33 PM)تركي الحلواني كتب : السلام عليكم ورحمة الله وبركاته

اول قم بجلب البيانات

PHP كود :

Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf 


ثانياً اضف هذه الدالة

PHP كود :

Private Sub ConvertImageToPDF(imagePath As String, pdfPath As String)
    Using doc As New Document()
        Try
            Dim writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(pdfPath, FileMode.Create))
            doc.Open()
            Dim img As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(imagePath)
            Dim originalWidth As Single = img.Width
            Dim originalHeight As Single = img.Height
            If originalWidth > originalHeight Then
                img.ScaleToFit(doc.PageSize.Width, doc.PageSize.Height)
            Else
                img.ScaleToFit(doc.PageSize.Height, doc.PageSize.Width)
            End If
            doc.NewPage()
            img.SetAbsolutePosition(0, doc.PageSize.Height - img.ScaledHeight)
            doc.Add(img)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            doc.Close()
        End Try
    End Using
End Sub 


ثالثاً في حدث الزر 

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim openFileDialog As New OpenFileDialog()
    openFileDialog.Filter = "Image Files|*.jpg;*.jpeg;*.png;*.gif;*.bmp"
    openFileDialog.Title = "Select an Image File"

    If openFileDialog.ShowDialog() = DialogResult.OK Then
        Dim imagePath As String = openFileDialog.FileName
        Dim saveFileDialog As New SaveFileDialog()
        saveFileDialog.Filter = "PDF Files|*.pdf"
        saveFileDialog.Title = "Save PDF File"

        If saveFileDialog.ShowDialog() = DialogResult.OK Then
            Dim pdfPath As String = saveFileDialog.FileName
            ConvertImageToPDF(imagePath, pdfPath)
            MessageBox.Show("Image converted to PDF successfully!")
        End If
    End If
End Sub 


هل ممكن مثال جاهز لمن عنده هذه المثال ايضاً كيف يمكن التحويل من PDF الى صوره