صفحه 1 از 9 123 ... آخرآخر
نمایش نتایج 1 تا 40 از 321

نام تاپیک: مباحث متفرقه

  1. #1

    مباحث متفرقه

    موضوعات متفرقه را در این قسمت مطرح کنید
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  2. #2
    این کد رو امتحان کنید

    PUBLIC frm 
    frm = CreateObject("TForm")
    frm.Visible = .T.

    DEFINE CLASS TForm As Form
    PROTECTED mClip
    ADD OBJECT cmdClip As TCommand
    ADD OBJECT cmdRestore As TCommand

    PROCEDURE Load
    THIS.decl && declare external functions
    ENDPROC

    PROCEDURE Init
    STORE .F. TO THIS.MaxButton, THIS.MinButton
    STORE 300 TO THIS.Width, THIS.Height
    THIS.Caption = "Clipping mouse cursor area"
    THIS.BorderStyle = 2
    THIS.AutoCenter = .T.
    THIS.cmdClip.Caption = "Clip"
    THIS.cmdRestore.Caption = "Restore"

    * saving initial clipping area
    lpRect = REPLI (Chr(0), 16)
    = GetClipCursor (@lpRect)
    THIS.mClip = lpRect

    THIS.Resize
    ENDPROC

    PROCEDURE Destroy
    THIS.restoreInitStatus
    ENDPROC

    PROCEDURE Resize
    lnTop = MAX(5, THIS.Height - THIS.cmdClip.Height - 5)
    STORE lnTop TO THIS.cmdClip.Top, THIS.cmdRestore.Top
    THIS.cmdRestore.Left = THIS.Width - THIS.cmdRestore.Width - 10
    THIS.cmdClip.Left = THIS.cmdRestore.Left - THIS.cmdClip.Width - 2
    ENDPROC

    PROCEDURE clip
    * lock the mouse cursor within the form area
    MOUSE AT THIS.top, THIS.left PIXELS && put cursor inside the form
    * give VFP a moment to update mouse position in its internal data
    = INKEY (0.1)

    lpPoint = REPLI (Chr(0), 8) && buffer for a POINT structure
    = GetCursorPos (@lpPoint) && retrieve absolute mouse position

    LOCAL absX, absY, lcCaptionHeight, lcFrameWidth,;
    lcFrameHeight, lcRect

    absX = ThisForm.buf2dword (SUBSTR(lpPoint, 1,4))
    absY = ThisForm.buf2dword (SUBSTR(lpPoint, 5,4))

    * retrieve some sizes to be used in calculating the area
    lcCaptionHeight = GetSystemMetrics ( 4) && size of normal caption area
    lcFrameWidth = GetSystemMetrics (32) && resiz.window frame width
    lcFrameHeight = GetSystemMetrics (33) && resiz.window frame height

    lcRect = REPLI (Chr(0), 16) && buffer for RECT structure
    * set the RECT by the form position, and size
    THIS.num2rect (absX, absY,;
    absX + THIS.Width + lcFrameWidth,;
    absY + THIS.Height + lcCaptionHeight + lcFrameHeight,;
    @lcRect)

    = ClipCursor (lcRect) && locked!
    ENDPROC

    PROCEDURE restoreInitStatus
    = ClipCursor (THIS.mClip)
    ENDPROC

    PROCEDURE cmdClip.Click
    ThisForm.clip
    ENDPROC

    PROCEDURE cmdRestore.Click
    ThisForm.restoreInitStatus
    ENDPROC

    FUNCTION buf2dword (lcBuffer)
    #DEFINE m0 256
    #DEFINE m1 65536
    #DEFINE m2 16777216
    RETURN;
    Asc(SUBSTR(lcBuffer, 1,1)) + ;
    Asc(SUBSTR(lcBuffer, 2,1)) * m0 +;
    Asc(SUBSTR(lcBuffer, 3,1)) * m1 +;
    Asc(SUBSTR(lcBuffer, 4,1)) * m2
    ENDFUNC

    FUNCTION num2buf
    PARAMETERS lnValue
    #DEFINE m0 256
    #DEFINE m1 65536
    #DEFINE m2 16777216
    LOCAL b0, b1, b2, b3
    b3 = Int(lnValue/m2)
    b2 = Int((lnValue - b3 * m2)/m1)
    b1 = Int((lnValue - b3*m2 - b2*m1)/m0)
    b0 = Mod(lnValue, m0)
    RETURN Chr(b0)+Chr(b1)+Chr(b2)+Ch r(b3)

    PROCEDURE num2rect (lnLeft, lnTop, lnRight, lnBottom, lcBuffer)
    lcBuffer = THIS.num2buf(lnLeft) + THIS.num2buf(lnTop)+;
    THIS.num2buf(lnRight) + THIS.num2buf(lnBottom)
    ENDFUNC

    PROCEDURE decl
    DECLARE INTEGER ClipCursor IN user32 STRING lpRect
    DECLARE INTEGER GetCursorPos IN user32 STRING @ lpPoint
    DECLARE INTEGER GetClipCursor IN user32 STRING @ lpRect
    DECLARE INTEGER GetSystemMetrics IN user32 INTEGER nIndex
    ENDPROC
    ENDDEFINE

    DEFINE CLASS TCommand As CommandButton
    Width = 60
    Height = 25
    ENDDEFINE
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  3. #3
    اینم یکی دیگه

    LOCAL oForm 
    oForm = CreateObject("Tform")
    oForm.Show(1)
    * end of main

    DEFINE CLASS Tform As Form
    Width=350
    Height=160
    BorderStyle=2
    MaxButton=.F.
    MinButton=.F.
    Autocenter=.T.
    Caption="Magnifier"
    hForm=0
    hDC=0

    ADD OBJECT chMagnify As CheckBox WITH Value=.F.,;
    Left=20, Top=20, Autosize=.T., Caption="Activate Magnifier"

    ADD OBJECT chInvert As CheckBox WITH Value=.F.,;
    Left=20, Top=56, Autosize=.T., Caption="Invert colors"

    ADD OBJECT lbl1 As Label WITH;
    Left=190, Top=20, Autosize=.T., Caption="Scale:"

    ADD OBJECT cmbScale As ComboBox WITH Style=2,;
    Left=240, Top=20, Width=70, Height=21

    ADD OBJECT cmdClose As CommandButton WITH Cancel=.T.,;
    Left=140, Top=112, Width=70, Height=27, Caption="Close"

    PROCEDURE Init
    ThisForm.decl

    PROCEDURE Activate
    IF THIS.hForm = 0
    THIS.hForm = GetFocus()
    THIS.hDC = GetDC(THIS.hForm)
    ENDIF

    PROCEDURE Release
    IF THIS.hDC <> 0
    = ReleaseDC(THIS.hForm, THIS.hDC)
    ENDIF

    PROCEDURE cmdClose.Click
    ThisForm.Release

    PROCEDURE cmbScale.Init
    WITH THIS
    .AddItem("Normal")
    .AddItem("x 2")
    .AddItem("x 3")
    .AddItem("x 4")
    .ListIndex=3
    ENDWITH

    PROCEDURE MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
    ThisForm.Magnify

    PROCEDURE chMagnify.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
    ThisForm.Magnify

    PROCEDURE chInvert.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
    ThisForm.Magnify

    PROCEDURE lbl1.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
    ThisForm.Magnify

    PROCEDURE cmbScale.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
    ThisForm.Magnify

    PROCEDURE cmdClose.MouseMove
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
    ThisForm.Magnify

    PROCEDURE Magnify
    #DEFINE SRCCOPY 0xCC0020
    #DEFINE NOTSRCCOPY 0x00330008

    #DEFINE cnDstWidth 600
    #DEFINE cnDstHeight 140

    IF ThisForm.chMagnify.Value
    LOCAL cBuffer, nX, nY, hDstWin, hDstDC,;
    nMode, nSrcWidth, nSrcHeight, nScale

    hDstWin = GetActiveWindow()
    hDstDC = GetWindowDC(hDstWin)

    cBuffer = Repli(Chr(0), 8)
    = GetCursorPos(@cBuffer)
    = ScreenToClient(THIS.hForm, @cBuffer)

    nX = buf2dword(SUBSTR(cBuffer, 1,4))
    nY = buf2dword(SUBSTR(cBuffer, 5,4))

    nScale = ThisForm.cmbScale.ListIndex
    nSrcWidth = INT(cnDstWidth/nScale)
    nSrcHeight = INT(cnDstHeight/nScale)

    nMode = Iif(ThisForm.chInvert.Value, NOTSRCCOPY,SRCCOPY)

    = StretchBlt(hDstDC, 10, 100, cnDstWidth, cnDstHeight,;
    THIS.hDC,;
    nX-nSrcWidth/2,;
    nY-nSrcHeight/2,;
    nSrcWidth, nSrcHeight, nMode)

    ReleaseDC(hDstWin, hDstDC)
    ENDIF

    PROCEDURE decl
    DECLARE INTEGER GetActiveWindow IN user32
    DECLARE INTEGER GetCursorPos IN user32 STRING @lpPoint
    DECLARE INTEGER GetWindowDC IN user32 INTEGER hwnd
    DECLARE INTEGER GetDC IN user32 INTEGER hwnd
    DECLARE INTEGER ReleaseDC IN user32 INTEGER hwnd, INTEGER hdc
    DECLARE INTEGER ScreenToClient IN user32 INTEGER hWnd, STRING @lpPoint
    DECLARE INTEGER GetFocus IN user32

    DECLARE INTEGER StretchBlt IN gdi32;
    INTEGER hdcDest, INTEGER nXOriginDest, INTEGER nYOriginDest,;
    INTEGER nWidthDest, INTEGER nHeightDest,;
    INTEGER hdcSrc, INTEGER nXOriginSrc, INTEGER nYOriginSrc,;
    INTEGER nWidthSrc, INTEGER nHeightSrc, INTEGER dwRop
    ENDDEFINE

    FUNCTION buf2dword(lcBuffer)
    RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
    BitLShift(Asc(SUBSTR(lcBuffer, 2,1)), 8) +;
    BitLShift(Asc(SUBSTR(lcBuffer, 3,1)), 16) +;
    BitLShift(Asc(SUBSTR(lcBuffer, 4,1)), 24)
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  4. #4
    اینم برای ارتباط با سایت news2news.com
    البته باید online باشید

    PUBLIC objForm 
    objForm = CreateObject("Tform")
    objForm.Visible = .T.
    * end of main

    DEFINE CLASS Tform As Form
    #DEFINE ccBaseAddr "http://www.news2news.com/vfp/"
    #DEFINE ccCgiAddr "http://www.news2news.com/cgi-bin/w32query.php?quser=guest&"
    Caption=" VFP code samples on " + ccBaseAddr
    Width=760
    Height=500
    Autocenter=.T.
    ShowTips=.T.
    csList="cs" + SUBSTR(SYS(2015),3,10)

    ADD OBJECT pframe As Tframe WITH Left=6, Top=5, Width=748, Height=440
    ADD OBJECT lblUrl As Label WITH Left=12, Top=460, Autosize=.T.,;
    ForeColor=Rgb(0,0,192), FontUnderline=.T.,;
    TooltipText="Click to open"

    PROCEDURE Init
    DECLARE INTEGER ShellExecute IN shell32;
    INTEGER, STRING, STRING, STRING, STRING, INTEGER
    DECLARE INTEGER URLDownloadToCacheFile IN urlmon;
    INTEGER lpUnkcaller, STRING szURL, STRING @szFileName,;
    INTEGER dwBufLength, INTEGER dwReserved, INTEGER pBSC
    THIS.pframe.Resize
    THIS.PopulateList

    PROCEDURE Destroy
    THIS.pframe.pgList.lst.RowsourceType = 0
    IF USED(THIS.csList)
    USE IN (THIS.csList)
    ENDIF

    procedure resize
    * Thanks Bruce :)
    with this
    stor .Width - 12 to .pframe.Width
    stor .Height - 60 to .pframe.Height
    stor .Height - 40 to .lblUrl.Top
    endWith

    PROCEDURE pframe.pgList.lst.InteractiveChange
    ThisForm.lblUrl.Caption = ThisForm.GetUrl()

    PROCEDURE lblUrl.MouseDown
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
    = ShellExecute(0, "open", ThisForm.GetUrl(), "", "", 3)

    PROCEDURE pframe.pgExample.Activate
    ThisForm.DisplayExample

    PROCEDURE pframe.pglist.lst.DblClick
    ThisForm.pframe.ActivePage = 2

    FUNCTION GetUrl
    RETURN ccBaseAddr + "?example=" + ALLT(THIS.pframe.pgList.lst.Value)

    PROCEDURE PopulateList
    LOCAL cRequest, cTargetFile
    cRequest = ccCgiAddr + "qtarget=examples&qmode=list"
    cTargetFile = THIS.RemoteToLocal(cRequest)

    IF Not EMPTY(cTargetFile)
    CREATE CURSOR (THIS.csList) (id N(5), name C(200))
    APPEND FROM (cTargetFile) TYPE DELIM WITH ,
    WITH THIS.pframe.pgList.lst
    .RowsourceType = 2
    .Rowsource = THIS.csList
    .ColumnWidths="40,500"
    IF .listCount > 0
    .listIndex = 1
    ENDIF
    .InteractiveChange
    ENDWITH
    ENDIF

    PROCEDURE DisplayExample
    LOCAL cRequest, cTargetFile
    cRequest = ccCgiAddr + "qtarget=examples&qmode=source&qindex=" +;
    ALLTRIM(ThisForm.pframe.pgList.lst.Value)
    cTargetFile = THIS.RemoteToLocal(cRequest)

    IF Not EMPTY(cTargetFile)
    WITH ThisForm.pframe.pgExample.txtSource
    .Value = FILETOSTR(cTargetFile)
    .Refresh
    ENDWITH
    ENDIF

    FUNCTION RemoteToLocal(cRequest)
    LOCAL nResult, cTargetFile
    cTargetFile = Repli(Chr(0), 250)
    WAIT WINDOW NOWAIT "Downloading remote file..."
    nResult = URLDownloadToCacheFile(0, cRequest, @cTargetFile,;
    Len(cTargetFile), 0,0)
    WAIT CLEAR
    DOEVENTS
    RETURN STRTRAN(cTargetFile, Chr(0), "")
    ENDDEFINE

    DEFINE CLASS Tframe As PageFrame
    ADD OBJECT pgList As TpageList WITH Caption="List of examples"
    ADD OBJECT pgExample As TpageExample WITH Caption="Source Code"

    PROCEDURE Resize
    WITH THIS.pgList
    .lst.Width = THIS.Width - 14
    .lst.Height = THIS.height - .lst.Top - 50
    ENDWITH
    WITH THIS.pgExample
    .txtSource.Width = THIS.Width - 14
    .txtSource.Height = THIS.height - .txtSource.Top - 50
    ENDWITH
    ENDDEFINE

    DEFINE CLASS TpageList As Page && Page object
    ADD OBJECT lst As ListBox WITH Left=5, Top=5, FontName="Arial",;
    FontSize=10, ColumnCount=2, BoundColumn=1
    ENDDEFINE

    DEFINE CLASS TpageExample As Page && Page object
    ADD OBJECT txtSource As EditBox WITH Left=5, Top=5,;
    FontName="Courier New", FontSize=9, ForeColor = RGB(0,96,128)
    ENDDEFINE
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  5. #5
    کاربر دائمی
    تاریخ عضویت
    اردیبهشت 1382
    محل زندگی
    بیرجند - خ مدرس - مدرس 44 پلاک 52
    پست
    162
    :cake: :gift: :flower: :flower: :flower: :kiss: :kiss: :kiss: :kiss:

  6. #6
    :kiss:
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  7. #7
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    ضمن سلام
    من میخواستم از داخل برنامه regional setting و number را number style بصورت فارسی (hindi) درآورم
    چون برای ثبت اطلاعات و چاپ آن به اعداد فارسی نیاز دارم
    البته از فونتهای فارسی نیز استفاده کرده ام ولی متاسفانه اعداد نمایش جالبی ندارد
    و از right to left=.T. ولی در ورود اعداد در textbox از وسط شروع به ثبت میشود
    و چون در بعضی از ویندوز ها 98 که بصورت دستی این کار انجام نیشود با یکبار خاموش و روشن شدن بصورت اولیه برمیگردد

  8. #8
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    اساتید جواب چی شد :cry:

  9. #9
    من معمولا این کارو نمیکنم و از فونت badr در پارسا 99 یا B badr در فارسی ساز پارسا 2001 استفاده میکنم
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  10. #10
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    برای این فونت بعضی از اعداد جالب نیست مثلا عدد صفر و ....
    واگر که این کار انجام گیرد از فونتهای بین المللی استفاده میکنیم و در ورودی و گزارشات جالبتر خواهد بود
    اگر امکانی هست همکاری فرمائید

  11. #11
    اعداد فارسی اصلا حالب نیستند متاسفانه!
    ____________________________
    همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)

  12. #12
    مدیر بخش آواتار binyaz2003
    تاریخ عضویت
    آبان 1382
    محل زندگی
    کرمان
    سن
    39
    پست
    2,107
    شما می تونید با یک فونت ادیتور به جای عددهای انگلیسی فارسیش رو بگذارید و استفاده کنید که فکر کنم قبلا یکی از دوستان این کار رو کرده بود و یک فایل به اسم kodak درست یادم نیست گذاشته همینجا برایس استفاده :wink:
    وب سایت شخصی
    وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.

  13. #13
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    با سلام و تشکر
    میفرماپید که برای این موضوع راهی نیست
    اگر برایتان امکان دارد ادرسهایی که بشود اینگونه موارد را بدست اورد را بدهید چون اینگونه موارد باعث کارایی بهتر فاکس برای کاربران میگردد
    یا اینکه شماها که میتوانید موضوع را از منابع تامین کننده اینگونه موارد بخواهید

  14. #14
    متاسفانه من هم چند وقتی است بدنبال این موضوع هستم ولی پیدا نکرده ام . البته به تازگی یکنفر قطعه کدی برایم فرستاده که اگر تست کردم و جواب داد در همین قسمت قرارش میدهم. البته خیلی تکنیکی نیست ولی اگر جواب بدهد شاید چاره دیگری نباشد.

  15. #15
    سلام
    یک راهی هست ولی امتحانش نکردم چون من بیشتر از فونتهای استاندارد ویندوز استفاده میکنم و بیشتر در xp کار می کنم
    میشه از نرم افزارهای مثلا font Editor استفاده کنید و فونتهای مورد نظرتان را ویرایش کنید و صفر را به هر شکلی که بخواهید می توانید ان را تغییر دهید

  16. #16
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    مشکل من اینجاست که من میخواهم هم در ورود و هم در گزارشات عدد فارسی باشد و همانطوریکه میدانید حجم اعداد فارسی مقداری کوچکتر از اعداد انگلیسی است مثلا اگر یک تکست باکس برای پنج رقم فارسی در نظر بگیریم
    زمانی که عدد فارسی است که کاملا درست ولی وقتی که انگلیسی میشود فضا کم است

  17. #17
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    با سلام خدمت شما اقا کیا
    اگر فضولی نباشد میشود بپرسم که چرا این موضوعات ؛موضوع مهم؛ را باز کردید
    و فرموده اید که فقط در همین فرومها سپوال و جواب صورت گیرد

  18. #18
    این دسته بندی برای سهولت دسترسی همه دوستان به اطلاعات این فروم بوده و بنا به تقاضای دوستان به این شکل دسته بندی شده
    البته من از دوستان راجع به دسته بندی موضوعات سوال کردم و کسی از دوستان نسبت به این نوع طبقه بندی (فعلی)انتقادی نداشت
    درج کلمه "موضوع مهم" در کنار مباحث هم به این خاطر است که این قسمتها همیشه در دسته بندی موضوعات بعنوان موضوعات مهم تر در قسمت بالائی فروم قرار بگیرند تا دسترسی دوستان به آنها آسانتر باشد
    البته باب انتقاد و پیشنهاد برای تمام دوستان و اساتید باز است و هرکس نظری داشته باشد با دیده منت و بعد از کسب نظر موافق سایر دوستان در این قسمت لحاظ میشود
    شاید باور نکنید من خودم چند وقته که دنبال یکی از موضوعاتی میگردم که برای یکی از دوستان پست کردم ولی هنوز نتونستم بفهمم که اونو توی چه قسمتی پست کردم
    و این فقط به خاطر آشفتگی بود که با ایجاد کردن موضوعات مختلف و بعضا بی ربط به متن سوال حاصل شده بود و بنا به پیشنهادات دوستان مقررشد تا تمام مباحث موضوع بندی شوند
    البته من هم سعی کردم تا نحوه انتخاب موضوعات و چیدمان و آرایش آنها را از سایت universalthread الگو برداری کنم تا خطای کمتری به چشم بخورد
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  19. #19
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    با سلام و تشکر
    تمام مواردی که ذکر میکنم فقط جنبه پیشنهادی دارد
    ببینید شما اگر بعنوان یک فرد معمولی وارد صفحه اصلی برنامه نویس شوید سرگروه موضوعات مثلا ویژوال بیسیک با مثلا چند مبحث دلفی با چند مبحث یا فاکس با 310 مبحث و .............
    متوجه میشوید که دلفی تعداد مباحث بیشتری دارد و از آن میشود تغریبا نتیجه گرفت که پس تعداد افرادی که حداقل برنامه نویسی را دوست دارند و دنبال طرح سپوال و جواب هستند در مبحث دلفی بیشترند و همانطویکه میدانید با این اقدام جدید تعداد مباحث فاکس ثابت میماند

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

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

  20. #20
    در نگاه اول نظر شما قابل تعمق است ولی این را عرض کنم که پراکندگی موضوعات و تعدد موضوعات دلیل بر این نیست که تعداد بیشتری به آن زبان برنامه نویسی علاقه بیشتری دارند و بعضا مشاهده میشود که بعضی از پستها فقط یک جواب دارند و اونهم جوابی نیست که علمی بوده باشد بلکه اصطلاحا یک آف تاپیک است که اصلا ارزش علمی ندارد و سایر کاربران برای خالی نبودن عریضه اقدام به پست آنها میکنند
    توضیحا عرض کنم که روزانه تعداد زیادی از پستهای نامربوط . تکراری. آف تاپیک. غیر علمی . غیر اخلاقی .و ...... توسط مدیران بخشها به بخش "مدیران" و بخش "سطل آشغال" منتقل میشود که تاکنون این مورد در این فروم مشاهده نشده است و هر کدام از دوستان این فروم خود به منزله یک مدیر نظارت کامل بر پستهای خود دارند

    هر چند بنده اعتقاد دارم که تعداد کاربران محیطهای برنامه نویسی vb و delphi از فاکس پرو بیشتر است(که دلایل این موضوع قبلا در همین فروم مورد بحث قرار گرفته) لکن هر زبان برنامه نویسی موضوعات متمرکزی دارد که بعنوان قابلیتهای همان زبان مورد بحث میباشد و کم و بیش در تمام زبان های نسل سوم مشاهده میگردد
    موضوعاتی از قبیل برنامه نویسی وب بیس . تهیه ریپورت . کلاسها . اکتیویکسها . فرمها . و ... اغلب از موضوعات رایج و بحث بر انگیز هر زبان برنامه نویسی است که ب کرات مورد سوال و جواب قرار میگیرد

    به هر حال بنده از نظر جنابعالی نهایت استفاده را خواهم برد و خیلی دوست دارم تا کلیه دوستان این فروم هم در مورد پیشنهاد جنابعالی اظهار نظر نمایند تا تغییرات احتمالی مورد نظر دوستان را اعمال نمائیم

    نکته آخر اینکه باب انتقاد و پیشنهاد در این فروم و صد البته مجموعه برنامه نویس کاملا باز بوده و هریک از مدیران میبایست از نظرات سازنده تمام اعضا (کمال استفاده برای پربارتر کردن مجموعه) استفاده نمایند
    و اینکه بنده هیچگونه ارجحیتی نسبت به سایر دوستان ندارم مگر سابقه قبلی که باعث گردیده تا از طرف مدیریت محترم سایت (حاج مهدی گل) به این مسئولیت گماشته شوم
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  21. #21
    متوجه میشوید که دلفی تعداد مباحث بیشتری دارد و از آن میشود تغریبا نتیجه گرفت که پس تعداد افرادی که حداقل برنامه نویسی را دوست دارند و دنبال طرح سپوال و جواب هستند در مبحث دلفی بیشترند و همانطویکه میدانید با این اقدام جدید تعداد مباحث فاکس ثابت میماند
    دوست گرامی
    ببینید در بخش … مشاهده شده که یک موضوع چندین بار تکرار شده است و این امر باعث افزایش مباحث شده که نتیجه ان نارضایتی کاربران و عدم دسترسی به موضوعات مورد نظر می شود اگر نظم خاصی به بخش ها سرایت شود قطعا دسرسی و بهره برداری بیشتر خواهد شد و امار پستها و ایجاد موضوعات تکراری هم نسبتا کاهش می شود
    یک سوال ایا در بخشی که 56 صفحه یا بیشتر داشته باشد می توان موضوع مورد نظر در کمترین زمان دسترسی داشته باشید :?:
    اگرکل بخشها بهمین سبک ایجاد شوند دسترسی و استفاده از موضوعات خیلی راحت تر و پرثمرترخواهد بود :)
    ما ایرانیا همیشه به ظاهر نگاه میکنیم نه به باطن :wink:
    امیدوارم دوستان نارحت نشده باشند :oops:
    با تشکر

  22. #22
    اگر تعداد پستها دراین طرح جدید بسیار زیاد شود مثلا 20 یا حتی 100 صفحه
    واگر فردی تازه به این بخش سر بزند یعنی قبلا موضوعات را دنبال نکرده باشد به نظر شما جالب است 100 صفحه را مطالعه کند تا مبحث مورد نظر خود را پیدا کند ؟؟؟؟
    این طرح به شرطی قابلیت که مدنظر آقای حیدر کیا را دارد که بتواند درداخل مبحث موضوعات مهم یک طبقه جدید هم ایجاد گردد تازیر مجموعه موضوعات اصلی شود که فکر نمی کنم فعلا دراین سایت امکان پذیر باشد
    قبلا هم گفته بودم نظر شخصی من این است که این موضوعات مهم به نکات کلیدی وتازه ها پرداخته شود تا تعداد پستها کمتر ومطالعه آنها مفید تر باشد یعنی بخش جهت خبرهاونتایج بحثهای معمولی گردد.
    با تشکر از استاد محترم جناب آقای حیدرکیا

  23. #23
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    با سلام
    من برنامه ای نوشته ام با کپی نمودن آن در برخی از کامپیوتر ها اجرا نمیگردد خطای program error
    میگیرد و با نصب office آن خطا بر طرف میگردد
    البته سه فایل dll مورد نیاز اجرای فاکس را نیز در همان شاخه کپی نموده ام
    چه فایلی کسر میباشد

  24. #24
    فکر کنم باید فایل کتابخانه ویژوال سی را هم کپی کنید . یعنی msvcrt.dll

  25. #25
    ببخشید msvcr70.dll :oops:

  26. #26
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    با تشکر
    من میخواهم اطلاعات ویندوز را به داس تبدیل کنم
    ابزاری برای این موضوع دارید

  27. #27

  28. #28
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    با سلام
    من از فایل dll برای اجرا استفاده کردم که این مشکل در بعضی از کامپیوترها هست
    فایلهای dll به شرح زیر میباشد
    Msvcr70.dll
    Vfp7r.dll
    Vfp7renu.dll
    فایل کسری که با نصب office نصب میگردد چیست

  29. #29
    بستگی داره به اینکه در برنامه شما چی وجود داشته باشه مثلا Rtf یا MsGraph یا ... همه با نصب Office انجام میشه.
    ____________________________
    همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)

  30. #30
    البته یادم رفت Office فایلهای Runtime بیسیک را هم نصب میکند. ولی فایلهای شما برای فاکس کامله.
    ____________________________
    همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)

  31. #31
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    با سلام و تشکر
    فعلا با نصب office این مشکل را حل میکنم
    ولی برای تبدیل اطلاعات ویندوز به داس ابزاری هست :kaf:

  32. #32
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    میخواهم بانکهای دلفی را به فاکس تبیل نمایم ولی با import ویژوال فاکس ورژنهای 7و8و9 همگی فایلهای دلفی 3.5 و 4 را تبدیل منماید و بالاتر از انرا خطا میگیرد
    لطفا راهنماپی فرماپید

  33. #33
    با استفاده از InterBase و خود دلفی چرا انجام نمیدهید؟
    ____________________________
    همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)

  34. #34
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    با سلام و تشکر
    متاسفانه با دلفی و interbase کار نکردم
    اگر امکان دارد توضیحاتی در باره ان بفرماپید

  35. #35
    مدیر بخش آواتار binyaz2003
    تاریخ عضویت
    آبان 1382
    محل زندگی
    کرمان
    سن
    39
    پست
    2,107
    با سلام و عرض تبریک عید فطر
    یک موضوع جالب(حداقل برای من)
    چرا و برای چی اسم این برنامه ما رو فاکس(روباه) گزاشتن؟؟؟؟؟؟
    وب سایت شخصی
    وبلاگ آموزش ویژوال فاکس پرو - به دلیل تعطیل شدن میهن بلاگ نوشته های وبلاگ به وب سایت شخصی منتقل شدند.

  36. #36
    چون روباه باهوشترین و زیرکترین حبوانات مشهوره و فاکس پرو از از پدرش Foxbase اسم خودشو به ارث برده. و اگه یه نگاهی به فاکس پرو بیاندازید می بینید خیلی هم باهوشه واقعاً!!! شاید به خاطر تکنولوژی Rushmore. اصلا کسی سرعت هاردش را توی داس و ویندوز مقایسه کرده؟ ببینه چقدر داس توی حافظه مخفی هارد بد عمل میکنه نسبت به ویندوز؟ البته تقصیر هم نداره فقط 640 کیلوبایت در اختیار داره. خب توی اون زمان با این امکانات کم فقط فاکس پرو بود که خوب کار میکرد و هنوز هم به نظر من از خیلی نرم افزارهای دیگه بهتر و ارحجتره.
    یکی از خوبیهای فاکس هم اینه که احتیاج به ODBC نداره! و همین باعث سرعتش در پردازش بانکها میشه.
    ____________________________
    همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)

  37. #37
    هر کاری رو در کوتاهترین زمان و با کمترین پیچیدگی و بهترین شکل ممکن انجام میده
    در تندیس های تخت جمشید هیچ کس در حال تعظیم نیست ، هیچ کس عصبانی نیست ، هیچ کس سرافکنده و شکست خورده نیست ، هیچ کس سوار بر اسب نیست ، هیچ قومی بر قوم دیگر برتر نیست ، هیچ کس برده نیست و هیچ تصویر خشنی دیده نمیشود.
    ************************************************** ******************************************
    اندیشه کن , آنگاه سخن گو تا از لغزش بر کنار باشی

  38. #38
    کاربر دائمی
    تاریخ عضویت
    دی 1382
    محل زندگی
    mashhad
    پست
    336
    با سلام
    من میخواهم سایز فایل pdf را توسط فاکس بدست آورم البته بدون استفاده از ()fopen

  39. #39
    خب با تابع Adir انجام بده.
    ____________________________
    همه چیز را همگان دانند و همگان هنوز از مادر زاده نشده اند. (بزرگمهر حکیم)

  40. #40
    با سلام خدمت دوستان من می خواهم لیست ابجکت استفاده شده در یک فرم را بدست آورم (مثلا لیست label ها را داشته باشم که به هنگام تغییر فونت فرم بتوان اتوماتیک نام و تعداد label ها را بدست آورد و فونت آنها را نیز تغییر داد) و یا امکان این مطلب در فاکس وجود دارد که همانند دلفی به هنگام تغییر فونت و بقیه مشخصات از خاصیت وراثت استفاده کرد و خصلت فونت کلیه آبجکت ها ی استفاده شده در فرم تغییر پیدا کنند

صفحه 1 از 9 123 ... آخرآخر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •