Mobile

Quote:

var title = 'test title';
var loc = 'chennai';
var notes = 'test Notes';
var eventstartdate = "2015,1,15,0,0,0,0,0";
var eventenddate = "2015,1,16,0,0,0,0,0";
var fulleventstartdate = new Date(feventstartdate);
var fulleventenddate = new Date(feventenddate);

//---To Create calendar--------------------------------------
function createCalendar() {
var createCalOptions = window.plugins.calendar.getCreateCalendarOptions();
createCalOptions.calendarName = "Mycal";
createCalOptions.calendarColor = "#ffec8b";
window.plugins.calendar.createCalendar(createCalOptions, onSuccess, onError);
}

//---To Create event--------------------------------------
function createevent() {
window.plugins.calendar.createEventInNamedCalendar(title, location, notes, fulleventstartdate, fulleventenddate, calendarName, onSuccess, onError);
}

//---To delete event--------------------------------------
function deleteevent() {
window.plugins.calendar.deleteEventFromNamedCalendar(title, loc, notes, fulleventstartdate, fulleventenddate, calendarName, onSuccess, onError);
}

//---To modify event--------------------------------------
function updates() {

var newTitle = "New title";
window.plugins.calendar.modifyEventInNamedCalendar(title, loc, notes, fulleventstartdate, fulleventenddate, newTitle, loc, notes, fulleventstartdate, fulleventenddate, calendarName, onSuccess, onError);
}

window.onerror = function (msg, file, line) {
alert(msg + '; ' + file + '; ' + line);
};


function onSuccess(msg) { alert('Calendar success: ' + JSON.stringify(msg)); }

Public uriString As String = "http://smarthome.trab.dk"

Public Async Function getData(ByVal gType As String) As Tasks.Task(Of String)
    Try
        Dim Resp As String = Nothing

        Using httpClient As New HttpClient
            httpClient.BaseAddress = New Uri(uriString)
            httpClient.Timeout = TimeSpan.FromSeconds(10)

            Dim response As HttpResponseMessage = Await httpClient.GetAsync("/wpf/getData.php?g=" + gType.ToLower)

            Resp = Await response.Content.ReadAsStringAsync
        End Using

        Return Resp
    Catch webEx As HttpRequestException
        MessageBox.Show(webEx.Message)
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Function

Public Function ACount() As String
    Dim resp As String = getData("power").Result

    Return "Actual: " + resp
End Function