WIKIMONNAIE, UNE MONNAIE LIBRE

---

Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

Une monnaie libre consiste en un ensemble de règles et processus qui définissent l'émission, l'évolution, la circulation et la consumation d'une monnaie ouverte, suffisante, décentralisée, poste-à-poste (P2P) et démocratique. Elle appartient au domaine public tout comme les logiciels ou les productions intellectuelles du logiciel libre. Elle est conçue, développée, testée, documentée et mise en circulation de manière collaborative, chacune de ses parties pouvant être transformée et améliorée par quiconque. Les monnaies libres sont désignées sous le terme d'Open Money en anglais, suivant les travaux de Michael Linton et Ernie Yacub à l'origine de cette vision. source : http://fr.ekopedia.org/Monnaie_libre_ou_open_money

/*
 * Created by SharpDevelop.
 * User: Gya
 * Mail : yanngeffrotin@gmail.com
 * [ je l'utilise, je le soutiens avec paypal ]
 * 
 * La wikimonnaie est un système de crédit mutuel utilisé par les Wikipédiens anglophones. Son principe est de créer une économie où les personnes peuvent proposer un travail sur Wikipédia contre de la wikimonnaie ou remplir une tâche proposée pour en gagner.
Tout contributeur régulier (actif depuis un mois et ayant au moins 200 éditions à son actif) peut ouvrir un compte sur cette page et se voit offrir 20 unités de wikimonnaie (?) indivisibles. Cette monnaie virtuelle pourra alors servir à s'échanger des services. Les comptes de chacun sont publics et maintenus dans la section WikiBanque de cette page. Pour transférer la wikimonnaie d'un compte à un autre, il suffit d'éditer les montants des comptes. Seul le débiteur transfère les ? de son compte vers celui qui a répondu à son offre.
Pourquoi essayer de récolter de la wikimonnaie ? Tout simplement, cela vous permettra d'investir dans des domaines qui vous tiennent à cœur. Le temps que vous investissez pour d'autres vous permettra aussi de demander du temps à d'autres. Rien ne vous empêche de vous regrouper pour proposer une offre alléchante !
Souvenez vous que la WikiMonnaie n'est qu'une monnaie virtuelle et ne doit pas être prise trop au sérieux !
 *
*/

using System;
using System.Text;
using System.IO;

namespace WikiMonnaie
{
	class MainClass
	{	
		
