תודה על הקרדיט, תמיד שמחים לעזור...... 🙂

פורסם במקור בפורום CODE613 ב15/08/2013 17:02 (+03:00)

תודה רבה רבה!!!
הנה הקוד הסופי:
אני רוצה לציין שהיתי מוכרח לעשות שתי פונקציות שממירות את מיקום העכבר למעלות וכמו שאמרת, אחת עבור הקשת ואחת עבור הכדור האדום, וזאת משום שכאשר הכנסתי לפונקציה את ההתיחסות לצורת מלבן אז הכדור האדום אכן היה תמיד צמוד לעכבר אבל הקשת לא!! ולכן לקשת השארתי את הפונקציה הישנה ולכדור האדום פונקציה עם התיחסות למלבן.
אני משער שהפונקציה שמציירת את הקשת מוסיפה את ההתיחסות למלבן מעצמה ולכן זה משבש אותה.

Public Class Form1 ' Create start and sweep angles on ellipse. Dim startAngle As Single = 40.0F Dim sweepAngle As Single = 0.0F Dim RedEllipseAngle As Single Public Sub New() ' This call is required by the designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. Me.Height = Me.Width * 2 End Sub Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint ' Create pen. Dim blackPen As New Pen(Color.Black, 3) ' Create rectangle to bound ellipse. Dim rect As New Rectangle(0, 0, Me.ClientSize.Width, Me.ClientSize.Height) ' Draw arc to screen. e.Graphics.DrawArc(blackPen, rect, startAngle, sweepAngle) e.Graphics.FillEllipse(Brushes.Red, New Rectangle(GetCoordinate(RedEllipseAngle), New Size(12, 12))) End Sub Private Sub Form1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove 'שינוי תחילת הקשת על פי הסמן 'startAngle = GetAngle(Me.ClientSize.Width/ 2, Me.ClientSize.Height / 2, e.Location.X, e.Location.Y) 'שינוי אורך הקשת על פי הסמן sweepAngle = GetAngle(Me.ClientSize.Width / 2, Me.ClientSize.Height / 2, e.Location.X, e.Location.Y) - startAngle RedEllipseAngle = GetAngle2(Me.ClientSize.Width / 2, Me.ClientSize.Height / 2, e.Location.X, e.Location.Y) Me.Invalidate() End Sub Function GetAngle(ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single) As Single Dim xDiff As Single = (x1 - x2) Dim yDiff As Single = (y1 - y2) Return (CSng(Math.Atan2(yDiff, xDiff)) * (180 / Math.PI) + 180) End Function Function GetAngle2(ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single) As Single Dim xDiff As Single = ((x1 - x2) * (Me.ClientSize.Height / Me.ClientSize.Width)) Dim yDiff As Single = (y1 - y2) Return (CSng(Math.Atan2(yDiff, xDiff)) * (180 / Math.PI) + 180) End Function Private Function GetCoordinate(ByVal angle As Single) As Point Dim Radian As Double = toRadians(angle) Dim x As Single = (Me.ClientSize.Width / 2) + CSng(Math.Cos(Radian) * (Me.ClientSize.Width / 2)) Dim y As Single = (Me.ClientSize.Height / 2) + CSng(Math.Sin(Radian) * (Me.ClientSize.Height / 2)) Return New Point(x - 6, y - 6) End Function Function toRadians(ByVal angle As Single) As Double Return angle * (Math.PI / 180) End Function End Class

פורסם במקור בפורום CODE613 ב19/08/2013 13:42 (+03:00)

הנה קוד פשוט עם iTextSharp

Imports iTextSharp.text.pdf Imports iTextSharp.text Imports System.IO Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim pdfDoc As New Document() Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("tryme2.pdf", FileMode.Create)) pdfDoc.Open() pdfDoc.Add(New Paragraph("Hello World")) pdfDoc.NewPage() pdfDoc.Add(New Paragraph("Hello World Again")) pdfDoc.Close() End Sub End Class

להורדת הקוד מקור של iTextSharp
http://sourceforge.net/projects/itextsharp/

פורסם במקור בפורום CODE613 ב14/08/2013 10:32 (+03:00)

אין לי אפשרות לעקוב אחרי הבעיה, מכיוון שהמערכת כולה הוחלפה, וכרגע הכל עובד כמצופה.

פורסם במקור בפורום CODE613 ב21/08/2013 20:15 (+03:00)

אין מה להרחיב.
התוכנה inkspace זו תוכנת גרפיקה וקטורית חינמית נראה לי, תוכנה ברמה, עם עברית.
בשמירה בשם יש אפשרות לייצא לXAML.

התוכנה Blend זה בעצם כמה תוכנות. בתשלום, ושל מיקרוסופט.
המוכרת זה Expression. היא ייעודית לXAML.
בכל אופן בתוכנה הזו אפשר לצייר ולקבל את הXAML.

פורסם במקור בפורום CODE613 ב15/08/2013 13:25 (+03:00)

ראה אם זה מתאים בישבילך:
http://support.microsoft.com/kb/317535
ויש גם את זה:
http://support.microsoft.com/Default.aspx?kbid=817248

