VB.NET Programming Corner!

pat029 · Jan 15, 2013

Panu po ang code sa vb.net na maglolog off ang client compute ?Thanks

anarchi888 · Jan 15, 2013

do you have knowledge also in c++ Sir, basically reverse Asm? thanks

ermell61 · Jan 15, 2013

Re: VB.NET Programming Corner! UPDATED!!!

vinceky02 said:
GSM Modem po ang gamit mo sir tingin ko mali syntax mo sa pag read ng message..

This is how to Read Message:

AT+CMGR="all"
AT+CMGR="REC UNREAD"
AT+CMGR="REC READ"
AT+CMGR="STO READ"
AT+CMGR=1

then i think need mo mag palit ng Prefered Message Storage(PMS)

Use this either:

AT+CPMS="SM"

hello po sir Vince.. ty po sa help

sa ngayon po, kkpag read lang po ako ng message using GSM modem kapag nkk receive ako ng message gamit po yung CMGL="ALL".. nag ERROR po ang lumalabas kpag gamit ko ang AT+CMGR. k2lad po ni2

sa ngayon po.. ang objective ko ay kung paanu ko ma i ta-table ang mga na receive kong messages. into list view with columns..

any idead pra mo magawa i2?? kht anung search ang gawin ko kay kuya google wla pa ako nkkuha na exact solution to complete this..

Thank you and more power.

vinceky02 · Jan 15, 2013

Re: VB.NET Programming Corner! UPDATED!!!

ermell61 said:
hello po sir Vince.. ty po sa help

sa ngayon po, kkpag read lang po ako ng message using GSM modem kapag nkk receive ako ng message gamit po yung CMGL="ALL".. nag ERROR po ang lumalabas kpag gamit ko ang AT+CMGR. k2lad po ni2

sa ngayon po.. ang objective ko ay kung paanu ko ma i ta-table ang mga na receive kong messages. into list view with columns..

any idead pra mo magawa i2?? kht anung search ang gawin ko kay kuya google wla pa ako nkkuha na exact solution to complete this..

Thank you and more power.

hi i would like to say na hindi advisable ang CMGL="all" sa VB.. advisable lang yan sa HYPERTERMINAL..

i will suggest to use CMGR then use this code:

Code:

 ListView1.View = View.Details
        ListView1.Columns.Add("INDEX", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("SENDER", 130, HorizontalAlignment.Left)
        ListView1.Columns.Add("MESSAGE", 250, HorizontalAlignment.Left)
        ListView1.Columns.Add("DATE", 137, HorizontalAlignment.Left)

For i = 0 To limit
With comSerial
.Open()
.Write("AT+CMGR=" & i & vbCrLf)
Ret = .ReadTo("OK")
Ret.Replace(vbCrLf, "")
sms = Ret.Split("-")
smsclean = sms(0).Split("""")
dt = smsclean(5).Split(",")
.Close()
End With
If Ret.Contains("+") Then
                        ListView1.Items.Add(i)
                        ListView1.Items(SubItemIndex).SubItems.Add(smsclean(3))
                        ListView1.Items(SubItemIndex).SubItems.Add(sms(1))
                        ListView1.Items(SubItemIndex).SubItems.Add(dt(0))
                        SubItemIndex += 1
                    End If

Variable used:
sms(ARRAY STRING)
smsclean(ARRAY STRING)
ret(STRING)
dt(ARRAY STRING)
subitemindex(INTEGER)

OBJECT USED:
LIST VIEW
BUTTON

This is my code that i generate while doing a prototype auto reply application.

vinceky02 · Jan 15, 2013

anarchi888 said:
do you have knowledge also in c++ Sir, basically reverse Asm? thanks

i have enough Knowledge in C++ i think.. But never heared about Reverse ASM new terminology i think XD.. BTW i will search for that..
ang alam ko lang kasing ASM is TASM yung sa assembly langguage.. ahahaha

pwede mo din po sakin i share if anung meaning nung reverse asm

vinceky02 · Jan 15, 2013

pat029 said:
Panu po ang code sa vb.net na maglolog off ang client compute ?Thanks

pa elaborate po..

vinceky02 · Jan 15, 2013

fallen90 said:
Sir vinceky02 , may tanung lng po ako, ndi po ito tunkol sa database ^_^

.. gumagawa kc ako ng application, Wattpad2PDF po, nagcoconvert sia nga mga wattpad books or chapters to pdf files ^_^

may naencounter lng po akong problem sa Webclient class

sa DownloadStringAsync po at sa DownloadFileAsync.

may way po ba kau kung panu madedetect or show ung progress ng download?

i have done that, pero buggy masiado... ^_^

sana matulungan nio ako

never tried doing that.. pero i think.. Sa pag dodownload lang naman sa internet ang problem mo right?? You are reading string online.. then use it in your program later..

ang problem mo is nag hahang yung apps mo habang nag dodonwload..? Yan din problem ko sa mga apps ko dati pero hindi ko na sinubukang ayusin..

Eto lang iniisip kong solution.. Download mo ung need mo i download sa ibang fom instead sa main form mo. next na iniisip ko,, use Backgroundworker para yun ang mag dodownload ng need mo i download to avoid or minimize the lag..

vinceky02 · Jan 15, 2013

3xpl0r3r said:
mga boss... panu b mag run ng program n may 3rd party s ibang pc?? hnd q ma run ung prog q eh.. encounters a problem and need to close dw.. ung 3rd party q eh krypton toolkit.. sinma q nman ung DLL file nya s release pero wla prin nanyare.. ayaw magrun.. patulong nman mga boss.

kahit po isama mo pa lahat ng DLL nya if hindi naman po portable ung application mo.. Hindi yan mag rurun sa ibang PC.. need mo munang gawing portable yung tool kit mo b4 mo xa ixama sa may Release mo

ermell61 · Jan 15, 2013

Re: VB.NET Programming Corner! UPDATED!!!

vinceky02 said:
hi i would like to say na hindi advisable ang CMGL="all" sa VB.. advisable lang yan sa HYPERTERMINAL..

i will suggest to use CMGR then use this code:

Code:

ListView1.View = View.Details ListView1.Columns.Add("INDEX", 50, HorizontalAlignment.Left) ListView1.Columns.Add("SENDER", 130, HorizontalAlignment.Left) ListView1.Columns.Add("MESSAGE", 250, HorizontalAlignment.Left) ListView1.Columns.Add("DATE", 137, HorizontalAlignment.Left) For i = 0 To limit With comSerial .Open() .Write("AT+CMGR=" & i & vbCrLf) Ret = .ReadTo("OK") Ret.Replace(vbCrLf, "") sms = Ret.Split("-") smsclean = sms(0).Split("""") dt = smsclean(5).Split(",") .Close() End With If Ret.Contains("+") Then ListView1.Items.Add(i) ListView1.Items(SubItemIndex).SubItems.Add(smsclean(3)) ListView1.Items(SubItemIndex).SubItems.Add(sms(1)) ListView1.Items(SubItemIndex).SubItems.Add(dt(0)) SubItemIndex += 1 End If

Variable used:
sms(ARRAY STRING)
smsclean(ARRAY STRING)
ret(STRING)
dt(ARRAY STRING)
subitemindex(INTEGER)

OBJECT USED:
LIST VIEW
BUTTON

This is my code that i generate while doing a prototype auto reply application.

gud am sir vince..

sa ngayon po nung ininterpret ko yung bibigay ninyo saming code sa system. hindi ko po magawa yung iba kung paanu cia i-fix..

eto po yung code, color green kung ano ang nalabas na error.

Code:

 Dim sms As String
    Dim smsclean As String
    Dim ret As String
    Dim dt As String
    Dim SubItemIndex As Integer
    Private Sub frminbox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        frmmain.TimerSignal.Enabled = False

        ListView1.View = View.Details
        ListView1.Columns.Add("Index", 50, HorizontalAlignment.Left)
        ListView1.Columns.Add("Sender", 130, HorizontalAlignment.Left)
        ListView1.Columns.Add("Message", 250, HorizontalAlignment.Left)
        ListView1.Columns.Add("Date", 137, HorizontalAlignment.Left)

        For i = 0 To limit [COLOR="Lime"]'variable 'limit' not declared[/COLOR]


            With frmCOMPort.SerialPort1
                .Write("AT+CMGR=" & i & vbCrLf)
                ret = .ReadTo("OK")
                ret.Replace(vbCrLf, "")
                sms = ret.Split("-")       [COLOR="Lime"]     'value of '1-dimensional array string' cannot converted to string [/COLOR]
                smsclean = sms(0).Split("""")[COLOR="Lime"] 'Split' is not a member of 'Char'[/COLOR]
                dt = smsclean(5).Split(",") [COLOR="Lime"]    'Split' is not a member of 'Char' [/COLOR]

            End With
        Next i

        If ret.Contains("+") Then
            ListView1.Items.Add(i)  [COLOR="Lime"]'variable 'i' not declared [/COLOR]
            ListView1.Items(SubItemIndex).SubItems.Add(smsclean(3))
            ListView1.Items(SubItemIndex).SubItems.Add(sms(1))
            ListView1.Items(SubItemIndex).SubItems.Add(dt(0))
            SubItemIndex += 1
        End If
    End Sub

ngayon pa lang po ako gagamit ng array na string.. 1st taym ko lang po na-encounter yan.. thanks po again sa response.

ermell61 · Jan 15, 2013

Ska po pla sir Vince.. meron po kayong alam kung paanu mkkuha yung response ng SerialPort kung nag send po ba cia ng message or hindi...
.. kc ang gnagamit lang po namin yung "Delay" function. ang mangyayari.. sa kada 5 seconds yung lang po cia nag papasok ulit ng
recepient.

Code:

         Try
                    Do Until Recepients.Items.Count = 0 And txtsendingnumber.Text = vbNullString

                        txtsendingnumber.Text = Recepients.Items.Item(0) 'get the 1st number from the listbox
                        Delay(2)
                        Try
                            If frmCOMPort.SerialPort1.IsOpen Then
                                With frmCOMPort.SerialPort1
                                    .Write("AT" & vbCrLf)
                                    .Write("AT+CMGF=1" & vbCrLf)
                                    .Write("AT+CMGS=" & Chr(34) & txtsendingnumber.Text & Chr(34) & vbCrLf)
                                    .Write(rtbmsg.Text & Chr(26))
                                End With
                            Else
                                MsgBox("Error on the port selected", vbOKOnly + vbExclamation, "Information")
                            End If


                        Catch ex As Exception 'catch the error if fails
                            MsgBox("Error:" & ex.Message, vbOKOnly + vbInformation, "Error") 
                       

                        End Try

                        Recepients.Items.RemoveAt(0) 'removes the last sended recepient
                        Delay(2)
                        Delay(1)
                        txtsendingnumber.Text = vbNullString
                    Loop 'loops the sequence

                Catch ex As Exception
                    MsgBox("Error:" & ex.Message, vbOKOnly + vbInformation, "Error")
         End Try

ang system po namin kc overall is about University SMS application kung saan mkkpag send k ng GM using MySQL database and built-in templates. pwede ka rin po magpadala ng SMS kung meron man pong immediate announcements about sa school.. implementation n po namin sa friday at yun nlang po ang kulang namin..

Thank you po and More power.

JetPro · Jan 15, 2013

Ngayon ko lang nakita itong thread na to. Salamat dito.

mew3x · Jan 15, 2013

mga boss..pano po ba i insert lahat ng data sa gridview to database in one go...please help :help:

fallen90 · Jan 15, 2013

vinceky02 said:
never tried doing that.. pero i think.. Sa pag dodownload lang naman sa internet ang problem mo right?? You are reading string online.. then use it in your program later..

ang problem mo is nag hahang yung apps mo habang nag dodonwload..? Yan din problem ko sa mga apps ko dati pero hindi ko na sinubukang ayusin..

Eto lang iniisip kong solution.. Download mo ung need mo i download sa ibang fom instead sa main form mo. next na iniisip ko,, use Backgroundworker para yun ang mag dodownload ng need mo i download to avoid or minimize the lag..

.. well, ndi po sia nahahang kc po po DownloadStringAsync at DownloadFileAsync po ung gamit ko.. nag-eexecute na sia from another thread, ndi na sia dun sa UI thread...

ang prob ko lng po eh, ung progressbar, gusto ko lng malaman kung panu madedetermine ung amount of bytes received and percentage of completion ^_^

using background worker would result into a runtime error...a NotSupportedException would be thrown..

Thank you po ulit ^_^ more power ^_^

vinceky02 · Jan 15, 2013

explain ko muna kung anung ginagawa ng code ko

yung system na yan is automated Auto Reply for Our University..
ang ginagawa nyan ireread nyahh lahat ng index sa sim if may laman itong message.. ung Sim ko is kayang humawak ng 50 Sms

so:
variable 'limit' not declared
-> yung limit deneclare ko yan na integer then 49 ang value nasa isang module yun naka declare..

then mag loloop na sya

[0] declare i as = 0
[1] Read muna ang index "i"
[2] if may laman basahin ang laman
[3] tapos idisplay
[4] alamin ang request nung nag text
[5] gawin ung request ng nag text
[6] mag add kay "i" ng isa
[7] if walang laman
[8] mag add ng isa si "i"
[9] tapos balik sa [0]

variable 'i' not declared: Kaya mo to na encounter kasi mali yung pinag lagyan mo ng "next i" mo

[QOUTE]
Next i 'Mali to

If ret.Contains("+") Then
ListView1.Items.Add(i) 'variable 'i' not declared
ListView1.Items(SubItemIndex).SubItems.Add(smsclean(3))
ListView1.Items(SubItemIndex).SubItems.Add(sms(1))
ListView1.Items(SubItemIndex).SubItems.Add(dt(0))
SubItemIndex += 1
End If
Next i 'Dito Dapat
[/QOUTE]

'value of '1-dimensional array string' cannot converted to string
'Split' is not a member of 'Char'
'Split' is not a member of 'Char'

[QOUTE]sabi ko po last time.. Declare those mariables in string array..

kung saan mo diniclare ung limit isama mo yung mga variables na yan

example sa isang module dineclare mo silang lahat ganto dapat itsura nun:

public limit as integer
public sms() as string
public smsclean() as string
public ret as string
public dt() as string
public subitemindex as integer

[/QOUTE]

joniemors · Jan 15, 2013

Mga Bossingpwede po patulong kung ano problema nito??

patulong po talga...need lang
:praise:

markdub · Jan 15, 2013

mga tol 3rd year na po ako sa IT gumagawa ako ng Corporate Information System. Yung teacher namin ngbigay ng scope ng project. Gagamit ako ng VB.net sana if may tanong ako masasagot nyo dito.

All Hail SB Programmers....

ermell61 · Jan 16, 2013

vinceky02 said:
explain ko muna kung anung ginagawa ng code ko

yung system na yan is automated Auto Reply for Our University..
ang ginagawa nyan ireread nyahh lahat ng index sa sim if may laman itong message.. ung Sim ko is kayang humawak ng 50 Sms

so:
variable 'limit' not declared
-> yung limit deneclare ko yan na integer then 49 ang value nasa isang module yun naka declare..

then mag loloop na sya

[0] declare i as = 0
[1] Read muna ang index "i"
[2] if may laman basahin ang laman
[3] tapos idisplay
[4] alamin ang request nung nag text
[5] gawin ung request ng nag text
[6] mag add kay "i" ng isa
[7] if walang laman
[8] mag add ng isa si "i"
[9] tapos balik sa [0]

variable 'i' not declared: Kaya mo to na encounter kasi mali yung pinag lagyan mo ng "next i" mo

[QOUTE]
Next i 'Mali to

If ret.Contains("+") Then
ListView1.Items.Add(i) 'variable 'i' not declared
ListView1.Items(SubItemIndex).SubItems.Add(smsclean(3))
ListView1.Items(SubItemIndex).SubItems.Add(sms(1))
ListView1.Items(SubItemIndex).SubItems.Add(dt(0))
SubItemIndex += 1
End If
Next i 'Dito Dapat
[/QOUTE]

'value of '1-dimensional array string' cannot converted to string
'Split' is not a member of 'Char'
'Split' is not a member of 'Char'

[QOUTE]sabi ko po last time.. Declare those mariables in string array..

kung saan mo diniclare ung limit isama mo yung mga variables na yan

example sa isang module dineclare mo silang lahat ganto dapat itsura nun:

public limit as integer
public sms() as string
public smsclean() as string
public ret as string
public dt() as string
public subitemindex as integer

[/QOUTE]

sir Vince sinunod ko na po yung cnabi ninyo sakin pero :notworking:

pa rin po.. wla po lumalabas na SMS mula sa "SIM" Memory

sir yung mga declaration of variables, hindi po ba pwede cia i lagay nlang sa isang form kung saan ilalabas yung mga SMS messages since Public Variable naman po siya..

nahi- :hilo:

na rin po ako kung panu po gagawin dito.. hahaha

pero thank you so much po tlga for the effort to my problem.

mew3x · Jan 16, 2013

mga boss tulong naman sa previous question ko...pano po ba i insert lahat ng data sa unbound gridview to database in one go..may firearm registration kasi ako at gumamit ako ng gridview sa pag temporarily store ng mga firearm data at runtime mula sa mga controls..gusto ko sanang i save lahat ng data sa grid sa aking database using ado.net..please urgently needed

:weep:

rexon · Jan 16, 2013

Hello there, I need help.
what is the code on how to Add range on KryptonRibbonGroupGallery?

Here is my partial code but dont work.
KryptonRibbonGroupGallery1.DropButtonRanges.add("Department")
KryptonRibbonGroupGallery1.DropButtonRanges.Item(0).ImageIndexStart = 0
KryptonRibbonGroupGallery1.DropButtonRanges.Item(0).ImageIndexEnd = 0

Please po pahelp po

vinceky02 · Jan 16, 2013

ermell61 said:
sir Vince sinunod ko na po yung cnabi ninyo sakin pero pa rin po.. wla po lumalabas na SMS mula sa "SIM" Memory

sir yung mga declaration of variables, hindi po ba pwede cia i lagay nlang sa isang form kung saan ilalabas yung mga SMS messages since Public Variable naman po siya..

nahi- na rin po ako kung panu po gagawin dito.. hahaha

pero thank you so much po tlga for the effort to my problem.

dahil on rush kana nag program nalang ako ng new project para sa problem mo dinerive ko lang ito galing sa old project ko download mo nalang ung attachment..

VB.NET Programming Corner!

Recruit

Novice

Novice

Attachments

Amateur

Amateur

Amateur

Amateur

Amateur

Novice

Novice

Amateur

Novice

Apprentice

Amateur

Professional

Amateur

Novice

Novice

Amateur

Amateur

Attachments

Similar threads