Sorry your browser is not supported!

DBP_NETLIB_v1.1 - .NET LIBRARY PLUGIN FOR DARK BASIC PROFESSIONAL
--------------------------------------------------------------------------
DBP_NETLIB.DLL 		– by CattleRustler (VB.NET)
DBP_NETLIB_CPP.DLL	- by Exeat (C++)

THE LIBRARY:
Below is a listing of the library functions arranged by category.


GENERAL FUNCTIONS:
gen_PrevInst()
gen_GetPID()
gen_GetLocalName()
gen_GetLocalIP()
gen_MsgBox()
gen_InputBox()
gen_RunApp()
gen_FileDialog()
gen_DirDialog()

FILE FUNCTIONS:
fil_GetINIKey()
fil_WriteINIKey()
fil_AppendLog()
fil_AppendFile()
fil_OutputFile()
fil_GetFileToString() 
fil_GetAttrib()
fil_SetAttrib()

STRING FUNCTIONS:
str_InStr()
str_InStrRev()
str_Mid()
str_Split()
str_GetSplit()
str_Replace()
str_ChangeCase()
str_Left()
str_Right()
str_Remove()
str_PadLeft()
str_PadRight()
str_Insert()

DATE & TIME FUNCTIONS:
dt_GetNow()
dt_GetMonth()
dt_GetDay()
dt_GetYear()
dt_GetHour()
dt_GetMinute()
dt_GetSecond()

TYPE CONVERSION FUNCTIONS:
tc_StrToInt()
tc_IntToStr()
tc_StrToFlt()
tc_FormatNum()

DIRECT X FUNCTIONS:
dx_GetVersion()
-----------------------------------------------------
more to come

if file exist("ALL.TXT") then delete file "ALL.TXT"
open to write 1,"ALL.TXT"
write string 1, str_PadRight("value"," ",10) + str_PadRight("sin"," ",20) + str_PadRight("cos"," ",20) + str_PadRight("tan"," ",20) + str_PadRight("asin"," ",15) + str_PadRight("acos"," ",15) + str_PadRight("atan"," ",20)
for i = 0 to 360 step 1
	write string 1,str_PadRight(str$(i)," ",10) + str_PadRight(str$(SIN(i))," ",20) + str_PadRight(str$(COS(i))," ",20) + str_PadRight(str$(TAN(i))," ",20) + str_PadRight(str$(aSIN(i))," ",15) + str_PadRight(str$(ACOS(i))," ",15) + str_PadRight(str$(aTAN(i))," ",20)
next i
close file 1
end

fil_outputfile "ALL.TXT",str_PadRight("value"," ",10) + str_PadRight("sin"," ",20) + str_PadRight("cos"," ",20) + str_PadRight("tan"," ",20) + str_PadRight("asin"," ",15) + str_PadRight("acos"," ",15) + str_PadRight("atan"," ",20)
for i = 0 to 360 step 1
	fil_appendfile "ALL.TXT",str_PadRight(str$(i)," ",10) + str_PadRight(str$(SIN(i))," ",20) + str_PadRight(str$(COS(i))," ",20) + str_PadRight(str$(TAN(i))," ",20) + str_PadRight(str$(aSIN(i))," ",15) + str_PadRight(str$(ACOS(i))," ",15) + str_PadRight(str$(aTAN(i))," ",20)
next i
end

if file exist("ALL.TXT") then delete file "ALL.TXT"
open to write 1,"ALL.TXT"
write string 1, str_PadRight("value"," ",10) + str_PadRight("sin"," ",20) + str_PadRight("cos"," ",20) + str_PadRight("tan"," ",20) + str_PadRight("asin"," ",15) + str_PadRight("acos"," ",15) + str_PadRight("atan"," ",20)
for i = 0 to 360 step 1
	write string 1,str_PadRight(str$(i)," ",10) + str_PadRight(str$(SIN(i))," ",20) + str_PadRight(str$(COS(i))," ",20) + str_PadRight(str$(TAN(i))," ",20) + str_PadRight(str$(aSIN(i))," ",15) + str_PadRight(str$(ACOS(i))," ",15) + str_PadRight(str$(aTAN(i))," ",20)
next i
close file 1
end

fil_outputfile "ALL.TXT",str_PadRight("value"," ",10) + str_PadRight("sin"," ",20) + str_PadRight("cos"," ",20) + str_PadRight("tan"," ",20) + str_PadRight("asin"," ",15) + str_PadRight("acos"," ",15) + str_PadRight("atan"," ",20)
for i = 0 to 360 step 1
	fil_appendfile "ALL.TXT",str_PadRight(str$(i)," ",10) + str_PadRight(str$(SIN(i))," ",20) + str_PadRight(str$(COS(i))," ",20) + str_PadRight(str$(TAN(i))," ",20) + str_PadRight(str$(aSIN(i))," ",15) + str_PadRight(str$(ACOS(i))," ",15) + str_PadRight(str$(aTAN(i))," ",20)
next i
end

iavg as integer
print "Press a key"
wait key

for il=0 to 9
   iT=timer()

   fil_outputfile "ALL.TXT",str_PadRight("value"," ",10) + str_PadRight("sin"," ",20) + str_PadRight("cos"," ",20) + str_PadRight("tan"," ",20) + str_PadRight("asin"," ",15) + str_PadRight("acos"," ",15) + str_PadRight("atan"," ",20)

   for i = 0 to 360 step 1
      fil_appendfile "ALL.TXT",str_PadRight(str$(i)," ",10) + str_PadRight(str$(SIN(i))," ",20) + str_PadRight(str$(COS(i))," ",20) + str_PadRight(str$(TAN(i))," ",20) + str_PadRight(str$(aSIN(i))," ",15) + str_PadRight(str$(ACOS(i))," ",15) + str_PadRight(str$(aTAN(i))," ",20)
   next i

   iTa=timer()

   iTR=iTa-iT

   iavg=iavg+iTR

   print str$(iTR)

sync
next il

print "-----------------"
print "Avg: " + str$(iavg/10)

wait key

iavg as integer
print "Press a key"
wait key

for il=0 to 9
   iT=timer()

if file exist("ALL.TXT") then delete file "ALL.TXT"
open to write 1,"ALL.TXT"
write string 1, str_PadRight("value"," ",10) + str_PadRight("sin"," ",20) + str_PadRight("cos"," ",20) + str_PadRight("tan"," ",20) + str_PadRight("asin"," ",15) + str_PadRight("acos"," ",15) + str_PadRight("atan"," ",20)
for i = 0 to 360 step 1
	write string 1,str_PadRight(str$(i)," ",10) + str_PadRight(str$(SIN(i))," ",20) + str_PadRight(str$(COS(i))," ",20) + str_PadRight(str$(TAN(i))," ",20) + str_PadRight(str$(aSIN(i))," ",15) + str_PadRight(str$(ACOS(i))," ",15) + str_PadRight(str$(aTAN(i))," ",20)
next i
close file 1

   iTa=timer()

   iTR=iTa-iT

   iavg=iavg+iTR

   print str$(iTR)

sync
next il

print "-----------------"
print "Avg: " + str$(iavg/10)

wait key

"Some text here" + Chr$(10) + Chr$(13) + "Some Other text here!!"

Some text here
Some Other text here!!

iavg as integer
print "Press a key"
wait key
dim teststring$(360) as string

for il=0 to 9
   iT=timer()

   fil_outputfile "ALL.TXT",str_PadRight("value"," ",10) + str_PadRight("sin"," ",20) + str_PadRight("cos"," ",20) + str_PadRight("tan"," ",20) + str_PadRight("asin"," ",15) + str_PadRight("acos"," ",15) + str_PadRight("atan"," ",20)

   for i = 0 to 360 step 1
      teststring$(i) = str_PadRight(str$(i)," ",10) + str_PadRight(str$(SIN(i))," ",20) + str_PadRight(str$(COS(i))," ",20) + str_PadRight(str$(TAN(i))," ",20) + str_PadRight(str$(aSIN(i))," ",15) + str_PadRight(str$(ACOS(i))," ",15) + str_PadRight(str$(aTAN(i))," ",20)
   next i
	teststring2$ as string
	teststring2$ = teststring$(0)
	for i = 1 to 360 step 1
		teststring2$ = teststring2$ + chr$(13) + chr$(10) + teststring$(i)
	next i
	
	
	fil_appendfile "ALL.TXT",teststring2$


   iTa=timer()

   iTR=iTa-iT

   iavg=iavg+iTR

   print str$(iTR)

sync
next il

print "-----------------"
print "Avg: " + str$(iavg/10)

wait key

iavg as integer
print "Press a key"
wait key
dim teststring$(360) as string

for il=0 to 9
   iT=timer()

if file exist("ALL.TXT") then delete file "ALL.TXT"
open to write 1,"ALL.TXT"
write string 1, str_PadRight("value"," ",10) + str_PadRight("sin"," ",20) + str_PadRight("cos"," ",20) + str_PadRight("tan"," ",20) + str_PadRight("asin"," ",15) + str_PadRight("acos"," ",15) + str_PadRight("atan"," ",20)
for i = 0 to 360 step 1
	write string 1,str_PadRight(str$(i)," ",10) + str_PadRight(str$(SIN(i))," ",20) + str_PadRight(str$(COS(i))," ",20) + str_PadRight(str$(TAN(i))," ",20) + str_PadRight(str$(aSIN(i))," ",15) + str_PadRight(str$(ACOS(i))," ",15) + str_PadRight(str$(aTAN(i))," ",20)
next i
close file 1


   iTa=timer()

   iTR=iTa-iT

   iavg=iavg+iTR

   print str$(iTR)

sync
next il

print "-----------------"
print "Avg: " + str$(iavg/10)

wait key

Namespace VBDLL
    Public Class clsMyClass

        Public Function vbDisplayForm()
            Dim NewForm As New frmMain
            NewForm.ShowDialog()
        End Function

        Public Function vbAdd(ByVal Num1 As Integer, ByVal Num2 As Integer) As Integer
            vbAdd = Num1 + Num2
        End Function

    End Class
End Namespace

#using <mscorlib.dll>

using namespace System;

#using "..\bin\MyVBDLL.dll"
using namespace VBDLL;

#define EXPORT __declspec ( dllexport )

 EXPORT void DisplayForm( void )
 {
	clsMyClass *vb = new clsMyClass;
	vb->vbDisplayForm();
 }


 EXPORT int Add (int Num1, int Num2)
 { 
	int Result = 0;
	clsMyClass *vb = new clsMyClass;
	Result = vb->vbAdd(Num1, Num2);

	return Result;
 }

#include "stdafx.h"
#include "RCP.h"

#define EXPORT extern "C" __declspec(dllexport)

using namespace RCP_1;

EXPORT int RCPTest(void)
{
	CRCPWriter* writer = new CRCPWriter;
	return writer->Test();
}

[LINKS]
gen_PrevInst==() As Boolean
gen_GetPID==(ByVal ExeName As String) As Integer
gen_GetLocalIP==() As String
gen_MsgBox==(ByVal Title As String, ByVal Message As String, Optional ByVal Style As Integer = 0) As Integer
gen_InputBox==(ByVal Title As String, ByVal Message As String) As String
gen_RunApp==ByVal ExeName As String, Optional ByVal Args As String = ""
gen_FileDialog==(Optional ByVal InitialDir As String = "C:\", Optional ByVal FilterStr As String = "*.*|*.*") As String
gen_DirDialog==() As String

fil_GetINIKey==(ByVal Section As String, ByVal KeyName As String, ByVal FileName As String) As String
fil_WriteINIKey==ByVal Section As String, ByVal KeyName As String, ByVal Data As String, ByVal FileName As String
fil_AppendLog==ByVal FileName As String, ByVal Data As String
fil_AppendFile==ByVal FileName As String, ByVal Data As String
fil_OutputFile==ByVal FileName As String, ByVal Data As String
fil_GetFileToString==(ByVal FileName As String) As String
fil_GetAttrib==(ByVal FileName As String) As String
fil_SetAttrib==ByVal FileName As String, ByVal Attrib As Integer

str_InStr==(ByVal SearchIn As String, ByVal SearchFor As String) As Integer
str_InStrRev==(ByVal SearchIn As String, ByVal SearchFor As String) As Integer
str_Mid==(ByVal Str As String, ByVal Start As Integer, Optional ByVal Length As Integer = 0) As String
str_Split==(ByVal Str As String, Optional ByVal Delimiter As String = " ", Optional ByVal Limit As Integer = -1) As Integer
str_GetSplit==(ByVal UpperBound As Integer) *special - see documentation
str_Replace==(ByVal Str As String, ByVal OldChar As String, ByVal NewChar As String) As String
str_ChangeCase==(ByVal Str As String, ByVal SetCase As Integer) As String
str_Left==(ByVal Str As String, ByVal Length As Integer) As String
str_Right==(ByVal Str As String, ByVal Length As Integer) As String
str_Remove==(ByVal Str As String, ByVal StartIndex As Integer, ByVal Length As Integer) As String
str_PadLeft==(ByVal Str As String, ByVal PadChar As String, ByVal TotalWidth As Integer) As String
str_PadRight==(ByVal Str As String, ByVal PadChar As String, ByVal TotalWidth As Integer) As String
str_Insert==(ByVal Str As String, ByVal StartIndex As Integer, ByVal InsChar As String) As String

dt_GetNow==() As String
dt_GetMonth==() As Integer
dt_GetDay==() As Integer
dt_GetYear==() As Integer
dt_GetHour==() As Integer
dt_GetMinute==() As Integer
dt_GetSecond==() As Integer

tc_StrToInt==(ByVal Str As String) As Integer
tc_IntToStr==(ByVal Int As Integer) As String
tc_StrToFlt==(ByVal Str As String) As Single
tc_FormatNum==(ByVal Number As Single, ByVal LDigits As Integer, ByVal RDigits As Integer) As String

dx_GetVersion==() As String