Making Vb Compilator without runtimes

No I just said that the Admins might disable the feature of putting in cool things in the signature with HTML stuff when we misuse it.

hey everybody !
glad to see you're still waiting for my work :)

Well, here is the stuff : i have nearly-finished the beta, but i m late, cause i couldn't code for a long time, so the objects are under coding, but anything else is done ( for the beta :) Here is how it wil be :

First, every variants are public, so don't try several codes, with the same keyword used for differents stuff, it might crash your computer really bad... :)

There's no update, cause it's unreleasable right now, but it's coming, be patient ! I'll do my best to make a downloadable version before the end of this month. So you'll be able to test the compiler.. Remember that this compiler is like an 'add-in' of vb, you must use vb-formatted code and beware of errors in vb : there won't be any error handling ( not in the vb-style) so if something is wrong, it might severally crash your system... (it happenned a lot of time when i tested my own apps :) so you'll test this beta at your own risk !

Just be patient, and you'll see vb code executed without any runtimes in a very small .exe file :))

Certainly Emo will host the d/l, do you agree ?
And i hope the next time i write a post here i have a beta released :)

VBMAX IS COMING !!!!

Well I hope I will get to crash my system with you app pretty soon.

Have a fun coding :)

Hey!
Well I just made a Subscription service on the site so go there and sign up for a news letter!

http://www.mxcod.f2s.com/download/download.html

-Emo

I FINALLY HAVE A CONNECTION !!!!!!!!!!!!!!!!!!

Ok, so the work is coming....

backup all your important files, my prog is gonna crash your system :)

i will give you infos asap, cause i can now get logged everytime i need...

i'm getting back to code...

see ya

Hi everyone, long time i haven't posted here... Well i know i'm very late.. But we had to rewrite the entire skeleton ( now the linker is in asm itself) But this not the subject of the topic.

I ask again if ANYONE could help me writing the LIBRARY stuff, i mean converting vb pre-defined functions into asm code ( i can compile every code and add it to the library). I can use c++ code too ( i can translate it into asm pretty easily ;) ).

So DOES ANY C++/ASM CODER WANT TO HELP ME ??

I know i've lost tons of partner not responding to their asking of join, but now i'm ready, you can check the website : VBMaX WebSite
and post some messages to tell you can conrtibuate to this project... More we are, faster it will be... The *NEW* skeleton will be ready pretty soon and we are HARD-WORKING on it :)

Hope you can help me.

Oh and i forgot, the new skeleton will includes decompilling .exe file compiled with vb and transform them into runtimes-free applications. But this will be completed later :rolleyes:

if you wanna join the group : [email protected]

Thanx on advance

Any idea when the beta will be out, guys?

This is such an interesting project. I wish I had the level of skills to actually help you out. I guess I will do some hard core beta testing for you if that is possible.

The site www.vbmax.net doesn't exist anymore :(

Can you check it out ?

Quote:

---

Originally posted by Borry
The site www.vbmax.net doesn't exist anymore :(
Can you check it out ?

---

It work fine... but it has 2 annoying banners so you can try

http://www.mxcod.f2s.com (the real site) :)

I just made a new Board because the last one was making trouble and hopefully this one will not!

I'll try to contact MxCod to see what is the progress for the Beta... meanwhile, you can go here and subscribe for a newsleter so you can get informed when the beta is gonna be out!

-Emo

Yeah i'm there !

That's right the .net address has been removed, so go to the *real* website :

http://www.mxcod.f2s.com

anyway hellswraith, i'll take your saying in mind !

Can you give an update of the project status? :)

The forum doesn't work.

For now, coders are very busy, so we couldn't make a lot of work.
Here is the stuff :
- several coders still wanted to code the library
- linker in asm will be ready very soon
- parsing stuff, I don't know but not in ten years
- Beta will be ditribuated when both linking and parsing stuff are ready
- project is finished when the library is done.
- possibility to write differents libraries then : on to compile on win32, one to translate code into asm source code, into c++ source code etc... Because of the MPF ( Most Portable Format ) which can be translated in any language.

