שלום,

אני מנסה להמיר קוד VB ל- VBA.

מצורפים 2 קבצים של טופס ומודול אחד.
https://2007-uploaded.fresh.co.il/2...29/51780106.zip

וכמו כן מצורף פרוייקט דומה באקסס המכיל את 2 הטפסים והמודול.
https://2007-uploaded.fresh.co.il/2...29/63871122.zip

אני צריך עזרה בהמרת הפקודות ב- VB שאינן מתאימות ל- VBA
מקווה שהסברתי את עצמי טוב
רפי

מה אתה שואל פו? זה לא פורום "תעשו לי את העבודה". אף אחד לא יבזבז מזמנו על להמיר לך את זה. אם זה מה שאתה רוצה, תשכיר מתכנת שימיר לך.

אם אתה רוצה לילמוד, תגיד איפה אתה ניתקע, או תחשוב על פיתרון יצירתי. כמו למשל לעשות EXE, ליקבוע אותו כ-MDIChild וליקרא לEXE הזה.

נשמע כאילו אתה כועס.

אין צורך לשכור מתכנת.
את כל מה שלמדתי עד היום, למדתי באמצעות אתרים שמסבירים ופורומים.
אני מאמין שגם כאן אני יכול להסתדר, פניתי לפורום לאחר מס' רב של נסיונות, אבל יש דברים כמו syntex נכון שקשה לי איתם.
אני מנסה להבין פקודות כמו:
PrivateSub Timer2_Tick
ו-
PrivateSub Winsock1_DataArrival
איך private sub של event כלשהו, משתמש ב sub-ים האלו.
בנוסף:

frmMain.Winsock1.Connect(icq_Server, icq_Port)
Winsock1.GetData(Data)

בעיקר נושא של שליחת נתונים בין שגרות.

שלב שלב, ואני אבין בסוף.
רפי

ציטוט:

נשמע כאילו אתה כועס.

אני לא כועס. פשוט רציתי להבהיר שאין סיכוי (רק עם אני יהיה משועמם) שאני יתחיל להמיר תוכניות שלמות מ-VB ל- אקסס.

ואחשיו לשאלתך:

1. PrivateSub זו פונקציה. לא פקודה.
2.

קוד:

Winsock1.GetData(Data)

הפקודה בסדר, אבל אתה צריך פקד בשם Winsock. אותו תוכל למצוא ב- הוספה => פקד ActiveX ותימצא שם את Microsoft WinSock Control 0.6 ותיקרא לו בשם Winsock1.

3.
במיקרא של הטימר, אני מניח שהיתכוונת

קוד:

Private Sub Timer1_Timer() 

כי רק ב-VB.NET זה TICK.

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

נ.ב:
אני העפתי מבט בקוד, ואתה צריך רק את הטימר הראשון. ולא השני.

נ.ב2:
אין פקודות כאלה:

קוד:

Option Strict Off
Option Explicit On

במיקום שניהם תיכתוב

קוד:

Option Explicit

עוד משהוא שניתקעת בו או לא הבנת או אתה רוצה הסבר עליו, רק תישאל...

תודה רבה,

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

לילה טוב

טוב,

יש לי עוד כמה שאלות:
1. עניין עקרוני - כשמופיעה במודול הפקודה :

frmMain.cmdLogin.Text

אני למעשה מפנה לפקד cmdLogin בטופס frmMain.

באקסס זה מהווה שתי בעיות:
א. cmdLogin.text זו לא פקודה מוכרת.
ב. frmMain.cmdLogin גם הוא לא מוכר. איך מבצעים הפנייה כזו באקסס.

2. הפקד winsock:

קוד:

Connect(icq_Server, icq_Port)

קוד:

 Winsock1.GetData (Data) 

קוד:

Winsock1.Close()

האופציות האלו לא נפתחות לי, והוספתי את ה activex הזה (מופיעות אופציות אחרות).

3. משתנה מסוג short גם אינו קיים ב - VBA. איזה סוג משתנה אפשר להכניס במקומו ?
4. הגדרת שגרה:

