NPC Info v1.0 [ Ilk VB.Net Projem .. ] + [ Source ]

TrayhopeR
Konu Yazar

TrayhopeR

www.trayhoper.net
May
2,830
62
Ben şu " Ilk editörüm , yorumlarınızı esirgemeyin" muhabbetine girmeyeceğim çünkü ilk editörüm değil :D Visual Basic.Net de yazdığım ilk projem.Daha önce C# ta drop list maker ı tekrar yazmıştım ama kodların arasında o kadar çok sıkıldım ki uraşmaktan , sildim gitti projeyi :D

Belki tekrar yazarsam burada paylaşırım.Öncelikle aşağıdaki program ne işe yarıyor onu bi anlatayım.Program npcleri listeliyor ve npclerin bazı bilgilerini okuyup forma yazdırıyor :pff: Biliyorum gereksiz bi proje belki ama sizde eğer bir programlama dili öğrenmek istiyorsanız bu tür ufak projelerden başlayarak kendinizi geliştirmelisiniz.Daha programlamanın p sini bilmeyen insanlar direkt editör yazıp sql ile bağlantı kurmaya çalışıyor.Emeklemeden yürümek isteyen insanlar hiçbir zaman gerçek programcı olamayacaktır bunu unutmayın.

Neyse :pff: Programın kodları ve sourceları aşağıdadır.Programdan bir SS :

38135055.jpg


Ilk açılan formda database (db) adını yazın ve bağlana veya entera tıklayın.Soldaki npc lerden istediğinizi seçin ve bilgilerini okuyun Hönk Programın çalışabilmesi için bilgisayarınızda .Net Framework 3.5 yüklü olması gerekir ...

: Download :
RapidShare: 1-CLICK Web hosting - Easy Filehosting
NPC Info.rar ... at uploaded.to - Free File Hosting, Free Image Hosting, Free Music Hosting, Free Video Hosting, ...

: Source Download : ( VS 2021 )
WindowsApplication1.rar ... at uploaded.to - Free File Hosting, Free Image Hosting, Free Music Hosting, Free Video Hosting, ...