Ya see now, the most big work is the library, that's why I'm asking some help. Anyway, after releasing the beta, library will be able to coded in vb, so is there any vb programmer intrested in this ?

Hi

Check out the program 'Fusion' from www.bit-arts.com

it sounds like you are trying to reinvent the wheel.

Si
:rolleyes:

Fusion only makes a stub, they're trying (if I understand) to rebuild the entire VB compiler.

Quote:

---

Originally posted by filburt1
Fusion only makes a stub, they're trying (if I understand) to rebuild the entire VB compiler.

---

It's not really a VB compiler... it takes VB Code and transforms it into ASM code so there is no Run-Time Files :)

-Emo

So how's the project going then? Sounds like it died. :(

I know it looks like that... but I'm sure MxCod is still working on it... I'm just running the site/board...so dont complain to me :D

I'm waiting for an update just like you

-Emo

fusion just get's the dependencies into the exe file, but the exe file get's as big as if you compile it normally, but the project they are doing transforms the code to asm so it doesn't need dependencies and it gets smaller

Hi everyone, the update is comping up soon !! ( i know i have already told that ) but hey, just wait and you'll see !

Well, I can tell you that I can already compile the whole windows API calling, but I can't give you any update because it would be too long to tell you how it works... So you'll have to wait for the parsing stuff to be able to compile vb code :) I can't give any date either because i don't know at all when I can release it ! But now, after all the christmas and 31th december stuff... i'm going back to work to give you a *NICE* IDE with full compilling.... of MsgBoxes :)))

Hey devMax,

I wanna help with the library if thats not too late :P Whats this all about?

MoMad

Yup ! you can help us in the library ! But you have to know vb and asm as well ( or close to :) )... Anyway, just contact me by e-mail at [email protected] and I'll give you any information you want...

im looking forward to the releae, the very thought of it :D:D easy to code AND small and fast!!!!

VB may yet get good!

I am definitely excited with this project, too but wouldn't the
program takes a lot to program?

Basically u want a database with VB statements and functions
and their correspondence asm code?

So lets gather strength and pls everyone write the asm codes
for each vb statements?

I am good in ASM, but not Windows ASM.
I am good in VB and QB,too! Wrote a mouse driver with QB!
Uses only OUT commands!

Hi !
Sorry not to give you any release but the work is still on.. We changed the format once again, but this is the last, we can't have one better and when it is ready to be parsed, the format will allow us to write the library ( yes the database you are talking about Jian2587 ) in VB !! yes, so
Anyone who wants to help us ( there is no asm knowledge required ) please send me a built-in function from vb wrote in vb !! If a lot of people do that way, the library could be finished very soon ! You don't quite understand ? Well here is an exemple of what i need :

Code:

---

Function Abs(Number As Double) As Double
 If Number < 0 Then Number = -Number
 Abs = Number
End Function

---

You see now ? So if you already know what function you want to write, simply send it to me, or if you don't know, send me an e-mail and I'll tell you which functions aren't already written...

Don't worry guys, I'll certainly modify some functions to get them closer to asm...

Anyway, Jian2587, I'm intrested to see your mouse driver :))

lol

what 'lol' ? What is funny ?

Anyway, i forgot something : of course if you know asm, you can still send me functions translated into asm, it is still better ;)

And if you wanna know asm for win32 Jian2587 : www.win32asm.cjb.net
there are good tuts there :)

I think he just wanted to get his postcount up
he mosted more of those on other threads...
hm does it really work to write functions in vb?
isn't that gonna be slow????????

No it won't be slow at all !

the code in vb will be translated into asm for the library, and it will be just like if I wrote it in asm itself... Because it is not exactly in vb, it is in 'BasicMaXx' ;) I mean a basic version created to write libraries for VBMaXx, which has some built-in functions to give orders to the compiler on how to compile this or that language. There is no 'real' type and no convertion stuff ( since you don't call any function to do it ). So values must be treated just like in asm : a bunch of bytes, which represents a value or a pointer.

If you want more information about it just mail me ;)

1st of all, the forums and the f2s website you all talk of are completely empty. You might take some time to update on that, or at least link this forum. :)

Any source code?? What are the functions you have currently done?

I will write some basic functions (i prefer writing them in C++ but i will write in VB for now, untill you say 'yes' to C/C++):

VB Code:

' TRIM, RTRIM, LTRIM
 
Function LTRIM(str As String, Optional mask As Byte = 32) As String
 
  Dim i As Integer
  Dim start As Integer
  
  For i = 1 To Len(str)
    If Mid(str, i, 1) <> Chr(mask) Then
      start = i - 1
      Exit For
    End If
  Next i
  
  LTRIM = Mid(str, start + 1, Len(str) - start)
End Function
 
 
Function RTRIM(str As String, Optional mask As Byte = 32) As String
 
  Dim i As Integer
  Dim fin As Integer
 
  For i = Len(str) To 1 Step -1
    If Mid(str, i, 1) <> Chr(mask) Then
      fin = i
      Exit For
    End If
  Next i
  
  RTRIM = Mid(str, 1, fin)
End Function
 
 
Function TRIM(str As String, Optional mask As Byte = 32) As String
  TRIM = LTRIM(RTRIM(str, mask), mask)
End Function
 
Private Sub Command1_Click()
    MsgBox "***" & TRIM(Text1.Text, Asc("*")) & "***"
End Sub
 
' EDIT: Added optional param: mask, chose whatever you like, or its a space

NOTE: this code is completely tested, and works like a charm.

...

more functions coming soon... in the meantime, put up all the functions that are done!!

thx,
MoMad

- varius untested math functions

VB Code:

Function pow(n As Double, p As Integer) As Double
  Dim i As Integer
  Dim r As Double
  
  ' Positive == power, negative == 1 / power
  If p > 0 Then
    r = 1
    For i = 1 To p
        r = r * n
    Next i
  ElseIf p = 0 Then
    r = 1
  Else
    r = 1 / pow(n, Abs(p))
  End If
  
  pow = r
End Function
 
Function toRadian(degree As Single) As Double
  toRadian = (degree * 3.14159265) / 180
End Function
 
Function toDegree(radian As Double) As Single
  toDegree = (180 * radian) / 3.14159265
End Function
 
Function sin(theta As Double) As Double
  sin = 0.9998921 * theta - 0.165961 * pow(theta, 3) + 0.0076032 * pow(theta, 5)
End Function
 
Function cos(theta As Double) As Double
  cos = sin(toRadian(90) - theta)
End Function
 
Function tan(theta As Double) As Double
  tan = sin(theta) / cos(theta)
End Function
 
' atn, doesnt yet work.... this one is a bit complex
'     (square roots and finite series) maybe asm has these already??
Function atn(theta As Double) As Double
  Dim i As Integer
  Dim r As Double
  
  For i = 0 To 30
    r = r + (pow(-1, i) * (pow(theta, 2 * i + 1) / (2 * i + 1)))
  Next i
  
  atn = r
End Function

All code tested w/ precision of upto 1% difference! Again, maybe asm has these... it took me like 3 hours to research these and try to convert them to code... 4 am right now, must sleep. bye!

yeah I know the site is COMPLETLY down :)
but i'll take care of it myself for the next release, because for now I'm working only on the library.

Anyway,thanx a lot for your work, but sorry,yes your math functions already have equivalents in asm, actually the arithmetic coprocessor do this with only one command... So don't worry for atn function, I already have it.
Sorry for the time you spent for it... You should have asked before...
Anyway, it is worth for my own knowledge, i didn't know how to calculate sinus before ;)

So here are functions that are done ( or you can't do them ) :

• Abs
• Array
• Atn
• C* ( convertion functions )
• Cos
• CreateObject ( not implemented yet )
• DoEvents ( id )
• Error ( not close to be implemented )
• Exp
• FreeFile
• GetObject ( not implemented yet )
• Hex
• InputBox
• Int
• Is* ( not full implemented yet )
• LBound
• LTrim, RTrim, Trim ( thanx a lot MoMad )
• Log
• MsgBox ( yeah, the only function that works beautifully right now :) )
• Oct
• Rnd
• Sin
• Sqr
• Str
• StrComp
• Tan
• TypeName
• UBound
• Val
• VarType

And that's all ;)
ANYTHING ELSE HAS TO BE WRITTEN !!
This means tons of functions for date/time, printing etc... But remember that the type 'Date' DOESN'T exist in the language you could write any function, the remplacement type is : Double.

Thanx on advance for every programmer that could help me writing my library ;)

Have you made a mid() function yet? or a charAt(), if so we can derive the following functions from them....

I dont know enough ASM to write a mid function and thus i expect you or someone else to write it because it cant be done in vb unless you want to go totally out of your way for such a stupid task, but its ok. Ill write it in C/C++ for you to examine:

VB Code:

Public Function LEFT(str As String, n As Integer) As String
    LEFT = Mid(str, 1, n)
End Function
 
Public Function RIGHT(str As String, n As Integer) As String
    RIGHT = Mid(str, Len(str) - n + 1, n)
End Function

PHP Code:

---



int len( char* str )
{
    int i = 0;
    while( *str++ )
        i++;

    return i;
}

char* mid(char* dest, char* str, int start, int length = 0)
{
    for (int i = start; i < start + length && str[i] != 0; i++)
        dest[i-start] = str[i], dest[i-start +1] = 0;

    return dest;
} 


---

Thats all for now... more coming soon!

Hey, I was wondering what y'all think about putting together a cvs kind of database so that people can just enter functions or correct code or whatever, for every function there is to do....


check out:

http://sourceforge.net/

dude why is this page german?
did it just recognize my language? Can't imagine you got that good in german all the sudden :)
well it would help to have an online database. I think I will help with some little functions too as soon as I am over with my exams. (on the 7th.)

Hey whats up, Sad Prof, long time no see?? Hey I think this website translates most of things or something.... at least it has a "multi-lingual" support :D

Allright, I will start working on the database and get it set up. You assembly people will have to make all of the basic 1st grade functions, the rest come from those. For example: MID is a 1st grade function because there is no way to manipulate strings in VB. Its crazy.


Anyways,
the database (as soon as i upload it), will be in this url:

http://momad.teknikill.net/vbmax.php

I will send you the sql dump and the php file if you want to host it on your site.... lets get this thing going shall we??

I have watched this forum for a very very long time now, and nothing has happened, but now I just cant wait so i will try to make you make something happen! :D lol

Anyways, Peace!

BTW: can i see the compiler?? or a beta? (just wanna get an idea of how it will look like)

MORE FUNCTIONS!!!

VB Code:

Public Function UCASE(str As String) As String
    Dim i As Integer
    Dim c As Byte
    
    For i = Len(str) To 1 Step -1
        c = Asc(Mid(str, i, i + 1))
        If c >= Asc("a") And c <= Asc("z") Then
            Mid(str, i, i + 1) = Chr((c - Asc("a")) + Asc("A"))
        End If
    Next i
    
    UCASE = str
End Function
 
 
Public Function LCASE(str As String) As String
    Dim i As Integer
    Dim c As Byte
    
    For i = Len(str) To 1 Step -1
        c = Asc(Mid(str, i, i + 1))
        If c >= Asc("A") And c <= Asc("Z") Then
            Mid(str, i, i + 1) = Chr((c - Asc("A")) + Asc("a"))
        End If
    Next i
    
    LCASE = str
End Function
 
Public Function SPACE(n As Integer) As String
    Dim i As Integer
    Dim r As String
    
    For i = 1 To n
        r = r & " "
    Next i
    
    SPACE = r
End Function

This is fun! ;)

More functions here:

http://momad.teknikill.net/old/c.htm

Thanx a lot MoMad for all these functions :))

It's ok, arithmetic & logic operators , 'Mid','InStr','Len', and '&' have been added to '1st grade' functions.

Please tell me if you see some other 1st grade functions...

Eya how big is the site thing? I have 20MB very very fast hosting with php support. I know F2s is gonna close the free hosting so if u'd like hosting from me (free ofcourse :-)) mail me on [email protected]

And good luck with the project!