ParsX.com

ahriman · Posted: Sat Oct 28, 2006 6:49 pm Post subject: لطفا كمك كنيد

1- چیکار کنم که برنامه که باز میشه صفحه کلید خود بخود فارسی بشه ؟
2- دیتابیس من از 24 شروع شده . هر کاری می کنم که از یک بشه نمی شه . چرا ؟
3- چرا وقتی یه فرم رو (مانند فرمهای لوگین) از یک پروژه دیگه وارد پروژه خودم می کنم پروژه من دچار مشکل میشه ؟

arash · Posted: Sat Oct 28, 2006 10:34 pm Post subject:

1) این به طور موقت کارت رو راه می اندازه
"%+" SendKeys
با این دستور اگه صفحه کلید فارسی باشه اینگلیسی می شه و بر عکس
2) یعنی چی دیتابیست از 24 شروع شده ؟؟!!
3) به خیلی چیزها بستگی داره
طریقه وصل شدن به دیتابیس و ...
با کدوم فرم مشکل داری و ارورت رو بگو

ahriman · Posted: Sun Oct 29, 2006 1:33 pm Post subject: توضيح

بايد بگم مشكل فارسي من حل شد
ولي در مورد بقيه سوالات بايد بگم كه :
2- منظورم از شماره ديتابيس همون اتونامبر هستش كه از 29 شروع شده . چيكار كنم كه از يك شروع بشه ؟ آيا بايد از اول يه ديتا بيس درست كنم ؟

3- ببينيد من يه پروژه آرشيو سي دي دارم و يه پروژه لوگين . كه كار هر دو تموم شده است و هردو به صورت جداگانه به خوبي كار مي كنند . ولي وقتي مي خواهم اين دو را با هم تركيب كنم مثلا يا پروژه لوگين را به پروژه آرشيو و يا پروژه آرشيو را به پروژه لوگين اضافه كنم تا كاربر براي ورود به پروژه آرشيو حتما پسورد بده ديگه كار نمي كنه . البته من يه تازه وارد تازه واردم . اين پروژه رو هم از روي پروژه هاي پيش ساخته درست كردم . ضمنا اگر بخواهيد مي توانم هر دو را آپلود كنم تا مشكل را از نزديك ببينيد . ولي فعلا مشكل را برايتان توضيح مي دهم . كه اگر اين مشكل حل بشه ديگه كار تمومه .
مشكل اضافه كردن لوگين به آرشيو :
وقتي من لوگين (فرم و ماژول) رو به آرشيو اضافه مي كنم و بعد از اجرا بر روي باتن لوگين كليك مي كنم اين ارور رو ميده :

Private Sub cmdLogin_Click()
a = App.Path & "\K2.gtx"
b = GetPasswordFromFile(a)

If txtPass.Text <> b Then
txtPass.Text = vbNullString
MsgBox "رمز عبور صحيح نمي باشد" & vbCrLf & "لطفا يك بار ديگر رمز صحيح را وارد نماييد", vbCritical + vbOKOnly, "خطا"
Else
Unload Me
frmMain.Show
End If
End Sub

ولي وقتي آرشيو رو به لوگين اضافه مي كنم اين ارور رو ميده .
اولا اينكه كد هاي درون ماژول مربوط به آرشيو كه

Public b As ADODB.Recordset
Public a As ADODB.Connection

مي باشد خود به خود پاك ميشه و وقتي هم كه بصورت دستي اون رو وارد مي كنم ارور ميده .

ارور اون اينه :

Private Sub Form_Load()
LoadKeyboardLayout "00000429", 1
Set a = New ADODB.Connection
a.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\bank.mdb"
a.Open

Set b = New ADODB.Recordset
b.Open "film", a, adOpenKeyset, adLockPessimistic, adCmdTable

Set Text1.DataSource = b
Text1.DataField = "ÔãÇÑå"

Set Text2.DataSource = b
Text2.DataField = "ãæÖæÚ"

Set Text3.DataSource = b
Text3.DataField = "ßÏ"

Set Text11.DataSource = b
Text11.DataField = "ßÇäæä"

Set Text4.DataSource = b
Text4.DataField = "ÊÇÑíÎ"

Set Text6.DataSource = b
Text6.DataField = "äæÚ"

Set Text8.DataSource = b
Text8.DataField = "ÝÑãÊ"

Set Text9.DataSource = b
Text9.DataField = "ÊÚÏÇÏ"

