سورس یک دفترچه تلفن پیشرفته با گرافیک بالا(تقدیم به دوستان)

اینم سورس کامل
یک Setup جهت نصب فایلهای مورد نیاز


دانلود فایل Setup

لینک کمکی Setup

فایل کمکی http://www.4shared.com/file/70491217...ce2/setup.html

دوست عزيز لطفا فايلهاي ocx وdll آن هم آپلود كنيد

دوست عزیز یک فایل Setup ضمیمه کردم اون رو دانلود کن و بعد نصبش کن تا Dll ها و OCX ها نصب بشه

سلام. بعد از نصب setup باز هم کار نمی کنه!

در صورت امكان فايل setup مكاني جز Rapidshare بزاريد

اون فایل ست آپ رو چطور می سازید؟؟که فایل های لازم رو تو جاهای خاصی کپی کنه؟مثلا سیستم 32

دوستان عزیز این فایل مشکلی نداره و می تونین دانلود کنید چون من بارها تست کردم

این نرم افزار با Crystal Report و کامپوننت CodeJock طراحی شده

ستاپ این نرم افزار با Setup Factory ساخته شده

dllشمسي رجيستر نميشه خطا ميگير چرا

نقل قول:

---

نوشته شده توسط f.nabavi

سلام. بعد از نصب setup باز هم کار نمی کنه!

---

باید DLL شمسیو رجیستر کنی

نقل قول:

---

نوشته شده توسط دل شكسته

dllشمسي رجيستر نميشه خطا ميگير چرا

---

پیامش چیه؟

regsvr32 "c:\Shamsi.dll"

نقل قول:

---

نوشته شده توسط maryamb

اون فایل ست آپ رو چطور می سازید؟؟که فایل های لازم رو تو جاهای خاصی کپی کنه؟مثلا سیستم 32

---

کاری نداره خود vb هم همچین امکانی داره
در ضمن install shield و چند نرم افزار دیگه به راحتی همین کارو میکنن.
در ضمن اگه جستجو کنی به نتایج خوبی می رسی

mpmsoft جان عزيز از دفترچه تلفن ممنوم. چون دانلود فايل setup كه تو سايت ديگري است مشكله لطف كن و ocx & dllها رو همين جا ضميمه كن تا سورست بلا استفاده براي خيلي نمونه.
با تشكر

دوست عزیز من از لینک زیر دانلود کردم مشکلی نداشت
http://rs528.rapidshare.com/files/148529210/setup.exe

توسط این ستاپ فایلهای مربوط به Crystal و همچنین فایلهای مورد نیاز برنامه نصب می شه که تعدادش حدود 30-40 تایی هست

نمی تونم تک تک اینجا آپلود کنم

روی سیستم من از یوزر کنترل ایراد میگیره علتش چیه؟

1- دوست عزیز آیا شما کامل ستاپ رو نصب کردید ؟
2- متن پیغام خطا رو بذارید

من دو تا ورژن از اون یورز کنترل داشتم که وقتی میگفت میخواهید اپگرید بشه میزدم بله ولی با زدن دکمه نه مشکل حل شد محیط برنامه که جالبه فقط اگه میشه در مورد اون فایل کریستال ریپورت و اضافه کردن تاریخ شمشی به گزارشتون یک تو ضیحی بدین ممنون

دوست عزیز یک Formula Field به گزارش اضافه کردم و از داخل برنامه به اون مقدار می دم

میشه بیشتر توضیح بدین

دوست عزیز اگر یکمی به کد دقت کنید کاملا مشخص هست

ما در گزارش یک آبجکتی دارم و از داخل کد مقدار تکستی رو براش ارسال می کنیم

ممنون متوجه شدم

یک مشکل تو برنامه دیدم گفتم شاید بد نباشه بهتون بگم
وقتی میخواهی یک فرد جدید رو add کنی تاریخ میتونه هر مقداری مثل 13115462 رو بگیره که بد نیست اون رو اصلاح کنید

با سلام اگه می شه برنامه را یک جای دیگه اپ لود کنید چون با رپید شر دانلود نمی شه کرد
با تشکر فراوان

مگه بازی هست كه ميگيد با گرافيك بالا

فكر كنم يه چيزم بدهكار شدم ؟

خواهش مي كنم از زدن پستهاي نا مربوط و بي فايده خودداري كنيد.

اگر نظري هست لطفا بصورت خصوصي برام پيغام بذاريد.

ببخشيد، ولی اخه مشكل اينه كه وقتی ميخوام اجراش كنم يك ميليارد تا ارور ميده آخرش هم اجرا نميشه...

نقل قول:

---

نوشته شده توسط Armin060

مگه بازی هست كه ميگيد با گرافيك بالا

---

