Ali Nashath

Paged Model for Knockout.js foreach pagination

2014-09-29T00:34:00.000-07:00

Here is a paged model which can be used with knockout.js to display paged tables etc.

1:  var Model = function() {  
2:    var self = this;  
3:    //Array container to host items  
4:    this.all = ko.observableArray([]);  
5:    //Current Page Number  
6:    this.pageNumber = ko.observable(1);  
7:    //No of Items Per page  
8:    this.nbPerPage = ko.observable(3);  
9:    //Total Number of Pages  
10:    this.totalPages = ko.computed(function() {  
11:      var div = Math.floor(self.all().length / self.nbPerPage());  
12:      div += self.all().length % self.nbPerPage() > 0 ? 1 : 0;  
13:      return div ;  
14:    });  
15:    //Number of Items in the Array  
16:    this.nItems = ko.computed(function () {  
17:      return self.all().length;  
18:    });  
19:    //Paginated array  
20:    this.paginated = ko.computed(function() {  
21:      var first = (self.pageNumber() - 1) * self.nbPerPage();  
22:      return self.all.slice(first, first + self.nbPerPage());  
23:    });  
24:    //Has a previous item  
25:    this.hasPrevious = ko.computed(function() {  
26:      return self.pageNumber() !== 1;  
27:    });  
28:    //Has a next item  
29:    this.hasNext = ko.computed(function() {  
30:      return self.pageNumber() !== self.totalPages();  
31:    });  
32:    //Move to next  
33:    this.next = function() {  
34:      if(self.pageNumber() < self.totalPages()) {  
35:        self.pageNumber(self.pageNumber() + 1);  
36:      }  
37:    }  
38:    //Move to first page  
39:    this.first = function () {    
40:        self.pageNumber(1);   
41:    }  
42:    //Move to Last page  
43:    this.last = function () {  
44:      self.pageNumber(self.totalPages());  
45:    }  
46:    //Move to Previous page  
47:    this.previous = function() {  
48:      if(self.pageNumber() != 1) {  
49:        self.pageNumber(self.pageNumber() - 1);  
50:      }  
51:    }  
52:    //set number of Items per page  
53:    this.setnPerPage = function (val) {  
54:      return function () {  
55:        self.nbPerPage(val);  
56:      }  
57:    }  
58:    //filtering options  
59:    this.filter = function (val,id) {  
60:      return function () {    
61:      //Create Own filtering  
62:    }  
63:    }  
64:  }

Use following code to initialed and start binding.

1:   var m = new Model();  
2:        m.all(data);  
3:        m.nbPerPage(5);  
4:        ko.applyBindings(m);  
5:        $('#loading').button('reset');

where data can be any json object.
Usage:
1. use 'paginated' in foreach binding.
2. load initial data to 'all'
3. Use click bind for use 'first,next, last, previous'.

Display thaana dates in dhivehi sites.

2014-09-29T00:21:00.001-07:00

Here is a small JavaScript snippet which can be used to display date strings in thaana format.

thaanaDates.js

 function thaanaDates(dateObj){   
           this.getLong = function() {  
             return dateObj.getDate() + " " + dateObj.getThaanaMonthName() + " " + dateObj.getFullYear() + " (" + dateObj.getThaanaDayName() + ")";  
           }  
           this.getShort = function() {  
             return dateObj.getDate() + " " + dateObj.getThaanaMonthName() + " " + dateObj.getFullYear();  
           }  
           this.getLongReverse = function() {  
              return dateObj.getFullYear() + " " + dateObj.getThaanaMonthName() + " " + dateObj.getDate() + "، " + dateObj.getThaanaDayName() + "";  
           }  
           this.getDayFirst = function() {  
              return dateObj.getThaanaDayName() + "، " + dateObj.getDate() + " " + dateObj.getThaanaMonthName() + " " + dateObj.getFullYear() + "";  
           }       
 }  
 Date.prototype.getThaanaMonthName = function() {  
           var m = ["ޖަނަވަރީ","ފެބްރުއަރީ","މާރިޗު","އޭޕުރީލް","މޭ","ޖޫން","ޖުލައި","އޯގަސްޓް","ސެޕްޓެމްބަރު","އޮކްޓޯބަރު","ނޮވެމްބަރު","ޑިސެމްބަރު"];            
           return m[this.getMonth()];  
 }   
 Date.prototype.getThaanaDayName = function() {  
           var d = ["އާދީއްތަ","ހޯމަ","އަންގާރަ","ބުދަ","ބުރާސްފަތި","ހުކުރު","ހޮނިހިރު"];  
           return d[this.getDay()];  
 }

