تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عدد مرات الضغط
#1
السلام عليكم ورحمة الله

عندي كود شغال تمام وهو لحساب عدد الضغطات

كود :
count += 1


يقوم بتخزينه في قاعدة البيانات

المشكلة التي تواجهني 

بعد اغلاق البرنامج والرجوع من جديد 

يصفر الارقام

مثلا اذا ان العدد قبل اغلاق البرنامج 9 
بعد الاغلاق يرجع صفر

لان يبدى من جديد من
كود :
+= 1


حاولت اعمل حل
وهو
كود :
       If count.Text = "0" Then
           count += 1
       Else
           count = 1
       End If

اذا ان تيبل العدداد صفر لا تبدى من جديد
اذا كان يساوي صفر ابدى من جديد

بس كيف يضبط بارك الله فيكم


وشكرا
الرد
تم الشكر بواسطة:
#2
السلام عليكم


ضع مشروعك.
الرد
تم الشكر بواسطة: dubai.eig , dubai.eig
#3
(31-01-17, 07:31 PM)مساعدة كتب : السلام عليكم


ضع مشروعك.



شكرا على الرد 

هذا الكود 

كود :
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Button2.Enabled = False


       If lblDisplay.Text = "0" Then
           count += 1
       Else
           count = 1
       End If

       Dim con As New SQLiteConnection("Data Source= " & My.Application.Info.DirectoryPath & "\info.s3db")
       Dim cmd As New SQLiteCommand("UPDATE info SET [email protected] WHERE [email protected] ", con)
       con.Open()
       cmd.Parameters.AddWithValue("@status", count)
       cmd.Parameters.AddWithValue("@id", getid)
       cmd.ExecuteNonQuery()
       cmd.Dispose()
       con.Close()



       Dim SQLconnect As New SQLite.SQLiteConnection()
       Dim SQLcommand As SQLiteCommand
       SQLconnect.ConnectionString = "Data Source= " & My.Application.Info.DirectoryPath & "\info2.s3db"
       SQLconnect.Open()
       SQLcommand = SQLconnect.CreateCommand
       SQLcommand.CommandText = "INSERT INTO info2 (CALLop,qso_dated) Values (@CALLop,@qso_date)"
       SQLcommand.Parameters.AddWithValue("@CALLop", calls.Text)
       SQLcommand.Parameters.AddWithValue("@qso_date", qso_date.Text)
       SQLcommand.ExecuteNonQuery()
       SQLcommand.Dispose()
       SQLconnect.Close()

       RefreshData()
       ClearTextbox()

   End Sub
الرد
تم الشكر بواسطة:
#4
السلام عليكم أخي العزيز ورحمة الله وبركاته
من الأفضل أن تضع المشروع لإجراء التعديل عليه، مع الإشارة إلى أنه يمكن استخدام إعدادت المشروع لتخزين قيمة العداد النهائية
أتمنى لك التوفيق
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة: dubai.eig
#5
الليبل نفسه يوم تشغل البرنامج من وين ياخذ العدد؟؟
الرد
تم الشكر بواسطة: dubai.eig
#6
اذا كانت قاعده البيانات مضافة للمشروع
اذهب لقاعدة البيانات في المشروع واضغط عليها عشان تحددها بعدين في الخصايص غير copy to directory output الى copy if new

لان الحفظ يتم على النسخة الي في المجلد debug
لكن الفجوال اذا عدلت فيه اي شي يرجع يضع نسخة ملف البيانات اللي في المشروع
من جديد في المجلد debug وبكذا يتلغي البيانات الي انت حفظها في التشغي السابق
الرد
تم الشكر بواسطة: dubai.eig
#7
شكرا على التفاعل الجميل

هذا المشروع 

WindowsApplicat55ion5

وهذا البرنامج فتح ومعاينة قاعدة البيانات
http://sqliteadmin.orbmu2k.de/

علما باني ااستخدم sqlite


وشكرا من جديد
الرد
تم الشكر بواسطة:
#8
لا يوجد جدول في قاعدة البيانات

تفضل تعديل الكود وفي المرفقات قاعدة البيانات وتم فيها اضافة الجدول
كود :
Imports System.Data.SQLite

Public Class Form1


    ' الاتصال
    Private con As New SQLiteConnection("Data Source = " & My.Application.Info.DirectoryPath & "\click.s3db;")

    ' متغير العداد
    Private clickCount As Integer = 0




    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        ' قراءة البيانات
        readData()
    End Sub




    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' زيادة العداد
        clickCount += 1

        ' تحديث السجل رقم 1 بقيمة العداد الحالية
        Using cmd As New SQLiteCommand("UPDATE [click]  SET [clickCount] = @clickCount  WHERE [id] = @id ", con)
            cmd.Parameters.AddWithValue("@clickCount", clickCount)
            cmd.Parameters.AddWithValue("@id", 1)


            If con.State <> ConnectionState.Open Then con.Open()
            cmd.ExecuteNonQuery()
            con.Close()

        End Using

        ' قراءة البيانات
        readData()

    End Sub




    ' قراءة البيانات
    Private Sub readData()

        ' التأكد من وجود سجل برقم 1
        If Not isThereId(1) Then
            ' إضافة سجل جديد
            Insert()
        End If

        '------------------------------

        ' قراءة البيانات في السجل رقم 1
        Using cmd As New SQLiteCommand("SELECT [clickCount]  FROM [click]  WHERE [id][email protected] ", con)
            cmd.Parameters.AddWithValue("@id", 1)

            If con.State <> ConnectionState.Open Then con.Open()
            clickCount = cmd.ExecuteScalar
            con.Close()

        End Using

        ' إظهار القيمة
        CountOut.Text = clickCount

    End Sub



    ' التأكد من وجود سجل برقم محدد
    Private Function isThereId(id As Integer) As Boolean
        Using cmd As New SQLiteCommand("SELECT COUNT( [id] )  FROM [click]  WHERE [id] = @id ", con)
            cmd.Parameters.AddWithValue("@id", 1)

            If con.State <> ConnectionState.Open Then con.Open()
            Return If(cmd.ExecuteScalar > 0, True, False)
            con.Close()

        End Using
    End Function



    ' إضافة سجل جديد
    Private Sub Insert()
        ' إضافة سجل جديد
        Using cmd As New SQLiteCommand("INSERT INTO [click] ( [clickCount] ) VALUES ( 0 ) ", con)
            cmd.Parameters.AddWithValue("@id", 1)
            If con.State <> ConnectionState.Open Then con.Open()
            cmd.ExecuteNonQuery()
            con.Close()

        End Using
    End Sub


End Class


الملفات المرفقة
.rar   click database.rar (الحجم : 350 بايت / التحميلات : 21)
الرد
تم الشكر بواسطة:
#9
(06-02-17, 08:48 PM)مساعدة كتب : لا يوجد جدول في قاعدة البيانات

تفضل تعديل الكود وفي المرفقات قاعدة البيانات وتم فيها اضافة الجدول
كود :
Imports System.Data.SQLite

Public Class Form1


   ' الاتصال
   Private con As New SQLiteConnection("Data Source = " & My.Application.Info.DirectoryPath & "\click.s3db;")

   ' متغير العداد
   Private clickCount As Integer = 0




   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
       ' قراءة البيانات
       readData()
   End Sub




   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       ' زيادة العداد
       clickCount += 1

       ' تحديث السجل رقم 1 بقيمة العداد الحالية
       Using cmd As New SQLiteCommand("UPDATE [click]  SET [clickCount] = @clickCount  WHERE [id] = @id ", con)
           cmd.Parameters.AddWithValue("@clickCount", clickCount)
           cmd.Parameters.AddWithValue("@id", 1)


           If con.State <> ConnectionState.Open Then con.Open()
           cmd.ExecuteNonQuery()
           con.Close()

       End Using

       ' قراءة البيانات
       readData()

   End Sub




   ' قراءة البيانات
   Private Sub readData()

       ' التأكد من وجود سجل برقم 1
       If Not isThereId(1) Then
           ' إضافة سجل جديد
           Insert()
       End If

       '------------------------------

       ' قراءة البيانات في السجل رقم 1
       Using cmd As New SQLiteCommand("SELECT [clickCount]  FROM [click]  WHERE [id][email protected] ", con)
           cmd.Parameters.AddWithValue("@id", 1)

           If con.State <> ConnectionState.Open Then con.Open()
           clickCount = cmd.ExecuteScalar
           con.Close()

       End Using

       ' إظهار القيمة
       CountOut.Text = clickCount

   End Sub



   ' التأكد من وجود سجل برقم محدد
   Private Function isThereId(id As Integer) As Boolean
       Using cmd As New SQLiteCommand("SELECT COUNT( [id] )  FROM [click]  WHERE [id] = @id ", con)
           cmd.Parameters.AddWithValue("@id", 1)

           If con.State <> ConnectionState.Open Then con.Open()
           Return If(cmd.ExecuteScalar > 0, True, False)
           con.Close()

       End Using
   End Function



   ' إضافة سجل جديد
   Private Sub Insert()
       ' إضافة سجل جديد
       Using cmd As New SQLiteCommand("INSERT INTO [click] ( [clickCount] ) VALUES ( 0 ) ", con)
           cmd.Parameters.AddWithValue("@id", 1)
           If con.State <> ConnectionState.Open Then con.Open()
           cmd.ExecuteNonQuery()
           con.Close()

       End Using
   End Sub


End Class



ما نستغنى عنك وعن خدماتك بارك الله فيك فعلا ضبط معاي والحمدالله

شكرا لك ولجميع من شارك في الموضوع
الرد
تم الشكر بواسطة:
#10
(06-02-17, 08:48 PM)مساعدة كتب : لا يوجد جدول في قاعدة البيانات