Kod: 
Imports System.Data.SqlClient
Public Class Form
    Dim conn As New SqlConnection
    Dim cmd As New SqlCommand
    Dim rst As SqlDataReader
    Dim ItemAdi, SkillAdi As String
    Dim i As Integer
    Dim BolgeID, Bolge, X, Y, ReSpawn As String


    Public Sub Baglan()
        If Not conn.State = ConnectionState.Open Then
            Try
                conn.ConnectionString = "Data Source=(local);Initial Catalog=" & TextBox1.Text & ";MultipleActiveResultSets=True;Integrated Security=True"
                conn.Open()
                cmd.Connection = conn
            Catch ex As Exception
                MessageBox.Show("Veritabanına Bağlanılamıyor ! Hata Mesajı : " & vbCrLf & ex.Message)
                Application.Exit()
            End Try

        End If
    End Sub

    Private Sub Form_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        Application.Exit()

    End Sub

    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Baglan()
        cmd.CommandText = "SELECT * FROM K_NPC"
        rst = cmd.ExecuteReader
        While rst.Read()
            ListBox1.Items.Add((rst("strName")))
        End While
        cmd.Dispose()
        rst.Close()
        P1.Value = "100"
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim NPC As String
        NPC = ListBox1.Text
        If NPC = vbNullString Then
            MsgBox("Boş Bir NPC Nin  Bilgilerini Okuyamazsınız !", MsgBoxStyle.Critical)
            Exit Sub
        End If
        cmd.CommandText = "SELECT * FROM K_NPC WHERE strName = '" & NPC & "'"
        rst = cmd.ExecuteReader()
        rst.Read()
        Label1.Text = "NPC Adı : " & rst("strName")
        If rst("sSize") > "100" Then
            Label3.Text = "NPC Boyutu : " & Int(rst("sSize") - 100) & " Daha Büyük"
        ElseIf rst("sSize") = "100" Then
            Label3.Text = "NPC Boyutu : " & "Normal"
        ElseIf rst("sSize") < "100" Then
            Label3.Text = "NPC Boyutu : " & Int(100 - rst("sSize")) & " Daha Küçük"
        End If
        If Not rst("iWeapon1") = "0" Then
            SilahBul(rst("iWeapon1"))
            Label2.Text = "NPC Silahı : " & ItemAdi
        Else
            Label2.Text = "NPC Silahı : " & "Silah Yok"
        End If
        Select Case rst("byGroup")
            Case Is = "1"
                Label4.Text = "NPC Irkı : Karus"
            Case Is = "2"
                Label4.Text = "NPC Irkı : El - Morad"
            Case Is = "0"
                Label4.Text = "NPC Irkı : Tarafsız"
        End Select
        Select Case rst("byActType")
            Case Is = "7"
                Label5.Text = "NPC Durumu : Agresif"
            Case Is = "1"
                Label5.Text = "NPC Durumu : Dost"
            Case Is = "0"
                Label5.Text = "NPC Durumu : Hareketsiz"
            Case Is = "5"
                Label5.Text = "NPC Durumu : Saldırgan"
        End Select
        Label23.Text = "NPC Görevi : EVT & ??"
        Select Case rst("ByType")
            Case Is = "22"
                Label23.Text = "NPC Görevi : Sundries"
            Case Is = "21"
                Label23.Text = "NPC Görevi : Armor & Weapon & Accesory"
            Case Is = "31"
                Label23.Text = "NPC Görevi : Inn Hostess"
            Case Is = "78"
                Label23.Text = "NPC Görevi : Item Rental"
        End Select
        Label6.Text = "NPC National Point : " & rst("iLoyalty")
        Label7.Text = "NPC Level : " & rst("sLevel")
        Label8.Text = "NPC National Exp : " & rst("iExp")
        Label9.Text = "NPC HP Point : " & rst("iHpPoint")
        Label10.Text = "NPC MP Point : " & rst("sMpPoint")
        Label11.Text = "NPC Atağı : " & rst("sAtk")
        Label12.Text = "NPC Defansı : " & rst("sAc")
        SkillAdi = "NPC Skilli : ???"
        If Not rst("iMagic1") = "0" Then
            SkillBul(rst("iMagic1"))
            Label14.Text = "NPC Skilli : " & SkillAdi
        Else
            Label14.Text = "NPC Skilli : Yok"
        End If
        Label16.Text = "NPC Flame Resistance : " & rst("sFireR")
        Label17.Text = "NPC Light Resistance : " & rst("sLightningR")
        Label18.Text = "NPC Ice Resistance : " & rst("sColdR")
        Label22.Text = "NPC Magic Resistance : " & rst("sMagicR")
        DropDoldur(rst("sSid"))
        NPCPos(rst("sSid"))
        ZoneBul(BolgeID)
        Label19.Text = "NPC Bölgesi : " & Bolge
        cmd.Dispose()
        rst.Close()
    End Sub
    Public Sub SilahBul(ByVal ItemKodu As String)
        Dim cmd2 As New SqlCommand
        Dim rst2 As SqlDataReader
        conn.Close()
        conn.Open()
        cmd2.Connection = conn
        cmd2.CommandText = "SELECT strName FROM ITEM WHERE Num = '" & ItemKodu & "'"
        rst2 = cmd2.ExecuteReader
        rst2.Read()
        ItemAdi = rst2("strName")
        cmd2.Dispose()
        rst2.Close()
        Kontrol()
    End Sub
    Public Sub SkillBul(ByVal SkillKodu As String)
        Dim cmd3 As New SqlCommand
        Dim rst3 As SqlDataReader
        conn.Close()
        conn.Open()
        cmd3.Connection = conn
        cmd3.CommandText = "SELECT EnName FROM MAGIC WHERE MagicNum = '" & SkillKodu & "'"
        rst3 = cmd3.ExecuteReader
        rst3.Read()
        SkillAdi = rst3("EnName")
        cmd3.Dispose()
        rst3.Close()
        Kontrol()
    End Sub
    Public Sub NPCPos(ByVal sSid As String)
        Dim cmd4 As New SqlCommand
        Dim rst4 As SqlDataReader
        conn.Close()
        conn.Open()
        cmd4.Connection = conn
        Try
            cmd4.CommandText = "SELECT * FROM K_NPCPOS WHERE NPCID = '" & sSid & "'"
            rst4 = cmd4.ExecuteReader
            rst4.Read()
            BolgeID = rst4("ZoneID")
            X = rst4("LeftX")
            Y = rst4("TopZ")
            ReSpawn = rst4("RegTime")
            Label20.Text = "NPC Kordinatları : " & X & "," & Y
            Label21.Text = "NPC ReSpawn : " & ReSpawn & " Saniye"
            cmd4.Dispose()
            rst4.Close()
            Kontrol()
        Catch ex As Exception
            Label19.Text = "NPC Bölgesi : ???"
            Label20.Text = "NPC Kordinatları : ?,?"
            Label21.Text = "NPC ReSpawn : ??"
        End Try
        Kontrol()
    End Sub
    Public Sub DropDoldur(ByVal sIndex As String)
        Dim cmd5 As New SqlCommand
        Dim rst5 As SqlDataReader
        ListBox2.Items.Clear()
        conn.Close()
        conn.Open()
        cmd5.Connection = conn
        cmd5.CommandText = "SELECT * FROM K_NPC_ITEM WHERE sIndex = '" & sIndex & "'"
        rst5 = cmd5.ExecuteReader
        While rst5.Read
            Try
                If Not rst5("iItem01") = "0" Then
                    ListBox2.Items.Add(rst5("iItem01") & " -  %" & Int(rst5("sPersent01") / 100))
                End If
                If Not rst5("iItem02") = "0" Then
                    ListBox2.Items.Add(rst5("iItem02") & " -  %" & Int(rst5("sPersent02") / 100))
                End If
                If Not rst5("iItem03") = "0" Then
                    ListBox2.Items.Add(rst5("iItem03") & " -  %" & Int(rst5("sPersent03") / 100))
                End If
                If Not rst5("iItem04") = "0" Then
                    ListBox2.Items.Add(rst5("iItem04") & " -  %" & Int(rst5("sPersent04") / 100))
                End If
                If Not rst5("iItem05") = "0" Then
                    ListBox2.Items.Add(rst5("iItem05") & " -  %" & Int(rst5("sPersent05") / 100))
                End If
            Catch ex As Exception
                MsgBox("Droplar Okunurken Hata Olustu !", MsgBoxStyle.Critical)
            End Try

        End While
        cmd5.Dispose()
        rst5.Close()
        Kontrol()
    End Sub
    Public Sub ZoneBul(ByVal ZoneID As String)
        Dim cmd6 As New SqlCommand
        Dim rst6 As SqlDataReader
        conn.Close()
        conn.Open()
        Try
            cmd6.CommandText = "SELECT * FROM ZONE_INFO WHERE ZoneNo = '" & ZoneID & "'"
            cmd6.Connection = conn
            rst6 = cmd6.ExecuteReader
            rst6.Read()
            Bolge = rst6("bz")
        Catch ex As Exception
            Bolge = "???"
        End Try
        cmd6.Dispose()
        rst6.Close()
        Kontrol()
    End Sub
    Public Sub Kontrol()
        conn.Close()
        conn.Open()
        cmd.Connection = conn
        rst = cmd.ExecuteReader
        rst.Read()
    End Sub
End Class
​
 
Cevap: NPC Info v1.0 [ Ilk VB.Net Projem .. ] + [ Source ]

Teşekkürler source yi aldımhö:D
 
Cevap: NPC Info v1.0 [ Ilk VB.Net Projem .. ] + [ Source ]

Elıne Saglık Burak Tesekkur :)
 
Cevap: NPC Info v1.0 [ Ilk VB.Net Projem .. ] + [ Source ]

eLine saglik adasim süper olmus :)
 
Cevap: NPC Info v1.0 [ Ilk VB.Net Projem .. ] + [ Source ]

Güzel, Yeni başlayanlara yardımcı olucaktır...
 
Cevap: NPC Info v1.0 [ Ilk VB.Net Projem .. ] + [ Source ]

tireyhupır iyi güzel program ama harbiden görsellik anlayışını değiştirmen lazım :D.Cırtlak mavi background'da ne alaka çözemedim :D
 
Cevap: NPC Info v1.0 [ Ilk VB.Net Projem .. ] + [ Source ]

Ordaki progress bar niye onu anlamadım ben :D
 
Cevap yazmak için giriş yap yada kayıt ol.

Online istatistikleri

Çevrimiçi kullanıcılar
0
Çevrimiçi ziyaretçiler
3,948
Toplam ziyaretçi
3,948
Toplamlar, gizli ziyaretçiler içerebilir.

About Us

Ko-Cuce.Net 2007 yılından bu yana pvp serverler tanıtım sektöründe öncü tanıtım sitesi olarak yayın hayatına devam eden bir private server forum sitesidir. 2007 yılından bu yana Ko-Cuce.Net olarak hizmet veren ve tüm oyunlara oyuncu katkısı sağlayan bir lider platform'dur Pvp Serverler iptv gamers4life metin2 pvp Knight Online Pvp

silkroad private server

En yeni üyeler

Stay Connected

Geri
Üst Alt