ומעינין לעינין באותו עינין התקשרות לDLL בשפת C++ מ VBA:
http://www.codeproject.com/Articles/17733/A-C-DLL-for-Excel-that-uses-Arrays-and-Ranges
ויש לזה יתרון שלא צריך ב VBA לעשות רפרנס לDLL

פורסם במקור בפורום CODE613 ב09/08/2013 16:17 (+03:00)

והנה אותה הפונקציה ב VBNET

Public Function UnicodeEncode(ByVal str As String) As String If String.IsNullOrEmpty(str) Then Exit Function Dim i, a For i = 1 To Len(str) a = AscW(Mid(str, i, 1)) If a > -1 And a < 127 Then UnicodeEncode = UnicodeEncode & "%" & New String("0", 2 - Len(Hex(a))) & Hex(a) ElseIf a > -1 Or a < 65535 Then UnicodeEncode = UnicodeEncode & "%u" & New String("0", 4 - Len(Hex(a))) & Hex(a) End If Next End Function

פורסם במקור בפורום CODE613 ב07/12/2013 22:06 (+02:00)

כל זמן שאין פתרונות לבאגים אז לדעתי הדרך הנכונה היא מה שתביא את התוצאות גם במחיר משאבים

פורסם במקור בפורום CODE613 ב15/08/2013 17:59 (+03:00)

הרלוונטי הוא הקטן ביותר.
השאר זה תוספות.
(חוץ מהLocalDB שזה איזשהו משהו מקומי ל"כאילו" MSSQL, זה משהו חדש אני לא הבנתי מה הוא בא לעשות).

התוספות הם כמה כלים ובראשם הManagement Studio. הוא שימושי מאוד, בVS הוא נמצא חלקית ואולי לגמרי לא יודע.

הגירסאות לא סותרות אחת את השנייה וניתן להתקין במקביל.
לא מומלץ לשדרג, זה באמת סיכון.

פורסם במקור בפורום CODE613 ב05/08/2013 17:53 (+03:00)

אני רוצה לחדד את הנקודה, בכל תוכנה שרוצים להגן עליה יש שני חלקים:

הקוד מקור ולזה ערפול סביר עושה את העבודה כי כבר לא שווה לפורץ הפוטנציאלי להתעסק איתו אלא לכתוב את הקוד לבד. מניעת עריכת הDLL בשיטת patch הנ''ל ולזה כמעט שלא יכול לעזור הערפול כיון שהפורץ ניגש ישר לפונקציה שבה התוכנה מתחילה [ entrypoint ] ומשנה אותה או מוחק את הקוד הפנימי שלה. או שהוא ניגש לכל פונקציה אחרת שמזהה אותה כבודקת רשיון וכדומה.

ולכן כעת שיש לנו ערפול מצויין אם ע''י התוכנות שהזכרו ואם ע''י מאקרו יש לנו פתרון לחלק הראשון, אבל לחלק השני אנו צריכים עדיין פתרון.
מה שחשבתי הוא לקרוא את הDLL ישירות ולמצוא בו את שמות המשתנים ולהוסיף לכל שם תוים מיוחדים כמו מעבר עמוד או מעבר שורה וכדומה כדי שיהיה בלתי אפשרי לפתוח DLL זה ברפלקטור.
והשאלה שלי איך עושים את זה? איך אפשר למצוא בתוך כל הבינארי את שמות המשתנים? בקיצור איך בנוי הDLL ?

פורסם במקור בפורום CODE613 ב07/08/2013 11:34 (+03:00)

@ayalaleora

ולמעשה למה אתה צריך את זה?

בשביל לעשות ערפול לקוד.

פורסם במקור בפורום CODE613 ב22/08/2013 08:44 (+03:00)

@magicode

@דוד ל.ט.
אם לא היה מדובר בVBA, זה שורת קוד אחת בC#.

אני הבאתי את האלגוריתם שעושה את זה בלי פונקציה הבאתי את זה בjs בגלל שאני על לינוקס ואני לא יכול לכתוב בvba והשפה שהכי קל לכתוב בה אוןלין זה js.

אשריך רבי אלגוריתם.........

פורסם במקור בפורום CODE613 ב04/08/2013 16:10 (+03:00)

התשובה מאד מאד תלויה במהירות השרת שלך.
מנסיון, אם השרת בארץ וזריז מספיק,זה עובד בצורה סבירה. (אל תנסה לחשוב על המהירות שיש לך בקובץ מקומי, כי זה לא. אבל משהו בסיגנון של - אתה מחכה שנייה, ורואה איך הוא מצייר את הנתונים...) - קצת מציק למי שמכיר את אקסס ויודע באיזה זריזות הוא שולף.
אם השרת ממש מקומי (לא בארץ, אלא ממש במשרד) זה צריך לעבוד יעיל וזריז.
אם השרת בחו"ל וזמן הפינג קצת ארוך, זה מציק ברמות על, ותוקע לעיתים קרובות את המערכת.
לשם השוואה, אותו פרוייקט, אבל בWINFORMS עם LINQ או DATASET אתה מקבל את הזריזות של אקסס בקובץ מקומי. (בשרת בחו"ל וק"ו בארץ...)

הנסיון שלי באקקס עם ODBC הוא בפרוייקט שכתבתי ללקוח עם כ40 משתמשים שעובדים בכל הארץ במשולב.

נכון לעכשיו: הפיתרון המניח את הדעת הכי מוצלח שהגעתי אליו (לאחר שנתיים שעבדו במתכונת של הקובץ אקסס על כל מחשב, וכל קובץ ניגש לSQL SERVER) הוא RDP + REMOTE APP. הוא עובד ביחד עם הODBC בעיקר מסיבות הסטוריות, אבל יושב על שרת וירטואלי וניגש לSQL שנמצא באותו אשכול שרתים, כך שמבחינת תעבורת נתונים זה רץ יחסית זריז.

דבר נוסף ש"הרווחתי" מהמעבר לשרת הוא נושא העידכונים. כל פעם שיוצא עידכון (ויש הרבה כאלה....) אני מעדכן פעם אחת את השרת וזהו. (למרות שכתבתי להם כלי שיודע לבדוק אוטו' אם יש עידכון ולהתקין אותו לבד, עדיין לפעמים הם היו שכחכים לעדכן וכו')

מה שכן, יש כאן סעיף של עלויות: WINDOWS SERVER 2008 עולה, וכל משתמש שמחובר בו זמנית עולה 5$ לחודש בערך. פתרתי את זה בצורה מעניינת.... מסתבר שיש אפשרות לMulty Session ואני לא מתכוון לאפשרות של משתמשים מרובים, אלא לעשות LogIn במקביל לאותו משתמש כמה פעמים. ולכן: מכיוון שWIN2008 נותן גישה עם הרישיון שלו ל2 בו זמנית, עשיתי את המשתמש השני Multy Session, המשמעות: כולם נכנסים עם אותו שם משתמש, במילא את השם משתמש והסיסמא הם צריכים לשים בתוכנה, ולכן זה לא משנה לי איך הוא נכנס.
אם תרצה שאני ירחיב קצת במושא זה, כתוב לי בתגובה....

בהפוכה לאחת התגובות כאן, מעצבן גם שמייקרוסופט לא נתנו אפשרות להתחבר בצורה ישירה לSQL SERVER כמו שהיה פעם באופיס 2003, או DATASET באקסס....
חבל גם שהם לא נתנו את הכלים המדהימים שיש ב.NET, ובכלל.... במקום לפתח את האקסס לכיוון של המתכנתים, הם פיתחו אותו לכיוון של המאקרו, וחבל!!! (ושלא תבין לא נכון, אני מפתח גם בכלים של .NET, אבל יש דברים שפשוט מעצבן שמייקרוסופט לא שילבה לשני הכיוונים) 😞 😞 😞

וואו... כתבתי המון ביחס להודעה ראשונה שלי בפורום, אבל ממש נהנתי!! כחרדי לראות שיש פורום כזה עם אנשים כ"כ מוצלחים ומקצועיים.....

פורסם במקור בפורום CODE613 ב29/12/2013 10:23 (+02:00)

ישר כח,
עלו והצליחו

הוספתי את האתר לרשימה המאוד מצומצמת שיש לי (קשה עד בלתי אפשרי להשתמש באתרים, אפילו של תכנות)
בהצלחה רבה!

פורסם במקור בפורום CODE613 ב29/07/2013 09:40 (+03:00)

כדאי שתפתח על זה אשכול בפני עצמו

פורסם במקור בפורום CODE613 ב22/10/2015 08:14 (+03:00)

HRDM - חרדים?

להשאיר כמובן את CODE613M, שם מצוין ומזכיר לנו כל הזמן את התפקיד האמיתי שלנו

פורסם במקור בפורום CODE613 ב29/07/2013 09:49 (+03:00)

יש בזה משהו, אבל זה כבר לא פור איצ' הקריאה לכל אייטם אחר כך היא יותר מסורבלת בכל אופן עשיתי קומבינה אחרת

תודה על העזרה.

פורסם במקור בפורום CODE613 ב25/07/2013 18:56 (+03:00)

ברוך ה' !
העצות הועילו ואכן היה חסר סגירה של הZIP כיון שהבקוד שפורסם יש סגירה רק בסוף כל פונקציה אבל מה שקורה שפעמים הוא יוצא מהפונקציה כבר באמצע בלא לסגור וכך הוא נשאר פתוח.

תודה רבה לכולם!!

פורסם במקור בפורום CODE613 ב25/07/2013 18:32 (+03:00)

@ארכיטקט

נ.ב. לגבי הבדיחה הזאת, המקור נראה לי מאחיך, אז תגיד לו שיש שכר לעמל של כל בדיחה....

העיקר שמדברים עלי...

פורסם במקור בפורום CODE613 ב30/09/2013 20:41 (+03:00)

אחרי שם הפרמטר כותבים = ואח"כ את הערך במידה ולא הוכנס הפרמטר הזה.
קוראים לזה Optional Parmeter חידוש של C# 4 נדמה לי.

פורסם במקור בפורום CODE613 ב22/07/2013 18:29 (+03:00)