1. Hello Guest, selamat datang di Forum WinPoin. Kamu bisa bertanya, berdiskusi, sharing, dan ngobrolin apapun seputar Windows, Windows Phone, PC, Gadget, atau hal seputar Teknologi lainnya. Selamat berkomunitas! ;)

tanya coding

Discussion in 'Developer Corner' started by megapro1945, Jul 18, 2014.

  1. megapro1945

    megapro1945 New Member

    Joined:
    May 14, 2014
    Messages:
    11
    gan dan para sesuhu mohon bantuannya donk menerjemahkan ke codingnya.

    saya mau buat aplikasi untuk membaca tapi dengan timer

    jadi saya mau for
    for nya it untuk membaca antrian slama 7 detik dan it diulang sbnyk 2 kali.
    kemudian ketika slsai di baca maka saya akan delete data yg ptma, kmdian data ke 2 akan naik otomatis dan data it akan di baca slama 7 detik sbnyk 2 kali, dan strusnya smpai data it habis.

    ketika data it habis maka sound nya tidak play.

    data it berada di datagridview gan...

    mohon bantuannya.....:nangis1:

    Thanks
     
  2. mabaega

    mabaega Well-Known Member

    Joined:
    Nov 9, 2013
    Messages:
    2,735
    Looping dengn Timer dan Datagridview

    Buat Sebuah Project (VB)
    Tambahkan satu Datagridview, satu Button, 1 timer pada form
    Buat 2 Column Pada DatagridView.

    Biarkan semuanya default.
    kemudian copas code berikut ke codeform dan Jalankan Applikasi.
    Code:
    Public Class Form1
    
        Sub isi_datagrid()
            For i As Integer = 1 To 10
                DataGridView1.Rows.Add(i.ToString, "Data ke - " & i.ToString)
            Next
        End Sub
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            isi_datagrid()
            Timer1.Interval = 5000 '5detik
        End Sub
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            DoLooping()
        End Sub
    
        Dim ctrPanggil As Integer
        Private Sub DoLooping()
            If DataGridView1.Rows.Count < 1 Then
                Timer1.Enabled = False
                Exit Sub
            End If
    
            Dim StringToRead As String = DataGridView1.Rows(0).Cells(1).Value
            If ctrPanggil < 2 Then
                BacaString("Bace ke : " & ctrPanggil & vbCrLf & StringToRead)
                ctrPanggil += 1
            Else
                DataGridView1.Rows.RemoveAt(0)
                ctrPanggil = 0
                DataGridView1.Refresh()
                DoLooping()
            End If
        End Sub
    
        Private Sub BacaString(ByVal str As String)
            MsgBox(str)
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Timer1.Enabled = Not Timer1.Enabled
        End Sub
    End Class
    
    Dalam contoh, Timer Interval di set untuk triger setiap 5 detik (5000)
    Sample data 10 baris. akan dibaca secara berurutan. masing-masing akan dibaca 2 kali sampai data pada datagridview habis.

    Semoga alurnya mudah dipahami.
     

    Attached Files:

Share This Page