Guilty as charged

For other topics related to the FreeBASIC project or its community.
owen
Posts: 433
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Re: Guilty as charged

Postby owen » Oct 12, 2017 16:06

if the fb community decides to do a subdomain on the fb server then who ever administers it has a much higher responsibility then if it were kept on blue host.

basically what i'm saying here is that doing server stuff is a thing in itself and i wouldn't want it to jeopardize the fb server.

there are many bright individuals here but it's not just a matter of being bright, there's time to consider. yes time can be shared but only if orchestrated by a key player(s)

i would vote paul doe to orchestrate as he is capable and generous or other for similar reasons as they have heart and mind.
Trinity
Posts: 214
Joined: Sep 16, 2017 17:07

Re: Guilty as charged

Postby Trinity » Oct 12, 2017 16:12

St_W wrote:but IMHO a site hosted on the freebasic.net server would be decent solution. You'll get a subdomain like "fbcadcam.freebasic.net" in that case.
While I would like to acknowledge that I think that the CAD program Owen has written is great piece of work then I think that he does not necessarily needs his own sub-domain - if so then should every Tom , Dick and Harry that wrote a big program in FB. I have already suggested to the Admins here that they should feature the files of Owens project, I suggested a page or at at least a download spot as it suits the Admins here.
Last edited by Trinity on Oct 12, 2017 23:15, edited 1 time in total.
owen
Posts: 433
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Re: Guilty as charged

Postby owen » Oct 12, 2017 16:30

also forgot to mention that yesterday i was working on getting SSL set up for the the fbcadcam forum (which is on the dot net domain). it should all be working now so people can get user name / password / account authentication via email and so forth...

the idea of running a forum for fbcadcam is 2 part.
1. using the program
2. writing macros
and possibly multi part
if and when the CAM features are coded.
The CAD and CAM parts will invite conversations from many a folk's that are not necessarily interested in programming and or FB but becuase fbcadcam is centered around FB (primarily because the macro language is syntactically compatible) then some of those folks may end up here.

any how something to keep in mind. CNC is huge.
owen
Posts: 433
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Re: Guilty as charged

Postby owen » Oct 12, 2017 16:33

a dream come true would be if the fb community could somehow make money with this idea and donate it to cure cancer and help the homeless
owen
Posts: 433
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Re: Guilty as charged

Postby owen » Oct 12, 2017 16:37

sorry for the multi posts.
but im just saying that may be a good reason to keep it separate from the fb servere.
i mean, the potential is there (but fbcadcam would need a complete rewrite for something like that i think)
dodicat
Posts: 4495
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Guilty as charged

Postby dodicat » Oct 12, 2017 17:36

Here is another mymod.
(one line)

Code: Select all

#include "crt.bi"

#define mymod2(x,y) y*frac(x/y)

Function mymod(n As Double,m As Integer) As Double
   Select Case n
      Case 0
         mymod = 0
      Case CDbl(m)
         mymod = CDbl(m)
      Case Else
         If InStr(Str(n),"e")<>0 Then
            mymod=0
         Else
            If InStr(Str(n),".")<>0 Then
               dim as double _mymod
               _mymod=Val(Str(val(Mid(Str(n),1,InStr(Str(n),".")-1)) Mod m)+"."+Mid(Str(n),InStr(Str(n),".")+1))
               if n<0 and _mymod>-1 then  '' in this case, the sign is lost
                  _mymod *= -1
               end if
               mymod = _mymod
            Else
               mymod = (n Mod m)
            EndIf
         End If
   End Select
End Function
do
    var x=rnd*500-rnd*500,y=int(rnd*200-rnd*200)
    print fmod(x,y),mymod2(x,y),mymod(x,y)
    sleep
    loop until inkey=chr(27)
Kuron
Posts: 30
Joined: Jul 26, 2005 3:22
Location: Nashville

Re: Guilty as charged

Postby Kuron » Oct 12, 2017 17:44

owen wrote:@ Kuron
it would be my pleasure to hand the keys to you. call me or email me anytime.


Will be dropping you an email in a few.
owen
Posts: 433
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Re: Guilty as charged

Postby owen » Oct 12, 2017 17:57

showing the last decimal digit of dodicat

Code: Select all

#include "crt.bi"

#define mymod2(x,y) y*frac(x/y)

Function mymod(n As Double,m As Integer) As Double
   Select Case n
      Case 0
         mymod = 0
      Case CDbl(m)
         mymod = CDbl(m)
      Case Else
         If InStr(Str(n),"e")<>0 Then
            mymod=0
         Else
            If InStr(Str(n),".")<>0 Then
               dim as double _mymod
               _mymod=Val(Str(val(Mid(Str(n),1,InStr(Str(n),".")-1)) Mod m)+"."+Mid(Str(n),InStr(Str(n),".")+1))
               if n<0 and _mymod>-1 then  '' in this case, the sign is lost
                  _mymod *= -1
               end if
               mymod = _mymod
            Else
               mymod = (n Mod m)
            EndIf
         End If
   End Select
End Function
do
    var x=rnd*500-rnd*500,y=int(rnd*200-rnd*200)
    Var s1=Right(Str(x),1)
    Print
    Print x,s1
    Var s2=Right(Str(fmod(x,y)),1)
    print fmod(x,y),s2
    s2=Right(Str(mymod2(x,y)),1)
    Print mymod2(x,y),s2
    s2=Right(Str(mymod(x,y)),1)
    Print mymod(x,y),s2
    sleep
Loop until InKey=chr(27)
Kuron
Posts: 30
Joined: Jul 26, 2005 3:22
Location: Nashville

Re: Guilty as charged

Postby Kuron » Oct 12, 2017 19:45

Just letting the community know that Owen has turned the reigns over to me. Owen's wishes will be followed and I consider it an honor to help.

Off to take wifey to do monthly shopping... :'c(
dodicat
Posts: 4495
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: Guilty as charged

Postby dodicat » Oct 12, 2017 22:24

Well deserved Kuron.
Keep on truckin' Owen.
Winter is coming, they say the ice roads truckers make good money.
owen
Posts: 433
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Re: Guilty as charged

Postby owen » Oct 13, 2017 1:34

thanks dodicat i'll try to keep her between the lines.
and thank you Kuron for taking over.
kuron has the con.
Kuron
Posts: 30
Joined: Jul 26, 2005 3:22
Location: Nashville

Re: Guilty as charged

Postby Kuron » Oct 13, 2017 20:43

You are welcome. It is my pleasure, Owen.
owen
Posts: 433
Joined: Apr 19, 2006 10:55
Location: Kissimmee, FL
Contact:

Re: Guilty as charged

Postby owen » Oct 22, 2017 13:53

I will help Kuron with his medical bills in the event legal recourse fails.
Don't worry, Kuron it'll be ok.

Return to “Community Discussion”

Who is online

Users browsing this forum: fxm and 2 guests