Visual Basic'te On Numara Programı
Tarih
04/11/2010 15:03
Konu Sahibi
gitarc
Yorumlar
2
Okunma
2906
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy



gitarc
Aktif Üye
Kullanici Avatari
Aktif Üye
14
01/11/2010
0
Balıkesir
Ofis XP
02/07/2011,15:21
Sponsor Reklam
1 TANE BUTON,
10TANE TEXTBOX EKLİYORUZ
FORM SAYFASINA ÖNCELİKLE BİR Class AÇIYORUZ VE İÇİNE AŞAĞIDA TANIMLAMIŞ

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Public Class ON_NUMARA
Dim şans1, şans2, şans3, şans4, şans5, şans6, şans7, şans8, şans9, şans10, şans11, şans12, şans13, şans14, şans15, şans16, şans17, şans18, şans19, şans20, şans21, şans22

'---DAHA SONRA EKLEDİĞİMİZ BUTONA TIKLAYARAK(bendeki ismi buton1):---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = şans1
TextBox2.Text = şans2
TextBox3.Text = şans3
TextBox4.Text = şans4
TextBox5.Text = şans5
TextBox6.Text = şans6
TextBox7.Text = şans7
TextBox8.Text = şans8
TextBox9.Text = şans9
TextBox10.Text = şans10

şans1 = Int(Rnd(80) * 80)
If (şans1 = 0) Or (şans1 = şans2) Or (şans1 = şans3) Or (şans1 = şans4) Or (şans1 = şans5) Or (şans1 = şans6) Or (şans1 = şans7) Or (şans1 = şans8) Or (şans1 = şans9) Or (şans1 = şans10) Then
For i As Integer = 1 To 80
Randomize()
şans1 = Int(Rnd(80) * 80)
Next
End If
şans2 = Int(Rnd(80) * 80)
If (şans2 = 0) Or (şans2 = şans1) Or (şans2 = şans3) Or (şans2 = şans4) Or (şans2 = şans5) Or (şans2 = şans6) Or (şans2 = şans7) Or (şans2 = şans8) Or (şans2 = şans9) Or (şans2 = şans10) Then
For i As Integer = 1 To 80
Randomize()
şans2 = Int(Rnd(80) * 80)
Next
End If
şans3 = Int(Rnd(80) * 80)
If (şans3 = 0) Or (şans3 = şans1) Or (şans3 = şans2) Or (şans3 = şans4) Or (şans3 = şans5) Or (şans3 = şans6) Or (şans3 = şans7) Or (şans3 = şans8) Or (şans3 = şans9) Or (şans3 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans3 = Int(Rnd(80) * 80)
Next
End If
şans4 = Int(Rnd(80) * 80)
If (şans4 = 0) Or (şans4 = şans1) Or (şans4 = şans2) Or (şans4 = şans3) Or (şans4 = şans5) Or (şans4 = şans6) Or (şans4 = şans7) Or (şans4 = şans8) Or (şans4 = şans9) Or (şans4 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans4 = Int(Rnd(80) * 80)
Next
End If
şans5 = Int(Rnd(80) * 80)
If (şans5 = 0) Or (şans5 = şans1) Or (şans5 = şans2) Or (şans5 = şans3) Or (şans5 = şans4) Or (şans5 = şans6) Or (şans5 = şans7) Or (şans5 = şans8) Or (şans5 = şans9) Or (şans5 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans5 = Int(Rnd(80) * 80)
Next
End If
şans6 = Int(Rnd(80) * 80)
If (şans6 = 0) Or (şans6 = şans1) Or (şans6 = şans2) Or (şans6 = şans3) Or (şans6 = şans4) Or (şans6 = şans5) Or (şans6 = şans7) Or (şans6 = şans8) Or (şans6 = şans9) Or (şans6 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans6 = Int(Rnd(80) * 80)
Next
End If
şans7 = Int(Rnd(80) * 80)
If (şans7 = 0) Or (şans7 = şans1) Or (şans7 = şans2) Or (şans7 = şans3) Or (şans7 = şans4) Or (şans7 = şans5) Or (şans7 = şans6) Or (şans7 = şans8) Or (şans7 = şans9) Or (şans7 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans7 = Int(Rnd(80) * 80)
Next
End If
şans8 = Int(Rnd(80) * 80)
If (şans8 = 0) Or (şans8 = şans1) Or (şans8 = şans2) Or (şans8 = şans3) Or (şans8 = şans4) Or (şans8 = şans5) Or (şans8 = şans6) Or (şans8 = şans7) Or (şans8 = şans9) Or (şans8 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans8 = Int(Rnd(80) * 80)
Next
End If
şans9 = Int(Rnd(80) * 80)
If (şans9 = 0) Or (şans9 = şans1) Or (şans9 = şans2) Or (şans9 = şans3) Or (şans9 = şans4) Or (şans9 = şans5) Or (şans9 = şans6) Or (şans9 = şans7) Or (şans9 = şans8) Or (şans9 = şans10) Then
For g As Integer = 1 To 80
Randomize()
şans9 = Int(Rnd(80) * 80)
Next
End If
şans10 = Int(Rnd(80) * 80)
If (şans10 = 0) Or (şans10 = şans1) Or (şans10 = şans2) Or (şans10 = şans3) Or (şans10 = şans4) Or (şans10 = şans5) Or (şans10 = şans6) Or (şans10 = şans7) Or (şans10 = şans8) Or (şans10 = şans9) Then
For g As Integer = 1 To 80
Randomize()
şans10 = Int(Rnd(80) * 80)
Next
End If

End Sub

[/php]

PROGRAMMER MEHMET
Cevapla

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
22/12/2016,18:59
Teşekkürler Sn gitarc..
Cevapla

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Bugün,08:34
Sponsor Reklam
Emek ve paylaşım için teşekkürler.
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Visual Basic 6 952 Sayfa Kitap alpeki99 28 18.257 28/10/2015, 22:12 Mehmet Tolga Karaduman
  Visual Basic 6.0 Profesyonel Türkçe Eğitim Seti steeel 1 4.061 17/03/2014, 15:14 aydın3838
  Visual basic temel egitim seti chopper07 25 17.302 17/02/2012, 17:41 chopper07
  TheWayEnd Visual Basic Program ve Dersleri TheWayEnd 6 4.876 23/08/2011, 14:37 DUAYEN
  Visual Basic Menü Elemanları zihniates 5 4.072 08/01/2011, 15:18 Hayri16


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya