Articles by "yazılı dersler"
yazılı dersler etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
CPU Sıcaklığını Öğrenme

Merhaba arkadaşlar, 

Bu dersimizde system.management ile CPU sıcaklığını ölçmeyi öğreneceğiz.

İlk önce Projeye solution dan sağ tıklayıp; 

Add Reference -> .NET | System.Management çift tıklayarak ekliyoruz.
en başa:

Imports System.Management


Try Dim searcher As New ManagementObjectSearcher("rootWMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature") For Each queryObj As ManagementObject In searcher.Get() Dim sicak As Double = CDbl(queryObj("CurrentTemperature")) sicak = (sicak - 2732) / 10.0 Text = sicak.ToString & " °C" ' Başlıkta gösteriyoruz Next Catch MsgBox "CPU sıcaklığı okunamıyor !" End Try



Kolay Gelsim
Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Bu derste bilgisayar mikrofonunu kullanarak winmm.dll APIsi ile ses kaydetmeyi öğrenelim.


Imports System.Runtime.InteropServices
        <DllImport("winmm.dll", EntryPoint:="mciSendStringA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
        End Function
    Public Sub Kaydedici(ByVal islem As String, ByVal path As String, ByVal isim As String)
        If islem = "baslat" Then
            mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
            mciSendString("record recsound", "", 0, 0)
        ElseIf islem = "bitir" Then
            mciSendString("save recsound " & path & "/" & isim & ".wav", "", 0, 0)
            mciSendString("close recsound ", "", 0, 0)
        End If
    End Sub

Kaydı başlat kodu:
Kaydedici("baslat","","")

Kaydet ve bitir kodu :
Kaydedici("bitir","C:","ses_kaydi")


Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..

Çaldımız Müziği Listeye Eklemek



Bu dersimizde bir müzik çalarda çaldığımız müziği combobox'a liste olarak ekliyoruz. Combobox'tan seçtiğimizde o müzik açılacaktır.

Eklenecekler: 
  • 1 adet medi player
  • 1 adet openfiledialog
  • 1 adet button
  • 1 adet combobox




Dim metin1, metin2, aranan As String
        metin1 = TextBox1.Text
        metin2 = TextBox2.Text
        aranan = String.Compare(metin1, metin2)
        ListBox1.Items.Add(aranan)


Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..

Visual Basic'te Arama
Visual Basic'te metin içerisinde aramayı öğrenelim.

2 textbox, 1 button, 1 listbox. 1 çıkarsa var, 0 çıkarsa hepsi var. Buttona yapıştırıyoruz:

Dim metin1, metin2, aranan As String
        metin1 = TextBox1.Text
        metin2 = TextBox2.Text
        aranan = String.Compare(metin1, metin2)
        ListBox1.Items.Add(aranan)


Kolay Gelsin

Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..


VB İle XML Kullanımı
Merhaba arkadaşlar,

Bu dersimizde VB ile XML dosyaları üzerinde işlem yapmayı anlatacağım.

Kullanacağımız namespace:
Imports System.Xml

Controls:

ListBox : ListBox1

XML Kullanımı :

Dim icerik As New Xml.XmlDocument
icerik.Load("C:Verilerbelge.xml")
Dim r = icerik.GetElementByTagName("item")
For i = 0 To icerik.Count - 1
            ListBox1.Items.Add(r(i).InnerText)
Next

VB.NET ile kodu yazdığınızda içerik. yazarken . (nokta) yazınca kod listesi açılır. XmlDocument'in tüm property ve metodlarını görebilirsiniz. Bu örnek ile xml'den veri okuyoruz.

belge.xml :

<?xml version="1.0" encoding="ISO-8859-9"?>
<data>
 <item id="Item 1">Birinci Veri</item>
 <item id="Item 2">İkinci Veri</item>
</data>

Kolay Gelsin

Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..

 Açıklama: Eşleşen tüm bağlantıları serbest bırakır. Yani internet bağlantısını keser ...


Shell "ipconfig /release"


Tüm Bağlantıları Yeniler. Tekrar ip adresi alıp internete bağlar..
Shell "ipconfig /renew"
Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
<!---vbdersleri.tr.gg kod başlangıc--->mciexecute("set cdaudio dorr open") bu açma 

mciexecute("set cdaudio dorr closed") bu kapamasalih biniciniğde 

<SCRIPT LANGUAGE="JavaScript">
<!--
Code0 = "%3Cp%3E%3Cfont%20size%3D%221%22%3E%3Cspan%20style%3D%22background-color%3A%20%23FFFFFF%22%3E%0D%0A%3Ca%20href%3D%22http%3A//www.vbdersleri.tr.gg/%22%3ESitene%20Ekle%3C/a%3E%3C/span%3E%3C/font%3E%3C/p%3E";
document.write(unescape(Code0));
//-->
</SCRIPT>
<!---vbdersleri.tr.gg kod bitişi--->
Continue reading
Kaydol: Kayıtlar (Atom)