Methods:

getLong: Displays long formatted thaana date string

getShort: Displays date without a day string

getLongReverse: Displays date string with year at the beginning

getDayFirst: Displays date string with day string at the beginning

Simpla Usage:

 document.getElementById("demo").innerHTML = new thaanaDates(new Date).getLong();

Downloads:

thaanaDates.js
thaanaDates.min.js

.NET Function to check if a file in use

2014-03-13T09:28:00.004-07:00

Here is a .NET Function to use whether a file in system is in use by another process or application before attempting to use the file.

If the file is in use following function will return false.

VB.NET

Public Function FileInUse(ByVal sFile As String) As Boolean
Dim thisFileInUse As Boolean = False
If System.IO.File.Exists(sFile) Then
Try
Using f As New IO.FileStream(sFile, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
' thisFileInUse = False
End Using
Catch
thisFileInUse = True
End Try
End If
Return thisFileInUse
End Function

C#


public bool FileInUse(string sFile)
{
 bool thisFileInUse = false;
 if (System.IO.File.Exists(sFile)) {
  try {
   using (System.IO.FileStream f = new System.IO.FileStream(sFile, FileMode.Open, FileAccess.ReadWrite, FileShare.None)) {
    // thisFileInUse = False
   }
  } catch {
   thisFileInUse = true;
  }
 }
 return thisFileInUse;
}

Free PDF Splitter - Nashath Auto PDF Splitter 1.0

2014-03-12T13:02:00.001-07:00

This is a FREE Software under GPL 3.0, which splits pdf files on a given folder and saves to another location while leaving a copy of original file into a different folder.

This standalone tool watches any given folder for PDF files and once a pdf file is created on the folder, it splits file into seperate single page files and save it into a different folder and moves orginals to another folder. This software uses pdftk-server http://www.pdflabs.com/tools/pdftk-server/ to split pdf files.

Download link
http://nashathpdfsplitter.codeplex.com/

Mapping Feridhoo

2012-10-03T03:53:00.002-07:00

It's been a year since I started mapping my island, Feridhoo in Google Maps. But due to lack of time, I have not been able to finish it completely. I was able to add all the roads and Island shape so far. Hopefully I'll finish editing this map before the end of this year.

View Larger Map

This is what i have as a resource

VB.NET Easy way to write to Text File

2012-10-03T03:22:00.000-07:00

Following lines of code is enough to write a string to a text file.

First, import the name space, system.IO

Second, use following code snippet at anywhere in your application which has the requirement to write to a file.

Using sr As StreamWriter = New StreamWriter("myfile.txt", True)
sr.WriteLine("Hello")
End Using

Explaining the Highlights:
1. "myfile.txt" is the file name you want write to, can include file locations. if the file does not exists in the location, file will be created.
2. True ,means append to the file if file exist, use false to write new.
3. sr.WriteLine("Hello") , used to write to the file.

SQL Query: Getting Data by Age Groups from a date column

2012-09-26T03:59:00.000-07:00

Recently i was working on a Ballot progress reporting system at my office. for that i have to generate a data set which has number of voters grouped by age group. This can be easily done at application level coding. But i wanted to have SQL query which directly out put these data for me as a SP.

Voting data is collected to this table

So here is what my query looks like.

SELECT ages.age_s +Sep.s+ages.age_e as AgeGroup ,COUNT(T)as Count
FROM (SELECT ' - ' AS s) AS Sep
CROSS JOIN
(SELECT '18' AS age_s, '24' AS age_e
UNION ALL
SELECT '25' AS age_s, '34' AS age_e
UNION ALL
SELECT '35' AS age_s, '44' AS age_e
UNION ALL
SELECT '45' AS age_s, '54' AS age_e
UNION ALL
SELECT '55' AS age_s, '64' AS age_e
UNION ALL
SELECT '65' AS age_s, '74' AS age_e
UNION ALL
SELECT '75' AS age_s, '100' AS age_e) AS ages
LEFT OUTER JOIN
(SELECT ((DATEPART(year, CONVERT (date, GETDATE())
))-(DATEPART(year, dob))) as T from VotingInfo ) AS m
ON T BETWEEN ages.age_s AND age_e
GROUP by ages.age_s +Sep.s+ages.age_e
ORDER BY ages.age_s +Sep.s+ages.age_e asc


Output of the above query

Explanation:

'age_s' and 'age_e' is boundary of age groups like 18-24,25-34
'dob' is the field name where i stored Dob of those who have voted
'VotingInfo' is the table name from where i collect date

Data visualized in the application

PHP Captcha Class Using Session Variable

2011-10-23T00:39:00.000-07:00

Following php class will generate a captcha at runtime using random numbers assigned to session variable and display it as an image.

Captcha generated using this class

// Set the content-type
session_start();

header('Content-Type: image/png');

// Create the image
$im = imagecreatetruecolor(180, 40);

// Create some colors
$white = imagecolorallocate($im, 255, 248, 201);
$grey = imagecolorallocate($im, 128, 128, 128);
$black = imagecolorallocate($im, 135, 85, 70);
imagefilledrectangle($im, 2, 2, 178, 38, $white);

// The text to draw
$text = $_SESSION['secure'];
// Replace path by your own font path
$font = 'nyala.ttf';

// Add some shadow to the text
imagettftext($im, 35, 0, 0, 0, $black, $font, $text);

// Add the text
imagettftext($im, 38, 0, 20, 30, $black, $font, $text);

for ($i = 1; $i <= 150; $i++) {
$x1=rand (1,180);
$y1=rand (1,180);
$x2=rand (1,180);
$y2=rand (1,180);
imageline($im ,$x1,$y1,$x2,$y2, $black);
}
$rey2 = imagecolorallocate($im, 255, 248, 201);

for ($i = 1; $i <= 30; $i++) {
$x1=rand (1,180);
$y1=rand (1,180);
$x2=rand (1,180);
$y2=rand (1,180);
imageline($im ,$x1,$y1,$x2,$y2, $rey2);
}
// Using imagepng() results in clearer text compared with imagejpeg()
imagepng($im);
imagedestroy($im);
?>

Save the above file with the name generate.php or any other name you like.

How to call this Class
In the page you want add this captcha,add following code to header

session_start();

if (!isset($_POST['secure'])) {

$_SESSION['secure'] =rand(100000, 999999);

}

and in img tag src call to

src="generate.php"

VB.Net Send Email With Attachment (SMTP)

2011-02-22T23:41:00.000-08:00

'Send Mail Class

Imports Microsoft.VisualBasic
Imports System.Net.Mail
Imports System.Text

Public Class SendEmail
   Dim smtpCredentials As New Net.NetworkCredential("username", "password")
   Public Sub SendEmailMessage(ByVal strFrom As String, ByVal strTo() _
   As String, ByVal strSubject _
   As String, ByVal strMessage _
   As String, ByVal fileList() As String)
   'This procedure takes string array parameters for multiple recipients and files
   Try
   For Each item As String In strTo
   'For each to address create a mail message
   Dim MailMsg As New MailMessage(New MailAddress(strFrom.Trim()), New MailAddress(item))
   MailMsg.BodyEncoding = Encoding.Default
   MailMsg.Subject = strSubject.Trim()
   MailMsg.Body = strMessage.Trim() & vbCrLf
   MailMsg.Priority = MailPriority.High
   MailMsg.IsBodyHtml = True

   'attach each file attachment
   For Each strfile As String In fileList
   If Not strfile = "" Then
   Dim MsgAttach As New Attachment(strfile)
   MailMsg.Attachments.Add(MsgAttach)
   End If
   Next

   'Smtpclient to send the mail message
   Dim SmtpMail As New SmtpClient
   SmtpMail.UseDefaultCredentials = False
   SmtpMail.Host = "hostname"
   SmtpMail.EnableSsl = True
   SmtpMail.Credentials = smtpCredentials
   SmtpMail.Send(MailMsg)
   Next
   MessageBox.Show("Success")
   Catch ex As Exception
   MessageBox.Show(ex.Message)
   End Try
   End Sub

   Public Sub SendEmailMessage(ByVal strFrom As String, ByVal strTo _
   As String, ByVal strSubject _
   As String, ByVal strMessage _
   As String, ByVal file As String)
   'This procedure overrides the first procedure and accepts a single
   'string for the recipient and file attachement
   Try
   Dim MailMsg As New MailMessage(New MailAddress(strFrom.Trim()), New MailAddress(strTo))
   MailMsg.BodyEncoding = Encoding.Default
   MailMsg.Subject = strSubject.Trim()
   MailMsg.Body = strMessage.Trim() & vbCrLf
   MailMsg.Priority = MailPriority.High
   MailMsg.IsBodyHtml = True

   If Not file = "" Then
   Dim MsgAttach As New Attachment(file)
   MailMsg.Attachments.Add(MsgAttach)
   End If

   'Smtpclient to send the mail message
   Dim SmtpMail As New SmtpClient
   SmtpMail.UseDefaultCredentials = False
   SmtpMail.Host = "mail.elections.gov.mv"
   SmtpMail.Credentials = smtpCredentials
   SmtpMail.Send(MailMsg)
   MessageBox.Show("List has been Successfully mailed to Elections Commission", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
   Catch ex As Exception
   MessageBox.Show(ex.Message)
   End Try
   End Sub
End Class

'Send Mail Button Code

Private Sub btnSendEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendEmail.Click
   Dim SendEmail As New SendEmail
   Dim SendTo As String
   Dim FileAttach As String = Nothing
   Dim strSubject As String
   Dim strMessage As String

   SendTo = "to"

   FileAttach = "location of the Attachment"

   strSubject = "Subject"

   strMessage = "Message" 'The body encoding is set to HTML

   SendEmail.SendEmailMessage("frommail", SendTo, strSubject, strMessage, FileAttach)
   End Sub

   Private Sub cmbConsit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbConsit.SelectedIndexChanged
   values(cmbConsit.SelectedItem)
   End Sub

My Version of Hunspell affix file for Thaana

2010-10-14T21:15:00.001-07:00

As i was working in project Maaharaa I created this affix file. I believe there are still improvements needed to made to this file. but this file works fine as it generates the variations for words. and hence if a single word is written in any of its 17 possible variation will not be shown as a misspelled word even though this the word is not in the main dic.

So those who are interested feel free to use it.

-----------------------------------------------------------------------------------

SET UTF-8

MAP 7
MAP އޢޣ
MAP ޝޞޟސ
MAP ފޕ
MAP ޤގ
MAP ތޠ
MAP ޙޚހ
MAP ވޥ

REP 23
REP އް ށް
REP ށް އް
REP އް ތް
REP ތް އް
REP ނ ން
REP ން ނ
REP ުއާއި ާއި
REP ުއަށް ަށް
REP ު ޫ
REP ޫ ު
REP ެ ޭ
REP ޭ ެ
REP ޮ ޯ
REP ޯ ޮ
REP ި ީ
REP ީ ި
REP ަ ާ
REP ާ ަ
REP އެވެ އެވެ.
REP ށެވެ ށެވެ.
REP ކެވެ ކެޗެ.
REP ެވެ ެވެ.
REP ަކާއި ަކައި

SFX A Y 10
SFX A ހި އްސަށް/W ހި
SFX A ހި އްސެއް/W ހި
SFX A ހި އްސަކައި ހި
SFX A ހި އްސަކީ/W ހި
SFX A ހި އްސާއި ހި
SFX A ހި އްސެވެ. ހި
SFX A ހި އްސެކެވެ. ހި
SFX A ހި އްސެއްގެ/W ހި
SFX A ހި ހީގެ/W ހި
SFX A ހި އްސަށްވުރެ/W ހި

SFX B Y 10
SFX B ށި ށްޓަށް/W ށި
SFX B ށި ށްޓެއް/W ށި
SFX B ށި ށްޓަކައި ށި
SFX B ށި ށްޓަކީ/W ށި
SFX B ށި ށްޓާއި ށި
SFX B ށި ށްޓެވެ. ށި
SFX B ށި ށްޓެކެވެ. ށ
SFX B ށި ށްޓެއްގެ/W ށި
SFX B ށި ށީގެ/W ށި
SFX B ށި ށްޓަށްވުރެ/W ށި

SFX C Y 10
SFX C ނި ންޏަށް/W ނި
SFX C ނި ންޏެއް/W ނި
SFX C ނި ންޏަކައި ނި
SFX C ނި ންޏަކީ/W ނި
SFX C ނި ންޏާއި ނި
SFX C ނި ންޏެވެ. ނި
SFX C ނި ންޏެކެވެ. ނި
SFX C ނި ންޏެއްގެ/W ނި
SFX C ނި ނީގެ/W ނި
SFX C ނި ންޏަށްވުރެ/W ނި

SFX D Y 10
SFX D ފި ތްޕަށް/W ފި
SFX D ފި ތްޕެއް/W ފި
SFX D ފި ތްޕަކައި ފި
SFX D ފި ތްޕަކީ/W ފި
SFX D ފި ތްޕާއި ފި
SFX D ފި ތްޕެވެ. ފި
SFX D ފި ތްޕެކެވެ. ފި
SFX D ފި ތްޕެއްގެ/W ފި
SFX D ފި ފީގެ/W ފި
SFX D ފި ތްޕަށްވުރެ/W ފި

SFX E Y 20
SFX E ނދި ންޖަށް/W ނދި
SFX E ނދި ންޖެއް/W ނދި
SFX E ނދި ންޖަކައި ނދި
SFX E ނދި ންޖަކީ/W ނދި
SFX E ނދި ންޖާއި ނދި
SFX E ނދި ންޖެވެ. ނދި
SFX E ނދި ންޖެކެވެ. ނދި
SFX E ނދި ންޖެއްގެ/W ނދި
SFX E ނދި ދީގެ/W ނދި
SFX E ނދި ންޖަށްވުރެ/W ނދި
SFX E ދި އްޖަށް/W ދި
SFX E ދި އްޖެއް/W ދި
SFX E ދި އްޖަކައި ދި
SFX E ދި އްޖަކީ/W ދި
SFX E ދި އްޖާއި ދި
SFX E ދި އްޖެވެ. ދި
SFX E ދި އްޖެކެވެ. ދި
SFX E ދި އްޖެއްގެ/W ދި
SFX E ދި ދީގެ/W ދި
SFX E ދި އްޖަށްވުރެ/W ދި

SFX F Y 50
SFX F ތި އްޗަށް/W ތި
SFX F ތި އްޗެއް/W ތި
SFX F ތި އްޗަކައި ތި
SFX F ތި އްޗަކީ/W ތި
SFX F ތި އްޗާއި ތި
SFX F ތި އްޗެވެ. ތި
SFX F ތި އްޗެކެވެ. ތި
SFX F ތި އްޗެއްގެ/W ތި
SFX F ތި ތީގެ/W ތި
SFX F ތި އްޗައްވުރެ/W ތި
SFX F ލި އްޔައް/W ލި
SFX F ލި އްޔެއް/W ލި
SFX F ލި އްޔަކައި ލި
SFX F ލި އްޔަކީ/W ލި
SFX F ލި އްޔާއި ލި
SFX F ލި އްޔެވެ. ލި
SFX F ލި އްޔެކެވެ. ލި
SFX F ލި އްޔެއްގެ/W ލި
SFX F ލި ލީގެ/W ލި
SFX F ލި އްޔެށްވުރެ/W ލި
SFX F ކި ތްކަށް/W ކި
SFX F ކި ތްކެއް/W ކި
SFX F ކި ތްކަކާއި ކި
SFX F ކި ތްކަކީ/W ކި
SFX F ކި ތްކައި ކި
SFX F ކި ތްކެވެ. ކި
SFX F ކި ތްކެކެވެ. ކި
SFX F ކި ތްކެއްގެ/W ކި
SFX F ކި ކީގެ/W ކި
SFX F ކި ތްކަށްވުރެ/W ކި
SFX F ވި ތްވަށް/W ވި
SFX F ވި ތްވެއް/W ވި
SFX F ވި ތްވަކައި ވި
SFX F ވި ތްވަކީ/W ވި
SFX F ވި ތްވާއި ވި
SFX F ވި ތްވެވެ. ވި
SFX F ވި ތްވެކެވެ. ވި
SFX F ވި ތްވެއްގެ/W ވި
SFX F ވި ވީގެ ވި
SFX F ވި ތްވަށްވުރެ/W ވި
SFX F ބި ތްބަށް/W ބި
SFX F ބި ތްބެއް/W ބި
SFX F ބި ތްބަކައި ބި
SFX F ބި ތްބަކީ/W ބި
SFX F ބި ތްބާއި ބި
SFX F ބި ތްބެވެ. ބި
SFX F ބި ތްބެކެވެ. ބި
SFX F ބި ތްބެއްގެ/W ބި
SFX F ބި ބީގެ/W ބި
SFX F ބި ތްބަށްވުރެ/W ބި

SFX G Y 10
SFX G ފެން ފެނަށް/WXYZ ފެން
SFX G ފެން ފެނެއް/WXYZ ފެން
SFX G ފެން ފެނަކައި/XYZ ފެން
SFX G ފެން ފެނަކީ/W ފެން
SFX G ފެން ފެނާއި/XYZ ފެން
SFX G ފެން ފެނެވެ./XYZ ފެން
SFX G ފެން ފެނެކެވެ./XYZ ފެން
SFX G ފެން ފެނެއްގެ/WXYZ ފެން
SFX G ފެން ފެންގެ/WXYZ ފެން
SFX G ފެން ފެނަށްވުރެ/WXYZ ފެން

SFX H Y 10
SFX H ން މަށް/W ން
SFX H ން މެއް/W ން
SFX H ން މަކައި ން
SFX H ން މަކީ/W ން
SFX H ން މާއި ން
SFX H ން މެވެ. ން
SFX H ން މެކެވެ. ން
SFX H ން މެއްގެ/W ން
SFX H ން މުގެ/W ން
SFX H ން މަށްވުރެ/W ން

SFX I Y 10
SFX I އް ކަށް/W އް
SFX I އް ކެއް/W އް
SFX I އް ކައި އް
SFX I އް ކަކީ/W އް
SFX I އް ކާއި އް
SFX I އް ކެވެ. އް
SFX I އް ކެކެވެ. އް
SFX I އް ކެއްގެ/W އް
SFX I އް ކުގެ/W އް
SFX I އް ކަށްވުރެ/W އް

SFX J Y 10
SFX J ސް ހަށް/W ސް
SFX J ސް ހެއް/W ސް
SFX J ސް ހައި ސް
SFX J ސް ހަކީ/W ސް
SFX J ސް ހަކާއި ސް
SFX J ސް ހެވެ. ސް
SFX J ސް ހެކެވެ. ސް
SFX J ސް ހެއްގެ/W ސް
SFX J ސް ހުގެ/W ސް
SFX J ސް ހަށްވުރެ/W ސް

SFX K Y 10
SFX K ާ ަލަށް/W ާ
SFX K ާ ަލެއް/W ާ
SFX K ާ ަލައި ާ
SFX K ާ ަލަކީ/W ާ
SFX K ާ ަލަކާއި ާ
SFX K ާ ަލެވެ. ާ
SFX K ާ ަލެކެވެ. ާ
SFX K ާ ަލެއްގެ/W ާ
SFX K ާ ަލުގެ/W ާ
SFX K ާ ަލަށްވުރެ/W ާ

SFX L Y 10
SFX L ޫ ުލަށް/W ޫ
SFX L ޫ ުލެއް/W ޫ
SFX L ޫ ުލައި ޫ
SFX L ޫ ުލަކީ/W ޫ
SFX L ޫ ުލަކާއި ޫ
SFX L ޫ ުލެވެ. ޫ
SFX L ޫ ުލެކެވެ. ޫ
SFX L ޫ ުލެއްގެ/W ޫ
SFX L ޫ ުލުގެ/W ޫ
SFX L ޫ ުލަށްވުރެ/W ޫ

SFX M Y 10
SFX M ޔޮ ލަށް/W ޔޮ
SFX M ޔޮ ލެއް/W ޔޮ
SFX M ޔޮ ލައި ޔޮ
SFX M ޔޮ ލަކީ/W ޔޮ
SFX M ޔޮ ލަކާއި ޔޮ
SFX M ޔޮ ލެވެ. ޔޮ
SFX M ޔޮ ލެކެވެ. ޔޮ
SFX M ޔޮ ލެއްގެ/W ޔޮ
SFX M ޔޮ ލުގެ/W ޔޮ
SFX M ޔޮ ލަށްވުރެ/W ޔޮ

SFX N Y 10
SFX N ޯ ޮލަށް/W ޯ
SFX N ޯ ޮލެއް/W ޯ
SFX N ޯ ޮލައި ޯ
SFX N ޯ ޮލަކީ/W ޯ
SFX N ޯ ޮލަކާއި ޯ
SFX N ޯ ޮލެވެ. ޯ
SFX N ޯ ޮލެކެވެ. ޯ
SFX N ޯ ޮލެއްގެ/W ޯ
SFX N ޯ ޮލުގެ/W ޯ
SFX N ޯ ޮލަށްވުރެ/W ޯ

SFX O Y 10
SFX O އި ޔަށް/W އި
SFX O އި ޔެއް/W އި
SFX O އި ޔައި އި
SFX O އި ޔަކީ/W އި
SFX O އި ޔަކާއި އި
SFX O އި ޔެވެ. އި
SFX O އި ޔެކެވެ. އި
SFX O އި ޔެއްގެ/W އި
SFX O އި ޔެގެ/W އި
SFX O އި ޔެށްވުރެ/W އި

SFX Q Y 10
SFX Q ތް ތަށް/W ތް
SFX Q ތް ޔެއް/W ތް
SFX Q ތް ތައި ތް
SFX Q ތް ތަކީ/W ތް
SFX Q ތް ތަކާތް ތް
SFX Q ތް ތެވެ. ތް
SFX Q ތް ތެކެވެ. ތް
SFX Q ތް ތެއްގެ/W ތް
SFX Q ތް ތުގެ/W ތް
SFX Q ތް ތަށްވުރެ/W ތް

SFX P Y 14
SFX P 0 އަށް/W
SFX P 0 އެއް/W
SFX P 0 އައި
SFX P 0 އަކީ/W
SFX P 0 އަކާއި
SFX P 0 އެވެ. ު
SFX P 0 ނެވެ. ނެ
SFX P 0 ނެކެވެ. ނެ
SFX P 0 އެކެވެ. އެ
SFX P ާ ުން ާ
SFX P ް ުން ް
SFX P 0 ން
SFX P 0 ގެ/W
SFX P 0 އްގެ/W

SFX W Y 1
SFX W 0 ވެސް

PFX X Y 1
PFX X 0 މި

PFX Y Y 1
PFX Y 0 އެ

PFX Z Y 1
PFX Z 0 ތި

Selecting word by right clicking richtextbox vb.net

2010-09-09T14:56:00.000-07:00

Recently I've searched internet to find a way to select a word in richtextbox by right clicking the word. But ended up with nothing. May be I've not used right key words to search. Anyways here is what i did by referring to the resource. I hope these would be useful to sum1 like me.

Use these line of codes at mouse down event of richtextbox.



Private Sub rtbInput_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles rtbInput.MouseDown



        ' Getting the word under the mouse clicked loaction
        If e.Button = MouseButtons.Right Then
            Dim CharIndex As Int32
            Dim StartPos As Int32
            Dim EndPos As Int32


            'location of mouse clicked
            CharIndex = rtbInput.GetCharIndexFromPosition(New Point(e.X, e.Y))
            'Locating the end point of the selections
            EndPos = rtbInput.Text.IndexOf(" ", CharIndex)
            'Locating the start point of the selection
            StartPos = rtbInput.Text.LastIndexOf(" ", CharIndex)


            'Checking if the mouse clicked on word 
            If EndPos = -1 Then
                EndPos = 0
            End If
            If StartPos = -1 Then
                StartPos = 0
            End If
            If StartPos > EndPos Then
                Exit Sub
            End If
            'selecting the word under the clicked location
            CharIndex -= StartPos
            rtbInput.Select(StartPos, EndPos - StartPos)
        End If
    End Sub

Revised SFYD :Logo

2010-09-08T16:05:00.000-07:00

Following are the revision made to SFYD logo and bedge. These designs are made while taking consider the feedbacks and suggestion provided by the team.

SFYD Proposed volley team bedge

SFYD proposed football team bedge

SFYD Proposed bedge

SFYD proposed logo

Proposed SFYD Logos

2010-09-05T08:34:00.001-07:00

These are the proposed design for SFYD logo.

leave any comment or ur thought on these logos.

Design1

Design 2

Design 3

vb.net Base Converter

2008-11-22T04:28:00.000-08:00

Option Explicit On
Option Strict On

Public Class frmCOnvert
Dim input As Long
Dim output As String

Private Sub btnConvert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConvert.Click
If IsNumeric(txtinout.Text) Then
input = CLng(txtinout.Text)
End If
If RadBin.Checked = True Then
output = Convert.ToString(input, 2)
txtinout.Text = output
End If
If RadOct.Checked = True Then
output = Convert.ToString(input, 8)
txtinout.Text = output
End If
If radHex.Checked = True Then
output = Convert.ToString(input, 16)
txtinout.Text = output
End If
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
txtinout.Clear()
input = 0
output = CStr(0)
End Sub

Private Sub btnZero_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnZero.Click
txtinout.Text &= "0"
End Sub

Private Sub BtnPoint_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles BtnPoint.Click
txtinout.Text &= "."
End Sub

Private Sub btn1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn1.Click
txtinout.Text &= "1"
End Sub

Private Sub btn2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn2.Click
txtinout.Text &= "2"
End Sub

Private Sub btn3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn3.Click
txtinout.Text &= "3"
End Sub

Private Sub btn4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn4.Click
txtinout.Text &= "4"
End Sub

Private Sub btn5_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn5.Click
txtinout.Text &= "5"
End Sub

Private Sub btn6_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn6.Click
txtinout.Text &= "6"
End Sub

Private Sub btn7_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn7.Click
txtinout.Text &= "7"
End Sub

Private Sub btn8_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn8.Click
txtinout.Text &= "8"
End Sub

Private Sub btn9_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn9.Click
txtinout.Text &= "9"
End Sub

End Class

Guess Number Game in VB.net

2008-11-22T04:23:00.000-08:00

frmGame Codes
Option Explicit On
Option Strict On

Public Class frmGuess

Dim RandomClass As New Random()
Dim tries As Integer = 0
Dim number As Integer
Dim max As Integer = 100
Dim min As Integer = 0

Private Sub frmGuess_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
number = RandomClass.Next(1, 100)
lbldisplay.Text = "I've a number between 1 and 100" & vbCrLf & _
"Can You Guess My Number" & vbCrLf & "Please Enter the First Guess"
End Sub

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnCalculate.Click

If (CInt(txtEntry.Text)) = number Then
Me.BackColor = Color.Green
tries += 1
frmBegin.lblWinDisplay.Text = "You Win"
frmBegin.lblTries.Text = "Number of Tries= " & tries
btnCalculate.Text = ("&Try Again")
frmBegin.BackColor = Color.GreenYellow
Me.Close()
frmBegin.Show()

ElseIf (CInt(txtEntry.Text)) > (number) Then
Me.BackColor = Color.Red
tries += 1
lbldisplay.Text = "High" & vbCrLf & "Try Again"
max = CInt(txtEntry.Text)

ElseIf (CInt(txtEntry.Text)) < (number) Then Me.BackColor = Color.Blue tries += 1 lbldisplay.Text = "Low" & vbCrLf & "Try Again" min = CInt(txtEntry.Text) End If End Sub Private Sub txtEntry_Validated(ByVal sender As Object, ByVal e As _ System.EventArgs) Handles txtEntry.Validated If CInt(txtEntry.Text) > 100 Then
MessageBox.Show("Enter a Number Below 100", "NOT ALLOWED")
End If

If CInt(txtEntry.Text) > max Then
MessageBox.Show("Number Higher than " & max & " is not allowed", _
"NUMBER IS HIGH")
End If

If CInt(txtEntry.Text) <>