		public static void Main(string[] args)
		{	
			Console.WriteLine(" ");
			Console.WriteLine("WikiMonnaie");
			Console.WriteLine("'Créer une économie libre'");
			Console.WriteLine("GNU General Public License"); //Licence publique générale GNU

			//déclarations
			string choix, choix2, email, email2, motdepasse, motdepasse2 ; 
			int nblettres, cpt, cpt2 ;
			int montant = 20 ; // int : la wikimonnaie n'est pas fractionnable
			int PlusTab = 1 ;
			int MaxTab = 100 ; // Taille maximal du tableau
			
			
			//Il faudrait créer des fichiers textes à part
			string [] Temail = new string [MaxTab];
			string [] Tmotdepasse = new string [MaxTab];
			int [] 	Tmontant = new int [MaxTab];
			
			// Utilisation de variables non assignées
			email = email2 = motdepasse = "nobody" ; 
			cpt = cpt2 = 0 ;

			// Es ce qu'il existe des utilisateur ?
			lecture_fichier_texte_listeuser (ref Temail);
			
			while(Temail[cpt] != null)
			{ //pour chaque utilisateur
				StreamReader sr = new StreamReader("C:/TEMP/WikiMonnaie/bin/Debug/Wikipédiens/" + Temail[cpt] + ".txt");
				//mettre les valeurs dans le tableau
				Temail[cpt] = sr.ReadLine() ;
				Tmotdepasse[cpt] = sr.ReadLine() ;
				Tmontant[cpt] = Int32.Parse(sr.ReadLine()) ;
				sr.Close() ;
				cpt = cpt + 1;
			}
			
			
            //DEBUT PROGRAMME PRINCIPAL

			do
			{
				Console.WriteLine(" ");
				Console.WriteLine("1 - Connexion");
				Console.WriteLine("2 - S'inscrire");
				Console.WriteLine("0 - Sortie");
				Console.WriteLine(" ");
				choix=Console.ReadLine();
				
				switch (choix)
				{
					case "0": break;
					case "1": // Connexion à compte existant

						saisie_mail(ref email);
						recherche_email (ref cpt, email, Temail, MaxTab);	
							
						if (email==Temail[cpt]) // Si l'adresse email existe
						{
								saisie_motdepasse (ref motdepasse) ;
								
							if(motdepasse==Tmotdepasse[cpt]) //Si le mot de passe est correct
							{
								Console.WriteLine(" ");
								Console.WriteLine("Vous êtes connecté.");
								
								do
								{
									Console.WriteLine(" ");
									Console.WriteLine("Vous avez "+ Tmontant[cpt] + " WikiEuros sur votre compte.");
									Console.WriteLine(" ");
									Console.WriteLine("1 - Virement");
									Console.WriteLine("0 - Déconnexion");
									Console.WriteLine(" ");
									choix2=Console.ReadLine(); //Or Int32.Parse(Console.ReadLine());
				
									switch (choix2)
									{	
										case "0": //Déconnexion
											Console.WriteLine(" ");
											Console.WriteLine("Vous êtes déconnecté.");
											break;
										case "1": // Procédure de virement bancaire

											if(Tmontant[cpt]==0)// Si le compte est vide alors
											{
												Console.WriteLine(" ");
												Console.WriteLine("Vous ne pouvez pas effectuer cette transaction.");
											}
											else //sinon (montant du compte différent de zéro)
											{
												saisie_mail(ref email2);
												if(email==email2) //si email de l'envoyeur égal de l'email du destinataire alors
												{
													Console.WriteLine(" ");
													Console.WriteLine("Vous ne pouvez pas vous envoyer de l'argent.");
												}    
												recherche_email (ref cpt2, email2, Temail, MaxTab);
												if(email2!=Temail[cpt2]) //si l'email du destinataire n'existe pas alors
												{
													Console.WriteLine(" ");
													Console.WriteLine("Destinataire inconnu.");
												}
												
												//Si le mail du destinataire est trouvé et que le mail de l'envoyeur soit différent de ce que l'on a trouvé
												if(email2==Temail[cpt2] && email!=Temail[cpt2])
												{
													do
													{	
														if(montant>Tmontant[cpt]) // montant saisie inférieur au montant sur le compte
														{	Console.WriteLine(" ");
															Console.WriteLine("Vous ne disposez pas d'une telle somme sur votre compte. ");
														}
														Console.WriteLine(" ");
														Console.WriteLine("Montant à verser : ");
														montant = Int32.Parse(Console.ReadLine());
													}while(montant>Tmontant[cpt]);
												
													//Mise à jour des fichiers textes et des tableaux
													Tmontant[cpt] = Tmontant[cpt] - montant ;
													convert_Tinfo (Temail, Tmotdepasse, Tmontant, cpt );
													Tmontant[cpt2] = Tmontant[cpt2] + montant ;
													convert_Tinfo (Temail, Tmotdepasse, Tmontant, cpt2 );
												}
											}break;
									}
								}while(choix2!="0");
							}
							else // Si le mot de passe est faux
							{
									Console.WriteLine(" ");
								Console.WriteLine("Ce mot de passe est erronée.");
							}                           
						}
						else // Si l'adresse email n'existe pas
						{
								Console.WriteLine(" ");
							Console.WriteLine("Cet email n'est pas valide.");
						}
						break;
							
					case "2": // S'inscrire (creation d'un nouveau compte bancaire)
							
						do
						{	do
							{	saisie_mail(ref email);
								recherche_email (ref cpt, email, Temail, MaxTab);	
				
								if(email==Temail[cpt])
								{
									Console.WriteLine("Cette adresse email est déja prise. Veuillez en saisir une autre.");
								}
							}while(cpt!=MaxTab-1 );
						}while(email==Temail[cpt]);
							
						saisie_motdepasse (ref motdepasse) ;
						do
						{	Console.WriteLine(" ");
							Console.WriteLine("Vérification : ");
							motdepasse2 = Console.ReadLine();
							nblettres = motdepasse2.Length ; 
						}while(motdepasse!=motdepasse2) ;
							
						//Enregistre les valeurs temporairement
						Temail[PlusTab] = email ;
						Tmotdepasse[PlusTab] = motdepasse ;
						Tmontant[PlusTab] = 20 ;
							
						PlusTab = PlusTab + 1 ;
							
						creation_fichier_texte (email, motdepasse, montant) ;
						enregistrement_liste_user (email);
						break;
				}
			}while(choix!="0");
			
			//FIN PROGRAMME PRINCIPAL
		}
			
		// LES SOUS PROGRAMMES
		static void saisie_mail (ref string email)
		{	// Vérifie la validité d'une adresse email
			Console.WriteLine(" ");
			Console.WriteLine("Adresse email : ");
			email = Console.ReadLine();
			string chercheCela = "@";
			int positionCar = email.IndexOf(chercheCela); //Retourne la position du caractère

			while (positionCar < 0) 
			{
				Console.WriteLine(" ");
				Console.WriteLine("Une adresse email doit comporter le symbole @.");
				Console.WriteLine(" ");
				Console.WriteLine("Adresse email : ");
				email = Console.ReadLine();
				chercheCela = "@";
				positionCar = email.IndexOf(chercheCela); //La position du caractère doit être positive
			}
		}
		
		static void recherche_email (ref int cpt, string email, string []Temail, int MaxTab)
		{	// Recherche de l'email dans le tableau Temail
			cpt=-1;
			do{cpt=cpt+1;
			}while(email!=Temail[cpt] && cpt!=MaxTab-1 );
		}
		
		static void saisie_motdepasse (ref string motdepasse)
		{  //Vérifie la validité du mot de passe
			Console.WriteLine(" ");
			Console.WriteLine("Mot de passe : ");
			motdepasse = Console.ReadLine();
			int nblettres = motdepasse.Length ; 
			
			while(nblettres<6)
			{
				Console.WriteLine(" ");
				Console.WriteLine("Mot de passe : (6 caractères minimum)");
				motdepasse = Console.ReadLine();
				nblettres = motdepasse.Length ; 
			}
			
		}
		
		static void convert_Tinfo (string [] Temail, string [] Tmotdepasse, int [] Tmontant, int personne )
		{  	//Convertir le tableau Temail en email, le Tmotdepasse en motdepasse et Tmontant en montant
			string email = Temail[personne] ;
			string motdepasse = Tmotdepasse[personne] ;
			int montant = Tmontant[personne] ;
			creation_fichier_texte (email, motdepasse, montant);
		}
		
		static void creation_fichier_texte (string email, string motdepasse, int montant)
		{	//création d'un fichier texte
				StreamWriter sw = new StreamWriter("C:/TEMP/WikiMonnaie/bin/Debug/Wikipédiens/" + email + ".txt");
				sw.WriteLine (email);
				sw.WriteLine (motdepasse);
				sw.WriteLine (montant);
				sw.Close();
		}
	
		static void enregistrement_liste_user (string email)
		{	// Ce texte est ajouté au fichier Listuser.txt en express	
			StreamWriter sw = new StreamWriter("C:/TEMP/WikiMonnaie/bin/Debug/Listuser.txt",true); //Changer le répertoire si autre compilation
			sw.WriteLine (email);
			sw.Close();
		}

		static void lecture_fichier_texte_listeuser (ref string [] Temail)
		{	int cpt = 0;
			//Console.WriteLine(" ");
			//Console.WriteLine("WikiBanque : ");
			//Console.WriteLine(" ");
			StreamReader sw = new StreamReader("C:/TEMP/WikiMonnaie/bin/Debug/Listuser.txt");
			string ligne = sw.ReadLine();
			
			while(ligne != null)
			{	//Console.WriteLine(ligne);
				Temail[cpt] = ligne ;
				ligne = sw.ReadLine();
				cpt = cpt + 1;
			}
			sw.Close();
		}
	}
}

Si quelqu'un veut reprendre le projet, voici quelques pistes de travail :
* envoi de mails à reception de nouvelles sommes (MailMessage)
* edition sous support html / php pour avoir un serveur et une interface graphique
* sécurisation des fichiers textes par le cryptage

Bonne Prog  ;-)

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

28 janvier 2006 19:41:31 :

J'ai ajouté un système de menu qui rend la navigation plus claire.

29 janvier 2006 19:45:09 :

Correction d'une faille dans l'identification. Interface revue et corrigée.

07 février 2006 17:35:35 :

Génération d'un fichier texte à la création d'un compte.

07 février 2006 20:37:12 :

Ajout de sous-programmes.

09 février 2006 09:12:57 :

Optimisation de la vérification d'une adresse email avec IndexOf qui retourne la position du caractère.

17 mars 2006 20:45:31 :

Ajout de la lecture / écriture de fichiers textes à chaque inscription / modification d'un wikipédien.

• PIPHILOLOGIE
• MÉTHODE D'ÉLIMINATION DE GAUSS-JORDAN, ET DU PIVOT DE GAUSS POUR SYSTÈMES D'ÉQUATIONS LINÉAIRES À 3 INCONNUES
• JEU DE PIERRE, FEUILLE, CISEAUX (JANKENPON)

• LINKY : GESTIONNAIRE DE ROOTS
• AUTOMATISATION DE L'EXECUTION DE MACROS SUR DOCUMENTS WORD.
• SUBTITLE REVERSE .SRT
• TESTEUR DE REQUÊTES XPATH
• LISTVIEW : TRI MONO OU MULTICOLONNES PROGRAMMÉ OU PAR CLICK DE COLONNE TENANT COMPTE DU TYPE DE DONNÉES À TRIER

• VIRTUALDRIVE - CLASSE DE CRÉATION NON PERSISTANTE ET SUPPRESSION DE LECTEUR VIRTUEL.