קוד:

	Private Sub frmMain_Load (ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

נראה לי שאין צורך בסוגריים. האם אני צודק ?

5. קריאה לשיגרה/פונקציה:
האם נכון שבמקום:

קוד:

 Process_Packets()

ניתן לכתוב ב - VBA:

קוד:

call Process_Packets 

עד כאן להפעם !

תודה

ציטוט:

בכל אופן שאני אסיים אני אשלח לך את זה מוכן

תודה, אבל אין צורך. אני עוזר לך מרצוני.



א. באקסס וגם ב-VB, אפשר לפנות לטקסט בכפתור כך:

קוד:

frmMain.cmdLogin.Caption = "asdas"

ב. אתה צריך ליקרא לטופס בשם frmMain ולכפתור cmdLogin. שים לב שאתה כותב בקוד של הטופס. ולא של המודול.

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

בימקום short תיכתוב Integer


בקריאה לפונקציה, גם בVB וגם באקסס, אפשר לקרא לפונקציה כך:

קוד:

Private Sub Form_Load()
	aaa
End Sub
Sub aaa()
	MsgBox "asdasdasdasdfasdfasfdasdfasdfasdfasdfasdfasdf"
End Sub

זאת אומרת בלי כלום. רק את שם הפונקציה


שבת שלום!

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

קוד:

frmMain. 

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

שבת שלום

1. אני כתבתי לך את זה:

ציטוט:

שים לב שאתה כותב בקוד של הטופס. ולא של המודול

דרך המודול, אי אפשר לגשת לפקדים על הטופס.

2. מוזר שרק דרך CALL זה עובד. מאיפה לאיפה קראת? מהטופס למודול? בדקת שהפונקציה מוגדרת כ-public?
לא משנה. הכי חשוב שמצת פיתרון.

כלומר, לפי מה שאתה אומר, אני צריך להעתיק את השגרות שבהן מופיעים קישורים לפקדים של טופס, לתוך הטופס, ולהחליף אותן ב - private, במקום ב - public.

לדוגמא: את sub הבא, המופיע במודול :

קוד:

	Public Sub Ready()
		Send_Flap("00010002000000000002000100030110047c00130002011004  7c000200010101047c000300010110047c001500010110047c  000400010110047c000600010110047c000900010110047c00  0a00010110047c000b00010110047c", "02")
 
		Send_Flap("0001001e0000000000000006000400010000", "02")
 
		frmMain.cmdLogin.Text = "Logout"
		frmMain.Hide()
		frmSms.Show()
	End Sub

להעביר לקוד של הטופס, ולהפוך אותו ל privae.
בנוסף,
בקוד שצירפתי ה - syntax כנראה לא נכון, היות והשורה מסתמנת באדום:

קוד:

 		Send_Flap("0001001e0000000000000006000400010000", "02")

אולי זה צריך להירשם בלי הסוגריים ???

שוב תודה

1. לא. private אומר שאפשר לקרא לפונקציה הזו רק מאותו מקום בו הוא נימצא.

Public אומר שאפשר מכל התוכנה.

2. שים לב ש- Send_Flap זה קריאה לפונקציה בשם Send_Flap עם הפרמתרים שלה. לכן כמובן שזה צריך להיות בלי סוגריים.
עד כמה שאני רואה, היא עושה המרה כל שהיא ואז שולחת נתונים ברשת. אין לי זמן להיתעמק מה היא עושה בדיוק.


3. בקשר לפקד Winsock באקסס.
אני גילית שזה בעייתי להישתמש בו באקסס. יש פתרון שלמשל תעשה EXE של VB שתישלח לו בפרמתרים את מה שאתה רוצה לשלוח. אבל איך תקבל נתונים בחזרה? דרך המסד? זה לא ניראה לי...
אפשר לעשות גם DLL אבל זה כבר מסובח. לכן ניראה לי שעדיף לך לעבוד ב-VB (כך יש לך את כל הכילים שלו,) ותיפנה במחרוזת קישור למסד.

דווקא נראה לי שלעשות ActiveX DLL ב-VB זה די פשוט.

אני מעוניין לשמוע יותר על יצירת DLL. מאיפה צריך להתחיל (אחד שמעולם לא עשה דבר כזה) ?

צור שם מחלקה בשם WinsockWrapper שתכונת ה-Instancing שלה מוגדרת כ-MultiUse, ושהיא תטפל בכל ענייני התקשורת שאתם אומרים שיש איתם בעיה באקסס.

1. אין בעייה ליצור Private sub, בקוד של הטופס הרלוונטי, (אני חושב) היות ואני קורא לו מתוך אותו הטופס.
2.נראה לי שאני מעדיף להתעמק וללמוד. יש לי גם חבר שאליו אני יכול עם דברים מסובכים יותר.
הסיבה היא שאין לי עניין בכלל בשני הטפסים האלו. אני מתכנן לבטל אותם ברגע שהקוד יעבוד.
אני מעוניין לבצע Login אוטומטי בזמן הכניסה למסד (שזה פשוט ע"י on load) בטופס הראשי, ולאחר מכן שליחת SMS, אוטומטית גם כן, לפי שאילתות מתאימות.
יש לי מסד המכיל כ- 2000 לקוחות, שלהם אני מעוניין לשלוח SMS לדוגמא, לימי הולדת ו/או תזכורות לגבי פגישות וכו' בכל יום בעת כניסה למערכת. כמובן שצריך גם טבלת log על מנת לדעת למי נשלח ולמי לא. את זה אני יודע לעשות.
מה שחסר לי זו ההתממשקות לשרת icq. לצורך העניין, השימוש בשרת icq יכול לחסוך כסף אבל ברגע שהקוד מוכן, זה יכול להתאים לכל שרת sms, בהתאם לפרוטוקול העברת הנתונים שכל חברה משתמשת בו (יש מס' חברות שמספקות את השירות תמורת תשלום).
כיום אני משתמש בתוכנה דומה המופעלת חיצונית לאקסס ושולח באופן ידני לפי הרשימות שהאקסס פולט לי לקבצי טקסט המכילים את מספרי הטלפון.
לפיכך, אני מעוניין לשמוע יותר על יצירת DLL. מאיפה צריך להתחיל (אחד שמעולם לא עשה דבר כזה) ?
יש לציין כי את המערכת הקיימת היום בניתי שלב שלב באמצעות הפורום הזה, ואני בעיקר מפיק סיפוק מהלמידה, כך שאני מקווה שאני לא מבזבז יותר מידי מזמנך אבל בסופו של דבר הפרוייקט הזה משרת הרבה אנשים.

אני בימקומך, הייתי בונה את כל התוכנה ב-VB, ומשתמש באקסס רק לצורך מסד.

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

לכן אני חושב שגוגל יעזור לך יותר:
http://www.google.co.il/search?hl=i...ate+dll+VB&meta=
ממבט ראשון, התוצאה הראשונה ניראית מתאימה.