Set Text10.DataSource = b
Text10.DataField = "ÊæÖíÍÇÊ"

'Çí ÌäÊ
'dj = App.Path & "\merlin.acs"
Call asa.Characters.Load("Merlin", bj & "Merlin.acs")
'-----------------------------------------------------
End Sub

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

ahriman · Posted: Mon Oct 30, 2006 1:44 pm Post subject:

من مي خواهم براي برنامه آرشيو لوگين بزارم همين .
اينم كد هردو برنامه

http://mntzrn1.50g.com/Ahriman/archiv.zip

http://mntzrn1.50g.com/Ahriman/login.zip

لطفا اگر موفق شديد اين كار رو بكنيد بدون انجام تغيير در ساختار اصلي برنامه . لينك دانلود اون رو هم برام بذاريد يا اينكه اون رو به ايميل بنده ميل كنيد . info@montazerin.ir
خواهش مي كنم اگر مشكل حل شد طريقه بر طرف شدنش رو هم به من آموزش بديد .
با تشكر از همكاري و كمك صميمانه شما .

ahriman · Posted: Mon Oct 30, 2006 6:37 pm Post subject:

بابا يعني هيچ كس نيست كه جواب ما رو بده ؟

arash · Posted: Mon Oct 30, 2006 8:43 pm Post subject:

ahriman · Posted: Mon Oct 30, 2006 8:49 pm Post subject:

درست كردم يه بار ديگه آپلود كن .

arash · Posted: Mon Oct 30, 2006 9:30 pm Post subject:

اینقدر مشکل ساده هستش که شاید خندت بگیره
متغییر ها رو هم نام گذاشتی
متغییر a و b دو بار تعریف شده اند
یکبار از نوع رکورد ست و یک بار از نوع رشته
بهتره دفعه بعد از استاندارهای تعریف متغییر استفاده کنی تا به این مشکلات دچار نشی

arash · Posted: Mon Oct 30, 2006 10:25 pm Post subject:

http://www.4shared.com/file/5179645

ahriman · Posted: Tue Oct 31, 2006 10:19 am Post subject:

واقعا ازت ممنونم .

ahriman · Posted: Tue Oct 31, 2006 10:24 am Post subject:

راستي منظورت در مورد استاندارد هاي تعريف متغير چيه ؟
ضمنا نظرت رو ميشه راجع به اون برنامه بگي ؟

arash · Posted: Wed Nov 01, 2006 8:42 pm Post subject:

از این می تونی استفاده کنی
http://d.1asphost.com/amoradabadi/vb6/vb6.pdf
پروژت هم خوبه البته تقریبا
بعضی جاهاش هنوز کار داره ولی بعضی از چیزاش خیلی قشنگ بود
برای هر متغییر اسم مرتبط بگزار مثلا برای یک متغییر که به صورت موقت ازش استفاده می کنی اسم Temp رو انتخاب کن یا اگه می خوایی تعداد دانش آموز یک کلاس رو بشمری اسم StuNumber یا هر چیز با معنی دیگه انتخاب کن
به نظر یکم کارت سخت تر می شه اما هم فهم کد برای خودت راحت تر می شه هم برای دیگران
روش تعریف متغییر با استاندارد مجارستانی می گه که اول هر متغییر سه حرف یا چهار حرف انتخاب کنی . با این کار باعث می شی که هر کس بدونه این متغییر که می خوای استفاده کنی از چه نوعی هستش .مثلا اسم متغییرت رو بزار intTemp
این مشخص می کنه متغییرت از نوع اعداد صحیح هستش و همچنین برای نگه داری یک مقدار موقت به کار گرفته می شه
نکته Exclamation

:
برای اینکه دستور مورد نیازت یا یک تابع رو بخوایی بنویسی و ندونی که اون چیه یا اینکه بخوایی با نوشتن اول یک متغییر ( برای راحتی کار ) بقیه اسم اون رو خود برنامه بنویسه از کلید های ترکیبی Ctrl+Space استفاده کن . در صورتی از روش مجارستانی استفاده کنی با زدن int و سپس فشار دادن کلید های ترکیبی Ctrl+Space لیست متغییر هایی از نوع Integer که خودت معرفی کردی می یاد
و در نهایت استفاده از روش مجارستانی باعث راحت تر کردن و همین طور قابل فهم تر کردن کدها می شود
چنتا از انواع معروف به همراه کد مجارستانیشون