تفضل تعديل الكود وفي المرفقات قاعدة البيانات وتم فيها اضافة الجدول
كود :
Imports System.Data.SQLite

Public Class Form1


   ' الاتصال
   Private con As New SQLiteConnection("Data Source = " & My.Application.Info.DirectoryPath & "\click.s3db;")

   ' متغير العداد
   Private clickCount As Integer = 0




   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
       ' قراءة البيانات
       readData()
   End Sub




   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       ' زيادة العداد
       clickCount += 1

       ' تحديث السجل رقم 1 بقيمة العداد الحالية
       Using cmd As New SQLiteCommand("UPDATE [click]  SET [clickCount] = @clickCount  WHERE [id] = @id ", con)
           cmd.Parameters.AddWithValue("@clickCount", clickCount)
           cmd.Parameters.AddWithValue("@id", 1)


           If con.State <> ConnectionState.Open Then con.Open()
           cmd.ExecuteNonQuery()
           con.Close()

       End Using

       ' قراءة البيانات
       readData()

   End Sub




   ' قراءة البيانات
   Private Sub readData()

       ' التأكد من وجود سجل برقم 1
       If Not isThereId(1) Then
           ' إضافة سجل جديد
           Insert()
       End If

       '------------------------------

       ' قراءة البيانات في السجل رقم 1
       Using cmd As New SQLiteCommand("SELECT [clickCount]  FROM [click]  WHERE [id][email protected] ", con)
           cmd.Parameters.AddWithValue("@id", 1)

           If con.State <> ConnectionState.Open Then con.Open()
           clickCount = cmd.ExecuteScalar
           con.Close()

       End Using

       ' إظهار القيمة
       CountOut.Text = clickCount

   End Sub



   ' التأكد من وجود سجل برقم محدد
   Private Function isThereId(id As Integer) As Boolean
       Using cmd As New SQLiteCommand("SELECT COUNT( [id] )  FROM [click]  WHERE [id] = @id ", con)
           cmd.Parameters.AddWithValue("@id", 1)

           If con.State <> ConnectionState.Open Then con.Open()
           Return If(cmd.ExecuteScalar > 0, True, False)
           con.Close()

       End Using
   End Function



   ' إضافة سجل جديد
   Private Sub Insert()
       ' إضافة سجل جديد
       Using cmd As New SQLiteCommand("INSERT INTO [click] ( [clickCount] ) VALUES ( 0 ) ", con)
           cmd.Parameters.AddWithValue("@id", 1)
           If con.State <> ConnectionState.Open Then con.Open()
           cmd.ExecuteNonQuery()
           con.Close()

       End Using
   End Sub


End Class


بارك الله فيك

ممكن اتعبك معاي شويه

محتاج اضافه على الكود

وهيه بعد 24 ساعه يتم تصفير الرقم 

وفي ميزان اعمالك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] استعمال ComboBox عدة مرات ومن نفس المصدر كريم جودي 2 92 09-04-18, 02:51 PM
آخر رد: حريف برمجة
  ايد كود عند الضغط علي Button1 يروح يضغط تلقائياً علي Button2 ؟ DanyGhost2010 3 107 01-01-18, 11:44 PM
آخر رد: حريف برمجة
  أريد كود يعمل عمل لصق للنص Past عند الضغط علي زر بوتن ؟ DanyGhost2010 1 77 31-12-17, 04:47 PM
آخر رد: طالب برمجة
  أريد كود عند الضغط علي زر بوتن اجعل التكست بوكس يكون للقرائة فقط ؟ DanyGhost2010 1 101 31-12-17, 04:42 PM
آخر رد: طالب برمجة
  اريد كود عند الضغط علي TreeView1.CheckBoxes تظهر رسالة ؟ DanyGhost2010 2 115 29-12-17, 03:27 PM
آخر رد: DanyGhost2010
  اريد كود عند الضغط علي زر Ctrl + h يقوم بفتح فورم معين ؟ DanyGhost2010 4 122 26-12-17, 07:46 PM
آخر رد: DanyGhost2010
  [VB.NET] كيف يمكن الضغط علي خلية او سطر في كريستال ريبورت يفتح نموذج ما للتعديل علية السيد الجوهري 0 79 12-12-17, 12:33 PM
آخر رد: السيد الجوهري
  [VB.NET] اضهار فورم عند الضغط على DataGridView جاسم عوط 2 133 11-12-17, 03:29 PM
آخر رد: Amir_alzubidy
  كيف يفتح برنامجى ملف عند الضغط على (فتح) ملف ذو امتداد معين مبرمج مصرى 4 159 11-11-17, 10:47 PM
آخر رد: مبرمج مصرى
  [سؤال] ظهور البرنامج عند الضغط على رابط ابو روضة 4 219 14-10-17, 10:55 PM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم