THT DUYURU

 
 
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

labele yazdırma ?

1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
48
Ticaret:
(0) %
10
604
20-11-2012 17:41
#1
arkadaşlar ben bi şey yazdıgımda seçtiklerimden rast gele gelmesini istiyorum mesela

selamın aleyküm yazınca texte labelde as yada aleyküm selam demesini sitiyorum bu nasıl mümkün olur acaba ?
GravityForce - ait Kullanıcı Resmi (Avatar)
Yardımsever
Üyelik tarihi:
08/2012
Nereden:
____________
Yaş:
25
Mesajlar:
4.791
Konular:
648
Teşekkür (Etti):
813
Teşekkür (Aldı):
1372
Ticaret:
(0) %
20-11-2012 17:48
#2
1 buton 1 text ve 1 label ekle

bu kodu yapıştır.

Private Sub Command1_Click()
If Text1.Text = "Sa" Then
Label1.Caption = "As"
End If

End Sub



Kırmızı yerleri kendine göre ayarla
1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
48
Ticaret:
(0) %
20-11-2012 17:51
#3
Alıntı:
CeSaReT45´isimli üyeden Alıntı Mesajı göster
1 buton 1 text ve 1 label ekle

bu kodu yapıştır.

Private Sub Command1_Click()
If Text1.Text = "Sa" Then
Label1.Caption = "As"
End If

End Sub



Kırmızı yerleri kendine göre ayarla
benim aradıgım bu deil label1.Caption = "Sa" Or "As" yapıyorum bu şekilde ikisinden birinin olmasını istiyorum kendi seçecek şansa :S
Validate - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Mesajlar:
228
Konular:
21
Teşekkür (Etti):
67
Teşekkür (Aldı):
45
Ticaret:
(0) %
20-11-2012 17:51
#4
Butona tıklayarak gelebilir o.
Label1 Aleykum Selam olsun
Butona şu kodları yaz.

Kod:
If TextBox1.Text = "Selamun Aleykum" Then
Label1.Visible = True
Else
Label1.Visible = False
MsgBox("Selam vermedin!",MsgBoxStyle.Critical)
GravityForce - ait Kullanıcı Resmi (Avatar)
Yardımsever
Üyelik tarihi:
08/2012
Nereden:
____________
Yaş:
25
Mesajlar:
4.791
Konular:
648
Teşekkür (Etti):
813
Teşekkür (Aldı):
1372
Ticaret:
(0) %
20-11-2012 17:53
#5
"selamın aleyküm yazınca texte labelde as yada aleyküm selam demesini sitiyorum"

Senin cümlen bu. Verdiğim kodda texte yazınca labele As yazıyor
xAnkax - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
10/2012
Mesajlar:
216
Konular:
32
Teşekkür (Etti):
67
Teşekkür (Aldı):
43
Ticaret:
(0) %
20-11-2012 17:55
#6
If Text1.Text = "Sa" Then
dim i as byte
randomize
i= cint(rnd*1)
if i = 1 then
Label1.Caption = "As"
elseif i=0 then
Label1.Caption = "Aleyküm selam"
end if
End If
1zaza12x Teşekkür etti.
1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
48
Ticaret:
(0) %
20-11-2012 17:56
#7
Alıntı:
Validate´isimli üyeden Alıntı Mesajı göster
Butona tıklayarak gelebilir o.
Label1 Aleykum Selam olsun
Butona şu kodları yaz.
Kod:
If TextBox1.Text = "Selamun Aleykum" Then
Label1.Visible = True
Else
Label1.Visible = False
MsgBox("Selam vermedin!",MsgBoxStyle.Critical)
bu butonsuzda oluyor işte bu şekilde
Kod:
Private Sub Text1_Change()
If Text1.Text = "selamın aleyküm" Then
Label1.Caption = "aleyüm selam"
End If
End Sub
yani aradığım bu deil :S
1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
48
Ticaret:
(0) %
20-11-2012 17:57
#8
Alıntı:
CeSaReT45´isimli üyeden Alıntı Mesajı göster
"selamın aleyküm yazınca texte labelde as yada aleyküm selam demesini sitiyorum"

Senin cümlen bu. Verdiğim kodda texte yazınca labele As yazıyor
ben as veya aleyküm selam diye labelin kendi kendine birini seçmesini istyorum yani ikinci sa yazdıgımda gene aynı şeyi demicek
xAnkax - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
10/2012
Mesajlar:
216
Konular:
32
Teşekkür (Etti):
67
Teşekkür (Aldı):
43
Ticaret:
(0) %
20-11-2012 17:58
#9
zaza kardeş cevap verdim
1zaza12x Teşekkür etti.
1zaza12x - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2012
Nereden:
samsun
Mesajlar:
229
Konular:
41
Teşekkür (Etti):
34
Teşekkür (Aldı):
48
Ticaret:
(0) %
20-11-2012 17:59
#10
Alıntı:
xAnkax´isimli üyeden Alıntı Mesajı göster
If Text1.Text = "Sa" Then
dim i as byte
randomize
i= cint(rnd*1)
if i = 1 then
Label1.Caption = "As"
elseif i=0 then
Label1.Caption = "Aleyküm selam"
end if
End If
işte aradığım bu saol kardeşim teşekkürünü aldın
xAnkax Teşekkür etti.

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler