AnasayfaAnasayfa  PortalliPortalli  TakvimTakvim  GaleriGaleri  SSSSSS  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  AramaArama  Kayıt OlKayıt Ol  Giriş yap  

Paylaş | 
 

 basic de sayı tahmin oyunu

Aşağa gitmek 
YazarMesaj
Rukiye
Yönetici
Yönetici
avatar

Kadın
Mesaj Sayısı : 787
Yaş : 29
İş: : Bilgisayar Teknikeri
Lakabı : Filozof
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 30/09/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)
MesajKonu: basic de sayı tahmin oyunu   Perş. Mart 27, 2008 10:48 am

Dim SAYI As Integer
Dim TAHMINLER(19 1) As Integer
Dim SAYAC As Integer
Private Function PUANLAMA(say1 As Integer say2 As Integer) As Integer
PUANLAMA = 0
ASILSAYI = Right("000" & CStr(say2) 4)
TAHMINSAYI = Right("000" & CStr(say1) 4)

Private Sub TAHMIN()
Dim URETILENSAYI As Integer KONTROL As Integer
URETILENSAYI = CStr(CInt(Rnd * 9999))
KONTROL = URETILENSAYI
Do
SAYIDOGRU = True
URETILENSAYI = (URETILENSAYI + 1) Mod 10000
For i = 0 To SAYAC - 1
c = PUANLAMA(URETILENSAYI TAHMINLER(i 0))
If c <> TAHMINLER(i 1) Then SAYIDOGRU = False
Next
If URETILENSAYI = KONTROL Then
MsgBox "BEKLENMEYEN HATA"
Exit Sub
End If
Loop Until SAYIDOGRU = True
TAHMINLER(SAYAC 0) = URETILENSAYI
Text1.Text = URETILENSAYI
End Sub

Private Sub Command1_Click()
On Error Resume Next
SAYI = CInt(Text2.Text)
If Err.Number <> 0 Then
MsgBox "Tminde bulunduğunuz sayı hatalı..."
Exit Sub
ElseIf SAYI > 40 Then
MsgBox "Puantaj değeri 40 dan büyük olz..."
Exit Sub
End If
TAHMINLER(SAYAC 1) = SAYI
SAYAC = SAYAC + 1
TAHMIN
End Sub
Private Sub Form_Load()
SAYAC = 0
TAHMIN
End Sub

inşallah bunlardan çıkmaz

_________________
Aşk yarım
Ben yarım
Her şey yarım
Dışarıda sensiz bir pazartesi
Yeniden başlamak lazım
Hatırlamamak en iyisi!!!!
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
[ChatlaK]
Sitenin ÇatLağı
avatar

Kadın
Mesaj Sayısı : 794
Yaş : 29
Location : yErİn dİbİ
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 27/09/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)

MesajKonu: Geri: basic de sayı tahmin oyunu   Perş. Mart 27, 2008 11:21 am

inş çıkmaz çıkarsa yandığımızın resmidir yada bunlardan çıksın en azından aşinayız ya başka bi oyun sorarsa
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
Rukiye
Yönetici
Yönetici
avatar

Kadın
Mesaj Sayısı : 787
Yaş : 29
İş: : Bilgisayar Teknikeri
Lakabı : Filozof
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 30/09/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)
MesajKonu: Geri: basic de sayı tahmin oyunu   Ptsi Mart 31, 2008 10:56 am

en güzel oyunu hoca oynadı bu kadar da olmaz ki çileden çıkarıyolar insanı

_________________
Aşk yarım
Ben yarım
Her şey yarım
Dışarıda sensiz bir pazartesi
Yeniden başlamak lazım
Hatırlamamak en iyisi!!!!
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
[ChatlaK]
Sitenin ÇatLağı
avatar

Kadın
Mesaj Sayısı : 794
Yaş : 29
Location : yErİn dİbİ
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 27/09/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)

MesajKonu: Geri: basic de sayı tahmin oyunu   Ptsi Mart 31, 2008 12:24 pm

evet en güzel oyunu profesyonel.........çocuğu oynadı oynasın bakalım gün olur devran dönerrrrrr

(Yakında banlanacam) Yöneticilerden seven varmıydı bu hocayı
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
Rukiye
Yönetici
Yönetici
avatar

Kadın
Mesaj Sayısı : 787
Yaş : 29
İş: : Bilgisayar Teknikeri
Lakabı : Filozof
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 30/09/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)
MesajKonu: Geri: basic de sayı tahmin oyunu   Salı Nis. 01, 2008 10:54 am

en banlama meraklısı benim hiç şakam yok

_________________
Aşk yarım
Ben yarım
Her şey yarım
Dışarıda sensiz bir pazartesi
Yeniden başlamak lazım
Hatırlamamak en iyisi!!!!
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
Mustafa
Gag
avatar

Erkek
Mesaj Sayısı : 237
Location : Tokat
İş: : Ordu Mensubu
Lakabı : Musty
Tuttuğunuz Takım? :
Ruh Halin? :
Ülkem :
Kayıt tarihi : 10/10/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)

MesajKonu: Geri: basic de sayı tahmin oyunu   Salı Nis. 01, 2008 11:28 am

Hiç Şakası Yok Anında Yapar gözü karadır Smile
Güzel bi Oyun ama Kodlardan anlamayan arkadaşlar vardır illaki Açıklama Yapıp Onlarıda Aydınlatmak Gerek Benceee..
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
[ChatlaK]
Sitenin ÇatLağı
avatar

Kadın
Mesaj Sayısı : 794
Yaş : 29
Location : yErİn dİbİ
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 27/09/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)

MesajKonu: Geri: basic de sayı tahmin oyunu   Salı Nis. 01, 2008 11:49 am

bizde anlamıyoruz çoğu kodları nasıl açıklayacağız

banlama işide istediğini yapsın zararı kendisine bulamaz bu site ben gibisini :y03:sırf bu yüzden banlayacaksa buyursun
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
Rukiye
Yönetici
Yönetici
avatar

Kadın
Mesaj Sayısı : 787
Yaş : 29
İş: : Bilgisayar Teknikeri
Lakabı : Filozof
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 30/09/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)
MesajKonu: Geri: basic de sayı tahmin oyunu   Salı Nis. 01, 2008 2:34 pm

KenanizM demiş ki:
Hiç Şakası Yok Anında Yapar gözü karadır Smile
Güzel bi Oyun ama Kodlardan anlamayan arkadaşlar vardır illaki Açıklama Yapıp Onlarıda Aydınlatmak Gerek Benceee..

şekerim sen anlamazsın bunlar ince işler sen git elektronik devre yap transistörlere bak falan ....

açıklama satırı yok kodlar bu yaz çalıştır anlarsın

_________________
Aşk yarım
Ben yarım
Her şey yarım
Dışarıda sensiz bir pazartesi
Yeniden başlamak lazım
Hatırlamamak en iyisi!!!!
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
_OsLeM_
Co-Admin
Co-Admin
avatar

Kadın
Mesaj Sayısı : 425
Yaş : 30
İş: : ßiraz Ondan, ßiraz ßundan.. Falan Filan...
Tuttuğunuz Takım? :
Ruh Halin? :
Kayıt tarihi : 26/09/07

Kişi sayfası
Başarı Puanı:
0/0  (0/0)
Seviye:
0/0  (0/0)
Güçlülük:
0/0  (0/0)
MesajKonu: Geri: basic de sayı tahmin oyunu   Salı Nis. 01, 2008 2:50 pm

çıkmadı canım çıkmadı ama daha beterinden çıktı.. bakalım internet sınavında bizleri ne gibi sürprizler beklior..
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://www.gopforum.okuyoruz.biz
 
basic de sayı tahmin oyunu
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» mağazacılık oyunu
» Deer Drive Avcılık Oyunu Full Tek Link No Rapid
» Karanlık Hapıs

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Gazi Osman Pasa :: Bilgisayar/ Teknoloji Dünyası :: Yazılım :: Visual Basic-
Buraya geçin: