Made Amharic text in vb.net

A program to convert Amharic text written with power geez 2005 softwar

Page 1 of 1

1 Replies - 3870 Views - Last Post: 22 September 2009 - 12:51 PM Rate Topic: -----

#1 Tinsae  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 5
  • Joined: 06-September 09

Made Amharic text in vb.net

Post icon  Posted 22 September 2009 - 12:37 PM

A program to convert Amharic text written with power geez 2005 software to a format to use in controls of vb.net such as textbox,richtextbox text propety.
When you copy the converted text to a vb.net control text property it will display it as Amharic
This program has two classes Amh-Eng.vb and AmhMsgBox.vb
Here are the classes
First Amh-Eng.vb

Public Class Form1
	Private Sub B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangeButton.Click
		If (RadioButton1.Checked = True) Then

			EnglishRTB.Text = AmharicRTB.Text
			AmhMsgBox.DoIt(" T`  K= uM K<֪M::")
			AmhMsgBox.ShowIt()

		ElseIf (RadioButton2.Checked = True) Then
			AmharicRTB.Text = EnglishRTB.Text
			AmhMsgBox.DoIt("}K<<M::")
			AmhMsgBox.ShowIt()
		Else
			AmhMsgBox.DoIt("SS] uc}^ }kS< T^ U[<::")
			AmhMsgBox.ShowIt()

		End If
	End Sub



	Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click
		AmharicRTB.Clear()
		EnglishRTB.Clear()
	End Sub

	Private Sub F1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		'  Dim tooltip1 As New ToolTip
		ToolTip1.AutoPopDelay = 5000
		ToolTip1.InitialDelay = 1000
		ToolTip1.ReshowDelay = 500

		ToolTip1.ShowAlways = True

		' Set up the ToolTip text for the Button and Checkbox.
		ToolTip1.SetToolTip(Me.AmharicRTB, "Write Amharic in this area")
		ToolTip1.SetToolTip(Me.EnglishRTB, "Write English in this area")

		ToolTip1.SetToolTip(Me.HeaderPic, "Amharic To English Unicode Vs Converter")
		ToolTip1.SetToolTip(Me.CopyRightPic, "Programmed by Tinsae Gizachew")
		ToolTip1.SetToolTip(Me.RadioButton1, "Amharic To English")
		ToolTip1.SetToolTip(Me.RadioButton2, "English To Amharic")
		ToolTip1.SetToolTip(Me.ChangeButton, "Change")
		ToolTip1.SetToolTip(Me.ClearButton, "Clear Text Area")
		ToolTip1.SetToolTip(Me.ExitButton, "Exit")
	End Sub

	Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click
		Me.Close()
	End Sub
End Class




Now the designer of Amh-Eng
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
	Inherits System.Windows.Forms.Form

	'Form overrides dispose to clean up the component list.
	<System.Diagnostics.DebuggerNonUserCode()> _
	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing AndAlso components IsNot Nothing Then
			components.Dispose()
		End If
		MyBase.Dispose(disposing)
	End Sub

	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer

	'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.  
	'Do not modify it using the code editor.
	<System.Diagnostics.DebuggerStepThrough()> _
	Private Sub InitializeComponent()
		Me.components = New System.ComponentModel.Container
		Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
		Me.AmharicRTB = New System.Windows.Forms.RichTextBox
		Me.Label1 = New System.Windows.Forms.Label
		Me.EnglishRTB = New System.Windows.Forms.RichTextBox
		Me.Label2 = New System.Windows.Forms.Label
		Me.ChangeButton = New System.Windows.Forms.Button
		Me.CopyRightPic = New System.Windows.Forms.PictureBox
		Me.ClearButton = New System.Windows.Forms.Button
		Me.RadioButton1 = New System.Windows.Forms.RadioButton
		Me.RadioButton2 = New System.Windows.Forms.RadioButton
		Me.HeaderPic = New System.Windows.Forms.PictureBox
		Me.ExitButton = New System.Windows.Forms.Button
		Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
		CType(Me.CopyRightPic, System.ComponentModel.ISupportInitialize).BeginInit()
		CType(Me.HeaderPic, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.SuspendLayout()
		'
		'AmharicRTB
		'
		Me.AmharicRTB.Font = New System.Drawing.Font("Ge'ez-1", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.AmharicRTB.Location = New System.Drawing.Point(5, 113)
		Me.AmharicRTB.Margin = New System.Windows.Forms.Padding(5, 4, 5, 4)
		Me.AmharicRTB.Name = "AmharicRTB"
		Me.AmharicRTB.Size = New System.Drawing.Size(474, 74)
		Me.AmharicRTB.TabIndex = 0
		Me.AmharicRTB.Text = ""
		'
		'Label1
		'
		Me.Label1.AutoSize = True
		Me.Label1.Font = New System.Drawing.Font("Ge'ez-1", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label1.Location = New System.Drawing.Point(-2, 83)
		Me.Label1.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
		Me.Label1.Name = "Label1"
		Me.Label1.Size = New System.Drawing.Size(83, 23)
		Me.Label1.TabIndex = 1
		Me.Label1.Text = "T` "
		'
		'EnglishRTB
		'
		Me.EnglishRTB.Font = New System.Drawing.Font("Arial Black", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.EnglishRTB.Location = New System.Drawing.Point(2, 238)
		Me.EnglishRTB.Margin = New System.Windows.Forms.Padding(5, 4, 5, 4)
		Me.EnglishRTB.Name = "EnglishRTB"
		Me.EnglishRTB.Size = New System.Drawing.Size(477, 68)
		Me.EnglishRTB.TabIndex = 2
		Me.EnglishRTB.Text = ""
		'
		'Label2
		'
		Me.Label2.AutoSize = True
		Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label2.Location = New System.Drawing.Point(-2, 209)
		Me.Label2.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
		Me.Label2.Name = "Label2"
		Me.Label2.Size = New System.Drawing.Size(168, 25)
		Me.Label2.TabIndex = 3
		Me.Label2.Text = "English Unicode"
		'
		'ChangeButton
		'
		Me.ChangeButton.Font = New System.Drawing.Font("Ge'ez-1", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.ChangeButton.Location = New System.Drawing.Point(190, 315)
		Me.ChangeButton.Name = "ChangeButton"
		Me.ChangeButton.Size = New System.Drawing.Size(75, 23)
		Me.ChangeButton.TabIndex = 4
		Me.ChangeButton.Text = "K<"
		Me.ChangeButton.UseVisualStyleBackColor = True
		'
		'CopyRightPic
		'
		Me.CopyRightPic.Image = CType(resources.GetObject("CopyRightPic.Image"), System.Drawing.Image)
		Me.CopyRightPic.Location = New System.Drawing.Point(2, 429)
		Me.CopyRightPic.Name = "CopyRightPic"
		Me.CopyRightPic.Size = New System.Drawing.Size(477, 46)
		Me.CopyRightPic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
		Me.CopyRightPic.TabIndex = 11
		Me.CopyRightPic.TabStop = False
		'
		'ClearButton
		'
		Me.ClearButton.Font = New System.Drawing.Font("Ge'ez-1", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.ClearButton.ForeColor = System.Drawing.Color.Red
		Me.ClearButton.Location = New System.Drawing.Point(181, 340)
		Me.ClearButton.Name = "ClearButton"
		Me.ClearButton.Size = New System.Drawing.Size(100, 23)
		Me.ClearButton.TabIndex = 12
		Me.ClearButton.Text = "x<"" "
		Me.ClearButton.UseVisualStyleBackColor = True
		'
		'RadioButton1
		'
		Me.RadioButton1.AutoSize = True
		Me.RadioButton1.Font = New System.Drawing.Font("Ge'ez-1", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.RadioButton1.Location = New System.Drawing.Point(296, 317)
		Me.RadioButton1.Name = "RadioButton1"
		Me.RadioButton1.Size = New System.Drawing.Size(108, 15)
		Me.RadioButton1.TabIndex = 13
		Me.RadioButton1.TabStop = True
		Me.RadioButton1.Text = "T`-NK="
		Me.RadioButton1.UseVisualStyleBackColor = True
		'
		'RadioButton2
		'
		Me.RadioButton2.AutoSize = True
		Me.RadioButton2.Font = New System.Drawing.Font("Ge'ez-1", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.RadioButton2.Location = New System.Drawing.Point(296, 340)
		Me.RadioButton2.Name = "RadioButton2"
		Me.RadioButton2.Size = New System.Drawing.Size(108, 15)
		Me.RadioButton2.TabIndex = 14
		Me.RadioButton2.TabStop = True
		Me.RadioButton2.Text = "NK=-T`"
		Me.RadioButton2.UseVisualStyleBackColor = True
		'
		'HeaderPic
		'
		Me.HeaderPic.BackgroundImage = CType(resources.GetObject("HeaderPic.BackgroundImage"), System.Drawing.Image)
		Me.HeaderPic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
		Me.HeaderPic.Dock = System.Windows.Forms.DockStyle.Top
		Me.HeaderPic.Location = New System.Drawing.Point(0, 0)
		Me.HeaderPic.Name = "HeaderPic"
		Me.HeaderPic.Size = New System.Drawing.Size(479, 59)
		Me.HeaderPic.TabIndex = 15
		Me.HeaderPic.TabStop = False
		'
		'ExitButton
		'
		Me.ExitButton.Font = New System.Drawing.Font("Ge'ez-1", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.ExitButton.Location = New System.Drawing.Point(190, 369)
		Me.ExitButton.Name = "ExitButton"
		Me.ExitButton.Size = New System.Drawing.Size(75, 37)
		Me.ExitButton.TabIndex = 16
		Me.ExitButton.Text = "<"
		Me.ExitButton.UseVisualStyleBackColor = True
		'
		'ToolTip1
		'
		Me.ToolTip1.ToolTipIcon = System.Windows.Forms.ToolTipIcon.Info
		'
		'Form1
		'
		Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
		Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
		Me.BackColor = System.Drawing.SystemColors.ActiveCaption
		Me.ClientSize = New System.Drawing.Size(479, 474)
		Me.ControlBox = False
		Me.Controls.Add(Me.ExitButton)
		Me.Controls.Add(Me.HeaderPic)
		Me.Controls.Add(Me.RadioButton2)
		Me.Controls.Add(Me.RadioButton1)
		Me.Controls.Add(Me.ClearButton)
		Me.Controls.Add(Me.CopyRightPic)
		Me.Controls.Add(Me.ChangeButton)
		Me.Controls.Add(Me.Label2)
		Me.Controls.Add(Me.EnglishRTB)
		Me.Controls.Add(Me.Label1)
		Me.Controls.Add(Me.AmharicRTB)
		Me.Font = New System.Drawing.Font("Arial Black", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Margin = New System.Windows.Forms.Padding(5, 4, 5, 4)
		Me.MaximizeBox = False
		Me.Name = "Form1"
		Me.TransparencyKey = System.Drawing.Color.Olive
		CType(Me.CopyRightPic, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.HeaderPic, System.ComponentModel.ISupportInitialize).EndInit()
		Me.ResumeLayout(False)
		Me.PerformLayout()

	End Sub
	Friend WithEvents AmharicRTB As System.Windows.Forms.RichTextBox
	Friend WithEvents Label1 As System.Windows.Forms.Label
	Friend WithEvents EnglishRTB As System.Windows.Forms.RichTextBox
	Friend WithEvents Label2 As System.Windows.Forms.Label
	Friend WithEvents ChangeButton As System.Windows.Forms.Button
	Friend WithEvents CopyRightPic As System.Windows.Forms.PictureBox
	Friend WithEvents ClearButton As System.Windows.Forms.Button
	Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
	Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
	Friend WithEvents HeaderPic As System.Windows.Forms.PictureBox
	Friend WithEvents ExitButton As System.Windows.Forms.Button
	Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip

End Class




Now the class AmhMsgBox

Public Class AmhMsgBox

	Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
		Me.Close()
	End Sub

	Public Sub ShowIt()
		Me.Show()
	End Sub

	Public Sub DoIt(ByVal a As String)
		Me.RichTextBox1.Text = a

	End Sub
	
End Class




now AmhMsgBox designer
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class AmhMsgBox
	Inherits System.Windows.Forms.Form

	'Form overrides dispose to clean up the component list.
	<System.Diagnostics.DebuggerNonUserCode()> _
	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing AndAlso components IsNot Nothing Then
			components.Dispose()
		End If
		MyBase.Dispose(disposing)
	End Sub

	'Required by the Windows Form Designer
	Private components As System.ComponentModel.IContainer

	'NOTE: The following procedure is required by the Windows Form Designer
	'It can be modified using the Windows Form Designer.  
	'Do not modify it using the code editor.
	<System.Diagnostics.DebuggerStepThrough()> _
	Private Sub InitializeComponent()
		Me.OK_Button = New System.Windows.Forms.Button
		Me.RichTextBox1 = New System.Windows.Forms.RichTextBox
		Me.SuspendLayout()
		'
		'OK_Button
		'
		Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
		Me.OK_Button.Font = New System.Drawing.Font("Ge'ez-1", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.OK_Button.Location = New System.Drawing.Point(193, 58)
		Me.OK_Button.Margin = New System.Windows.Forms.Padding(4, 3, 4, 3)
		Me.OK_Button.Name = "OK_Button"
		Me.OK_Button.Size = New System.Drawing.Size(89, 31)
		Me.OK_Button.TabIndex = 1
		Me.OK_Button.Text = "g="
		'
		'RichTextBox1
		'
		Me.RichTextBox1.BackColor = System.Drawing.SystemColors.Control
		Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me.RichTextBox1.Font = New System.Drawing.Font("Ge'ez-1", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.RichTextBox1.Location = New System.Drawing.Point(12, 12)
		Me.RichTextBox1.Name = "RichTextBox1"
		Me.RichTextBox1.Size = New System.Drawing.Size(465, 31)
		Me.RichTextBox1.TabIndex = 2
		Me.RichTextBox1.Text = ""
		'
		'AmhMsgBox
		'
		Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
		Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
		Me.ClientSize = New System.Drawing.Size(481, 92)
		Me.ControlBox = False
		Me.Controls.Add(Me.RichTextBox1)
		Me.Controls.Add(Me.OK_Button)
		Me.MaximizeBox = False
		Me.MinimizeBox = False
		Me.Name = "AmhMsgBox"
		Me.ResumeLayout(False)

	End Sub
	Friend WithEvents OK_Button As System.Windows.Forms.Button
	Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
End Class




Please send me replies comments ...For those looking to write Amharic text in vb.net
It is possible.
Any one please Contact me for the full program attachment at
tigial3535@yahoo.co.uk
Thankyou

Is This A Good Question/Topic? 0
  • +

Replies To: Made Amharic text in vb.net

#2 SixOfEleven  Icon User is offline

  • using Caffeine;
  • member icon

Reputation: 945
  • View blog
  • Posts: 6,342
  • Joined: 18-October 08

Re: Made Amharic text in vb.net

Posted 22 September 2009 - 12:51 PM

This is a VB.NET question, not a C# question. Moving this to the proper forum.
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1