Printable View
آقای کیا سلام علیکمنقل قول:
نوشته شده توسط kia1349
من تازخ از دنیای DOS وارد دنیای ویزول فاکس شده ام "کلاس" سر در نمی اورم یکی دو تا ساعت کتاب ویزوال فاکی پرو 3 و مطالعه کردم ولی متوجه نشدم اگر میشه جامع توضیح بدین :cry:
در ضمن آی با این روش مشکل من در txtbox و label حل میشه ؟؟
شما باید برای شی هاتون هم یک کلاس بسازید مثلا فونتشون چی باشه یا right to left باشن و alignment=right باشه برای ساختن کلاس :
File->New->class
حالا اسم کلاس رو می نویسید در گزینه بعد شما تعیین می کنید که شی پایه کلاس چی باشه مثلا یک فرم برای template و در انتها مشخص می کنید که در چه فایلی قرار بگیره
با سلام خدمت تمامی دوستاننقل قول:
نوشته شده توسط binyaz2003
جناب بی نیاز : من موارد شما را اجرا کردم ولی نتیجه نگرفتم . در کل معنای ساده کلاس چیه ؟ :mad: برای چه مواقعی استفاده میشه ؟ یک مثال ساده وشفاف بزنید 0خواهش میکنم
در یک کلاس می تونه چند شی موجود باشه
شما هر کدوم از این شی ها رو هر طور که دلتون بخواد مشخصاتشو تعیین می کنید یا حتی یک مشخصه به اون اضافه میکنید و ذخیره اش می کنید
حالا هر وقت نیاز داشته باشین از اون استفاده میکنید
مثال :
شما نیاز دارید فرمهای برنامه همه یک فونت خاص و مثلا right to left باشه و آیکون مخصوص داشته باشه و همیشه وسط باشه و ... حالا اگر بخواهید هر دفعه که یک فرم جدید باز می کنید تمام این خواص رو ست کنید کلی وقتگیر خواهد بود و می تونید در عوض یکبار این مراحل رو انجام بدید و ذخیره کنید از این پس از فرم ذخیره شده استفاده می کنید
این یک نمونه ساده است اما کارهای خیلی زیادی رو میشه براحتی با کلاسها انجام داد
سلام
آقای بینیاز اینجا یک ویرایشگر علمی برای فرمولهای ریاضی است:
http://www.texmacs.org/index.php3
البته تحت gnu.
سلام
من یک سوال داشتم من خیلی سعی کردم نام یک فایل رو به محتوای یک متغیر کاراکتری تغییر نام بدم ولی ...
ممنون میشم!
مثال
"name="84-03-27
Changes the name of a file to a new name.
RENAME FileName1 TO FileName2
Parameters
FileName1 TO FileName2
Specifies the file name to change and the new file name. Include a file extension for each file. If the file extensions are not included, the default extension .dbf is assumed. If you rename a free table that has an associated .fpt memo file, be sure to rename the memo file. Include a period (.) after the file name to rename a file that doesn't have an extension.
Do not use RENAME to change the name of a table in a database; RENAME does not change the name of the table in the database. Use RENAME TABLE to change the name of a table in a database.
Include paths with either or both file names if the files are not on the default path. If FileName1 and FileName2 are in different directories or folders, FileName1 is moved into the directory or folder of FileName2.
When you issue RENAME, FileName2 cannot already exist and FileName1 must exist and cannot be open.
FileName1 and FileName2 can contain wildcard characters such as * and ?. For example, to rename all program files with the extension .prg in the current directory or folder to backup files with extension .bak, issue RENAME *.prg TO *.bak.
سلام
بله من با این دستور آشنا هستم
ولی من بجای FileName2 میخواهم از یک متغییر استفاده کنم . با این دستور فکر نکنم بشه!!
متغیر رو داخل یک جفت پرانتز بزارین یا اگر باز هم نشد از & استفاده کنید
اگر از fsoیا همون file system object استفاده کنید میشه
در ebook هائی که به دوستان داده ام مثال آن وجود دارد
با سلام
من برنامه ای نوشته ام که به صورت شبکه و همزمان از طریق چند کاربر ثبت اطلاعات انجام میشود چگونه میتوانم date و time سرور را داشته باشم چون به ان در بانک اطلاعاتم نیاز دارم چون بعضی مواقع تاریخ کامپیوتر های کاربران باهم مغایرت دارد و یکنواخت نیست
شما می تونید یک جدول با یک فیلد تاریخ زمان داشته باشین و یک رکورد جدید ایجاد کنید و زمان و تاریخ رو خواهید داشت
منظورتان را متوجه نشدم
ببینید من برای تاریخ و ساعت فیلدهای جداگانه ای در نظر گرفته ام و هنگام ثبت time و date در ان ذخیره میشود و date , time دستگاهی است که از طریق ان ثبت انجام شده ولی من میخواهم time , date سرور را ذخیره نمایم مخصوصا time را
In Microsoft Windows NT 4.0, Windows 2000, Windows XP, and Windows Server 2003, you can obtain the date and time from a server by using the NET command line utility with the following syntax:
NET TIME \\ServerName
Note Specify the server name whose time you want to query in the following line:
server_name = "yourservername"
ببخشید که کد درست دیده نمیشود فایل ضمیمه را از انتهای همین پیام میتوانید دانلود کنید
یا به آدرس زیر مراجعه کنید
http://support.microsoft.com/default...b;en-us;249716
* NetRemoteTOD's first parameter is a pointer to a
* Unicode string that contains the server name.
*
* The second parameter is a pointer to a byte array
* that contains a pointer to a TIME_OF_DAY_INFO structure
* The '@' in front of the second parameter ('integer @')
* dereferences this pointer to the byte array. Later in the
* program, the program uses RTLMoveMemory() to
* dereference the pointer this byte array contains
DECLARE INTEGER NetRemoteTOD IN netapi32 STRING @, INTEGER @
* Note that the source address ('inbuffer') is declared as an integer,
* to be consistent with the second parameter in NetRemoteTOD above.
DECLARE INTEGER RtlMoveMemory IN win32api ;
STRING @outbuffer, ;
INTEGER inbuffer, ;
INTEGER bytes2copy
* the TIME_OF_DAY_INFO structure
* contains 11 DWORDs and 1 long, for
* a total of 48 bytes. Therefore, tdbuffout is
* initialized as:
tdbuffout=REPLICATE(CHR(0), 48)
tdbuffin = 0
* the server name must be converted to Unicode
* This API function behaves differently depending on
* whether the target is a Win2000 computer or not -
*
* If Win2000, the servername must be preceded by "\\";
* otherwise, it must not.
server_name = "s-karkonan"
try_server_name = STRCONV(server_name, 5)
rc = NetRemoteTOD(@try_server_name, @tdbuffin)
IF rc = 0
* copy the contents pointed to by the address in tdbuffin to
* tdbuffout
=RtlMoveMemory(@tdbuffout, tdbuffin, 48)
ELSE
* call failed. Therefore, the target is possibly a Win2000 box;
* Retry the function call, prepending "\\" to the server_name
try_server_name = STRCONV("\\" + s-karkonan, 5)
rc = NetRemoteTOD(@try_server_name, @tdbuffin)
IF rc = 0
* copy the contents pointed to by the address in tdbuffin to
* tdbuffout
=RtlMoveMemory(@tdbuffout, tdbuffin, 48)
ELSE
? "NetRemoteTOD() call failed. Return code is: ", rc
RETURN
ENDIF
ENDIF
* Pick out the appropriate parts of the TIME_OF_DAY_INFORMATION
* buffer. This buffer will contain the UTC (Universal Coordinated
* Time) of the server, and must be adjusted by TOD_TIMEZONE minutes
* for the correct local time.
* str2long() converts the DWORDS and LONGS from their string
* representation back to numbers.
tod_month = str2long(SUBSTR(tdbuffout, 37, 4))
tod_day = str2long(SUBSTR(tdbuffout, 33, 4))
tod_year = str2long(SUBSTR(tdbuffout, 41, 4))
tod_hours = str2long(SUBSTR(tdbuffout, 9, 4))
tod_mins = str2long(SUBSTR(tdbuffout, 13, 4))
tod_secs = str2long(SUBSTR(tdbuffout, 17, 4))
* Subtract this bias (times 60, to obtain seconds)
* from the datetime value to obtain the
* server's local time
*
* Alternatively, to convert the server's local time to
* the workstation's local time, use the Win32 API function
* SystemTimeToTzSpecificLocalTime, available under
* Windows NT only.
tod_timezone = str2long(SUBSTR(tdbuffout, 25, 4)) * 60
serverdatetime = DATETIME(tod_year, tod_month, tod_day, ;
tod_hours, tod_mins, tod_secs)
? "UTC time of server is: ", serverdatetime
? "Server's local time is: ", serverdatetime - tod_timezone
************************************************** ***********
FUNCTION str2long
************************************************** ***********
* passed: 4-byte character string (m.longstr) in low-high ASCII format
* returns: long integer value
* example:
* m.longstr = "1111"
* m.longval = str2long(m.longstr)
PARAMETERS m.longstr
PRIVATE i, m.retval
m.retval = 0
FOR i = 0 TO 24 STEP 8
m.retval = m.retval + (ASC(m.longstr) * (2^i))
m.longstr = RIGHT(m.longstr, LEN(m.longstr) - 1)
NEXT
RETURN m.retval
با سلام خدمت تمامی دوستان
من مشکلی دارم به این شکل در برنامه گزارشات را برای کاغذ a4 طراحی نمودم ولی بعدا پرینتر مورد استفاده olivetti نواری(کوچک) نصب کرده ام ولی گزارشاتی که بایستی به شکل a4 و تمام صفحه نمایش داده شود نیمه کاره و ناقص نمایش میدهد
لطفا راهنمائی فرمائید
یک راه در یک فوروم خارجی گفتند که البته اون برای حل این مشکل بود که اگر گزارشی را landscape طراحی کردیم و روی یک کام÷یوتر که چا÷گر نداره نصب کنیم اونوقت به اندازه a4 نشان میده
گفتند که گزینه save printer enviroment رو از منوی print فکر کنم حذف کنید شاید مشکل شما هم حل شه؟
ریپورت خود را باز کنید و از قسمت منوی file>print setup نوع کاغذ و خروجی خود را انتخاب کنید
کاغذ a4 را تمامی پرینتر ها ساپورت میکنند ولی اگر احیانا این سایز وجود نداشن میتوانید سایز دلخواه خود را در قسمت custom طراحی کنید و پس از آن گزارش خود را ذخیره کنید
با تشکر
به حضورتان عرض شود که من گزارشات را همانطوریکه شما فرموده اید تنظیم کرده بودم و پروژه را ساخته ام
و در کامپیوتری که پرینتر معمولی نصب و فعال است که مشکلی ندارد ولی کامپیوتری که پرینتر نواری کوچک نصب و فعال است این مشکل هست
سلام به همگی دوستان
من به تازگی با فروم شما آشنا شده ام و همچنین به تازگی (8-7) ماه است که با فاکس کار می کنم و البته چند تا برنامه هم نوشته ام. دوست دارم با راهنمایی شما استادان عزیز بیشتر در این زمینه یاد بگیرم. البته موضوعی که منو کمی گیج کرده زیادی تاپیک ها می باشد که نمی دانم برای مطرح کردن سوالاتم کجا باید بروم.
با تشکر
سلام
ضمن خوش آمد به شما اول شما می تونید سرچ کنید و بعد اگر پیدا نشد در یک تاپیک جدید بپرسید.
فونت Courier New با اعداد فارسی
مناسب برای گزارشات
گزارشات در پیش نمایش به هم نمی ریزند و اعداد هم فارسی است.
www.binyazPrpograms.com
من میخواهم از پرینتر های سوزنی برای چاپ کردن داخل ویندوز استفاده کنم ولی سرعت آن خیلی پایین است نسبت به dosباید چکارکنم (برای ریپورت ها)
بنظر من هیچ کار ( در مورد فونت فارسی البته )
راستی جناب rezamim فونت yekan عدد صفر را بصورت یک دایره کوچک چاپ میکند
فکر کنم یه وقتی دنبال همچین چیزی بودید البته من هم تازه این فونت رو دیدم
سلام جناب کیا
یه سوال داشتم
میخوام وقتی برنامه ای رو اجرا میکنم صفحه اصلی ویژوال نمایش داده نشه البته من از منو سازی خود فاکس استفاده کردم و خاصیت SCREEN.VISIBLE=F گذاشتم اما بازم نمایش میده البته اگه از منو سازی خود فاکس استفاده نشه این خاصیت درست عمل میکنه
من باید چیکار کنم ممنون موفق باشی
لطفا قبل از سوال جستجو کنید
شما باید دستورذ Screen=Off را در فایل پیکر بندی برنامه config.fpw در شاخه جاری برنامه قرار بدین
کلاس مرتب سازی اطلاعات کرسر در گرید به بخش دانلود سایت بی نیاز اضافه شد.
با این کلاس شما تنها با نوشتن یک خط فرمان به کاربر امکان این را می دهید که با کلیک بر روی هدر ستون ها بصورت صعودی و نزولی اطلاعات را مرتب کند
چگونه میشود که نام پرینتر فعال set as default ویندوز را داشته باشیم چون چندین پرینتر نصب شده و با هر پرینتر خاص گزارش خاصی میخواهم پرینت بگیرم
?"Printer info"
ShowPrinters(0)
?"More printer info"
ShowPrinters(1)
PROCEDURE ShowPrinters(nMode)
n=APRINTERS(aa,nMode)
FOR i= 1 TO n
?i
FOR j = 1 TO ALEN(aa,2)
??"---",aa[i,j]
ENDFOR
ENDFOR
RETURN
اقا بی نهایت از عنایت شما سپاسگزارم ولی من فعلا از فاکس 7 و ویندوز 98 استفاده میکنم و خطا میگیرد
با فرمان SET( "PRINTER", 2 ) مشکل حل گردید
سلام و تشکر
کسی نمی دونه بوق اسپیکر خود کیس رو موقع نصب بودن اسپیکرهای کارت صوتی چطوری میشه در آورد توی ویژوال فاکس
اینو امتحان کردی ؟
chr(7) for beep
آقا دیگه مارو خیلی دست کم گرفتی وقتی کارت صوتی سیستم نصبه خوب این chr(7 کار نمی کنه
دوست عزیز سوالتو خوب متوجه نشدم ببخشید
اینم کدی که میخواهی
DECLARE Sleep IN kernel32 INTEGER dwMilliseconds
DECLARE INTEGER Beep IN kernel32 INTEGER dwFreq, INTEGER dwDur
= Beep1(100)
= Beep1(300)
= Beep1(200)
= Beep1(300)
= Beep1(400)
= Beep1(100)
= Beep1(300)
= Beep1(500)
PROCEDURE Beep1 (lnFreq)
= Beep(lnFreq, 90)
= Sleep (20)
آقا من مجبور شدم اسم کاربریم رو عوض کنم دیگه رمزم رو قبول نمی کرد در ضمن دست شما درد نکنه که این همه کمک می کنید . یک سوال دیگه من یک کتاب از توابع api توی vb خریدم که توی اون توابعی است که visual foxproنمی شناسه مگه api ها عمومی نیستن در ضمن من قواعد ورود api ها در vfp رو کاملا رعایت کردم . باید چیکار کرد ؟
تمام توابع api برای محیطهای برنامه نویسی تحت ویندوز قابل شناسائی و اجرا هستند
برای اطلاعات بیشتر به سایت www.news2news.com مراجعه کن
اینم برای قطع کردن صدای بلندگوی داخل کامپیوتر (البته با تنظیمات نه برنامه نویسی)
وارد رجیستری شوید ( گزینه Regedit در منوی Run ) و به دنبال آدرس زیر بگردید:
HKEY_CURRENT_USERControl PanelSound
در صورت نبود با کلیک راست و انتخاب New و بعد String Value را انتخاب کنید و پوشه جدید را Beep بنامید ( حرف B بزرگ تایپ شود ) و با دابل کلیک در قسمت Value data کلمه No را وارد کنید سپس سیستم را Restart کنید.
تغییر دادن عنوان پنجره ی مرورگر اینترنت
عنوانی که در پنجره ی مرورگر اینترنت همواره به چشم میخورد ، عنوان Microsoft Internet Explorer است ، اما شما می توانید هر عنوانی را که دوست دارید به جای آن قرار دهید. برای مثال شما می توانید این عنوان را به MY Browser یا هر چیز دیگر که مایل باشید ، تغییر دهید.
رجیستری را باز کرده و ابتدا این کلید را در آن پیدا کنید :
HKEY_CURRENT_USERSoftwareMicrosoftInternetExploreM ain
یک متغیر جدید از نوع String و به نام Windows Title بسازید و عنوان مورد نظرتان را به آن بدهید.
توجه: اگر متغیر Windoes Title را حذف کنید، عنوان مادرزادی پنجره ی مرورگر اینترنت روی کار خواهد آمد.
مخفی کردن یک پارتیشن ( Drive )
به Run می رویم و بعد تایپ می کنیم(همان diskmgmt.msc (disk management snap-in بر روی هارد مورد نظر راست کلیک کرده و...Change drive letter and paths را انتخاب بعد از آن نام درایو را Remove می کنیم.
نکته: اطلاعات بر روی هارد شما قرار دارد و از بین نمی رود و فقط در My Computer دیده نمی شود ولی در diskmgmt.msc دیده می شود.
برای دیدن دوباره ی هارد مورد نظر به همان محل رفته و Drive Letter را Add می کنیم.
نشان دادن روایت ویندوز روی دسکتاپ
روایت های اولیه ویندوز، شماره ی روایت خود را روی میز تحریر نشان میدادند. اما این ویژگی از ویندوزهای بعدی برداشته شد. اگر شما در محیطی هستید که پی بردن سریع به شماره ی روایت ویندوز اهمیت دارد میتوانید با این ترفند آن را دوباره فعال کنید. رجیستری خود را باز کرده و این کلید را در آن جستجو کنید:
HKEY_CURRENT_USERControl PanelDesktop
یک مقدار جدید از نوع DWORD بسازید و نام Paint Desktop Version را به آن بدهید. اگر بخواهید شماره ی روایت ویندوز را روی میز تحریر ببینید باید مقدار 1 را برای آن تعیین کنید. روشن است که با تعیین کردن مقدار صفر برای این مهمان جدید شماره روایت ویندوز در میز تحریر نمایش داده نمیشود.
از طریق این سایت میتوانید عکس های دلخواه خود را به TXT تبدیل کنید.
امروز یه سایت پیدا کردم که کار جالبی رو به صورت انلاین انجام میده به این صورت که یک عکس شما بهش میدین و در عرض چند ثانیه تبدیل به TEXT میکنه قبلا دیده بودم که بعضی از سایت های تصویر رو که میدادیم به صورت ASCII برامون در می اوردن ولی این خیلی بهتر چون رنگ بندی عکس رو هم تو متن میزاره البته به شرطی که حالت Grayscale رو انتخاب نکنید (حجمشم خوب از ASCII خیلی بیشتره) برای رفتن به صفحه تبدیل کننده هم از ادرس زیر استفاده کنید:
http://www.text-image.com/convert
من توی پارامتر دادن به تابعی که با api می سازیم مشکل دارم اون چطوریه . در ضمن یه سوال دیگه فونت منوها رو میشه بزرگتر کرد یا حتی فونتش رو عوش کرد منظورم منوهای اصلی بالای صفحه است آخه خیلی ریزه مخصوصا وقتی فارسی بشه
http://www.frappr.com/profox
اسمتون رو ثبت کنید!
سلام
چند وقت پیش دوستمون آقای بینیاز (حسینی) یک چیزی راجع به بیرون کشیدن یک فایل از فایل Exe گفتند با دستور Strtofile خب اگه ممکنه بگید برعکسش هم میشه؟ یعنی اضافه کردن یک فایل به فایل Exe؟
اگر منظورتون بعد از کامپایل کردن باشه که جواب نه است
سلام
اگه ندونیم داخل فایل Exec چی بوده هم میشه؟ یعنی با *.* ؟
اگه ممکنه یه مثال دوباره بزنید. آخه اون دفعه هر کاری کردم نشد!
من یک مشکل با فاکس 7 و ویندوز 98 داشتم که یک عبارت به شکل 02خ40115 حرف خ را به ابتدای عبارت منتقل میکند یعنی خ0240115 را نمایش میدهد ولی در فاکس 9 و ویندوز xp این مشکل نیست این مشکل چگونه در 98 و فاکس 7 درست میشود
سلام
تو کجا مشکل داره؟ گزارش یا فرم؟ یا جدول؟