دلم به حالش میسوزه
این بنده خدا فقط و فقط از گرافیک هیمنو میدونه که تو بازی کاربرد داره اون وقت اومده تو برنامه نویس عضو شده
من توصیه میکنم برید کاربرد قسمت های اولیه سیستم را یاد بگیرید بعد برگردید

نقل قول:

---

دلم به حالش میسوزه
این بنده خدا فقط و فقط از گرافیک هیمنو میدونه که تو بازی کاربرد داره اون وقت اومده تو برنامه نویس عضو شده
من توصیه میکنم برید کاربرد قسمت های اولیه سیستم را یاد بگیرید بعد برگردید

---

حالا شما فعلا بريد همون قسمت ها رو ياد بگيريد بعد بيايد به ما هم ياد بديد...

دوست عزيز يك فايل Setup در پست اول هستش بايد ابتدا اونو نصب كنيد تا فايلهاي مورد نياز برنامه نصب بشه و بعد سورس برنامه رو اجرا كنيد . بله درسته اگر نصب نكنيد به قول شما 1 ميلياردتا ارور بهتون مي ده

سلام
اگه ممكنه ocx هايي رو كه تو برنامه ات استفاده كردي ، تو يه پوشه بذار و روي سايت آپلود كن

وقتی در پست اول روی دانلود setup کلیک می کنم ، صفحه رپیت شر باز می شود، بعد برای دانلود ستاپ روی چه چیزی باز کلیک کرد؟
اگر ممکن است توضیح دهید.

دوست عزيز بابت سورسي كه گذاشتي بي نهايت ممنونم

در مورد دانلود از رپيد شر به دوستاني كه اطلاعات كافي ندارن بگم

اول روي دكمه free user كليك مي كنيد

يه صفحه جديد باز ميشه چند ثانيه صبر مي كنيد حدودا 30 ثانيه ( خودش اونجا مي نويسه)

بعد يه دكمه مياد روش نوشته دانلود

روي ان كليك مي كنيد تا دانلود بشه

بابت سورسي كه گذاشتي ممنونم

اما من یه مشکلی دارم به جای فونت های فارسی ؟ می آد
البیته بعضی لیبل ها درست فارسی رو نشون می دن

ایراد کجاست؟

منظورتون اینه که فونتها بصورت دون دون نمایش داده می شه ؟

یعنی زیاد مناسب نیست ؟ اگر به این شکل نمایش می ده بگید راهنماییتون بکنم

دوست عزیزم؛
جناب آقا مهرداد؛
با اینکه هنوز برنامه شما رو به طور کامل ندیدم ولی جا داره در همینجا ازتون به خاطر اینهمه سعه صدر و کار ارزشمندی که انجام دادید تشکر کنم(منظورم گذاشتن سورس برنامه هست)،به خصوص برای من که مبتدی هستم و دنبال برنامه ای برای یادگیری می گشتم. واقعاً مجدداً ازتون تشکر می کنم و خسته نباشید میگم.
ضمناً اگه ممکنه پسورد بانک توی نرم افزار تلفن رو بهم بگید؟
از این به بعد هم اگه اشکالی نداشته باشه بعضی از سوالهای خودم رو از شما می پرسم. چون با این تواضع و حوصله ای که دارید مطمئنم استاد خوبی هستید.
متشکرم.:تشویق:

ممنون

ریست کردم درست شد

نقل قول:

---

ضمناً اگه ممکنه پسورد بانک توی نرم افزار تلفن رو بهم بگید؟

---

پسورد بانک اکسس با اجازه : barnamenevis

سلام
اگه ممكنه ocxهايي رو كه تو برنامه استفاده كردي بطور جداگانه آپلود كن

ممنون

بعداز وارد شدن به رپید شیر روی دکمه Free User کلیک کنید و بعد یک تایمر از 60 تا 0 شمرده می شه و بعد یک دکمه دانلود نمایش داده می شه

شما باید بروی دکمه دانلود کلیک کنید

برای مشکل فونت باید برین به کنترل پنل در قسمت زبان (regional and language) وارد قسمت details رفته و در قسمت advanced دو تا تیک داره هر دوتا رو بزنین بع هم توی صفحه اصلی گزینه advance گزینه فارسی و تیک پایین صفحه رو بزنین

سلام

ببخشید من به مشکل بر خوردم

من هم سورس رو دانلود کردم هم فایل Setup

ولی وقتی توی VB یا اصلاً به صورت exe درش میاری error زیر رو میده :
Run-time error '13
type mismatch

مشکل از کجاست؟

کسی نمی خواد جواب من رو بده؟

خیر این ابزار هیچ محدودیتی نداره و خیال راحت استفاده کنید

