Visual Basic'te On Numara Programı
Tarih
04/11/2010 15:03
Konu Sahibi
gitarc
Yorumlar
2
Okunma
2875
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
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
Dün,23:51
Teşekkürler Sn gitarc..
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
05/12/2016,09:18
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 17.903 28/10/2015, 22:12 Mehmet Tolga Karaduman
  Visual Basic 6.0 Profesyonel Türkçe Eğitim Seti steeel 1 3.949 17/03/2014, 15:14 aydın3838
  Visual basic temel egitim seti chopper07 25 17.043 17/02/2012, 17:41 chopper07
  TheWayEnd Visual Basic Program ve Dersleri TheWayEnd 6 4.778 23/08/2011, 14:37 DUAYEN
  Visual Basic Menü Elemanları zihniates 5 4.009 08/01/2011, 15:18 Hayri16


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