Sorry your browser is not supported!

void load_array(char *file_name, int object_size, int object_count, void *my_array)
{


FILE *my_stream;
size_t op_return;

//open
my_stream = fopen (file_name, "rb");

//read
op_return = fread (my_array, object_size, object_count, my_stream);

//close
fclose (my_stream);

fflush(my_stream);

}

void save_array(char *file_name, int object_size, int object_count, void *my_array)
{
	FILE *my_stream;
	size_t op_return;
	//open
	my_stream = fopen (file_name, "wb");
	//write
	op_return = fwrite (my_array, object_size, object_count, my_stream);
	//close
	fclose (my_stream);

}

//Read and save array integers example
//Code by MPL

#include "DarkSDK.h"
#include "stdio.h"

#define NUMITEMS	5

int my_array[NUMITEMS-1] = {1,2,3,4,5};
int numread=0;
char	czText[256];


int row, column;
FILE *my_stream;
int close_error;
char my_filename[] = "file-name.txt";

int  object_size = sizeof(int); 
int  object_count = NUMITEMS;
int  op_return;

void savearray(char *, int , int , void *);
void loadarray(char *, int , int , void *);

void printarray_int(int *);
void wait_for_press_key();



void DarkSDK ( void )
{
dbSyncOn();
dbSyncRate (0);


while ( LoopSDK ( ) )
{
	if ( dbEscapeKey ( ) ) return;

	//print the initial values
	printarray_int(my_array);
	

	//save array values	
	savearray(my_filename, object_size, object_count, my_array);
	
	//Erase initial values
	for (int row = 0; row < NUMITEMS; row++)
	{	
		my_array[row]=0;		
	}

	//Reload values for checking		
	loadarray(my_filename, object_size, object_count, my_array);
	
	//print the loaded values
	printarray_int(my_array);
	
	return;

}

}




void printarray_int(int *my_array)
{
	char	Screen_line[256];
	dbCLS();
	for (int row = 0 ; row < NUMITEMS; row++)
	{	
		
		sprintf ( Screen_line , "%d" , my_array[row] );
		dbPrint (Screen_line);
		dbSync( );
		
		if (dbEscapeKey()) break;        		
	}

	wait_for_press_key();
}




void wait_for_press_key()
{
	char	Screen_line[256];
	strcpy ( Screen_line, "PRESS A KEY");
      dbText ( 250 , 250 , Screen_line );
	dbSync( );
	dbSuspendForKey();		
}



void loadarray(char *file_name, int object_size, int object_count, void *my_array)
{
	FILE *my_stream;
	size_t op_return;
	//open
	my_stream = fopen (file_name, "rb");
	//read
	op_return = fread (my_array, object_size, object_count, my_stream);
	//close
	fclose (my_stream);

	//just for debugging
	char	Screen_line[256];
	dbCLS();
	sprintf ( Screen_line , "items read = %d ," , op_return );
	strcat ( Screen_line, &file_name[0]);
      dbText ( 10 , 50 , Screen_line );
	wait_for_press_key();

}

void savearray(char *file_name, int object_size, int object_count, void *my_array)
{
	FILE *my_stream;
	size_t op_return;
	//open
	my_stream = fopen (file_name, "wb");
	//write
	op_return = fwrite (my_array, object_size, object_count, my_stream);
	//close
	fclose (my_stream);

	//just for debugging
	char	Screen_line[256];
	dbCLS();
	sprintf ( Screen_line , "items written = %d ," , op_return );
	strcat ( Screen_line, &file_name[0]);
      dbText ( 10 , 50 , Screen_line );
	wait_for_press_key();
}

 #include <iostream>
#include <vector>

using namespace std;


int main()
{
    const int max=5000;
    char thing[max];
    
    vector<string> thingy;
    
    thingy.push_back("Hello World");
    
       cout<<"Write something : n";
       
       cin.getline(thing, max, 'n');
       
       cout<<"You wrote : " << thing<<endl;
       
       cout<<"The vector contains :"<<thingy[0];
       while (1)
       {
             }
             return 0;
}

dim a(10,10) as integer
a(10) = 10 : ` <- note, only ONE subscript

int hej[3][3];