سلام؛
یک سوال برام پیش اومده؟ من دارم از برنامه شما الگو می گیرم برای کارهای خودم، ولی به نظر شما آیا این کار باعث پیشرفت من هم میشه یا نه؟ منظورم اینه که الگو برداری از کارهای بقیه خوبه یا نه؟
ضمناً میشه به این سوال من هم پاسخ بدید؟
من ابتدا برای ارتباط و درج اطلاعات از adodc استفاده می کردم که خیلی هم راحت بود، ولی با توجه به جستجویی که کردم و مقالاتی که خوندم دیدم adodb و دیگر adoها فکر کنم دست ما رو بیشتر باز میذاره برای انتخاب.
حالا من هم اومدم و برنامم رو طبق متد شما دارم می نویسم که یک جا بهم خطا داد، میشه کد رو نگاه کنی و ایرادش رو بهم بگی؟

Private Sub Command1_Click()
'With Adodc1
If txt(0).Text = "" Then txt(0).SetFocus: Exit Sub
If txt(1).Text = "" Then txt(1).SetFocus: Exit Sub
' .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\book.mdb;Persist Security Info=False" 'ertebat ba bank
' .RecordSource = "Select * From book " 'entekhab jadval
' .Refresh
' .Recordset.AddNew 'ezafe kardan ketab
Dim rs As New ADODB.Recordset
Dim strm As New ADODB.Stream
If rs.State = 1 Then rs.Close
rs.Open "SELECT * FROM book", Conn, adOpenStatic, adLockOptimistic
rs.AddNew

rs("nbook") = txt(0).Text
rs("wbook") = txt(1).Text
rs("publish") = txt(2).Text
rs("year") = txt(3).Text
rs("page") = txt(4).Text
rs("isbn") = txt(5).Text
MsgBox ("your information register sucssesfull")
rs.Update
Form_Load
End Sub

خطایی هم که میده اینه:
http://i37.tinypic.com/1zy8q6t.jpg

ممنونم از شما.

دوست عزیز ببینید اگر خودتون بابت هر مسئله ای یک 2 2 تا 4 بکنی بهتره

من خودم شخصا کدهای خیلی ها رو به زبانهای مختلف دیدم و می بینم و ایده های خیلی خوبی از اون ها می گیرم این باعث رشد من تو زمینه برنامه نویسی شده، به شما هم پیشنهاد می کنم به این شکل پیش برید

سعی کن خودت به راه صحیح پی ببری

دوست عزیز میشه بگید دقیقا کدوم خط ایراد می گیره ؟

دوست عزیز از پاسخ خوبتون بینهایت ممنونم.
مرسی.
توی این خط:
http://i38.tinypic.com/2r267ip.jpg

دوست عزیز من ایرادی نمی بینم ؟

احتمال داره آبجکت Conn به بانک متصل نباشه

به احتمال زياد از همون كانكشن باشه از اونجا كه بانك شما يك بانك اكسس هست ببينيد وقتي برنامه رو اجرا ميكنيد ايا كنار بانكتون يك فايل با پسوند ldb ساخته ميشه يا نه اگه ساخته نميشه برنامتون فاقد كانكشن هست

از پاسختون ممنونم. میشه با یه مثال برام توضیح بدید؟ آخه من تقریباً روش آقا mpmsoft رو در پی گرفتم. میشه بگید چه جوری و در کجا باید ایجاد کنم؟ ضمناً فایلی رو هم که میگید در کنار بانک اطلاعاتی من درست نمیشه. حدستون درسته. ممنون.

دوست عزیز شما در ابتدا باید به بانک اطلاعاتی متصل بشید

در پروژه من به دنبال واژه Conn.Open بگردید و نحوه باز شدن بانک اطلاعاتی رو ببینید

سلام دوست عزیز؛ من همیشه قبل از اینکه پست بزنم، یک جستجوی کلی می کنم و بعدش سوال می پرسم تا از زدن پست اضافی جلوگیری بشه. ولی در مورد برنامه شما راستش conn.open رو پیدا نکردم. ولی با اینحال اینطوری نوشتم و درست شد؛ اون بانکی رو هم که به صورت ldb باید باشه می سازه.

http://i33.tinypic.com/7099jr.jpg

اشکالی نداره دیگه نه؟ درسته؟ میشه راجع به این کدها یه توضیحی بدی:

If Dlg.FileName <> "" Then

Strm.Type = adTypeBinary
Strm.Open
Strm.LoadFromFile (Dlg.FileName)
Rs("Logo") = Strm.Read

Else

------------------------------------------------------------------------

: and this code

If Val(Me.Tag) > 0 Then
Rs.Open "SELECT * FROM TblMember WHERE ID=" & Me.Tag, Conn, adOpenStatic, adLockOptimistic
If Rs.RecordCount = 0 Then Unload Me: Exit Sub
Rs.MoveFirst
Else

البته بازهم عذرمیخوام. نزنی ها :خجالت: . ببخشید. :بوس: