Visual Basic Ufak Sorunlar
-
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 gösterilmesi gerekiyor her randomu tek tek label de gösteriyorum fakat bunları hafızada tutup en sonda kullanıcıya toplu olarak göstermesi 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 -
Forma göre otomatik konumlama için buna benzer bişey yapabilirsin, diğer sorunu tam anlamadım
Private Sub Form1_Resize(sender As Object, e As EventArgs) 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
-
@pSkpt hocamız sağolsun tw ile bağlanıp baya ilgilendi tekrardan teşekkürler
-
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ı Görev Yöneticisinde görünmesin istiyorum.
mümkün müdür böyle birşey...
-
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 gösterebilirim programda
-
Dim list As New List(Of String) list.Add("asdas") list.Add("65454") For Each veri In List Console.WriteLine(veri) Next
aradıgın bu galıba
-
lazz bunu yazdı
Dim list As New List(Of String) list.Add("asdas") list.Add("65454") For Each veri In List Console.WriteLine(veri) Next
aradıgın bu galıba
Private Sub Timer1_Tick(sender As Object, e As EventArgs) 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ş
-
TheAvenqer bunu yazdılazz bunu yazdı
Dim list As New List(Of String) list.Add("asdas") list.Add("65454") For Each veri In List Console.WriteLine(veri) Next
aradıgın bu galıba
Private Sub Timer1_Tick(sender As Object, e As EventArgs) 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
-
SettingZ bunu yazdıTheAvenqer bunu yazdılazz bunu yazdı
Dim list As New List(Of String) list.Add("asdas") list.Add("65454") For Each veri In List Console.WriteLine(veri) Next
aradıgın bu galıba
Private Sub Timer1_Tick(sender As Object, e As EventArgs) 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
-
Private
Sub
Timer1_Tick(sender
As
Object
, e
As
EventArgs)
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