UserGuideExamples: Remove old blesvccommit function

Author: thedjnK

UserGuideExamples/BleCharDescRead.sb

@@ -7,16 +7,20 @@ DIM rc,conHndl,hMyChar
 //----------------------------------------------------------------------------
 SUB OnStartup()
     DIM hSvc,attr$,scRpt$,adRpt$,addr$    
-    rc = BleSvcCommit(1,BleHandleUuid16(0x18FF),hSvc)
-    // Add one or more characteristics 
-    rc = BleCharNew(0x08,BleHandleUuid16(0x2AFF),BleAttrMetadata(1,1,20,1,rc),0,0)
-    attr$="\00"  //no initial alert
-    rc = BleCharCommit(hSvc,attr$,hMyChar)
-    
+
+    rc = BleServiceNew(1, BleHandleUuid16(0x18FF), hSvc)
+    //Add one or more characteristics 
+    rc = BleCharNew(0x0a,BleHandleUuid16(0x2AFF),BleAttrMetadata(1,1,20,1,rc),0,0)
+
     //Add a user description
     DIM s$ : s$="You can change this"
-    rc=BleCharDescUserDesc(s$,BleAttrMetadata(1,1,20,1,rc))
-    
+    rc=BleCharDescUserDesc(s$,BleAttrMetadata(1,1,20,0,rc))
+
+    attr$="\00"  //no initial alert
+    rc = BleCharCommit(hSvc,attr$,hMyChar)
+    //Commit the service
+    rc = BleServiceCommit(hSvc)
+
     rc=BleScanRptInit(scRpt$) 
     //Add 1 char handle to scan report
     rc=BleAdvRptAddUuid16(scRpt$,hMyChar,-1,-1,-1,-1,-1)
@@ -30,7 +34,6 @@ ENDSUB
 // Close connections so that we can run another app without problems
 //==============================================================================
 SUB CloseConnections()
-  
     rc=BleDisconnect(conHndl)
     rc=BleAdvertStop()
 ENDSUB

UserGuideExamples/BleSecMngrOobKey.sb

@@ -32,7 +32,7 @@ ONEVENT  EVBLEMSG  CALL HandlerBleMsg
 
 IF BleAdvertStart(0,addr$,25,60000,0)==0 THEN	  
     PRINT "\nAdverts Started\n"					
-	PRINT "\nMake a connection to the BL600"
+	PRINT "\nMake a connection to the BL652"
 ELSE											
     PRINT "\n\nAdvertisement not successful"
 ENDIF

UserGuideExamples/EvAuthCccd.sb

@@ -13,13 +13,15 @@ FUNCTION OnStartup()
     DIM charMet : charMet = BleAttrMetaDataex(1,1,20,0,metaSuccess)
     DIM hSvcUuid : hSvcUuid = BleHandleUuid16(svcUuid)
     DIM mdCccd : mdCccd = BleAttrMetadataex(1,1,2,8,rc)   //CCCD metadata for char, write auth
-    
+
     //Commit svc with handle 'hSvcUuid'
-    rc=BleSvcCommit(1,hSvcUuid,hSvc)            
+    rc=BleServiceNew(1, BleHandleUuid16(svcUuid), hSvc)
     //Initialise char, write/read enabled, accept signed writes, indicatable
     rc=BleCharNew(0x6A,charUuid,charMet,mdCccd,0)     
     //Commit char initialised above, with initial value "hi" to service 'hMyChar'
     rc=BleCharCommit(hSvc,attr$,hMyChar)
+    //Commit the service
+    rc = BleServiceCommit(hSvc)
     rc=BleScanRptInit(scRpt$) 
     //Add 1 service handle to scan report
     rc=BleAdvRptAddUuid16(scRpt$,hSvc,-1,-1,-1,-1,-1)
@@ -103,7 +105,7 @@ IF OnStartup()==0 THEN
     rc = BleCharValueRead(hMyChar,at$)
     PRINT "\nValue of the characteristic ";hMyChar;" is: ";at$
     PRINT "\nYou can write to the CCCD characteristic."
-    PRINT "\nThe BL600 will then indicate a new characteristic value\n"
+    PRINT "\nThe BL652 will then indicate a new characteristic value\n"
     PRINT "\n--- Press button 1 to exit"
 ELSE
     PRINT "\nFailure OnStartup"

UserGuideExamples/EvAuthSccD.sb

@@ -85,7 +85,7 @@ IF OnStartup()==0 THEN
     rc = BleCharValueRead(hMyChar,at$)
     PRINT "\nCharacteristic Value: ";at$
     PRINT "\nYou can write to the SCCD attribute."
-    PRINT "\nThe BL600 will then indicate a new characteristic value"
+    PRINT "\nThe BL652 will then indicate a new characteristic value"
     PRINT "\n--- Press button 1 to exit\n"
 ELSE
     PRINT "\nFailure OnStartup"

UserGuideExamples/EvCharVal.sb

@@ -6,15 +6,14 @@ DIM hMyChar,rc,at$,conHndl
 //==============================================================================
 FUNCTION OnStartup()
     DIM rc, hSvc, attr$, adRpt$, addr$, scRpt$ : attr$="Hi"
-    
+
     //commit service
-    rc=BleSvcCommit(1,BleHandleUuid16(0x18EE),hSvc)            
-	rc=BleServiceNew(1, BleHandleUuid16(0x18EE), hSvc)
+    rc=BleServiceNew(1, BleHandleUuid16(0x18EE), hSvc)
     //initialise char, write/read enabled, accept signed writes
     rc=BleCharNew(0x0A,BleHandleUuid16(1),BleAttrMetaData(1,1,20,0,rc),0,0)     
     //commit char initialised above, with initial value "hi" to service 'hSvc'
     rc=BleCharCommit(hSvc,attr$,hMyChar)
-	//commit changes to service
+    //commit changes to service
     rc=BleServiceCommit(hSvc)
     rc=BleScanRptInit(scRpt$) 
     //Add 1 service handle to scan report

UserGuideExamples/EvNotifyBuf.sb

@@ -12,14 +12,13 @@ FUNCTION OnStartup()
     DIM mdCccd : mdCccd = BleAttrMetadata(1,1,2,0,rc)   //CCCD metadata for char
 
     //Commit svc with handle 'hSvc'
-	rc=BleServiceNew(1, BleHandleUuid16(0x18EE), hSvc)
-    rc=BleSvcCommit(1,BleHandleUuid16(0x18EE),hSvc)            
+    rc=BleServiceNew(1, BleHandleUuid16(0x18EE), hSvc)
     //initialise char, write/read enabled, accept signed writes, notifiable
     rc=BleCharNew(0x12,BleHandleUuid16(1),BleAttrMetaData(1,0,20,0,rc),mdCccd,0)     
     //commit char initialised above, with initial value "hi" to service 'hMyChar'
     rc=BleCharCommit(hSvc,attr$,hMyChar)
-	//commit changes to service
-	rc=BleServiceCommit(hSvc)
+    //commit changes to service
+    rc=BleServiceCommit(hSvc)
     rc=BleScanRptInit(scRpt$) 
     //Add 1 service handle to scan report
     rc=BleAdvRptAddUuid16(scRpt$,0x18EE,-1,-1,-1,-1,-1)