Sayısal Loto Programı

Public Class Form1 
      '6 adet sayının tutulacağı 6 değişken tanımladık. 
      Dim a As Integer 
      Dim b As Integer 
      Dim c As Integer 
      Dim d As Integer 
      Dim x As Integer 
      Dim f As Integer 
   
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
   
   
         
          Randomize() 
          a = Rnd() * 49 
   
           
  back1: 
          Randomize() 
          b = Rnd() * 49 
   
          If b = a Or b = 0 Then 
              GoTo back1 
          End If 
   
          'ÜÇÜNCÜ SAYIMIZI ÇEKİYORUZ. ÖNCEKİ SAYILARA VE 0'A EÞİT OLMASI DURUMUNDA YENİDEN ÇEKİLİÃŞ YAPILACAK.  
  back2: 
          Randomize() 
          c = Rnd() * 49 
   
          If c = a Or c = b Or c = 0 Then 
              GoTo back2 
          End If 
   
          'DİĞER SAYILARIMIZI ÇEKMEYE DEVAM EDELİM. 
  back3:  Randomize() 
          d = Rnd() * 49 
   
          If d = a Or d = b Or d = c Or d = 0 Then 
              GoTo back3 
          End If 
   
   
  back4: 
          Randomize() 
          x = Rnd() * 49 
   
          If x = a Or x = b Or x = c Or x = d Or x = 0 Then 
              GoTo back4 
          End If 
   
   
  back5: 
          Randomize() 
          f = Rnd() * 49 
   
          If f = a Or f = b Or f = c Or f = d Or f = x Or f = 0 Then 
              GoTo back5 
          End If 
      End Sub 
   
   
      
   
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
   
          
          Dim tutan As Integer 
          tutan = 0 
   
          'GİRİLEN SAYILARIN ALTINDAKİ LABEL'LARDA ÇEKİLİŞTE ÇIKACAK SAYILAR BELİRLENECEK. 
          Label1.Text = a 
          Label2.Text = b 
          Label3.Text = c 
          Label4.Text = d 
          Label5.Text = x 
          Label6.Text = f 
   
              
   
          If TextBox1.Text = a Or TextBox2.Text = a Or TextBox3.Text = a Or TextBox4.Text = a Or TextBox5.Text = a Or TextBox6.Text = a Then 
              tutan = tutan + 1 
          End If 
          If TextBox1.Text = b Or TextBox2.Text = b Or TextBox3.Text = b Or TextBox4.Text = b Or TextBox5.Text = b Or TextBox6.Text = b Then 
              tutan = tutan + 1 
          End If 
          If TextBox1.Text = c Or TextBox2.Text = c Or TextBox3.Text = c Or TextBox4.Text = c Or TextBox5.Text = c Or TextBox6.Text = c Then 
              tutan = tutan + 1 
          End If 
          If TextBox1.Text = d Or TextBox2.Text = d Or TextBox3.Text = d Or TextBox4.Text = d Or TextBox5.Text = d Or TextBox6.Text = d Then 
              tutan = tutan + 1 
          End If 
          If TextBox1.Text = x Or TextBox2.Text = x Or TextBox3.Text = x Or TextBox4.Text = x Or TextBox5.Text = x Or TextBox6.Text = x Then 
              tutan = tutan + 1 
          End If 
          If TextBox1.Text = f Or TextBox2.Text = f Or TextBox3.Text = f Or TextBox4.Text = f Or TextBox5.Text = f Or TextBox6.Text = f Then 
              tutan = tutan + 1 
          End If 
   
          Label7.Text = tutan & " adet sayi tutturdunuz" 
   
      End Sub 
  End Class

 
   
  #include <iostream> 
  #include <cstdlib> 
  #include <ctime> 
  #include<algorithm> 
  #include<iomanip> 
   
  using namespace std; 
   
  int main() 
  { 
  	srand((unsigned)time(NULL)); 
  	const int BOYUT=48; 
  	int rastgeleSayi; 
  	int dizi [BOYUT]={0}; 
  	 
   
             for(int i=1;i<=BOYUT;i++) 
  	  {	 
  		 
  		 while(true) 
  		 {		     
                       rastgeleSayi=rand()%48;			 
  		 
  		     if(dizi[rastgeleSayi]==0) 
  		     { 
  			 dizi[rastgeleSayi]=i;	 
  			 break; 
   
  		     } 
  		 
  		} 
  		 
  	} 
   
          sort(dizi,dizi+6); 
  	system("Color 1A"); 
   
         cout<<"********** Bu hafta'nin sansli numaralari **********"<<endl; 
    
         for(int i=0;i<6;i++) 
        { 
  	     
  	   cout<<setw(7)<<dizi[i]<<" "; 
        } 
   
          cout<<endl; 
  	cin.get(); 
  	return 0; 
  }