Read number direct from Notepad to control VB

Question





























Answer 1

Hi Mipakteh

Maaf karena terlambat membalas forum ini

Saran kedepannya, jika kamu nyaman menggunakan Bahasa Inggris kamu bisa post thread kamu di Forum berbahasa Inggris, karena forum ini berbahasa Indonesia sebaiknya kamu menggunakan Bahasa Indonesia, karena akan memudahkan user lain untuk membantu masalah yang kamu hadapi

Coba gunakan code dibawah

Dim CountResult = (From num In (a.ToArray.Distinct())
        Let NCount = a.Count(Function(c) c = num)
        Group num By NCount Into MyGroup = Group).OrderByDescending(Function(o) o.NCount)
        Dim stResult As String = "There is:   " & vbCrLf
        For Each value In CountResult

            For Each item In value.MyGroup
                stResult += CStr(item) & ","
            Next
            stResult = stResult.TrimEnd(New Char() {","c})
            stResult += " is " + CStr(value.NCount) + ";     " & vbCrLf

        Next
        ListBox1.Items.Add(stResult)  

Terima kasih 

---

Andy Nugraha

TechNet Community Support

Answer 2

OK andy..terima kasih banyak.saya akan coba dulu code andy

Answer 3

Answer 4

Hai Andy...harap dapat penyelesaian kpd masalah ini

Answer 5

Hi Mipakteh

kesalahan terjadi karena kamu merubah "a.Count(Function(c) c = num) menjadi "a.Count(Function(c) c = ch)" dan kamu membuat dim ch as char

Coba cek kembali kode yang sudah saya buat, karena hasil debug disini tidak ada error code

Terima kasih

---

Andy Nugraha

TechNet Community Support

Answer 6

terima kasih kerna sudi membalas pertanyaan saya..semua code tulis satu persatu tetapi tetap ada"Error" seperti berikut.Dan command "Let" tidak dapat diletak dihadapan NCount.

Answer 7

Hi Mipakteh

Pelajari errornya satu persatu

seperti Ncount yang belum dideclare karena tidak ada Let didepannya, kode yang saya berikan sudah coba saya debug dan berhasil, coba perhatikan penulisan spasi dengan dalam kurung yang berlebih (seharusnya 3 tertulis 4)pada line Dim count result

Kita tunggu balasanya

Terima kasih

---

Andy Nugraha

TechNet Community Support

Answer 8

terima ,semua kesilapan telah dibetulkan Andy.Boleh daripada kode Andy ditambah bagi mencari "a.Count.Min" untuk menentu bilangan digit yang paling sedikit dan "Max" untuk bilangan digit yang banyak.Maksud nya digit 0 hingga 9 ...digit yang sedikit dan yang terbanyak.