Globe Tattoo USB Modem in VB6, finally..

[chard5230]

okay lang po.. salamat po sa link nyo...

system analysis and design po

parang thesis lng din po kaso pag aaralan namin yung system di po ggwa. ^___^

thx po ulet.. sir dummy_c

[skulltrail]

sir! pano po ako mkarereceive ng message? gnamit ko po ung code nyo

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim str1, str2, str3 As String
Dim lngPos1, lngPos2 As Integer
Dim strInput As String
Dim msgcheck As Variant
Option Explicit

Private Sub getmssg()
lngPos1 = InStrRev(Text1.Text, "32")    ' Usually there is a "32" near the start of the actual mssg and the mssg
lngPos1 = lngPos1 + 5                        ' usually ends with "OK"( response of the modem). Therefore the mssg must
lngPos2 = InStrRev(Text1.Text, "OK")   ' not contain a "32" or "OK". You could replace "32" with "X" or a symbol
lngPos2 = lngPos2 - 4                         ' like # if the mssg is expected to have an "X" or a symbol #. Other
lngPos2 = lngPos2 - lngPos1                ' symbols may also be used.
Text3.Text = Mid$(Text1.Text, lngPos1, lngPos2)
End Sub

Private Sub erazemssg()
Sleep 300
str1 = "AT+CMGD = 0"
MSComm1.Output = str1 & vbCr
End Sub

Private Sub viewmssg()
str1 = "AT+CMGR= 0"                         ' view the latest mssg recivd
MSComm1.Output = str1 & vbCr
End Sub

Private Sub Command1_Click()
erazemssg
Text3.Text = vbNullString
End Sub

Private Sub Command2_Click()
erazemssg
Unload Me
End Sub

Private Sub Command3_Click()
' Send an 'AT' command to the phone
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
MSComm1.Output = "AT" & vbCrLf
Sleep 500
MSComm1.Output = "AT+CMGF=1" & vbCrLf
Sleep 500
MSComm1.Output = "AT+CMGS=" & Chr(34) & 222 & Chr(34) & vbCrLf
Sleep 800
MSComm1.Output = "BAL" & Chr(26)
Sleep 2000
Sleep 1500
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End Sub

Private Sub Command4_Click()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
MSComm1.Output = "AT+CMGS=" & Chr(34) & Text4.Text & Chr(34) & vbCrLf
Sleep 1000
MSComm1.Output = Text2.Text & Chr(26)
Sleep 4000
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End Sub

Private Sub Form_Load()
With MSComm1
'make sure the serial port is not open (by this program)
If .PortOpen Then .PortOpen = False
'set the active serial port
.CommPort = 5
'set the badurate,parity,databits,stopbits for the connection
.Settings = "9600,N,8,1"
'set the DRT and RTS flags
.DTREnable = True
.RTSEnable = True
'enable the oncomm event for every reveived character
.RThreshold = 1
'disable the oncomm event for send characters
.SThreshold = 0
'open the serial port
.PortOpen = True
End With
End Sub

Private Sub MSComm1_OnComm()
Text1.Text = ""
With MSComm1
'test for incoming event
Select Case .CommEvent
Case comEvReceive
'display incoming event data to displaying textbox
strInput = .Input
Text1.SelText = strInput
End Select
End With
End Sub

[dummy_c]

Try mo ito sir at ikaw din chard5230.
https://rapidshare.com/files/1007078884/GlobeTattooVB6.zip

Globe or TM gamitin mo and make sure na may extra p6 load.
Ilagay mo tamang comp port# at click mo connect button.
Then click mo donate.
If may matatanggap ka na reply, it means working yan. 
I hope it works. 



Para naman may pang astigcombo ako. 

[skulltrail]

tnx sir..!! nagdonate n ko.. hehe

[dummy_c]

Na receive ko nga kagabi.
Nagulat ako kasi joke lang naman yon.
Anyways maraming salamat po. hehe

[kurtz :)]

our proposed project is to make a system na mka.send and received ng sms from cp to pc vice versa using vb6 connected sa msAcces ang database. somebody help me para mka.graduate po ako

[dummy_c]

Post mo dito yung vb6 project ng working database mo baka may tutulong.

[cliffromz23]

yan din thesis namin yan noon....

[your most RIDICULOUS man :)]

uso pa pala vb6    adfs

[dummy_c]

^ Engr naka dong?

[ddiana]

hello po.. sir ask ko lng po.. ang proj ko po kc  is about road traffic management system: web services and sms. same po ung aspect ng sms kaso kelngn po updated ung bwat mes na nasesend nya and it should be automatic na magrereply everytime me magttxt how's the trffic condition sa junction na to.. nahhrapan po ako sa part kung paano xa iuupdate at maccnd automatic..   

[ddiana]

pwede po ba magrequest na irepost po ninyo ulit ung vb 2010 ng code na ito pls?

[dlrd.drake17]

sir .. pwede po ako makahingi ng source code ng project nyo sa vb6 ? kailangan kailangan lang po .. Invalid po kase ung link na pinost nyo dito .. Salamat po pasend na lang po sa email ko .. "dlrd.drakr17@y.c"

[your most RIDICULOUS man :)]

hello po.. sir ask ko lng po.. ang proj ko po kc  is about road traffic management system: web services and sms. same po ung aspect ng sms kaso kelngn po updated ung bwat mes na nasesend nya and it should be automatic na magrereply everytime me magttxt how's the trffic condition sa junction na to.. nahhrapan po ako sa part kung paano xa iuupdate at maccnd automatic..   

sa code mo na yan..  anjan naman ung pagparse ng string..   

[dlrd.drake17]

\

sir .. pwede po ako makahingi ng source code ng project nyo sa vb6 ? kailangan kailangan lang po .. Invalid po kase ung link na pinost nyo dito .. Salamat po pasend na lang po sa email ko .. "dlrd.drakr17@y.c"

sir dlrd.drake17  po pla un .. sensya nagmamadali sa pgttype

[dummy_c]

sir dlrd.drake17  po pla un .. sensya nagmamadali sa pgttype

Please check your mail.
And please don't forget to click donate the first time you successfully run the program.

[dlrd.drake17]

Please check your mail.
And please don't forget to click donate the first time you successfully run the program.

sir maraming salamat po .. ngayon ko lang nakita .. Sayang tapos na ung submission ng project namin .. di ko nagamit .. pero pag aaralan ko po ito .. salamat po talaga .. Cge po kapag nagkaload ako click ko ung donate

[dummy_c]

^^^ Don't bother. Kasi iba na ang number ko.
Anyways congrats!

[missINHINYERO]

If you have time please try it. Doon din sa thread ni master 7 nalaman na pwede ang globe tattoo maging modem to send and recive mssgs. Anyway i think you should first learn how to access your mysql datbase using vb6. Nag search po ako sa google, marami ako nakita. Unfortunately im sorry i don't have time to learn about it kasi busy din ako sa project study ko. And don't worry about sending mssgs to multiple recipients because it's the easy part, i guess.

sir, pwede po ba magtanong kung may easiest way po para dun po sa pagsesend sa multiple recipients? i have this assignment po kasi na may part na dpat magse-send to all recipients ung program ko.. i'm using database for the list of the recipients.. bale add lng ng add po ng recipients then send to all na ung composed message.. salamat po ng marami !:)) hoping for your kind response 

[dummy_c]

^^^ Curious din ako paano mag send to multiple recipients.
As of now iniisaisa ko send yung message.