Sa visual basic'de ufak bir program yazmam gerekti herşeyi hallettim fakat oluşturduğum form tam ekran açılıyor benim istediğim şey ise formun içinde bulunan label button ve textboxların otomatik olarak ortalanması Edit: direk konumunu ayarlamam mumkunse o çok daha iyi olur mesela tüm ekran dikeyde %100 olsun benim label im üstten %5 oranında aşağıda olsun tarzı ek olarak 1 ile 9 arasında 9 tane sayıyı random attırıyorum timer in içinde bu attığı 9 sayının bir şekilde kullanıcıya gsterilmesi gerekiyor her randomu tek tek label de gsteriyorum fakat bunları hafızada tutup en sonda kullanıcıya toplu olarak gstermesi lazım Bu şekil ufak tefek 1-2 sorunum var skype dan yardımcı olabilecek varsa çok daha güzel olur TheAvenqer tarafından 03/Ara/17 20:28 tarihinde düzenlenmiştir Bot ve lisans ihtiyaçlarınız için pm atınız.

yeni başlık açmadan bende bir soru sorayım. visual basic te RESOURCES aracılığı ile bir exe dosyasını çalıştırıyorum. bu exe dosyası işini yapıp kapanıyor. ama bu çalışan exe dosyası Grev Yneticisinde grünmesin istiyorum. mümkün müdür byle birşey... Yaşa, l...

Dim list As New List list. Add list. Add("65454") For Each veri In List Console. WriteLine Next aradıgın bu galıba

Dim list As New List list. Add list. Add("65454") For Each veri In List Console. WriteLine Next aradıgın bu galıba Private Sub Timer1_Tick Handles Timer1. Tick sayac += 1 Randomize lbl_num_1. Text = Int(Rnd 10) lbl_islem_1. Text = Int(Rnd 4) If lbl_islem_1. Text = "1" Then lbl_islem_1. Text = "+" ElseIf lbl_islem_1. Text = "2" Then lbl_islem_1. Text = "-" ElseIf lbl_islem_1. Text = "0" Then lbl_islem_1. Text = "x" Else lbl_islem_1. Text = "/" End If If sayac = 9 Then Timer1. Enabled = False btn_stop. Visible = False btn_bitir. Visible = False btn_start. Visible = True End If End Sub mesela burdaki her randomu kaydetmek istiyorum 9 tane random tamamlanınca atılan 9 randomun her bir değerini labele yazdırmak istiyorumki kullanıcı nünden hızlıca geçen sayılardan kaçını aklında tutmuş Bot ve lisans ihtiyaçlarınız için pm atınız.

lazz bunu yazdı Dim list As New List list. Add list. Add("65454") For Each veri In List Console. WriteLine Next aradıgın bu galıba Private Sub Timer1_Tick Handles Timer1. Tick sayac += 1 Randomize lbl_num_1. Text = Int(Rnd 10) lbl_islem_1. Text = Int(Rnd 4) If lbl_islem_1. Text = "1" Then lbl_islem_1. Text = "+" ElseIf lbl_islem_1. Text = "2" Then lbl_islem_1. Text = "-" ElseIf lbl_islem_1. Text = "0" Then lbl_islem_1. Text = "x" Else lbl_islem_1. Text = "/" End If If sayac = 9 Then Timer1. Enabled = False btn_stop. Visible = False btn_bitir. Visible = False btn_start. Visible = True End If End Sub mesela burdaki her randomu kaydetmek istiyorum 9 tane random tamamlanınca atılan 9 randomun her bir değerini labele yazdırmak istiyorumki kullanıcı nünden hızlıca geçen sayılardan kaçını aklında tutmuş her randomu oluştururken listeye at hocam sonra listeyi çağır gerektiğinde başka türlü olmaz Fortçu Gandalf..

Forma gre otomatik konumlama için buna benzer bişey yapabilirsin, diğer sorunu tam anlamadım Private Sub Form1_Resize Handles MyBase. Resize Button1. Top = Me. Height / 2 Label1. Top = Me. Height / 2 Button1. Left = Me. Width / 2 + Button1. Width / 2 + Label1. Width / 2 Label1. Left = Me. Width / 2 - Label1. Width / 2 - Button1. Width / 2 End Sub ADSIZ tarafından 03/Ara/17 21:43 tarihinde düzenlenmiştir

TheAvenqer bunu yazdı lazz bunu yazdı Dim list As New List list. Add list. Add("65454") For Each veri In List Console. WriteLine Next aradıgın bu galıba Private Sub Timer1_Tick Handles Timer1. Tick sayac += 1 Randomize lbl_num_1. Text = Int(Rnd 10) lbl_islem_1. Text = Int(Rnd 4) If lbl_islem_1. Text = "1" Then lbl_islem_1. Text = "+" ElseIf lbl_islem_1. Text = "2" Then lbl_islem_1. Text = "-" ElseIf lbl_islem_1. Text = "0" Then lbl_islem_1. Text = "x" Else lbl_islem_1. Text = "/" End If If sayac = 9 Then Timer1. Enabled = False btn_stop. Visible = False btn_bitir. Visible = False btn_start. Visible = True End If End Sub mesela burdaki her randomu kaydetmek istiyorum 9 tane random tamamlanınca atılan 9 randomun her bir değerini labele yazdırmak istiyorumki kullanıcı nünden hızlıca geçen sayılardan kaçını aklında tutmuş her randomu oluştururken listeye at hocam sonra listeyi çağır gerektiğinde başka türlü olmaz Hocam normalde visual basic kullanmiyorum python kullaniyorum pythonda rahat yaparim fakat vbnet de bir turlu beceremedim Bot ve lisans ihtiyaçlarınız için pm atınız.

Private Sub Timer1_Tick Handles Timer1. Tick sayac += 1 Randomize lbl_num_1. Text = Int(Rnd 10) lbl_islem_1. Text = Int(Rnd 4) If lbl_islem_1. Text = "1" Then lbl_islem_1. Text = "+" ElseIf lbl_islem_1. Text = "2" Then lbl_islem_1. Text = "-" ElseIf lbl_islem_1. Text = "0" Then lbl_islem_1. Text = "x" Else lbl_islem_1. Text = "/" End If list. add( lbl_islem_1. Text) >>> Buraya Eklersen Tamamdır. If sayac = 9 Then Timer1. Enabled = False btn_stop. Visible = False btn_bitir. Visible = False btn_start. Visible = True End If End Sub

Son 2 sorun kaldı galiba liste yaratıyorum listeye random 9 sayıyı ekletiyorum fakat listeyi nasıl ekrana yazdıracağımı bilmiyorum yardım edebilecek var mı birde nasıl random resim gsterebilirim programda Bot ve lisans ihtiyaçlarınız için pm atınız.

@pSkpt hocamız sağolsun tw ile bağlanıp baya ilgilendi tekrardan teşekkürler Bot ve lisans ihtiyaçlarınız için pm atınız.