DonanımHaber Mini sürüm 2 Ocak 2026 tarihi itibariyle kullanımdan kalkacaktır. Bunun yerine daha hızlı bir deneyim için DH Android veya DH iOS uygulamalarını kullanabilirsiniz.
DH Anasayfa
İndirim Kodu
Ara
Popüler
Foruma Git
Hakkımızda
Destek
Mobil Sürüm
Standart Site Görünümü
Bu Konuda
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Arama butonu
Bağlan:
Facebook
Google+
Twitter
Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Ucretsiz Kucuk Boyutlu Programlar Yazilir
Bu konudaki kullanıcılar: 1 misafir
23
Cevap 782
Tıklama 0
Öne Çıkarma
Ucretsiz Kucuk Boyutlu Programlar Yazilir
Cevap Yaz
Konuya Özel
A
atekse
13 yıl (22 mesaj)
Onbaşı
Konu Sahibi

Ucretsiz Kucuk Boyutlu Programlar Yazilir
Daha Fazla Bilgi icin
Buraya Yazin Veya PM Atin

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil
Bir Daha Gösterme





< Bu mesaj bu kişi tarafından değiştirildi atekse -- 9 Nisan 2013; 15:21:47 >

U
Umutttttttt
13 yıl (90 mesaj)
Çavuş

Ben Bir xox oyunu kodlayacağım fakat nasıl yaparım bilmiyorum biraz ayrıntı verebilirmisiniz.


Bu mesaja 2 cevap geldi.
E
expertise
13 yıl (24 mesaj)
Onbaşı

borsa programı lazım, yapabilir misin?


Bu mesaja 1 cevap geldi.
A
atekse
13 yıl (22 mesaj)
Onbaşı
Konu Sahibi

quote:

Orijinalden alıntı: Umutttttttt

Ben Bir xox oyunu kodlayacağım fakat nasıl yaparım bilmiyorum biraz ayrıntı verebilirmisiniz.


C++ BASIT BIR OXO OYUNU 

#include <iostream> 
  #include <conio.h> 
  using namespace std; 
  int gameover= 0; 
  int pos[9]={1,2,3,4,5,6,7,8,9}; 
  char set[9]={'1','2','3','4','5','6','7','8','9'}; 
  int taken[9]={0,0,0,0,0,0,0,0,0}; 
  char cPlayer1 = 'X'; 
  char cPlayer2 = 'O'; 
  void print_board_start()         
  { 
      cout<<"Hosgeldiniz OXO Oyununa."<<endl; 
      cout<<"Atekse."<<endl; 
      cout<<"|"<<pos[0]<<"|"<<pos[1]<<"|"<<pos[2]<<"|"<<endl; 
      cout<<"-------"<<endl; 
      cout<<"|"<<pos[3]<<"|"<<pos[4]<<"|"<<pos[5]<<"|"<<endl; 
      cout<<"-------"<<endl; 
      cout<<"|"<<pos[6]<<"|"<<pos[7]<<"|"<<pos[8]<<"|"<<endl; 
      cout<<"-------"<<endl; 
  } 
  void input_board_x(int user_pos_x)     
  { 
      set[user_pos_x-1]= 'X'; 
  }         
  void input_board_y(int user_pos_y)     
  { 
      set[user_pos_y-1]= 'O'; 
  } 
  void final_result_board()     
  { 
  cout<<"|"<<set[0]<<"|"<<set[1]<<"|"<<set[2]<<endl; 
  cout<<"-------"<<endl; 
  cout<<"|"<<set[3]<<"|"<<set[4]<<"|"<<set[5]<<endl; 
  cout<<"-------"<<endl; 
  cout<<"|"<<set[6]<<"|"<<set[7]<<"|"<<set[8]<<endl; 
  cout<<"-------"<<endl; 
  } 
    
  int check_gameover() 
  { 
      
          if(set[0] == set[1] && set[2] == set[0]) 
          { 
              cout<<"OYUN BITI!"<<endl; 
              gameover = 1; 
              if(set[0] == cPlayer1) 
              { 
              cout<<"OYUNCU 1 KAZANDI!"<<endl; 
              } 
              else 
                  cout<<"OYUNCU 2 KAZANDI!"<<endl; 
          } 
          
          if(set[0] == set[3] && set[6] == set[0]) 
          { 
              cout<<"OYUN BITTI!"<<endl; 
              gameover = 1; 
              if(set[0] == cPlayer1) 
              { 
              cout<<"OYUNCU 1 KAZANDI!"<<endl; 
              } 
              else 
                  cout<<"OYUNCU 2 KAZANDI!"<<endl; 
          } 
         
          if(set[0] == set[4] && set[8] == set[0]) 
          { 
              cout<<"OYUN BITTI!"<<endl; 
              gameover = 1; 
              if(set[0] == cPlayer1) 
              { 
              cout<<"OYUNCU 1 KAZANDI!"<<endl; 
              } 
              else 
                  cout<<"OYUNCU 2 KAZANDI!"<<endl; 
          } 
          
          if(set[1] == set[4] && set[7] == set[1]) 
          { 
              cout<<"OYUN BITTI!"<<endl; 
              gameover = 1; 
              if(set[1] == cPlayer1) 
              { 
              cout<<"OYUNCU 1 KAZANDI!"<<endl; 
              } 
              else 
                  cout<<"OYUNCU 2 KAZANDI!"<<endl; 
          } 
          
          if(set[2] == set[5] && set[2] == set[8]) 
          { 
              cout<<"OYUN BITTI!"<<endl; 
              gameover = 1; 
              if(set[2] == cPlayer1) 
              { 
              cout<<"OYUNCU 1 KAZANDI!"<<endl; 
              } 
              else 
                  cout<<"OYUNCU 2 KAZANDI!"<<endl; 
          } 
          
          if(set[2] == set[4] && set[4] == set[6]) 
          { 
              cout<<"OYUN BITTI!"<<endl; 
              gameover = 1; 
              if(set[2] == cPlayer1) 
              { 
              cout<<"OYUNCU 1 KAZANDI!"<<endl; 
              } 
              else 
                  cout<<"OYUNCU 2 KAZANDI!"<<endl; 
          } 
          
          if(set[6] == set[7] && set[8] == set[6]) 
          { 
              cout<<"OYUN BITTI!"<<endl; 
              gameover = 1; 
              if(set[2] == cPlayer1) 
              { 
              cout<<"OYUNCU 1 KAZANDI!"<<endl; 
              } 
              else 
                  cout<<"OYUNCU 2 KAZANDI!"<<endl; 
          } 
          return gameover; 
  } 
  int check_duplicate(int i)    
  { 
      while(taken[i-1] == 1) 
      { 
          cout<<i<<" baska bir nokta seçiniz "; 
          cin>>i; 
      } 
      return i; 
  } 
  int main() 
  { 
      int count = 0; 
      int x_pos,y_pos; 
      print_board_start(); 
      cout<<"OYUNCU 1  : X"<<endl<<"OYUNCU 2  : 0"<<endl; 
      while(gameover==0 && count<=8) 
      { 
          count++; 
          cout<<"Posizyonu Girin  X :"<<endl; 
          cin>>x_pos; 
          while(x_pos>9 || x_pos <1 ) 
          { 
              cout<<"Hatali Girdiniz 1 Den 9 a Kadar Secin:  "; 
              cin>>x_pos; 
          } 
           
          if(taken[x_pos-1] == 1) 
          { 
              x_pos=check_duplicate(x_pos); 
          } 
          input_board_x(x_pos);  
          taken[x_pos -1] = 1;     
          check_gameover();        
          if(gameover == 1)  
          { 
              break; 
          } 
          if(count == 9)     
          { 
              break; 
          } 
          count++; 
          final_result_board();     
          cout<<"Posizyonu Girin  0 : "<<endl; 
          cin>>y_pos; 
          while(y_pos>9 || y_pos <1 )     
          { 
              cout<<"Hatali Girdiniz 1 Den 9 a Kadar Secin:  "; 
              cin>>y_pos; 
          } 
          if(taken[y_pos-1] == 1) 
          { 
              y_pos=check_duplicate(y_pos); 
          } 
          input_board_y(y_pos);     
          taken[y_pos -1] = 1;     
          check_gameover();         
          final_result_board();     
          if(gameover == 1)     
          { 
              break; 
          } 
      } 
      if(gameover == 0)  
      { 
          cout<<"Kura"<<endl; 
      } 
      final_result_board(); 
      getch(); 
  }


BUDA VB6 KODU OXO OYUNU 

Dim oyuncu1 As Boolean 
  Dim oyuncu2 As Boolean 
  Dim blnYeni As Boolean 
   
  Private Sub cmdClear_Click() 
  blnYeni = True 
  Clear 
  End Sub 
   
  Private Sub Form_Load() 
  blnYeni = True 
  Clear 
  End Sub 
   
  Private Sub grd_Click() 
   
  If blnYeni = False Then Exit Sub 
   
  With grd 
       
      If oyuncu1 = True Then 
          If .TextMatrix(.Row, .Col) = "" Then 
              .TextMatrix(.Row, .Col) = lblYes.Caption 
                  .CellBackColor = &H8080FF 
                  oyuncu1 = False 
                  oyuncu2 = True 
                  lbloyuncu1.FontUnderline = False 
                  lbloyuncu2.FontUnderline = True 
                  GoTo 10 
          End If 
      End If 
   
      If oyuncu2 = True Then 
          If .TextMatrix(.Row, .Col) = "" Then 
              .TextMatrix(.Row, .Col) = lblNo.Caption 
              .CellBackColor = &H80FF80 
               
              oyuncu1 = True 
              oyuncu2 = False 
              lbloyuncu1.FontUnderline = True 
              lbloyuncu2.FontUnderline = False 
              GoTo 10 
          End If 
      End If 
       
  10: 
      If oyuncu1 = False Then 
          If (.TextMatrix(0, 0) = lblYes.Caption) And (.TextMatrix(0, 1) = lblYes.Caption) And (.TextMatrix(0, 2) = lblYes.Caption) Then 
              MsgBox "Oyuncu 1 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(1, 0) = lblYes.Caption) And (.TextMatrix(1, 1) = lblYes.Caption) And (.TextMatrix(1, 2) = lblYes.Caption) Then 
              MsgBox "Oyuncu 1 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(2, 0) = lblYes.Caption) And (.TextMatrix(2, 1) = lblYes.Caption) And (.TextMatrix(2, 2) = lblYes.Caption) Then 
              MsgBox "Oyuncu 1 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(0, 0) = lblYes.Caption) And (.TextMatrix(1, 0) = lblYes.Caption) And (.TextMatrix(2, 0) = lblYes.Caption) Then 
              MsgBox "Oyuncu 1 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(0, 1) = lblYes.Caption) And (.TextMatrix(1, 1) = lblYes.Caption) And (.TextMatrix(2, 1) = lblYes.Caption) Then 
              MsgBox "Oyuncu 1 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(0, 2) = lblYes.Caption) And (.TextMatrix(1, 2) = lblYes.Caption) And (.TextMatrix(2, 2) = lblYes.Caption) Then 
              MsgBox "Oyuncu 1 Kazanan" 
              GoTo 20 
           
          ElseIf (.TextMatrix(0, 0) = lblYes.Caption) And (.TextMatrix(1, 1) = lblYes.Caption) And (.TextMatrix(2, 2) = lblYes.Caption) Then 
              MsgBox "Oyuncu 1 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(2, 0) = lblYes.Caption) And (.TextMatrix(1, 1) = lblYes.Caption) And (.TextMatrix(0, 2) = lblYes.Caption) Then 
              MsgBox "Oyuncu 1 Kazanan" 
              GoTo 20 
           
           
          End If 
      End If 
       
      If oyuncu2 = False Then 
          If (.TextMatrix(0, 0) = lblNo.Caption) And (.TextMatrix(0, 1) = lblNo.Caption) And (.TextMatrix(0, 2) = lblNo.Caption) Then 
              MsgBox "Oyuncu 2 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(1, 0) = lblNo.Caption) And (.TextMatrix(1, 1) = lblNo.Caption) And (.TextMatrix(1, 2) = lblNo.Caption) Then 
              MsgBox "Oyuncu 2 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(2, 0) = lblNo.Caption) And (.TextMatrix(2, 1) = lblNo.Caption) And (.TextMatrix(2, 2) = lblNo.Caption) Then 
              MsgBox "Oyuncu 2 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(0, 0) = lblNo.Caption) And (.TextMatrix(1, 0) = lblNo.Caption) And (.TextMatrix(2, 0) = lblNo.Caption) Then 
              MsgBox "Oyuncu 2 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(0, 1) = lblNo.Caption) And (.TextMatrix(1, 1) = lblNo.Caption) And (.TextMatrix(2, 1) = lblNo.Caption) Then 
              MsgBox "Oyuncu 2 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(0, 2) = lblNo.Caption) And (.TextMatrix(1, 2) = lblNo.Caption) And (.TextMatrix(2, 2) = lblNo.Caption) Then 
              MsgBox "Oyuncu 2 Kazanan" 
              GoTo 20 
               
          ElseIf (.TextMatrix(0, 0) = lblNo.Caption) And (.TextMatrix(1, 1) = lblNo.Caption) And (.TextMatrix(2, 2) = lblNo.Caption) Then 
              MsgBox "Oyuncu 2 Kazanan" 
              GoTo 20 
          ElseIf (.TextMatrix(2, 0) = lblNo.Caption) And (.TextMatrix(1, 1) = lblNo.Caption) And (.TextMatrix(0, 2) = lblNo.Caption) Then 
              MsgBox "Oyuncu 2 Kazanan" 
              GoTo 20 
          End If 
      End If 
   
      Exit Sub 
   
  End With 
   
  20: 
  blnYeni = False 
  If oyuncu1 = False Then 
      lblP1.Caption = Val(lblP1.Caption) + 1 
  ElseIf oyuncu2 = False Then 
      lblP2.Caption = Val(lblP2.Caption) + 1 
  End If 
  'Clear 
   
   
  End Sub 
   
  Public Sub Clear() 
      With grd 
          .ColWidth(0) = 1800 
          .ColWidth(1) = 1800 
          .ColWidth(2) = 1800 
           
          .RowHeight(0) = 1800 
          .RowHeight(1) = 1800 
          .RowHeight(2) = 1800 
           
          For i = 0 To 2 
              For j = 0 To 2 
                .Row = i 
                  .Col = j 
                  .CellAlignment = 4 
                  .CellBackColor = vbWhite 
                  .TextMatrix(i, j) = "" 
              Next j 
          Next i 
      End With 
  oyuncu1 = True 
  oyuncu2 = False 
   
  lbloyuncu1.FontUnderline = True 
  lbloyuncu2.FontUnderline = False 
   
  End Sub





< Bu mesaj bu kişi tarafından değiştirildi atekse -- 9 Nisan 2013; 1:30:07 >

A
atekse
13 yıl (22 mesaj)
Onbaşı
Konu Sahibi

quote:

Orijinalden alıntı: expertise

borsa programı lazım, yapabilir misin?

programinin ayrintilari nasil birsey olacak ayrintili anlat



T
tracjk
13 yıl (6 mesaj)
Er

PM attım yardımcı olur musun ?



K
koyukaranlık
13 yıl (610 mesaj)
Teğmen

Bana küçük ölçekli yaptığın programlardan arşivinde varsa bi kaç tane verir misin ? Küçük boyutlu program arşivi yapıyorum....Teşekkürler


Bu mesaja 2 cevap geldi.
E
expertise
13 yıl (24 mesaj)
Onbaşı

program yazarım diye mesaj atıyorsun
sonra anlat hadi nasıl yazayım diyorsun
bilmiyorsan niye ortaya atladın diyorum
senin gibiler yüzünden yardım alamıyorum diyorsun.

baştan söylesene: program yazmayı bilmiyorum yardım edin öğreneyim diye. böyle kıvırtmak da ayrı bir marifet olsa gerek.
güzel böyle devam et.


Bu mesaja 2 cevap geldi.
G
gencadam1
13 yıl (6 mesaj)
Er

http://forum.donanimhaber.com/m_73655992/tm.htm burada benim bir sorunum var yardımcı olabilir misiniz ?



A
atekse
13 yıl (22 mesaj)
Onbaşı
Konu Sahibi

quote:

Orijinalden alıntı: expertise

program yazarım diye mesaj atıyorsun
sonra anlat hadi nasıl yazayım diyorsun
bilmiyorsan niye ortaya atladın diyorum
senin gibiler yüzünden yardım alamıyorum diyorsun.

baştan söylesene: program yazmayı bilmiyorum yardım edin öğreneyim diye. böyle kıvırtmak da ayrı bir marifet olsa gerek.
güzel böyle devam et.

kardesim insanlari rencide edme ben insan gibi nasil olacagini sordum pragram nasil yazilacak nasil kodlanacak diye sormadim
burasi tartisma bolumu degil git tartisama bolumune



A
atekse
13 yıl (22 mesaj)
Onbaşı
Konu Sahibi

quote:

Orijinalden alıntı: koyukaranlık

Bana küçük ölçekli yaptığın programlardan arşivinde varsa bi kaç tane verir misin ? Küçük boyutlu program arşivi yapıyorum....Teşekkürler

baya var visual basic 6 ve c++ cuma gunu hepsini ubload edip linkini veririm


Bu mesaja 2 cevap geldi.
G
gotte2bache
13 yıl (237 mesaj)
Çavuş

pm




Bu mesajda bahsedilenler: @atekse
M
muratsal
13 yıl (701 mesaj)
Yüzbaşı

bir yazılım projesinde ilk önce analiz yapılır gereksinimler , user experince tarzı şeyler , sonra kodlamaya başlanabilir . yoksa projesi çizilmemiş bina gibi ortaya ne çıkacağı belli olmaz .

Arkadaşın demek istediği buydu sanırım .


Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @gotte2bache
U
Umutttttttt
13 yıl (90 mesaj)
Çavuş

Arkadaş Çok Teşekkürler Ne Kadar Emek Vermişsindir Çok Sağol



K
koyukaranlık
13 yıl (610 mesaj)
Teğmen

quote:

Orijinalden alıntı: atekse

quote:

Orijinalden alıntı: koyukaranlık

Bana küçük ölçekli yaptığın programlardan arşivinde varsa bi kaç tane verir misin ? Küçük boyutlu program arşivi yapıyorum....Teşekkürler

baya var visual basic 6 ve c++ cuma gunu hepsini ubload edip linkini veririm

Çok teşekkür ediyorum kardeş bekliyorum



S
Seviyeli Yarbay
13 yıl (13449 mesaj)
Yarbay

quote:

Orijinalden alıntı: atekse

quote:

Orijinalden alıntı: koyukaranlık

Bana küçük ölçekli yaptığın programlardan arşivinde varsa bi kaç tane verir misin ? Küçük boyutlu program arşivi yapıyorum....Teşekkürler

baya var visual basic 6 ve c++ cuma gunu hepsini ubload edip linkini veririm

ben de bekliyorum :)


Bu mesaja 1 cevap geldi.
B
BeMasterinCpp
13 yıl (125 mesaj)
Teğmen

sos oyunu ;

http://efekanpulatli.blogspot.com/2013/04/xox-game-0xhex.html


Bu mesaja 1 cevap geldi.
A
atekse
13 yıl (22 mesaj)
Onbaşı
Konu Sahibi

Visual C++ Code
Dosya adı: Visual_C++2010+Code.rar
Dosya boyutu: 234.78 MB
Yukle





< Bu mesaj bu kişi tarafından değiştirildi atekse -- 11 Nisan 2013; 20:25:37 >
Bu mesaja 1 cevap geldi.
A
atekse
13 yıl (22 mesaj)
Onbaşı
Konu Sahibi

Using-Inet1-FTP

full FTP Client Windows Application

VB6-Source-Code





< Bu mesaj bu kişi tarafından değiştirildi atekse -- 11 Nisan 2013; 20:33:21 >
Bu mesaja 1 cevap geldi.
A
Asetil Co A
13 yıl (3575 mesaj)
Yarbay

Bana da bir küçük oyun lazım. PM attım.


Bu mesaja 1 cevap geldi.
Donanım Sponsoru: incehesap.com
Yüklenme süresi: 0,219