Tags-Etiketler
Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...
[ bul ] /
Makaleler-Article(s)
bul ile ilgili toplam 6 makale bulundu ! (A total of 6 article(s) about bul was(were) found in all of articles!)
| Article |
|---|
Ekran Çözünürlüğünü Bulmak
Bu makalede ekran çözünürlüğünü ve işlemci bit sayısını bulacağız. Aşağıdaki kodları
Formunuza yazın.
Form1.cs
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
namespace WindowsFormsApplication1
{
| TextBox ta Satır Numarasını Bulmak
Bu makalemizde Textbox nesnesinde imlecin bulunduğu satırın indeksini alacağız. Bununiçin MouseClick yordamına aşağıdaki kodları yazacağız. Şekil 1 i inceleyin.
Not: Satır numarası 0 dan başlayarak gidiyor... | Faktoriyel Bulmak
TextBox a girmiş olduğunuz sayının faktoriyelini bulur. Aşağıdaki şekili inceleyin.
Public Class Form1
Private Function faktoriyel()
Dim i As Integer
faktoriyel = 1
For i = 1 To TextBox1.Text
faktoriyel = faktoriyel * i
Next
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Val(TextBox1.Text) & "!=" & faktoriyel(), "Faktoriyel", MessageBoxButtons.OKCancel)
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN
| Çözünürlük Bulmak
Bilgisayarınızın ekranın çözünürlüğünü ve İşletim sisteminizin kaç bit olduğunu bulan program.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim en, boy, bit
en = Screen.PrimaryScreen.Bounds.Width
boy = Screen.PrimaryScreen.Bounds.Height
bit = Screen.PrimaryScreen.BitsPerPixel
MsgBox("Ekran Çözünürlüğü: " & en & "x" & boy & vbCrLf & "Bit:" & bit)
End Sub
End Class
Bir sonraki makalede buluşmak üzere. Bahadır ŞAHİN | Cümledeki Karakter, Boşluk ve Kelime Sayısını Bulmak
Bu örneğimizde TextBox taki cümledeki Karakter, Boşluk ve Kelime sayısını bulacağız.
Formunuza 1 adet TextBox, Button ve 3 adet Label ekleyin. Aşağıdaki şekli inceleyin.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "Cümledeki boşluk sayısı "
Label2.Text = "Cümledeki harf sayısı "
Label3.Text = "Cümledekı kelime sayısı "
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, f As String
Dim c, I, d, w, x As Integer
a = TextBox1.Text
c = Len(a)
LTrim(a)
For I = 1 To c
f = Mid(a, I, 2)
If f = Strings.Space(2) Then
d = d + 1
End If
Next
For I = 1 To c
f = Mid(a, I, 1)
If f = Strings.Space(1) Then
w = w + 1
Else
x = x + 1
End If
Next
Label1.Text = "Cümledeki boşluk sayısı: " & CStr(w)
Label2.Text = "Cümledeki harf sayısı: " & CStr(x)
Label3.Text = "Cümledekı kelime sayısı: " & CStr(w - d + 1)
d = 0
w = 0
x = 0
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır
| Doğum Gününü Bulma
Hangi gün doğduğunuzu bulan program. Weekday yordamını kullanarak doğum gününüzün hangi gün olduğunu öğreniyorsunuz.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d_tarih, gun
Show()
Do
d_tarih = InputBox("Doğum Tarihinizi Giriniz : ")
Loop While Not IsDate(d_tarih)
Select Case Weekday(d_tarih)
Case 1 : gun = "Pazar"
Case 2 : gun = "Pazartesi"
Case 3 : gun = "Salı"
Case 4 : gun = "Çarşamba"
Case 5 : gun = "Perşembe"
Case 6 : gun = "Cuma"
Case 7 : gun = "Cumartesi"
End Select
MsgBox(gun & " Günü Doğmuşsunuz")
End Sub
End Class
|
|
Sitede yayınlanan makaleleri
Blog sitemizden de takip edebilirsiniz.
Sitemizdeki makaleleri RSS olarak takip edebilirsiniz.