tag:blogger.com,1999:blog-33788475354001263332024-03-13T01:53:43.562-07:00The PBers CommunityA Bigger Better BuilderJosanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.comBlogger33125tag:blogger.com,1999:blog-3378847535400126333.post-47283570495345637212015-04-14T03:08:00.000-07:002016-04-14T03:13:13.844-07:00Membatasi Aplikasi yang Running hanya satuBerikut ini adalah tips untuk membatasi user dalam menjalankan aplikasi, Hal ini guna mencegah agar user hanya menjalankan aplikasi cuma satu saja.<br />
<br />
Berikut step by stepnya :<br />
<br />
<ul>
<li>Klik "<b>NEW</b>" </li>
<li>Pilih Tab "<b>Pb Object</b>" kemudian pilih "<b>CUSTOM CLASS</b>"</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
</div>
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixaRsFDFsypWl-tMxt9uITMFQ8gYIjvWnQbZajOtDqyI33KcNnCCrxvDHK25fRp3J214XVLOJ-KPGhPcFoinGWrbyfmZK3-yIhcdI0P-W6mJfmX1nm41JHDGJeYJFpgcrPdk02TnOFcek/s1600/pic_1.png" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="70" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixaRsFDFsypWl-tMxt9uITMFQ8gYIjvWnQbZajOtDqyI33KcNnCCrxvDHK25fRp3J214XVLOJ-KPGhPcFoinGWrbyfmZK3-yIhcdI0P-W6mJfmX1nm41JHDGJeYJFpgcrPdk02TnOFcek/s400/pic_1.png" width="400" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;"><b>Custom Class</b></td></tr>
</tbody></table>
<div class="separator" style="clear: both; text-align: center;">
</div>
<ul>
<li><span style="text-align: left;">Set Properties </span><b style="text-align: left;">AutoInstantiate </b><span style="text-align: left;">menjadi </span><b style="text-align: left;">TRUE</b></li>
</ul>
<br />
<div class="separator" style="clear: both; text-align: center;">
. <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUzj1IcFx7EeGmSwvAnrbIGYLx0cRQuvli3BMLN8k0HiDGHtDG3M8S9RY9-3AHiAKc3JW5oRv3VOOXORoKq3Unw5ey5G4_n6Z9tciSLaClaXHGzcxi-XuAM3c1iUOqGw9SWnXU1F6tdPo/s1600/pic_2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgUzj1IcFx7EeGmSwvAnrbIGYLx0cRQuvli3BMLN8k0HiDGHtDG3M8S9RY9-3AHiAKc3JW5oRv3VOOXORoKq3Unw5ey5G4_n6Z9tciSLaClaXHGzcxi-XuAM3c1iUOqGw9SWnXU1F6tdPo/s1600/pic_2.png" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
</div>
<ul>
<li>Deklarasikan Win32 API modul pada UserObject -> Local External Functions</li>
</ul>
<pre style="background: rgb(255, 255, 255); border: 1px solid blue; color: blue; font-size: 12px; line-height: 24px; margin: 5px; overflow: auto; padding: 5px;"><code>Function Long GetLastError () Library 'kernel32.dll'
Function ULong CreateMutex (ULong lpsa, Boolean fInitialOwner, String lpszMutexName) Library 'kernel32.dll' Alias for CreateMutexA</code></pre>
<ul>
<li>Buat UserObject Function seperti dibawah ini :</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhOhhztP7lPSBI50iUDAGGQH2d3ul2ivWgFaKvLQ9LW6gfEdZDAtyW1N3vXYroTymSbhcb1HnsUQgwrkaKEPFEZyrK5rHup3mUvTPYepMTGRX67iZpg-fEDWD9REmzWWmShgpIbykGgH4U/s1600/pic_3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="53" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhOhhztP7lPSBI50iUDAGGQH2d3ul2ivWgFaKvLQ9LW6gfEdZDAtyW1N3vXYroTymSbhcb1HnsUQgwrkaKEPFEZyrK5rHup3mUvTPYepMTGRX67iZpg-fEDWD9REmzWWmShgpIbykGgH4U/s400/pic_3.png" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<pre style="background: rgb(255, 255, 255); border: 1px solid blue; color: blue; font-size: 12px; line-height: 24px; margin: 5px; overflow: auto; padding: 5px;"><code>String ls_name
If Handle(GetApplication()) > 0 Then
ls_name = GetApplication().AppName + Char(0)
CreateMutex(0, True, ls_name)
If GetLastError() = 183 Then Return True
End If
Return False</code></pre>
<div class="separator" style="clear: both; text-align: left;">
</div>
<ul>
<li>Simpan user object yang dibuat dengan nama <b>uo_limitrun </b>(sebagai contoh)</li>
<li>Untuk mengunakan object tersebut, copy script dibawah ini pada event <b>open </b>pada form aplikasi.</li>
</ul>
<div>
</div>
<br />
<pre style="background: rgb(255, 255, 255); border: 1px solid blue; color: blue; font-size: 12px; line-height: 24px; margin: 5px; overflow: auto; padding: 5px;"><code><span style="background-color: transparent;">uo_limitrun </span>lou_limitrun
If lou_limitrun.uf_isrunning() Then
MessageBox ('Warning', 'Application is already running', StopSign!)
HALT CLOSE
End If
//...
// Your next line code
//...</code></pre>
<div>
<br /></div>
Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-84839418105742654232014-04-14T02:00:00.000-07:002016-04-14T03:39:11.508-07:00Konversi Hexadecimal to DecimalWah Sudah lama tidak nulis2 diblog...<br />
<div>
<br /></div>
<div>
Kali ini saya akan menulis sebuah function untuk mengkonversi bilangan Hexadecimal ke Decimal</div>
<div>
berikut ini adalah langkah2nya :</div>
<div>
<br /></div>
<div>
<div>
1. Buat New Function dengan function name "F_Hex2Dec "</div>
<div>
2. Isi Return Type dengan "long"</div>
<div>
3. Isi Argument Type dengan "string" dan Argument Name dengan "as_Hex "</div>
<div>
4. Tuliskan powerscript dibawah ini</div>
<div>
5. Selamat mencoba...</div>
</div>
<div>
<br /></div>
<div>
/**********************************************/</div>
<div>
<div>
/* public long F_Hex2Dec ( string as_Hex ) */</div>
<div>
/**********************************************/</div>
<div>
<br /></div>
<div>
CONSTANT STRING ls_HexSet = "0123456789ABCDEF"</div>
<div>
<br /></div>
<div>
STRING ls_Hex, ls_Bit</div>
<div>
LONG ll_RetVal = 0</div>
<div>
INTEGER li_C, li_Len, li_Pos</div>
<div>
BOOLEAN lb_Error = FALSE</div>
<div>
<br /></div>
<div>
ls_Hex = Upper( as_Hex )</div>
<div>
<br /></div>
<div>
IF NOT IsNull( ls_Hex ) AND ls_Hex <> "" THEN</div>
<div>
</div>
<div>
li_Len = Len( ls_Hex )</div>
<div>
</div>
<div>
FOR li_C = 1 TO li_Len</div>
<div>
ls_Bit = Mid( ls_Hex, li_C, 1 )</div>
<div>
li_Pos = Pos( ls_HexSet, ls_Bit )</div>
<div>
</div>
<div>
IF li_Pos = 0 THEN</div>
<div>
lb_Error = TRUE</div>
<div>
ELSE</div>
<div>
ll_RetVal += ( ( li_Pos - 1 ) * ( 16 ^ ( li_Len - li_C ) ) )</div>
<div>
END IF</div>
<div>
NEXT</div>
<div>
IF lb_Error THEN ll_RetVal = 0</div>
<div>
END IF</div>
<div>
<br /></div>
<div>
RETURN ll_RetVal</div>
</div>
<div>
<br />
<br /></div>
Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-68979803481887698262013-06-02T20:35:00.001-07:002013-06-02T20:35:25.986-07:00Membuat Koneksi Powerbuilder ke Database SQLITESingkat saja, dalam tulisan ini saya mencoba membuat koneksi POWERBUILDER ke database SQLITE, berikut script yang ditulis didalam event open :<br />
<br />
<div style="background-color: #c2c2c2; border: 2px #1B1A76 dotted; padding: 10px; text-align: left;">
//===============================================<br />
string ls_dbparm, ls_dbfile, ls_exepath, ls_file[] <br />
<br />
ls_dbfile = 'sqlite_db_test.db3' <br />
<br />
IF Fileexists(ls_dbfile) THEN <br />
// do nothing <br />
ELSE <br />
IF GetFileOpenName('Select Data File',ls_dbfile, ls_file,'db3','SQLite files (*.db3),*.db3') < 1 THEN <br />
Messagebox('No Data File Chosen','Application will close') <br />
HALT CLOSE <br />
END IF <br />
END IF <br />
// SQLite connection <br />
ls_dbparm = "ConnectString='" <br />
// Driver installed with SQLite2009 Pro Enterprise Manager <br />
ls_dbparm = ls_dbparm + "DRIVER=SQLite3 ODBC Driver;" <br />
ls_dbparm = ls_dbparm + "Database=" + ls_dbfile + "'" <br />
ls_dbparm = ls_dbparm + "UID=" + "admin" + ";PWD=" <br />
ls_dbparm = ls_dbparm + "'" <br />
sqlca.DbParm=ls_dbparm <br />
<br />
sqlca.DBMS = "ODBC" <br />
<br />
CONNECT USING SQLCA; <br />
<br />
IF sqlca.sqlcode <> 0 then<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>MessageBox('Connect', 'Transaction not connect..'+sqlca.sqlerrtext,stopsign!)<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>Return<br />
End IF<br />
<br />
//============================================</div>
Sekian dulu tulisan saya, semoga bisa membantu<br />
<br />
Terima Kasih.Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com1tag:blogger.com,1999:blog-3378847535400126333.post-47198284722124139262013-01-16T08:41:00.000-08:002016-04-14T03:38:58.256-07:00Konversi Hex Ke BinaryKali ini saya ingin membuat beberapa <b>FUNCTION</b> untuk mengkonversi bilangan HEX ke dalam bentuk Binary secara sederhana<br />
<br />
1. Buat New Function dengan function name "f_hex_to_bin"<br />
2. Isi Return Type dengan "string"<br />
3. Isi Argument Type dengan "string" dan Argument Name dengan "as_param_hex"<br />
4. Tuliskan powerscript dibawah ini<br />
5. Selamat mencoba...<br />
<div style="text-align: left;">
<br /></div>
<div style="background-color: #c2c2c2; border: 2px #1B1A76 dotted; padding: 10px; text-align: left;">
integer i,li_length<br />
string ls_param_hex,ls_hex,ls_binary,ls_huruf<br />
<br />
ls_param_hex = trim(as_param_hex)<br />
<br />
li_length = len(ls_param_hex)<br />
<br />
for i = 1 to li_length<br />
<br />
ls_huruf = Mid(ls_param_hex, i,1)<br />
<br />
choose case ls_huruf<br />
case '0'<br />
ls_binary = '0000'<br />
case '1'<br />
ls_binary = '0001'<br />
case '2'<br />
ls_binary = '0010'<br />
case '3'<br />
ls_binary = '0011'<br />
case '4'<br />
ls_binary = '0100'<br />
case '5'<br />
ls_binary = '0101'<br />
case '6'<br />
ls_binary = '0110'<br />
case '7'<br />
ls_binary = '0111'<br />
case '8'<br />
ls_binary = '1000'<br />
case '9'<br />
ls_binary = '1001'<br />
case 'A'<br />
ls_binary = '1010'<br />
case 'B'<br />
ls_binary = '1011'<br />
case 'C'<br />
ls_binary = '1100'<br />
case 'D'<br />
ls_binary = '1101'<br />
case 'E'<br />
ls_binary = '1110'<br />
case 'F'<br />
ls_binary = '1111'<br />
end choose<br />
<br />
ls_hex = ls_hex + ls_binary<br />
<br />
next <br />
<br />
return ls_hex</div>
<div style="text-align: left;">
<br />
Lain kali saya akan coba untuk membuat function2 yang semoga bisa bermanfaat untuk para penggemar PB.</div>
Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-54744044268828995002012-10-17T10:38:00.001-07:002012-10-17T10:38:23.737-07:00Kumpulan Script Membuat 3D di PB 12.5 .NET dengan HELIX 3D TOOLKITBerikut kumpulan2 script dalam membuat aplikasi WPF 3D di Powerbuilder 12.NET, sebelum membuatnya ada baiknya anda download dulu komponen helix 3D toolkit <a href="http://helixtoolkit.codeplex.com/" target="_blank">disini</a><br />
Selanjutnya add Reference file2 dll nya :<br />
1. 3DTools.dll<br />
2. HelixToolkit.Wpf.dll<br />
3. HelisToolkit.Wpf.Input.dll<br />
<br />
XAML :<br />
<br />
xmlns:helix="clr-namespace:HelixToolkit.Wpf;assembly=HelixToolkit.Wpf"<br />
<br />
<br />
<helix:HelixViewport3D Name="viewport3D"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>InfoBackground="White"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>Background="Transparent"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>IsHeadLightEnabled="True"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>InfiniteSpin="True"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>CameraRotationMode="Turnball"><br />
<helix:HelixViewport3D.Camera><br />
<PerspectiveCamera Position="40,0,0"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>LookDirection="-40,0,0"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>UpDirection="0,0,9"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>FieldOfView="61"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>NearPlaneDistance="0.125"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>FarPlaneDistance="Infinity" /><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span></helix:HelixViewport3D.Camera><br />
<helix:SunLight /><br />
</helix:HelixViewport3D><br />
<br />
<helix:helixviewport3d name="viewport3D" nbsp="nbsp" p="p"><perspectivecamera nbsp="nbsp" p="p" position="40,0,0">
<span class="Apple-tab-span" style="white-space: pre;"> </span></perspectivecamera></helix:helixviewport3d><br />
<br />
SCRIPT :<br />
1. Create Viewport3D dari Script<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>HelixToolkit.Wpf.HelixViewport3D viewport3D<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D = create HelixToolkit.Wpf.HelixViewport3D<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D.InfoBackground = System.Windows.Media.Brushes.Transparent<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D.ZoomExtentsWhenLoaded = True<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D.IsHeadLightEnabled = True<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D.InfiniteSpin = True<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D.Background = System.Windows.Media.Brushes.Transparent<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D.CameraRotationMode = HelixToolkit.Wpf.CameraRotationMode.Turnball!<br />
<br />
1. Memanggil File 3DS<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>HelixToolkit.Wpf.FileModelVisual3D iFile3D<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>iFile3D = Create HelixToolkit.Wpf.FileModelVisual3D<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>iFile3D.Source = "Files3D\heart.3DS"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D.Children.Add(iFile3D)<br />
<br />
2. Rotate Object 3DS<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Nullable<system .double=".double"> lnull1,lnull2</system><br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>lnull1 = create System.Nullable<system .double=".double">(1)</system><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>lnull2 = create System.Nullable<system .double=".double">(361)</system><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.Animation.DoubleAnimation myAnimation<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myAnimation = create System.Windows.Media.Animation.DoubleAnimation<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myAnimation.From = lnull1<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myAnimation.To = lnull2<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myAnimation.Duration = create System.Windows.Duration(System.TimeSpan.FromMilliseconds(5000))<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myAnimation.RepeatBehavior = System.Windows.Media.Animation.RepeatBehavior.Forever<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.Media3D.Vector3D lvector3D<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>lvector3D = Create System.Windows.Media.Media3D.Vector3D(0, 0, 1)<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.Media3D.AxisAngleRotation3D AxisAR3D<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>AxisAR3D = Create System.Windows.Media.Media3D.AxisAngleRotation3D(lvector3D,1)<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.Media3D.RotateTransform3D myRotateTransform<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myRotateTransform = Create System.Windows.Media.Media3D.RotateTransform3D(AxisAR3D)<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myRotateTransform.Rotation.BeginAnimation(System.Windows.Media.Media3D.AxisAngleRotation3D.AngleProperty, myAnimation)<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span> <br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>iFile3D.Transform = myRotateTransform<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
3. Menghentikan Rotate<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.Media3D.RotateTransform3D myRotateTransform<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myRotateTransform = Create System.Windows.Media.Media3D.RotateTransform3D<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myRotateTransform.Rotation.Freeze()<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>iFile3D.Transform = myRotateTransform<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
4. Converting Warna<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>string ls_warna<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>ls_warna = '1'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>choose case ls_warna<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>CASE '1'<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>ls_warna = '#2F3699'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>CASE '2'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>ls_warna = '#9DDA4E'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>case '3'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>ls_warna ='#00B7EF'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>case '4'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>ls_warna = '#000000'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>case '5'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>ls_warna = '#ED1C24'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>case else<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>ls_warna = '#FFFFFF'<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>end choose<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.BrushConverter lconverter<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>lconverter = create System.Windows.Media.BrushConverter<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.Brush lbrush<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>lbrush = lconverter.ConvertFromString(ls_warna)<br />
<br />
4. Menambahkan Object ke Viewport<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>HelixToolkit.Wpf.SphereVisual3D Sphere3D[1]<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>Sphere3D[1] = create HelixToolkit.Wpf.SphereVisual3D<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>Sphere3D[1].Radius = 2<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>Sphere3D[1].Center = p3<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>Sphere3D[1].Fill<span class="Apple-tab-span" style="white-space: pre;"> </span>= lbrush<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D.Children.Add(Sphere3D[1])<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
5. Merubah posisi Camera<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.Media3D.PerspectiveCamera myPCamera<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myPCamera = create System.Windows.Media.Media3D.PerspectiveCamera<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myPCamera.NearPlaneDistance = 1<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myPCamera.FieldOfView<span class="Apple-tab-span" style="white-space: pre;"> </span>= 61<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myPCamera.Position<span class="Apple-tab-span" style="white-space: pre;"> </span>= Create System.Windows.Media.Media3D.Point3D(180,0,0)<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myPCamera.LookDirection<span class="Apple-tab-span" style="white-space: pre;"> </span>= Create System.Windows.Media.Media3D.Vector3D(-180,0,0)<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>myPCamera.UpDirection<span class="Apple-tab-span" style="white-space: pre;"> </span>= create System.Windows.Media.Media3D.Vector3D(0, 0, 9)<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>viewport3D.Camera = myPCamera<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
6. Mencapture Viewport ke dalam Picture<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Rect rect<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>rect = create System.Windows.Rect<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>rect.Height = view_3D.Viewport.ActualHeight<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>rect.Width = view_3D.Viewport.ActualWidth<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>// Scale dimensions from 96 dpi to 600 dpi.<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>double scale<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>scale = 600 / 96<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>integer li_pixelWidth,li_pixelHeight<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>li_pixelWidth = integer(scale * (rect.Width + 1))<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>li_pixelHeight= integer(scale * (rect.Height + 1))<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.Imaging.RenderTargetBitmap renderbitmap<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>renderbitmap = create System.Windows.Media.Imaging.RenderTargetBitmap(li_pixelWidth,li_pixelHeight,scale * 96,scale * 96, System.Windows.Media.PixelFormats.Default)<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>renderbitmap.Render(viewport3D)<br />
<br />
// set ke picture<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>p_1.Source = renderbitmap<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>//Jika ingin save ke File sekalian buat directorynya<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>string l_directori<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>l_directori = "C:\Temp_image\"<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>if System.IO.Directory.Exists(l_directori) then<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>l_directori = "C:\Temp_image\"<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>else<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.IO.Directory.CreateDirectory(l_directori)<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>end if<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Media.Imaging.PngBitmapEncoder image<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>image = create System.Windows.Media.Imaging.PngBitmapEncoder<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>image.Frames.Add(System.Windows.Media.Imaging.BitmapFrame.Create(renderbitmap))<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.IO.Stream fs<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>fs = System.IO.File.Create(l_directori+"NamaFile.png")<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>image.Save(fs)<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
<span class="Apple-tab-span" style="white-space: pre;"> </span><br />
7. Save Viewport3D ke File<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>System.Windows.Controls.PrintDialog dlg<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>dlg = create System.Windows.Controls.PrintDialog<br />
<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>if dlg.ShowDialog().GetValueOrDefault() = true then<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>dlg.PrintVisual(viewport3D.Viewport,"TEST")<br />
<span class="Apple-tab-span" style="white-space: pre;"> </span>end ifJosanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-50842008584183787772012-06-23T15:54:00.003-07:002012-06-23T15:54:58.333-07:00Mapping Type Data Powerbuilder 12.5 .NET dengan C#<span style="font-family: Arial, Helvetica, sans-serif;">Berikut mapping tipe data pada Powerbuilder 12.5 .Net dengan C#</span><br />
<br />
<br />
<table border="1" cellpadding="4" cellspacing="0" frame="border" id="den1305825325876__table_syc_mch_jc" rules="all" style="border-collapse: collapse; color: #2c2b2b; font-family: arial; font-size: 12px; line-height: 20px;" summary=""><thead align="left">
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><th id="d9902e22" style="background-color: #e0e0e0; border-color: rgb(204, 204, 204); border-style: solid; border-width: 1px 1px 2px; padding: 2px 5px;" valign="top">PowerBuilder</th><th id="d9902e24" style="background-color: #e0e0e0; border-color: rgb(204, 204, 204); border-style: solid; border-width: 1px 1px 2px; padding: 2px 5px;" valign="top">C#</th></tr>
</thead><tbody>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">boolean</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">bool</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">boolean[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">bool[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">blob</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">byte[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">blob[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">byte[][]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">byte</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">byte</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">byte[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">byte[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">int</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">short</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">int[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">short[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">uint</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">ushort</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">uint[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">ushort[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">long</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">int</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">long[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">int[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">ulong</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">uint</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">ulong[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">uint[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">longlong</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">long</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">longlong[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">long[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">decimal</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">decimal</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">decimal[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">decimal[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">real</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">float</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">real[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">float[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">double</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">double</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">double[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">double[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">string</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">string</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">string[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">string[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">User-defined structure</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">class</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">User-defined structure[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">class [] *</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">User-defined NVO object</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">class</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">User-defined NVO object[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">class [] *</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">enumerated</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">enum</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">enumerated[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">enum[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Time</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">DateTime</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Time[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">DateTime[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Date</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">DateTime</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Date[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">DateTime[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Datetime</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">DateTime</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Datetime[]</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">DateTime[]</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">any</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Not supported</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Multidimension array</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Not supported</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">PB system structure</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Not supported</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">PB system object type</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Not supported</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">PB system nvo type</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Not supported</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">User-defined non-NVO object</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Not supported</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">ResultSet and its descendants</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Not supported</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Returning any</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Array type</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Dot Net serializable type (with Serializable or DataContract attributes)</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Dot.Net serializable type</td></tr>
<tr style="background-color: #f3f3f3; border: 1px solid rgb(204, 204, 204); padding: 2px 5px;"><td headers="d9902e22 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Dot Net primitive type</td><td headers="d9902e24 " style="border: 1px solid rgb(204, 204, 204); padding: 2px 5px;" valign="top">Dot Net primitive type</td></tr>
</tbody></table>
<br />
<span style="font-family: Arial, Helvetica, sans-serif;">Sumber :
<a href="http://www.displacedguy.com/powerbuilder-12-5-net-and-net-4-data-type-mappings/#.T-ZGjhce6EY" target="_blank">http://www.displacedguy.com/powerbuilder-12-5-net-and-net-4-data-type-mappings/#.T-ZGjhce6EY </a></span><br />
<br />
<br />Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-36977693073903430432012-06-23T15:03:00.004-07:002016-04-14T01:44:20.931-07:00Powerbuilder 12.5 NET WPF Ribbon (Bag. 2)<span style="font-family: "arial" , "helvetica" , sans-serif;">Mari kita lanjutkan membuat aplikasi ribbon dengan powerbuilder 12.5 .NET yang memakai WPF Window,</span><br />
<div>
<span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></div>
<div>
<ul>
<li><span style="font-family: "arial" , "helvetica" , sans-serif;">Menambahkan Folder Image dengan cara klik kanan pada "Target", pilih "New Folder" dan kita beri nama new folder tersebut "Image", selanjutnya kita klik kanan pada folder image untuk menambahkan image yang kita inginkan dengan memilih "Add Existing Item"</span></li>
</ul>
<div style="text-align: center;">
<span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></div>
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEio5s5AHAzP1RpFYXj9UGSrQ_kLDwGpy-2_oCVUaa21Sb3Ov6fjr96EYUD8vLeshz6o5WzirTFwPZIzEPbN-juJhb7VbE6bLWIOxwiKdQp_-U1Te1Il4jm_-1v27oqCaQoeAIhQwCxijw0/s1600/add+image.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEio5s5AHAzP1RpFYXj9UGSrQ_kLDwGpy-2_oCVUaa21Sb3Ov6fjr96EYUD8vLeshz6o5WzirTFwPZIzEPbN-juJhb7VbE6bLWIOxwiKdQp_-U1Te1Il4jm_-1v27oqCaQoeAIhQwCxijw0/s320/add+image.png" width="295" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: justify;">
<span style="font-family: "arial" , "helvetica" , sans-serif;">sebagai contoh ambil image yang ada di oddysey </span></div>
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvX4xINsKEZdDbE8J9G8QEAArqWnRnmnmsFq-uM7nHUB9fogZCk1Ig1jTZTdDb2Qisx_2mTtmPQBHy9HFHROl0LvrHLYQD2HG7wxk1FFLxqvtG7DzlpFwHO2QHyQItGUTx92IONVU36T0/s1600/add+image1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="196" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgvX4xINsKEZdDbE8J9G8QEAArqWnRnmnmsFq-uM7nHUB9fogZCk1Ig1jTZTdDb2Qisx_2mTtmPQBHy9HFHROl0LvrHLYQD2HG7wxk1FFLxqvtG7DzlpFwHO2QHyQItGUTx92IONVU36T0/s320/add+image1.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></div>
<div class="separator" style="clear: both; text-align: justify;">
<span style="font-family: "arial" , "helvetica" , sans-serif;">selanjutnya kita lihat hasilnya sebagai berikut :</span></div>
<div class="separator" style="clear: both; text-align: center;">
<span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhWrsLnFbx12t_HVACD1FvJCuFqYV93KLzvez4yEIFh_N2Xmkgly50vLBt3KZhpToeidqZo32u8ybGbjPW2c1wwT0DZPOlECfxcqGKG8d7pnX8G61i2AxQHW3R9T3r4k0O7ItvBE1DcuN8/s1600/add+image2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhWrsLnFbx12t_HVACD1FvJCuFqYV93KLzvez4yEIFh_N2Xmkgly50vLBt3KZhpToeidqZo32u8ybGbjPW2c1wwT0DZPOlECfxcqGKG8d7pnX8G61i2AxQHW3R9T3r4k0O7ItvBE1DcuN8/s320/add+image2.png" width="180" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<ul>
<li><span style="font-family: "arial" , "helvetica" , sans-serif;">Selanjutnya Buka w_ribbonpad.xaml sesuaikan dengan script berikut</span></li>
</ul>
<div>
<blockquote class="tr_bq">
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"></span><br />
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"></span><br />
<pre><span style="color: blue;"><pbwpf:Window x:Class="RibbonDemo.w_ribbonpad" x:ClassModifier="internal"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:pbwpf="clr-namespace:Sybase.PowerBuilder.WPF.Controls;assembly=Sybase.PowerBuilder.WPF.Controls"
PBTitle="RibbonPad" PBHeight="2000" PBWidth="2500" MinBox="True" MaxBox="True" TitleBar="True"
xmlns:odc="clr-namespace:Odyssey.Controls;assembly=Odyssey" PBWindowState="Maximized"
ControlMenu="True" pbwpf:Window.Skin="ExpressionDark" Uid="6" Height="500" Width="547">
<DockPanel RenderOptions.BitmapScalingMode="HighQuality">
<odc:RibbonBar x:Name="ribbonBar" Title="RibbonPad" DockPanel.Dock="Top" Foreground="White">
<odc:RibbonBar.QAToolBar>
<odc:RibbonQAToolBar>
<odc:RibbonButton SmallImage="image/save16.png" Name="office_blue" />
<odc:RibbonButton SmallImage="image/undo16.png" Name="win7" />
<odc:RibbonButton SmallImage="image/delete16.png" Name="office_silver" />
<odc:RibbonButton SmallImage="image/folder16.png" Name="office_black" />
</odc:RibbonQAToolBar>
</odc:RibbonBar.QAToolBar>
<odc:RibbonBar.ApplicationMenu>
<odc:RibbonApplicationMenu MenuButtonImage="image/favorites16.png">
<odc:RibbonApplicationMenu.RecentItemsList>
<TextBlock Text="This is a Placeholder for recent documents" Margin="3"
HorizontalAlignment="Center" VerticalAlignment="Top" MinHeight="150"
TextWrapping="Wrap" MinWidth="100" />
</odc:RibbonApplicationMenu.RecentItemsList>
<odc:RibbonApplicationMenu.Footer>
<StackPanel HorizontalAlignment="Stretch" Margin="0,4,0,0"></StackPanel>
</odc:RibbonApplicationMenu.Footer>
</odc:RibbonApplicationMenu>
</odc:RibbonBar.ApplicationMenu>
<odc:RibbonTabItem Title="File">
<odc:RibbonGroup Title="Skin" Image="image/home16.png" IsDialogLauncherVisible="True">
<odc:RibbonToggleButton Content="Search" odc:RibbonBar.MinSize="Large"
LargeImage="image/search32.png"/>
<odc:RibbonSeparator />
<odc:RibbonButton Content="Windows 7" odc:RibbonBar.MinSize="Large"
SmallImage="image/save16.png" LargeImage="image/Save32.png" />
<odc:RibbonButton Content="Office Blue" odc:RibbonBar.MinSize="Medium"
SmallImage="image/home16.png" LargeImage="image/home32.png" />
<odc:RibbonButton Content="Office Silver" odc:RibbonBar.MinSize="Medium"
SmallImage="image/paste16.png" LargeImage="image/paste32.png" />
<odc:RibbonButton Content="Office Black" odc:RibbonBar.MinSize="Medium"
SmallImage="image/folder16.png" LargeImage="image/folder16.png" />
</odc:RibbonGroup>
</odc:RibbonTabItem>
</odc:RibbonBar>
</DockPanel>
</pbwpf:Window></span></pre>
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><br /></span></blockquote>
<ul>
<li><span style="font-family: "courier new" , "courier" , monospace;"><span style="font-family: "courier new" , "courier" , monospace;"><span style="background-color: white;"><span style="color: blue;"> </span><span style="font-family: "arial" , "helvetica" , sans-serif;">Double klik pada target dan ketikan script "open(w_ribbonpad)"</span></span></span></span></li>
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"> </span></ul>
<div class="separator" style="clear: both; text-align: center;">
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh0fR19CuDsjNpvehAiMYW99CJd6w8VfEWdOKRu3KAGQskH1rf89GSzpcdXHZJq9DOLoLeR4xRjwofqX5W5MTQqcANK7Tx-0GgfcMC-zDmtzusAQYPxzOyKMDMVZo1SK5cOAtUOWbTTqS4/s1600/script+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="122" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh0fR19CuDsjNpvehAiMYW99CJd6w8VfEWdOKRu3KAGQskH1rf89GSzpcdXHZJq9DOLoLeR4xRjwofqX5W5MTQqcANK7Tx-0GgfcMC-zDmtzusAQYPxzOyKMDMVZo1SK5cOAtUOWbTTqS4/s640/script+1.png" width="640" /></a></span></span></div>
<div class="separator" style="clear: both; text-align: center;">
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><br />
</span></span></div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<ul>
<li><span style="font-family: "courier new" , "courier" , monospace;"><span style="font-family: "courier new" , "courier" , monospace;">Tambahkan script ini <b>Odyssey.Controls.Classes.SkinManager.SkinId = Odyssey.Controls.Classes.SkinId.OfficeBlack!</b> pada event open di w_ribbonpad </span></span></li>
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"> </span></ul>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL8KN8JlbT-COVkeO5oXwtHR9-meurb6d5mDW6BmhbqwwxcHnwXaMZDju_SldC00PuyfUk7GoFUexNeSooEFcGDJx1kvIFNf8MxIcNyGRnbiszqGYuJZIz8WNDfINkrDfDp2R35IqLNtc/s1600/script.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="128" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL8KN8JlbT-COVkeO5oXwtHR9-meurb6d5mDW6BmhbqwwxcHnwXaMZDju_SldC00PuyfUk7GoFUexNeSooEFcGDJx1kvIFNf8MxIcNyGRnbiszqGYuJZIz8WNDfINkrDfDp2R35IqLNtc/s640/script.png" width="640" /></a></span></span></div>
<div>
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><br />
</span></span></div>
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><br />
</span><br />
<div>
<ul>
<li><span style="font-family: "courier new" , "courier" , monospace;"><span style="font-family: "courier new" , "courier" , monospace;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Klik Run</span></span></span></li>
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"> </span></ul>
<div class="separator" style="clear: both; text-align: center;">
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMG47KX0ZkvV1gNDdpxT1RzhIbYAm-_KlcG4ECAIUU8xNETu9krV2lc-cu-o4TcbYuhV-2u82fK6JnKlib8EJZOTca5XJZE0yb_spvqwTnneCjblpDJPjZW-l6Q0x4zlDB-kOBjbOf9m4/s1600/hasil+3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="110" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMG47KX0ZkvV1gNDdpxT1RzhIbYAm-_KlcG4ECAIUU8xNETu9krV2lc-cu-o4TcbYuhV-2u82fK6JnKlib8EJZOTca5XJZE0yb_spvqwTnneCjblpDJPjZW-l6Q0x4zlDB-kOBjbOf9m4/s640/hasil+3.png" width="640" /></a></span></span></div>
<div>
<span style="color: blue; font-family: "courier new" , "courier" , monospace;"><span style="color: blue; font-family: "courier new" , "courier" , monospace;"><span style="font-family: "arial" , "helvetica" , sans-serif;"><br />
</span></span></span></div>
</div>
<div>
<span style="font-family: "courier new" , "courier" , monospace;"><span style="font-family: "courier new" , "courier" , monospace;"><span style="font-family: "arial" , "helvetica" , sans-serif;">Selamat Mencoba....</span></span></span></div>
</div>
<span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><span style="color: blue; font-family: "courier new" , "courier" , monospace; font-size: x-small;"><br />
</span></span>Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com9tag:blogger.com,1999:blog-3378847535400126333.post-32756123785141992482012-06-22T14:28:00.001-07:002012-06-22T14:32:25.689-07:00Powerbuilder 12.5 NET WPF Ribbon (Bag. 1)<br />
<div class="MsoNormal">
<div style="text-align: justify;">
<span style="font-family: Arial, Helvetica, sans-serif;">Kali ini saya mencoba
membuat tutorial untuk membuat aplikasi WPF Ribbon dengan PowerBuilder 12.5
.NET secara sederhana yang menggunakan komponen <a href="http://odyssey.codeplex.com/"><span style="border: 1pt none windowtext; color: windowtext; padding: 0in; text-decoration: none;">Odyssey WPF Controls</span></a> yang bisa anda download disini <a href="http://odyssey.codeplex.com/">http://odyssey.codeplex.com/</a><span style="border: 1pt none windowtext; color: #ce8b10; font-size: 22pt; padding: 0in;"><o:p></o:p></span></span></div>
</div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<span style="font-family: Arial;">Mari Kita mulai :<o:p></o:p></span></div>
<div class="MsoNormal">
<br /></div>
<span style="background-color: white; font-family: Arial;"></span><br />
<ul><span style="background-color: white; font-family: Arial;">
<li><span style="background-color: white;">Buat New Solution dengan nama “WPFRibbonPad”</span></li>
</span></ul>
<span style="background-color: white; font-family: Arial;">
</span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9ZqWf_i6PB-0tvGkw-RuVl_GiylPAQIkCpzxbpsO-qR08VS48nvFkVTlOaoME-p6egk6XbUD2KSQ3VEjyEfQ580hRPxpCrCHFuqUZcx5NDDTCfeT3OA7vvl1xYWZycnpGwzCZ8ssEZWI/s1600/newsolusi.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="230" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9ZqWf_i6PB-0tvGkw-RuVl_GiylPAQIkCpzxbpsO-qR08VS48nvFkVTlOaoME-p6egk6XbUD2KSQ3VEjyEfQ580hRPxpCrCHFuqUZcx5NDDTCfeT3OA7vvl1xYWZycnpGwzCZ8ssEZWI/s320/newsolusi.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiuLTlSiXFV9UtVGEggZsHoqUM2x2Up3wmAXT54NnxQxQzXtV9wCa7hFqKF6uU9JdDWDcyMvML7AU0gu6MqOVCTxUJ-dRvDb5YXUr6rAceNTJsqJkKWGJFzdcRvoxkxoJiAfO84OfMXJUM/s1600/saveSolusi.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="201" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiuLTlSiXFV9UtVGEggZsHoqUM2x2Up3wmAXT54NnxQxQzXtV9wCa7hFqKF6uU9JdDWDcyMvML7AU0gu6MqOVCTxUJ-dRvDb5YXUr6rAceNTJsqJkKWGJFzdcRvoxkxoJiAfO84OfMXJUM/s320/saveSolusi.png" width="320" /></a></div>
<div>
<span style="font-family: Arial;"><br /></span></div>
<span style="background-color: white; font-family: Arial;"></span><br />
<ul><span style="background-color: white; font-family: Arial;">
<li><span style="background-color: white;">Buat Target "“wpfribbonpad"</span></li>
</span></ul>
<span style="background-color: white; font-family: Arial;">
</span><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="background-color: white; font-family: Arial;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjn_8JWDo0B8BEnwEuxel79R7hmoogQg6AtdXUF-OuJLyAbyTic1Z5EXxahyKXT4wA1JWycuhJAQDdLJZnNzPPznCavpwwv02vvQ4LlktsC-3tyLf9pGKndb4X3MuBFdT_EVDfsIeOpthw/s1600/target.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="245" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjn_8JWDo0B8BEnwEuxel79R7hmoogQg6AtdXUF-OuJLyAbyTic1Z5EXxahyKXT4wA1JWycuhJAQDdLJZnNzPPznCavpwwv02vvQ4LlktsC-3tyLf9pGKndb4X3MuBFdT_EVDfsIeOpthw/s320/target.png" width="320" /></a></span></div>
<span style="background-color: white; font-family: Arial;">
</span><br />
<div class="separator" style="clear: both; text-align: center;">
<span style="background-color: white; font-family: Arial;"><br /></span></div>
<span style="background-color: white; font-family: Arial;">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfThtN_jJKsA34S0bzuJj22QyBsuqsvgWCbVlx8QP23TTxVVYbESrnp7TaUo-mjstTyNa4Ci5JDkvANXc4lY1Nl5yGn5Af4EYBwvrzlMQTsOryUsKYbzkq_KWHT7-Hd1i4hOvFCL1dNWQ/s1600/target2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="227" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhfThtN_jJKsA34S0bzuJj22QyBsuqsvgWCbVlx8QP23TTxVVYbESrnp7TaUo-mjstTyNa4Ci5JDkvANXc4lY1Nl5yGn5Af4EYBwvrzlMQTsOryUsKYbzkq_KWHT7-Hd1i4hOvFCL1dNWQ/s320/target2.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiEjW9rbBkUVUyDrtWdUjG7ohWBWSJgGbIA4CR_kcnsMmlvjIBZl2X6DCjcXKy04qwrQwIuhg_6bkWucOASk86767c2mh__frLHOH6UFJoXFfNkxX7-QqyXcnEIG4TicZ9SqPaMvmjyxkE/s1600/targetfinish.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="230" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiEjW9rbBkUVUyDrtWdUjG7ohWBWSJgGbIA4CR_kcnsMmlvjIBZl2X6DCjcXKy04qwrQwIuhg_6bkWucOASk86767c2mh__frLHOH6UFJoXFfNkxX7-QqyXcnEIG4TicZ9SqPaMvmjyxkE/s320/targetfinish.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
<span style="text-align: justify;">Kemudian klik "FINISH"</span></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjo75vfNvhwI5P2Qo5IORT_HtKGrnogFbkyXbRLN7ojAYJuVGTsk3C-sTbjir4_mmbn8uPEv16Pbq9l8ihAn9llZRzmYKLf6oIrjTP8DMH0AepFEBzQ2emrNDy8a9yEEnii0Ey9y1touDY/s1600/hasil.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="192" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjo75vfNvhwI5P2Qo5IORT_HtKGrnogFbkyXbRLN7ojAYJuVGTsk3C-sTbjir4_mmbn8uPEv16Pbq9l8ihAn9llZRzmYKLf6oIrjTP8DMH0AepFEBzQ2emrNDy8a9yEEnii0Ey9y1touDY/s320/hasil.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<ul>
<li>Selanjutnya klik kanan untuk menambahkan Reference file odyssey.dll yang telah kita download </li>
</ul>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_8An7t0ll823X4yg2QWH1B-0tI4aQU5GYuKdQZvC-_Xl4KTYul3V7-rFZ8l8aszIRoBtXmiWvQoGnfQSswmALCvyKw2Q5alhsGF8o5Mqj1gGea7I7TsN07czEa2R1BKTIutn3M2mXZ-k/s1600/addreferensre.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_8An7t0ll823X4yg2QWH1B-0tI4aQU5GYuKdQZvC-_Xl4KTYul3V7-rFZ8l8aszIRoBtXmiWvQoGnfQSswmALCvyKw2Q5alhsGF8o5Mqj1gGea7I7TsN07czEa2R1BKTIutn3M2mXZ-k/s320/addreferensre.png" width="270" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeCUQMn4483O-fF4h48yBRHtkcZoNk3rSJn2-wkTxv4FJS23RplSyqu0xZD7MVcIF7squMVTqUtDvjDK3lceFXq8HdLxMjK2Z3720D65pTfyEkIXqRRhcufAKphS3vaHGc9KkLYAzzVis/s1600/addreferensre1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="268" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeCUQMn4483O-fF4h48yBRHtkcZoNk3rSJn2-wkTxv4FJS23RplSyqu0xZD7MVcIF7squMVTqUtDvjDK3lceFXq8HdLxMjK2Z3720D65pTfyEkIXqRRhcufAKphS3vaHGc9KkLYAzzVis/s320/addreferensre1.png" width="320" /></a><br />
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbqNBC9Ck1re9c9EWX5i47xoH_rVw8l9lC4oKd1blmH-98box37Qew_M4KF6HzKamsJ1J0UWrGmJzpsukm4SYY54RIsF1y24bRLCU8wUaz7a_FX_wJ88IaQWs1k3bbtEkY2sw8Glspwcg/s1600/addreferensre2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjbqNBC9Ck1re9c9EWX5i47xoH_rVw8l9lC4oKd1blmH-98box37Qew_M4KF6HzKamsJ1J0UWrGmJzpsukm4SYY54RIsF1y24bRLCU8wUaz7a_FX_wJ88IaQWs1k3bbtEkY2sw8Glspwcg/s320/addreferensre2.png" width="261" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<ul>
<li>Buat New WPF Window dengan mengklik kanan pada Target dan pilih NEW selanjutnya pilih "WPF Window" kemudian klik "Next"</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYhRxt0WYMVi5FlJkcAmjJa1ha8fcWrwQoEwD5bHinDLgAtejdjPwMPs3DKfRkSw-EEE-SVKrd1V_l5e4SUdP1izuXcPaIg2y3NTgZJu4XDJqGjgUCYvD1deIWmdl3XqhxG5UX5uccC_w/s1600/new+window.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="290" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYhRxt0WYMVi5FlJkcAmjJa1ha8fcWrwQoEwD5bHinDLgAtejdjPwMPs3DKfRkSw-EEE-SVKrd1V_l5e4SUdP1izuXcPaIg2y3NTgZJu4XDJqGjgUCYvD1deIWmdl3XqhxG5UX5uccC_w/s320/new+window.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<ul>
<li>Beri nama Title window "RibbonPad" dan nama object dengan "w_ribbonpad" kemudian klik "next"</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlMGso55Zcxakomvfr4NIRnqcpHRjtf0fMlgDFKzQTaPQwyfLKOOSbOOvefJXi2UK_PHz82NomZzdcEsznLiDwyOpif0Okb2v6-is630N-Y1Vj246IQFmywXe2Hy-r7DIX33jSwuu8h-s/s1600/new+window+1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="228" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlMGso55Zcxakomvfr4NIRnqcpHRjtf0fMlgDFKzQTaPQwyfLKOOSbOOvefJXi2UK_PHz82NomZzdcEsznLiDwyOpif0Okb2v6-is630N-Y1Vj246IQFmywXe2Hy-r7DIX33jSwuu8h-s/s320/new+window+1.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<ul>
<li>Pilih layout dengan type "DockPanel" kemudian klik "Finish"</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhe5CTN6vlmOY93U2PP9Y2_4FYIFtnJxPpLRBPShT5rKwWvOVuCfUjObVz5QWo0FU3c5UqCAkvPlaUKqKdmw8Tdn-plLkZD3DAPDYS3GKLHnZYhGt7uZfdaE3Sxfj5P5hJKRbA1BeaPYdM/s1600/new+window+2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="230" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhe5CTN6vlmOY93U2PP9Y2_4FYIFtnJxPpLRBPShT5rKwWvOVuCfUjObVz5QWo0FU3c5UqCAkvPlaUKqKdmw8Tdn-plLkZD3DAPDYS3GKLHnZYhGt7uZfdaE3Sxfj5P5hJKRbA1BeaPYdM/s320/new+window+2.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: justify;">
</div>
<ul>
<li>Kemudian kita bisa melihat hasil dari Wpf Window dengan content layout Dockpanel</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj3WToVsK7FQVWL7Kmfi7wBm9dJQcgQOVqEoxhzJ2Uql_haOJ6aSdXfHlN28oZnSYR95A8fkl0YnwwfYuQPdNlEZGOvMjxJRC65GwUbXvKTuijXa17gizNLL07qAws1bBUN5t6Qi0DVpEE/s1600/hasil+2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="191" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj3WToVsK7FQVWL7Kmfi7wBm9dJQcgQOVqEoxhzJ2Uql_haOJ6aSdXfHlN28oZnSYR95A8fkl0YnwwfYuQPdNlEZGOvMjxJRC65GwUbXvKTuijXa17gizNLL07qAws1bBUN5t6Qi0DVpEE/s320/hasil+2.png" width="320" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: justify;">
Sampai disini dulu ya...akan kita lanjutkan diBagian 2</div>
<div class="separator" style="clear: both; text-align: justify;">
<br /></div>
<div class="separator" style="clear: both; text-align: justify;">
<br /></div>
<div style="text-align: center;">
<br /></div>
</span>Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com3tag:blogger.com,1999:blog-3378847535400126333.post-50234723984955093702012-01-24T02:06:00.000-08:002012-01-24T02:06:16.341-08:00Step by Step Instalasi TFS (Team Fundation Server) 2010 Sebagai Source Control Powerbuilder 12.5 .NETSetelah Sekian lama saya vakum, ini saya coba membuat posting baru mengenai Instalasi TFS 2010 sebagai sarana source control di <b>PowerBuilder 12.5 .Net</b> karena source control nya tidak seperti PB Clasic. Hal-hal yang perlu dipersiapkan adalah sebagai berikut<br />
<br />
<b>A. Instalasi Pada Komputer Server (Windows Server 2003 SP1)</b><br />
<br />
<br />
<ul>
<li>Download dan Install: .<a href="http://www.microsoft.com/downloads/details.aspx?FamilyID=ab99342f-5d1a-413d-8319-81da479ab0d7&DisplayLang=en" target="_blank">NET Framework 3.5 Service pack 1</a> </li>
<li>Download dan Install: <a href="http://www.microsoft.com/downloads/details.aspx?FamilyID=5a58b56f-60b6-4412-95b9-54d056d6f9f4&DisplayLang=en" target="_blank">Windows Installer 4.5 Redistributable </a></li>
<li>Download dan Install: <a href="http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=4045" target="_blank">Windows Management Framework Core package (Windows PowerShell 2.0 and WinRM 2.0)</a></li>
<li>Jika sudah ada Microsoft SQL Server Management Studio Express yang terinstal, maka lakukan uninstal terlebih dahulu. </li>
<li>Download dan Install: <a href="http://www.microsoft.com/downloads/details.aspx?FamilyId=7522A683-4CB2-454E-B908-E805E9BD4E28&displaylang=en" target="_blank">Microsoft® SQL Server® 2008 Express with Tools</a></li>
<li>Download dan Install : <a href="http://www.microsoft.com/download/en/details.aspx?id=15070" target="_blank">Microsoft Visual Studio Team Foundation Server 2010 Trial – ISO</a> </li>
</ul>
<b>B. Langkah Instalasi TFS 2010</b><br />
<br />
<ul>
<li>Karena file TFS 2010 berbentuk ISO, maka butuh software tambahan untuk membaca ISO. Kita bisa gunakan Virtual Clone Drive atau Daemon Tools. Setelah punya software itu, mount ISO-nya TFS.</li>
</ul>
<ul>
<li>Di dalam drive “tambahan” setelah me-mount (aneh banget bahasanya) ISO, ada folder TFS-x64 dan TFS-x86. Pilih dan buka folder yang sesuai dengan mesin Anda. Saya pakai Windows 7 Ultimate x64, jadi saya buka folder TFS-x64.</li>
</ul>
<ul>
<li>Di dalam folder tersebut, double-click file yang bernama <b>setup.exe</b>. Kalau ada window User Account Control, klik tombol <b>Yes </b>tentunya. Setelah itu akan muncul window berikut </li>
</ul>
<br /><div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpm_U4Qia2eye19LE1k3gPWTGmIxsw0b7x8d-TFt3e1KxeapCgckloNhNslg4ChvfpbKOt0R3I8VLpklfHnSRVQrZgG-IXkRSNtIfcYTEsmMHSuvdNMi5UWCyLniqoT0hAnxBpu7B3llo/s1600/1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="306" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpm_U4Qia2eye19LE1k3gPWTGmIxsw0b7x8d-TFt3e1KxeapCgckloNhNslg4ChvfpbKOt0R3I8VLpklfHnSRVQrZgG-IXkRSNtIfcYTEsmMHSuvdNMi5UWCyLniqoT0hAnxBpu7B3llo/s400/1.png" width="400" /></a></div>
<ul>
<li>Tunggu sebentar.. Setelah selesai loading, klik tombol Next. Pada halaman di bawah ini, (silahkan baca license terms terlebih dahulu kemudian) pilih I have read and accept the license terms lalu klik tombol Next. </li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmcUedrr004qkM4er07fWmxwxOAoVDkiMMMU-aO2Ffxd-JfvDjL06A5OEzzwsXyaOajAVPzw2xX1RH7WRBIvtCwlM5JyN-IwZBzWy8SVZ9OysIRyaPEAJWBX68QakSFySqY62_X8te5r0/s1600/2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="306" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmcUedrr004qkM4er07fWmxwxOAoVDkiMMMU-aO2Ffxd-JfvDjL06A5OEzzwsXyaOajAVPzw2xX1RH7WRBIvtCwlM5JyN-IwZBzWy8SVZ9OysIRyaPEAJWBX68QakSFySqY62_X8te5r0/s400/2.png" width="400" /></a></div>
<ul>
<li>Pada halaman di bawah ini, pilih komponen yang Anda ingin install. Team Foundation Server adalah komponen utama TFS. Sedangkan Team Foundation Build Service merupakan komponen tambahan yang memungkinkan kita melakukan build secara terintegrasi (pada post yang akan datang, TFS Build akan saya bahas lebih dalam). Saya memilih untuk <b>menginstal 2 komponen</b> tersebut sehingga saya <b>beri tanda centang 2 pilihan Team Foundation Server dan Team Foundation Build Service</b>, kemudian saya klik tombol Install. </li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjM7rUCQBnFB15jHWnHukXtcsj2cwCOsQogmIdYauRd7hb6Ss7_fMDCnz7gqw4eulqzmCacFiv6HnZUMsDDc_hbCSv2D0izLOs1My3maKU38zCwHK6MUfgaGo8-nmYpjv7lVKpEJtCYz7s/s1600/3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="306" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjM7rUCQBnFB15jHWnHukXtcsj2cwCOsQogmIdYauRd7hb6Ss7_fMDCnz7gqw4eulqzmCacFiv6HnZUMsDDc_hbCSv2D0izLOs1My3maKU38zCwHK6MUfgaGo8-nmYpjv7lVKpEJtCYz7s/s400/3.png" width="400" /></a></div>
<ul>
<li>Tunggu beberapa saat.. silahkan membuat teh atau kopi untuk menemani Anda menunggu. </li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixovpkP3q_iAKb4d7w7WpvsbKNIeeXhL8peDkDY2CF6uYoeJc_1Gd9h37DKk4M98c_upfMhlDcIRLIJiOH16KgZJOppUX7hnoPl1V9TCEf5YrHF_GSWmeUinKjPxTfFW_sx2-bE5ayuF4/s1600/4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="306" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixovpkP3q_iAKb4d7w7WpvsbKNIeeXhL8peDkDY2CF6uYoeJc_1Gd9h37DKk4M98c_upfMhlDcIRLIJiOH16KgZJOppUX7hnoPl1V9TCEf5YrHF_GSWmeUinKjPxTfFW_sx2-bE5ayuF4/s400/4.png" width="400" /></a></div>
<ul>
<li>Kemudian Finish</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhxKRVXm_S-Gp9_L0FxBHa6c_lxa7TJUMiNgzeFVG0F2112-Nd6uYppQKzM528X8bslfdHN8TyTW_JQJqghET7SEOxybOEdLlmv4bpxfCOwyxuO20m-yBngH5EF7UaBSZqJelpIbxC6yU/s1600/5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="306" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhhxKRVXm_S-Gp9_L0FxBHa6c_lxa7TJUMiNgzeFVG0F2112-Nd6uYppQKzM528X8bslfdHN8TyTW_JQJqghET7SEOxybOEdLlmv4bpxfCOwyxuO20m-yBngH5EF7UaBSZqJelpIbxC6yU/s400/5.png" width="400" /></a></div>
<ul>
<li> Proses instalasi sudah selesai. Namun perjuangan belum berakhir. Kita harus melakukan konfigurasi terlebih dahulu agar TFS yang kita instal dapat berfungsi sesuai dengan kondisi sistem dan lingkungan kita. Dengan memastikan bahwa Anda memberi tanda centang pada pilihan<b> Launch Team Foundation Serve</b>r <b>Configuration Tool</b>, klik tombol <b>Configure</b>.</li>
</ul>
<b>C. Konfigurasi Server TFS 2010 </b><br />
<ul>
<li> Setelah klik tombol Configure pada akhir proses instalasi TFS 2010, maka akan muncul window berikut: </li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzKV_hNWQIZq7ErXwYx0Jfa5Ig3eJsb0tUUDn8M8Iz_N_17IW3AeS6xpL3Gr8dOZi1eCmUBYRcUyGV0oUJVcD0H75PbEyY2F92yWKFcDPBhSGcHCdVIdAiyeXo1dM34Qv_Ak7CTG80ZSM/s1600/6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzKV_hNWQIZq7ErXwYx0Jfa5Ig3eJsb0tUUDn8M8Iz_N_17IW3AeS6xpL3Gr8dOZi1eCmUBYRcUyGV0oUJVcD0H75PbEyY2F92yWKFcDPBhSGcHCdVIdAiyeXo1dM34Qv_Ak7CTG80ZSM/s400/6.png" width="400" /></a></div>
<ul>
<li>Perhatikan bahwa ada beberapa pilihan wizard, yaitu Basic, Advanced, Application-Tier Only, dan Upgrade. Pada setiap wizard, terdapat informasi tentang apa tujuan wizard tersebut. Pilih wizard yang paling cocok dengan kebutuhan Anda. Pada kasus ini, saya pilih wizard yang Basic. Setelah itu, klik tombol Start Wizard </li>
<li>Akan muncul halaman Welcome pada window Team Foundation Server Basic Configuration. Pada halaman ini, klik tombol Next. </li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-HOmQ2n8ShyphenhyphenGXt6rFBeCn6-l-eENwuXeFh5PHJFnarFORCC8NueYiCxFf4hiRLzwpKjbaC-IIKh80CHoWSarp5NuFooPTeoB4wld7DCcaSdW12Z6H2ySWlNv5e3axd9dSjbGW3w7NgWE/s1600/7.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="300" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-HOmQ2n8ShyphenhyphenGXt6rFBeCn6-l-eENwuXeFh5PHJFnarFORCC8NueYiCxFf4hiRLzwpKjbaC-IIKh80CHoWSarp5NuFooPTeoB4wld7DCcaSdW12Z6H2ySWlNv5e3axd9dSjbGW3w7NgWE/s400/7.png" width="400" /></a></div>
<ul>
<li>Muncul halaman SQL Server Instance. Wizard ini tahu bahwa saya sudah punya SQL Server Express sehingga pilihan Use an existing SQL Server Instance secara otomatis sudah terpilih. Bagi Anda yang belum punya SQL Server Express, jangan khawatir, karena wizard ini akan menginstalkannya (lagi-lagi bahasa yang aneh) untuk Anda (yaitu dengan memilih pilihan Install SQL Server Express). Selanjutnya, klik tombol Next. </li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhM2Ul4nTiCDChZIi5KZnFzf4a_Dn5GaVeI5ZJJYaVU6rql3pQIoHztul-x_CLpUPlMkV8eLJnbCkLsN60ZuvFmfELvd0SvZ484ELgSlwmStB1EI_72AHflkRkAz_fItGenCdUWPOFr_lQ/s1600/8.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="310" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhM2Ul4nTiCDChZIi5KZnFzf4a_Dn5GaVeI5ZJJYaVU6rql3pQIoHztul-x_CLpUPlMkV8eLJnbCkLsN60ZuvFmfELvd0SvZ484ELgSlwmStB1EI_72AHflkRkAz_fItGenCdUWPOFr_lQ/s400/8.png" width="400" /></a></div>
<ul>
<li> Akan muncul halaman Review. Pada halaman ini, kita diberikan informasi tentang apa saja settingan konfigurasi yang akan dilakukan oleh wizard ini. Klik tombol Next. </li>
<li>Tunggu proses Readines Checks selesai.. </li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgoQj2t3aqOvYrpnGvOq7WLiuDDTgQEqJ8jFNDK5Gvk3dQYAxl6CfjU8OWuRp30lEahhfMqGWXeTTfuVOxzhBS9UdmXTQ3ntiD405bAWd0k8l3ISu_wrCP-VwmO0yiTZfuWHEDnK49BScU/s1600/10.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="332" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgoQj2t3aqOvYrpnGvOq7WLiuDDTgQEqJ8jFNDK5Gvk3dQYAxl6CfjU8OWuRp30lEahhfMqGWXeTTfuVOxzhBS9UdmXTQ3ntiD405bAWd0k8l3ISu_wrCP-VwmO0yiTZfuWHEDnK49BScU/s400/10.png" width="400" /> </a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<ul>
<li> Setelah selesai, klik tombol Next. </li>
<li>Finish</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9kRkb5UawFQVrpaJ3wBxPTRLeCgP4tSqxALLGiHxG6hHaMtxOAvP5D32R3ds6zw1AK97u3jQ49zATlRBUmcXudi6v7wW85_5WYPz_ftiiZO1Eih2m7HZtp_yYX5MaMQUyyvLMkOgEimk/s1600/11.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="332" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9kRkb5UawFQVrpaJ3wBxPTRLeCgP4tSqxALLGiHxG6hHaMtxOAvP5D32R3ds6zw1AK97u3jQ49zATlRBUmcXudi6v7wW85_5WYPz_ftiiZO1Eih2m7HZtp_yYX5MaMQUyyvLMkOgEimk/s400/11.png" width="400" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpm_U4Qia2eye19LE1k3gPWTGmIxsw0b7x8d-TFt3e1KxeapCgckloNhNslg4ChvfpbKOt0R3I8VLpklfHnSRVQrZgG-IXkRSNtIfcYTEsmMHSuvdNMi5UWCyLniqoT0hAnxBpu7B3llo/s1600/1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<div class="separator" style="clear: both; text-align: left;">
Untuk Selanjutnya kita tinggal melakukan Instalasi di Komputer Client, Adapun Hal2 yang perlu dipersiapkan adalah sebagai berikut :</div>
<div class="separator" style="clear: both; text-align: left;">
A. Install Powerbuilder 12.5</div>
<div class="separator" style="clear: both; text-align: left;">
B. Install Visual Studio Team Explorer (File Ini sudah Include didalam ISO TFS 2010 Trial yang kita download)</div>
<div class="separator" style="clear: both; text-align: left;">
C. Download dan Install <a href="http://visualstudiogallery.msdn.microsoft.com/bce06506-be38-47a1-9f29-d3937d3d88d6/" target="_blank">Visual Studio Team Foundation Server MSSCCI Provider</a></div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
Setelah semua terinstall dengan aman maka selanjutnya kita lakukan <b>setting source control pada Powerbuilder 12.5 .NET</b></div>
<ul>
<li>Klik Tools > Options</li>
<li>pilih SourceControl > PlugIn Selection </li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgcjEaVt63f0kZYGkkr_Yyar04Oy7qcucGNKoVNo37zoIf6ftcgLOa7W1qXcAQ3sZ7R_vZ44tKRg1oBP3pexV2Oir0LwW4Yj4RTEx1AKEyhM_vl9v7dEJTpy9JnL24_2_vSeXT-hm_5w8U/s1600/1a.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="372" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgcjEaVt63f0kZYGkkr_Yyar04Oy7qcucGNKoVNo37zoIf6ftcgLOa7W1qXcAQ3sZ7R_vZ44tKRg1oBP3pexV2Oir0LwW4Yj4RTEx1AKEyhM_vl9v7dEJTpy9JnL24_2_vSeXT-hm_5w8U/s640/1a.png" width="640" /></a></div>
<ul>
<li>pilih Source Control > Environment</li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7X4aQPPIVbxcUsOcPPHyu0ARObSgXcgVxf19al3ybUdvHmHqCuf9TuXqdfnOwpNHA5jGR7rxSjrCGgwiyr6Iyfyo8veiHp78gDCaUguP9dfIWUKQL6gVkSFkIuIrzv-fjtbkubIyj7ho/s1600/1b.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="374" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7X4aQPPIVbxcUsOcPPHyu0ARObSgXcgVxf19al3ybUdvHmHqCuf9TuXqdfnOwpNHA5jGR7rxSjrCGgwiyr6Iyfyo8veiHp78gDCaUguP9dfIWUKQL6gVkSFkIuIrzv-fjtbkubIyj7ho/s640/1b.png" width="640" /></a></div>
<ul>
<li>pilih Source Control > Plug-In Setting. </li>
</ul>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPdH6coNx7Ft9QbGH9K7PqUdykH-qRCM5Rgjfl9-GRr3b2_K9NLTLwUzD5uPNmE0_MnjS0MrQJB9m0bCWo673oObT3S_NC76p1Vq2CQaXKRq5VXG0nMQS-niOTCpaMCXREjONQydhLWW0/s1600/1c.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="424" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPdH6coNx7Ft9QbGH9K7PqUdykH-qRCM5Rgjfl9-GRr3b2_K9NLTLwUzD5uPNmE0_MnjS0MrQJB9m0bCWo673oObT3S_NC76p1Vq2CQaXKRq5VXG0nMQS-niOTCpaMCXREjONQydhLWW0/s640/1c.png" width="640" /></a></div>
<div style="text-align: left;">
<br /></div>
<ul>
<li>Sekarang Powerbuilder 12.5 .NET kita sudah menggunakan Source Control TFS 2010 </li>
</ul>Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-59414464223481940782010-05-18T10:36:00.001-07:002012-10-17T10:02:18.473-07:00Membuat Aplikasi GL dengan Powerbuilder 9<a href="http://www.4shared.com/office/hsVrwShH/membuat_aplikasi_gl_dengan_pow.html?">http://www.4shared.com/office/hsVrwShH/membuat_aplikasi_gl_dengan_pow.html?</a>Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com3tag:blogger.com,1999:blog-3378847535400126333.post-18489766037626068822010-05-18T10:30:00.000-07:002012-06-23T16:23:38.072-07:00Tips: Export Blob Ke Image Power BuilderArtikel kali ini akan memberi contoh bagaimana memanggil kembali blob dari dalam database dan menampilkan di pictue control maupun meng-export kembali menjadi file gambar.<br />
<blockquote>
<em>Blob Emp_id_pic<br />
SELECTBLOB Image<br />
INTO :Emp_id_pic<br />
FROM dba.t_image<br />
WHERE “index image” = :iindex<br />
USING SQLCA ;</em></blockquote>
<blockquote>
<em>integer li_FileNum, loops<br />
long flen<br />
li_FileNum = FileOpen(sfilename,StreamMode!, Write!, Shared!, Replace!)<br />
SetPointer(HourGlass!)<br />
flen = Len(Emp_id_pic)<br />
IF flen > 32765 THEN</em><br />
<blockquote>
<em> IF Mod(flen, 32765) = 0 THEN</em><br />
<blockquote>
<em> loops = flen/32765</em></blockquote>
<em>ELSE</em><br />
<blockquote>
<em> loops = (flen/32765) + 1</em></blockquote>
<em>END IF</em></blockquote>
<em>ELSE</em><br />
<blockquote>
<em> loops = 1</em></blockquote>
<em>END IF</em></blockquote>
Selanjutnya untuk meng-export kedalam file gambar dapat digunakan baris perintah berikut:<br />
<blockquote>
<em>FileWritex(li_FileNum, Emp_id_pic,loops*32765)</em> untuk PB 10.0 ke atas<br />
<em> FileWrite(li_FileNum, Emp_id_pic)</em>. Untuk PB 9.0 dan diakhiri dengan menutup file gambar <em> </em>dengan <em>FileClose(li_FileNum)</em></blockquote>
File library / PBL dapat anda download <a href="http://ilmu-komputer.net/download/">disini</a>. Selamat mencoba. Catatan: fungsi dalam library ini menggunakan 2 parameter yaitu sfilename bertipe string untuk namafile yang ingin kita import dan iindex bertipe integer merupakan index dari file ( bisa juga yang lain misalnya NIP atau NIM )<br />
<br />
Sumber : http://aryodarmo.blogspot.com/2009/01/tips-export-blob-ke-image-power-builder.htmlJosanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-28139345738857957272010-05-18T10:10:00.000-07:002010-05-18T10:10:49.076-07:00Dasar atau konsep Power Builder<div class="post-19 post type-post hentry category-uncategorized" id="post-19"> <h2 class="posttitle"><a href="http://faisalrachmadin.wordpress.com/2008/12/30/dasar-atau-konsep-power-builder/" rel="bookmark" title="Permanent link to Dasar atau konsep
Power Builder"></a></h2>Power Builder adalah sebuah development tool dengan dasar atau konsep pemrograman berorientasi objek atau <strong>Object Oriented Programming</strong> (OOP) yang memiliki karakteristik<strong> Encapsulation, Inheritance, dan Polymorphism</strong>. OOP adalah konsep yang umum dan telah di adopsi oleh banyak bahasa pemrograman modern seperti <strong>C++</strong>, <strong>Java</strong>, <strong>VBScript</strong> dan sebagainya. Teknik pemrograman pada OOP adalah bersifat modular, Berbeda dengan teknik pemrograman konvensional yang sifatnya struktural, pada OOP, sebuah modul program dipandang sebagai sebuah objek.<div class="postentry"><div class="snap_preview"> <div class="MsoNormal" style="line-height: 150%; text-align: justify; text-indent: 36pt;"> </div><div class="MsoNormal" style="line-height: 150%; text-indent: 36pt;"><strong><span lang="FI">Encapsulation</span></strong><span lang="FI"> adalah karakteristik dan perilaku yang berkaitan dengan kemandirian sebuah objek. </span>Analogi dengan makhluk hidup, sebuah objek memiliki karakteristik dan perilaku. Sebagai contoh, karakteristik yang dimiliki objek manusia adalah warna kulit, tinggi badan, berat badan, kegemaran, tingkat kecerdasan dan sebagainya. Sebagai objek yang aktif, seorang manusia berinteraksi dengan lingkungannya dengan cara beraktifitas dan merespon keadaan sekelilingnya. <span lang="FI">Dalam OOP karakteristik di istilahkan sebagai <strong><em>Atribut</em></strong> atau <strong><em>Properti</em></strong>. Perilaku diistilahkan sebagai <strong><em>Metode</em></strong>. <strong>Metode</strong> dibedakan menjadi <strong>Event</strong> dan <strong>Function</strong>.</span></div><div class="MsoNormal" style="line-height: 150%; text-indent: 36pt;"><span lang="FI"> </span></div><div class="MsoNormal" style="line-height: 150%; text-indent: 36pt;"><strong><em><span lang="FI">Event</span></em></strong><span lang="FI"> adalah suatu kejadian yang dialami objek tersebut, misalnya pada contoh manusia adalah <em>merasa lapar</em>, <em>sakit</em> atau <em>terkejut</em>. Sedangkan <strong><em>Fungsi</em></strong> adalah tindakan yang bisa dilakukan sebuah objek, misalnya berjalan, tidur, makan dan seterusnya. Biasanya fungsi dilakukan ketika ada event yang diterima. Semua karakteristik dan perilaku tersebut dibungkus akan membentuk wujud manusia yang utuh. <strong>Properti</strong> dan <strong>Metode</strong> yang berbeda dalam keadaan terbungkus itu dikenal de</span>ngan istilah <strong><em>Encapsulation</em></strong>.<br />
<!--[if !supportLineBreakNewLine]--><br />
<!--[endif]--></div><div class="MsoNormal" style="line-height: 150%; text-indent: 36pt;">Sebuah objek adalah sebuah modul yang mandiri, artinya ia tidak memiliki ketergantungan dengan objek lain atau program utama. Dengan demikian, sebuah objek yang digunakan pada sebuah aplikasi dan dapat juga digunakan pada aplikasi lain. Agar sebuah program dapat berinterakasi dengan sebuah objek, maka kode program tersebut harus memanggil <em>metode</em> yang ada di dalam objek yang bersangkutan. <em>Metode</em> identik dengan <em>fungsi</em> atau <em>event</em> yang mengandung sebuah atau beberapa parameter. Jadi dalam hal ini sebuah program dapat mengirimkan sebuah nilai ke dalam parameter sebuah metode. Objek yang bersangkutan menerima parameter tersebut dan menjalankan aksinya. Karena kode program di dalam objek berinteraksi dengan parameter dan bukan variabel lokal atau global dari program yang memangilnya, maka objek itu mempertahankan kemandiriannya.<br />
<!--[if !supportLineBreakNewLine]--><br />
<!--[endif]--></div><div class="MsoNormal" style="line-height: 150%; text-indent: 36pt;">Istilah <strong>Inheritance</strong> memacu pada penurunan sifat sebuah objek pada objek lain. sebagai contoh, objek manusia di turunkan dari objek bernama primata karena objek ini mempunyai karakteristik yang lebih umum, yaitu makhluk hidup yang menyusui, mempunyai empat angota tubuh, bertulang belakang dan sebagainya. Istilah untuk objek turunan adalah <strong><em>descendent</em></strong>, sedangkan objek penurun atau pendahulunya adalah <strong><em>ancestor</em></strong>.</div><div class="MsoNormal" style="line-height: 150%; text-indent: 36pt;"> </div><div class="MsoNormal" style="line-height: 150%; text-indent: 36pt;"><strong>Polymorphism</strong> adalah perilaku yang berbeda-beda dari sebuah <em>ancestor</em> dan pada <em>desendent</em>-nya. Sebagai contoh kita gunakan lagi objek manusia dan kera yang masing-masing di turunkan dari objek primata yang sama. Apabila kita memanggil metode “makan”, maka kera akan mengulurkan tangannya dan memasukan makanan ke dalam mulutnya kemudian mengunyah dengan cepat-cepat. Sedangkan, jika metode yang sama di panggil dari objek manusia, maka ia akan menggerakkan tangannya untuk menyendok makanan, dan memasukkan ke dalam mulut kemudian mengunyah perlahan-lahan sambil menikmati rasanya. Jadi jelas disini bahwa kedua objek tersebut mempunyai perilaku yang berbeda untuk metode “makan”. </div><div class="MsoNormal" style="line-height: 150%; text-indent: 36pt;"> Sumber : <a href="http://faisalrachmadin.wordpress.com/2008/12/30/dasar-atau-konsep-power-builder/">http://faisalrachmadin.wordpress.com/2008/12/30/dasar-atau-konsep-power-builder/</a></div></div></div></div>Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com1tag:blogger.com,1999:blog-3378847535400126333.post-32357912676142094882010-03-20T10:37:00.000-07:002010-03-20T10:38:57.980-07:00Cara mendapatkan Nomor Serial DISK<span onmouseout="_tipoff()" onmouseover="_tipon(this)"></span><br />
<b><span onmouseout="_tipoff()" onmouseover="_tipon(this)">Pertama, Buat definisi dari fungsi API di global external function:</span></b><br />
<br />
Function Boolean GetVolumeInformationA( & <br />
ref String ls_Rootpath, & <br />
ref String ls_volumnename, & <br />
Ulong lul_VolumeNameSize, ref Ulong lul_VolumeSerialNumber, & <br />
ref Ulong lul_MaximumComponentLength, & <br />
ref Ulong lul_FileSystemFlags, & <br />
ref String ls_FileSystemNameBuffer, & <br />
Ulong lul_FileSystemNameSize & <br />
) Library "Kernel32.dll"<br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)"> <br />
</span><br />
<b>Kedua, Buat script pemanggil dibawah ini</b><br />
<br />
String ls_Rootpath, ls_volumnename <br />
ls_Rootpath = "C:" // <span onmouseout="_tipoff()" onmouseover="_tipon(this)">tentukan untuk mendapatkan nomor seri hard drive</span><br />
ls_volumnename = Space(256) // <span onmouseout="_tipoff()" onmouseover="_tipon(this)">mengalokasikan cukup ruang, yang sama di bawah ini</span><br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)"> </span> <br />
Ulong lul_VolumeNameSize <br />
lul_VolumeNameSize = 256 <br />
Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags <br />
lul_MaximumComponentLength = 256 <br />
String ls_FileSystemNameBuffer <br />
ls_FileSystemNameBuffer = space(256) <br />
Ulong lul_FileSystemNameSize <br />
lul_FileSystemNameSize = 256<br />
<br />
boolean lb_rtn <br />
lb_rtn = False<br />
<br />
lb_rtn = GetVolumeInformationA(ls_Rootpath, ls_volumnename, lul_VolumeNameSize, & <br />
lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags, &<br />
ls_FileSystemNameBuffer, lul_FileSystemNameSize)<br />
<br />
if lb_rtn = false then <br />
MessageBox(<span onmouseout="_tipoff()" onmouseover="_tipon(this)" style="background-color: #e6ecf9;">"Alert", "fungsi panggil gagal!"</span>) <br />
return<br />
end if <br />
sle_1.text = String(lul_VolumeSerialNumber) // <span onmouseout="_tipoff()" onmouseover="_tipon(this)">/ / mendapatkan nomor seri harddisk</span> <br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)"></span><br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)"><br />
</span><br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">// Sumber :http://blog.zjxu.edu.cn/zyc/readblog.asp?blogid=12&id=22</span>Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-10662827506576375902010-03-20T09:57:00.000-07:002010-03-20T09:58:57.673-07:00Memanggil DLL VC++ dengan Powerbuilder<b>A. Overview :</b><br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">Dynamic link library (Dynamic-Link Library), disebut sebagai <b>DLL</b>, sebuah program berbasis Windows yang dirancang untuk komponen yang sangat penting.</span> <span onmouseout="_tipoff()" onmouseover="_tipon(this)" style="background-color: #e6ecf9;"><span class="google-src-text" style="direction: ltr; text-align: left;"></span>Dengan menggunakan <b>DLL </b>mempunyai banyak keuntungan:</span> <br />
<b><br />
</b><br />
1. Penggunaan<b> DLL </b>tidak untuk menyalin Program tersebut, Melainkan sebagai Fungsi Entry Point dan Interface. Apabila ada beberapa Program memanggil DLL yang sama system hanya perlu me-reload ulang DLL tersebut dimemori<br />
2. <b>DLL </b><span onmouseout="_tipoff()" onmouseover="_tipon(this)">adalah sebuah program berbasis modul-modul Windows, yang tidak hanya berisi kode executable, tetapi juga dapat berisi data, berbagai sumber daya untuk memperluas penggunaan file-file library.</span><br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">3. Fungsi Utama dari <b>DLL </b>adalah untuk mengurangi Duplikat penggunaan fungsi sehingga akan megurangi beban kerja dan sekaligus meningkatkan kinerja akses.</span><br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">4. </span><span onmouseout="_tipoff()" onmouseover="_tipon(this)"><b>DLL </b>memperkaya PowerScript dalam kemampuan bahasa pemrograman, </span><span onmouseout="_tipoff()" onmouseover="_tipon(this)"><span class="google-src-text" style="direction: ltr; text-align: left;"></span> Sebagai contoh: pengguna dapat menulis sistem pemrosesan gambar untuk mencari file dan disimpan dalam database, aplikasi harus menggunakan browser, tetapi dengan bahasa PowerScript tidak menyediakan fungsi untuk melakukan pekerjaan semacam itu, dalam rangka untuk memanipulasi perangkat, perlu untuk berkomunikasi dengan perangkat itu sendiri, lingkungan, lingkungan ini umumnya disediakan oleh produsen dynamic link library.</span><br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">5. <b>DLL</b> bersifat Independen sehingga dalam lingkungan windows dimungkinkannya sebuah program memanggil fungsi DLL.</span><br />
<br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">Contoh berikut menggunakan DLL untuk koneksi melalui program PowerBuilder dan VC + +</span><span onmouseout="_tipoff()" onmouseover="_tipon(this)">.</span><br />
<br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)"><b>B. Buat DLL dengan VC++</b> </span><br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">VC ++ 5,0 menggunakan MFC AppWizard dapat secara otomatis hasilkan Win32 DLL dan AppWizard MFC DLL, dimulai setelah VC, dari File | New item menu, pilih kotak NEW dialog , di Proyek tab, pilih NEW PROJECT untuk MFC AppWizard (dll), masukkan PROJECT NAME <b>pbdll</b>, klik tombol OK, pop-up dialog box , pilih jenis DLL: Reguler DLL menggunakan MFC DLL Share, dan kemudian klik tombol Finish.</span><span onmouseout="_tipoff()" onmouseover="_tipon(this)"><span class="google-src-text" style="direction: ltr; text-align: left;"></span> AppWizard akan secara otomatis membuat sebuah DLL yang mengandung unsur-unsur dasar dari kerangka kerja, dan kemudian kita tinggal menambahkan kode secara manual.</span> <span onmouseout="_tipoff()" onmouseover="_tipon(this)"> </span> <br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)"> </span> <br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">Buka file pbdll.cpp, tambahkan fungsi berikut:</span><br />
<br />
<b>extern "C" _declspec ( dllexport )<br />
int PASCAL out_num(int x)<br />
{<br />
int y;<br />
char msg[30];<br />
y=x > >2;<br />
sprintf(msg, "Hasil%o ! ", y);<br />
::MessageBox(NULL, msg, "Pesan", MB_OK);<br />
return 0;<br />
}</b><br />
<br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)"> </span><span onmouseout="_tipoff()" onmouseover="_tipon(this)">Pernyataan di atas fungsi out_num (), masukan parameter untuk nomor integer, untuk menggeser operasi, hasil perhitungan dengan kotak dialog akan ditampilkan.</span> <span onmouseout="_tipoff()" onmouseover="_tipon(this)"><span class="google-src-text" style="direction: ltr; text-align: left;"></span>Kemudian buka file pbdll.def, masukkan fungsi dalam pernyataan EKSPOR out_num, file berbunyi sebagai berikut:</span><br />
<br />
<b>LIBRARY "pbdll"<br />
DESCRIPTION pbdll Windows Dynamic Link Library </b><br />
<br />
<b>EXPORTS<br />
; Explicit exports can go here</b><br />
<b><span onmouseout="_tipoff()" onmouseover="_tipon(this)">out_num @ 1</span> </b><br />
<br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">Terakhir dikompilasi dynamic link library tersebut sehingga menghasilkan pbdll.dll.</span><span onmouseout="_tipoff()" onmouseover="_tipon(this)"> </span><br />
<br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)"><b>C. Buat program PB untuk Memanggil DLL pbdll.dll</b> </span><br />
<span onmouseout="_tipoff()" onmouseover="_tipon(this)">D</span><span onmouseout="_tipoff()" onmouseover="_tipon(this)">alam PowerBuilder untuk memanggil fungsi out_num () kode adalah sebagai berikut:</span> <br />
<br />
Function int out_num ( int irow ) LIBRARY "pbdll.dll"<br />
<br />
int irow,retcode<br />
irow=dw_1.rowcount()<br />
retcode=out_num(irow) <br />
<br />
<b>Silahkan mencoba. </b><br />
Sumber asli :<b>http://www.goalercn.com/article/article.php?id=2974<br />
</b>Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-80795469008797344232010-03-16T03:35:00.000-07:002010-03-16T04:00:31.512-07:00MEMBUAT REPORT DATAWINDOW DENGAN QUERY UNION<div class="MsoNormal">Untuk membuat report Union di datawindow ada beberapa <br />
cara:</div><div class="MsoNormal">Cara pertama : yaitu dengan mengetikan query sql yang <br />
menggunakan Union pada sql syntax di datawindow</div><div class="MsoNormal">Cara kedua : dengan menggunakan tools design union </div><div class="MsoNormal">berikut saya akan coba berikan langkah-langkah pembuatan <br />
datawindow dengan cara kedua</div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Asumsikan kita mempunyai 2 buah tabel yang akan ditampilkan <br />
kedalam sebuah report datawindow.</div><div class="MsoNormal"><br />
</div><div class="MsoNormal">1. TABEL PELANGGAN</div><table border="1" bordercolor="#111111" cellpadding="0" cellspacing="0" id="AutoNumber1" style="border-collapse: collapse;"><tbody>
<tr> <td align="center" width="15%"><b>Kode</b></td> <td align="center" width="33%"><b>Nama</b></td> <td align="center" width="27%"><b>Alamat</b></td> <td align="center" width="25%"><b>Telp</b></td> </tr>
<tr> <td align="center" width="15%">P001</td> <td align="center" width="33%">Mr. Yandi</td> <td align="center" width="27%">Jakarta</td> <td align="center" width="25%">021-55252214</td> </tr>
<tr> <td align="center" width="15%">P002</td> <td align="center" width="33%">Mr. Azis</td> <td align="center" width="27%">Jakarta</td> <td align="center" width="25%">021-52541444</td> </tr>
<tr> <td align="center" width="15%">P003</td> <td align="center" width="33%">Mr. Jony</td> <td align="center" width="27%">Jakarta</td> <td align="center" width="25%">021-85285142</td> </tr>
<tr> <td align="center" width="15%"></td> <td align="center" width="33%"></td> <td align="center" width="27%"></td> <td align="center" width="25%"></td> </tr>
</tbody></table><div class="MsoNormal"><br />
</div><div class="MsoNormal">2. TABEL SUPLIER</div><table border="1" bordercolor="#111111" cellpadding="0" cellspacing="0" id="AutoNumber1" style="border-collapse: collapse;"><tbody>
<tr> <td align="center" width="15%"><b>Kode</b></td> <td align="center" width="33%"><b>Nama</b></td> <td align="center" width="27%"><b>Alamat</b></td> <td align="center" width="25%"><b>Telp</b></td> </tr>
<tr> <td align="center" width="15%">S001</td> <td align="center" width="33%">Tuan Agus</td> <td align="center" width="27%">Jakarta</td> <td align="center" width="25%">021-88888871</td> </tr>
<tr> <td align="center" width="15%">S002</td> <td align="center" width="33%">Tuan Abdul</td> <td align="center" width="27%">Jakarta</td> <td align="center" width="25%">021-65258524</td> </tr>
<tr> <td align="center" width="15%">S003</td> <td align="center" width="33%">Tuan Rahmat</td> <td align="center" width="27%">Jakarta</td> <td align="center" width="25%">021-78554125</td> </tr>
<tr> <td align="center" width="15%"></td> <td align="center" width="33%"></td> <td align="center" width="27%"></td> <td align="center" width="25%"></td> </tr>
</tbody></table>Langkah-Langkah :<br />
<br />
1. Pilih New > Tabular<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjO6_VtnG7gj1sRgS2zzzremi1-17nFa0VUGb_YegPLCuHfwfCWC38PhmJAUNHrWusEhR1VrdY0j0brmvZTQ11anCeHC46XCT6Re-QW1Gqol6r28bahOqcggrEnAaH2Cds1GO72zEvfpyc/s1600-h/new.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="217" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjO6_VtnG7gj1sRgS2zzzremi1-17nFa0VUGb_YegPLCuHfwfCWC38PhmJAUNHrWusEhR1VrdY0j0brmvZTQ11anCeHC46XCT6Re-QW1Gqol6r28bahOqcggrEnAaH2Cds1GO72zEvfpyc/s320/new.JPG" width="320" /></a></div><br />
2. Pilih SQLSelect<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisEhqwzIicXGV0p_r1LjZJFtRbFIAM42vn8xNWQ95qPC5Bvutv2yRvSOGHTXqeaRxMI_FTvy3g6TeH-AelPPl0AFoXHgX7iSr_XSws9GZdtTIJfPp2vNDTD0s1E4GI78IGcwme7c5csEg/s1600-h/sqlselect.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="208" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisEhqwzIicXGV0p_r1LjZJFtRbFIAM42vn8xNWQ95qPC5Bvutv2yRvSOGHTXqeaRxMI_FTvy3g6TeH-AelPPl0AFoXHgX7iSr_XSws9GZdtTIJfPp2vNDTD0s1E4GI78IGcwme7c5csEg/s320/sqlselect.JPG" width="320" /></a></div><br />
3. Pilih Table PELANGGAN<br />
<br />
4. Pilih COMPUTE COLUMNS<br />
5. Kemudian klik kanan pada kolom tersebut dan pilih Column<br />
setelah itu pilih kolom pada tabel pelanggan satu persatu, tapi yang perlu diingat adalah pemberian <br />
nama pada kolom2 tersebut dengan didahului "as"<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhVG24asGEjPJlBEbSzCkK6cPrWKWU1dMB0NxcI8awH2OOuYoIm-PLhFDiuDinjsaqklKcl8PWqFjM64NbHZIGlbsS7AyYJrctdsCgzhmJmYUpoytq0mPf_Xsn7iieWp_Fp13rXuDRSg2o/s1600-h/selectcolumn.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhVG24asGEjPJlBEbSzCkK6cPrWKWU1dMB0NxcI8awH2OOuYoIm-PLhFDiuDinjsaqklKcl8PWqFjM64NbHZIGlbsS7AyYJrctdsCgzhmJmYUpoytq0mPf_Xsn7iieWp_Fp13rXuDRSg2o/s320/selectcolumn.JPG" /></a></div><br />
6. Kemudian pilih Menu Design dan pilih UNION maka akan muncul dialog seperti gambar dibawah ini :<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKet0gohL_ic_U6ZcQtBWS__ymNbgZ91SSkqGRJbnK45FqoZ3nOIapwbCavgsc3274niF8915rZol3qkCHIRDh9B9aOmyKHHLE0Ic04uf2aaYSeH7WpoU6QymLvnfvhdd2bnLbjNWLGWg/s1600-h/unions.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="186" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKet0gohL_ic_U6ZcQtBWS__ymNbgZ91SSkqGRJbnK45FqoZ3nOIapwbCavgsc3274niF8915rZol3qkCHIRDh9B9aOmyKHHLE0Ic04uf2aaYSeH7WpoU6QymLvnfvhdd2bnLbjNWLGWg/s320/unions.JPG" width="320" /></a></div><br />
7. Pilih New<br />
8. Pilih Tabel Supplier dan klik Open<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8e5KRKohqMcIBhMdIq8ROzpxGGk8PFH4Zn4qajmYSR5Zc9SICd3md84-jm9m-C7ql7blTYEZq_IhhlIP1RApsSX0Hs4hrUqOc9dbQxAwpjgWEV15diNAak4ZJfm4VXvaFvT7P2yTRvuU/s1600-h/supp.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="236" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh8e5KRKohqMcIBhMdIq8ROzpxGGk8PFH4Zn4qajmYSR5Zc9SICd3md84-jm9m-C7ql7blTYEZq_IhhlIP1RApsSX0Hs4hrUqOc9dbQxAwpjgWEV15diNAak4ZJfm4VXvaFvT7P2yTRvuU/s320/supp.JPG" width="320" /></a></div><br />
9. Langkah selanjutnya seperti no.4 dan 5. dengan catatan penamaan "as" pada setiap kolom harus sama dengan kolom pada tabel pelanggan.<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2H_xXcj3nAU5Lqj3AqkFNlGZZIgpkbsrjVWy81VdZQxI6wAjIRepBSGoQ5uORt1FGlxnophz2p_tiI5Gokc9G9-eo5X3gvV-5T7PMdr9NdSxqHLlsJHs9XbRoQzeNiszgCW_Lr4ms6-k/s1600-h/suplier+union.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2H_xXcj3nAU5Lqj3AqkFNlGZZIgpkbsrjVWy81VdZQxI6wAjIRepBSGoQ5uORt1FGlxnophz2p_tiI5Gokc9G9-eo5X3gvV-5T7PMdr9NdSxqHLlsJHs9XbRoQzeNiszgCW_Lr4ms6-k/s320/suplier+union.JPG" width="320" /></a></div><br />
10. Selanjutnya Pilih RETURN<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguyBDV6AN-gZZdiT00BO6N73TdfcpRAsm5OuwoOGuuHmLbUBM-1EcS1ByuDFnKNCs9iRtL0NqYAmgjf4nN4Y2VU8a-E08T013J6SjUSLwZAKbNRFC4U_KOVug6MkNdEwbA91p3C2ljoGM/s1600-h/return.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="200" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguyBDV6AN-gZZdiT00BO6N73TdfcpRAsm5OuwoOGuuHmLbUBM-1EcS1ByuDFnKNCs9iRtL0NqYAmgjf4nN4Y2VU8a-E08T013J6SjUSLwZAKbNRFC4U_KOVug6MkNdEwbA91p3C2ljoGM/s200/return.JPG" width="200" /></a></div><br />
11. Kita bisa lihat hasil syntax query yang telah kita buat<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEglRDECWfWep8geouixDrbT29rsbwdPCHSvzKn8J0Gu-5wvGy0B50P-b_Tt0pIMbZCcOFG0o7y3f0SKkvc4pbqlhTqU4Iov3ypvl6GT2RkPtPshfoV_LP6SpES8CZm_ltr1h4XPWRhFrDM/s1600-h/sqlsyntax.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEglRDECWfWep8geouixDrbT29rsbwdPCHSvzKn8J0Gu-5wvGy0B50P-b_Tt0pIMbZCcOFG0o7y3f0SKkvc4pbqlhTqU4Iov3ypvl6GT2RkPtPshfoV_LP6SpES8CZm_ltr1h4XPWRhFrDM/s320/sqlsyntax.JPG" /></a></div><br />
12. Selanjutnya Datawindow sudah bisa kita gunakan.Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com1tag:blogger.com,1999:blog-3378847535400126333.post-21829355923851781822010-03-02T06:25:00.000-08:002016-04-14T03:33:16.601-07:00Powerbuilder Windows API<b>Arc()</b><br />
Fungsi ini digunakan untuk menggambar lingkaran<br />
<br />
<b>Global External Function:</b><br />
FUNCTION boolean Arc(ulong hwnd, long r1, long r2, long r3, long r4, long a1, long a2, long a3, long a4) LIBRARY "Gdi32.dll"<br />
<br />
<b>Script:</b><br />
Boolean rtn<br />
ulong l_handle, l_device<br />
long lv[8]<br />
l_handle = handle(w_main) // 'w_main' is the name of the sample window.<br />
l_device = GetDC(l_handle)<br />
lv[ ] = {10,40,300,220,0,0,180,0}<br />
rtn = Arc(l_device, lv[1], lv[2], lv[3], lv[4], lv[5], lv[6], lv[7], lv[8])<br />
-----------------------------------------------------------------------------------<br />
<b>Beep()</b><br />
Fungsi ini untuk suara, seperti beep pada PB<br />
<br />
<b>Global External Function:</b><br />
FUNCTION boolean Beep(long freq,long dur) LIBRARY "Kernel32.dll"<br />
<br />
<b>Script:</b><br />
Boolean rtn<br />
Long ll_freq, ll_dur<br />
ll_freq = 500<br />
ll_dur = 20<br />
rtn = Beep(ll_freq, ll_dur)<br />
------------------------------------------------------------------------------------<br />
<b>BringWindowToTop( )</b><br />
Sebuah perintah agar window selalu berada didepan seperti perintah :[window].bringtotop = true<br />
<br />
<b>Global External Function:<b></b></b><br />
FUNCTION boolean BringWindowToTop(ulong w_handle) LIBRARY "User32.dll"<br />
<br />
<b>Script:</b><br />
Boolean rtn<br />
ulong l_handle<br />
l_handle = handle(w_win2)<br />
rtn = BringWindowToTop(l_handle) <br />
------------------------------------------------------------------------------------<br />
<b>Chord( )<b></b></b><br />
Sebuah Chord adalah daerah yang dibatasi oleh perpotongan sebuah elips dan garis segmen. Fungsi ini menggambar suatu chord berdasarkan koordinat dari function.<br />
<br />
<b>Global External Function:</b><br />
FUNCTION boolean Chord(ulong hwnd,long x1,long y1,long x2,long y2,long r1, long r2, long r3, long r4) LIBRARY "Gdi32.dll"<br />
<br />
<b>Script:</b><br />
boolean rtn<br />
ulong l_handle, l_device<br />
long lv[8]<br />
l_handle = handle(w_main)<br />
l_device = GetDC(l_handle)<br />
<br />
/*Hal ini dapat dilakukan dalam satu baris seperti: l_device = GetDC(handle(w_main))*/<br />
<br />
lv[ ] = {5,5,200,200,0,0,200,300}<br />
rtn = Chord(l_device, lv[1], lv[2], lv[3], lv[4], lv[5], lv[6], lv[7], lv[8])<br />
<br />
<b>CloseHandle( )</b><br />
Fungsi ini digunakan untuk menangani objek yang terbuka, seperti Destroy pada PB saat <br />
<br />
<b>Global External Function:</b><br />
FUNCTION boolean CloseHandle(ulong w_handle) LIBRARY "Kernel32.dll"<br />
<br />
<b>Script:</b><br />
boolean rtn<br />
ulong l_handle<br />
string ls_wname<br />
Lihat Blog<br />
ls_wname = "<window title="">"<br />
l_handle = A(0, ls_wname) // Usually you would already have the handle.<br />
rtn = CloseHandle(l_handle)<br />
------------------------------------------------------------------------------------<br />
<b>CloseWindow( )</b><br />
Fungsi CloseWindow meminimalkan Window yang ditargetkan.Yang paling dekat adalah setara PowerBuilder WindowState , tapi ini terbatas hanya window PB. Sintaks di PowerBuilder adalah sebagai berikut: <window>. WindowState =Minimized!<br />
<br />
<b>Global External Function:</b><br />
FUNCTION boolean CloseWindow(ulong w_handle) LIBRARY "User32.dll"<br />
<br />
<b>Script:</b><br />
boolean rtn<br />
ulong l_handle<br />
string ls_wname<br />
ls_wname = "<window title="">"<br />
l_handle = FindWindowA(0, ls_wname) // Be sure to use the exact title of the window you are targeting.<br />
rtn = CloseWindow(l_handle)<br />
------------------------------------------------------------------------------------<br />
<b>CopyFileA( )</b><br />
Fungsi ini salinan sebuah file dengan mengambil nama-nama sumber dan tujuan sebagai string dengan referensi.<br />
<br />
<b>Global External Function:</b><br />
FUNCTION boolean CopyFileA(ref string cfrom, ref string cto, boolean flag) LIBRARY "Kernel32.dll"<br />
<br />
<b>Script:</b><br />
string l_from, l_to<br />
boolean l_flag, rtn<br />
l_flag = false<br />
l_from = "c:\pwrs\pb5i32\ex\code\beach.bmp"<br />
l_to = "c:\test.bmp"<br />
rtn = CopyFileA(l_from, l_to, l_flag)<br />
MessageBox("CopyFile", string(rtn))<br />
------------------------------------------------------------------------------------<br />
<b>CreateDirectoryA( )</b></window></window></window>Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-19611157118621247942010-03-02T03:01:00.000-08:002010-03-02T03:01:13.732-08:00Tombol ENTER sebagai Tombol TABDisini kami hanya mensimulasi Tombol ENTER agar bekerja seperti Tombol TAB.<br />
<br />
1. Buat User Event di datawindow dengan nama <b>"ue_enter"</b><br />
2. Pilih <b>Event ID</b> dengan <b>pbm_dwnprocessenters</b><br />
3. Ketik script dibawah ini :<br />
<Center><h3><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Send(Handle(This),256,9,Long(0,0))<br />
Return 1 </font> </h3></center><br />
Semoga bermanfaat.Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-50810076749484636822010-03-02T02:30:00.000-08:002010-03-02T06:24:54.246-08:00Prinsip penamaan Variabel dalam Powerbuilder<font sans="" serif"="" color="#0000ff" face=""MS" size="2">Saat memberi penamaan variable dalam Powerbuilder, Perlu diperhatikan agar tidak terjadi kesalahan dan arti dalam memberi nama pada variabel yang kita deklarasikan<br />
Hal hal yang perlu diperhatikan adalah Lingkup, Awalan atau Prefix dan Arti dari variabel tersebut.</font><br />
<br />
<font sans="" serif"="" color="#0000ff" face=""MS" size="2">Syntax:</font> <br />
<pre><font sans="" serif"="" color="#0000ff" face=""MS" size="2"> <strong>[scope][prefix]_[name]</strong> </font> </pre><h3><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Scope Qualifiers</font> </h3><div align="center"><center><br />
<table border="1" width="492"><tbody>
<tr> <td bgcolor="#210073" width="197"><font sans="" serif"=""
color="#ff8040" face=""MS" size="2">Scope </font> </td> <td bgcolor="#210073" width="99"><font sans="" serif"=""
color="#ff8040" face=""MS" size="2">Prefix </font> </td> <td bgcolor="#210073" width="178"><font sans="" serif"=""
color="#ff8040" face=""MS" size="2">Example </font> </td></tr>
<tr> <td width="197"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">Argument</font> </td> <td width="99"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">a</font> </td> <td width="178"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">al_NameId</font> </td></tr>
<tr> <td width="197"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">Global</font> </td> <td width="99"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">g</font> </td> <td width="178"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">gs_Name</font> </td></tr>
<tr> <td width="197"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">Instance</font> </td> <td width="99"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">i</font> </td> <td width="178"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">ii_Count</font> </td></tr>
<tr> <td width="197"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">Local</font> </td> <td width="99"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">l</font> </td> <td width="178"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">ls_Foo</font> </td></tr>
<tr> <td width="197"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">Shared</font> </td> <td width="99"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">s</font> </td> <td width="178"><font sans="" serif"="" color="#0000ff"
face=""MS" size="2">si_Number</font><br />
</table></Center></div><br />
<h3><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Standard DataType Prefixes</font> </h3><div align="center"><center><br />
<table border="1" width=""84%""><tbody>
<tr> <td bgcolor="#210073"><font sans="" serif"="" color="#ff8040"
face=""MS" size="2">Data Type </font> </td> <td bgcolor="#210073"><font sans="" serif"="" color="#ff8040"
face=""MS" size="2">Prefix </font> </td> <td bgcolor="#210073"><font sans="" serif"="" color="#ff8040"
face=""MS" size="2">Example </font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Any</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">a</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">la_Raw</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Blob</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">blb</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">ablb_Image</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Boolean</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">b</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">lb_Exit</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Character</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">c</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">lc_Name</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Date</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">d</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">ld_BirthDate</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">DateTime</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">dt</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">ldt_Wreck</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Decimal</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">dec</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">ldec_Salary</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Double</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">db</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">gdb_OverTime</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Integer</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">i</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">li_Count</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Long</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">l</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">ll_RowCount</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Real</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">r</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">sr_Illusion</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">String</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">s</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">ls_Bean</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Time</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">tm</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">itm_MrWolf</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Unsigned Integer</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">ui</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">lui_Handle</font> </td></tr>
<tr> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Unsigned Long</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">ul</font> </td> <td><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">gul_Ken</font> </td></tr>
</tbody></table></center></div><br />
<h3><font sans="" serif"="" color="#0000ff" face=""MS"
size="2">Standard Object DataType Prefixes</font> </h3><div align="center"><center><br />
<table border="1" width="492"><tbody>
<tr> <td bgcolor="#210073" width="197"><font sans="" serif"=""
color="#ff8040" face=""MS" size="2">Object Type</font> </td> <td bgcolor="#210073" width="100"><font sans="" serif"=""
color="#ff8040" face=""MS" size="2">Prefix </font> </td> <td bgcolor="#210073" width="177"><font sans="" serif"=""
color="#ff8040" face=""MS" size="2">Example </font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Application</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">app</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">gapp_PBDelta</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ArrayBounds</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ab</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lab_Bound</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">CheckBox</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cbx</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">icbx_Male</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ClassDefinition</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cldef</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lcldef_Object</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ClassDefinitionObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cldefo</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lcdefo_ThatObject</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">CommandButton</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lcb_Cancel</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Connection</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cn</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lcn_Known</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ConnectionInfo</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cni</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lcni_ServerInfo</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ConnectObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cno</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">scno_ConObj</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ContextInformation</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cxinfo</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lcxinfo_ObjContext</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ContextKeyword</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cxk</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lcxk_TheKey</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">CPlusPlus</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">cpp</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lcpp_CModule</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Datastore</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ds</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lds_StockData</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Datawindow</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">dw</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ldw_Employee</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">DatawindowChild</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">dwc</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ldwc_States</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">DragObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">drg</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ldrg_ByTheHair</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">DrawObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">drw</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ldrw_PaintBrush</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">DropDownListBox</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ddlb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lddlb_States</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">DropDownPictureListBox</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ddplb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lddplb_StatesWithFlags</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">dwObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">dwo</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ldwo_Column</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">DynamicDescriptionArea</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">dda</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ldda_Execute</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">DynamicStagingArea</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">dsa</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ldsa_MyQuery</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">EditMask</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">em</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lem_PhoneNo</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">EnumerationDefinition</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">enum</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lenum_Cycle</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">EnumerationItemDefinition</font><br />
</td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">enumi</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ienumi_Item</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Environment</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">env</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lenv_System</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Error</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">err</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">gerr_Snarl</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ExtObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">exto</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">gexto_Outside</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Function_Object</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">fo</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lfo_Function</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Graph</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">gr</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lgr_Sales</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">GraphObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">gro</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lgro_Line</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">GrAxis</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">grx</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lgrx_Profit</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">GrDispAttr</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">grda</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">igrda_Value</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">GroupBox</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">gb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">igb_Employee</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">HScrollBar</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">hsb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ihsb_Percent</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">iNet</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">inet</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">linet_Web</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">InternetResult</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ir</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lir_Page</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Line</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">li</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lli_Arrow</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ListBox</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">llb_States</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ListView</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lv</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">llv_Filenames</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ListViewItem</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lvi</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">llvi_Item</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">MailFileDescription</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">mfd</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lmfd_Mail</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">MailMessage</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">mm</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lmm_Mail</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">MailRecipient</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">mr</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lmr_Mail</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">MailSession</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ms</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lms_Session</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">MDIClient</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">mdi</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lmdi_Frame</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Menu</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">m</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lm_Menu</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">MenuCascade</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">mc</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lmc_WaterFall</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Message</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">msg</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lmsg_Whisper</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">MultiLineEdit</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">mle</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lmle_Text</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">NonVisualObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">nvo</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lnvo_Invisible</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OLEControl</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">oc</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">loc_Bulls</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OLECustomControl</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">occ</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">locc_Dial</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OLEObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">oo</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">loo_Ghost</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OLEStorage</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ostg</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">gostg_WordFile</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OLEStream</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ostm</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lostm_River</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OMControl</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">omc</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">iomc_Temp</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OMCustomControl</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">omcc</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lomcc_Dial</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OMEmbeddedControl</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">omec</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lomec_Micro</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OMObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">omo</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">iomo_Bob</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OMStorage</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">omstg</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">somstg_Drive</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">OMStream</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">omstm</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lomstm_Mersey</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Oval</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ov</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lov_Circle</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">PBtoCPPObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">pb2cpp</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lpb2cpp_Quad</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Picture</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">p</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lp_Smile</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">PictureButton</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">pb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lpb_Click</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">PictureListBox</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">plb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lplb_Drives</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Pipeline</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">pl</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lpl_OilandGas</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Powerobject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">po</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lpo_Source</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ProfileCall</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">prc</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lprc_Face</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ProfileClass</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">prcl</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lprcl_Room</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ProfileLine</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">prl</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">iprl_Bob</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ProfileRoutine</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">prr</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lprr_Cat</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Profiling</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">pr</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lpr_Outline</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">RadioButton</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">rb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lrb_Male</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Rectangle</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">rec</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">irec_Tum</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">RemoteObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ro</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">iro_Employee</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">RichTextEdit</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">rte</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lrte_Script</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">RoundRectange</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">rr</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lrr_Lion</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ScriptDefinition</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">sdef</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lsdef_Mycode</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Service</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">srv</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lsrv_Charge</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">SimpleTypeDefinition</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">std</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">istd_MyType</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">SingleLineEdit</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">sle</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lsle_Name</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">StaticText</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">st</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lst_Prompt</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Structure</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">str</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lstr_Data</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">SystemFunctions</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">sf</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lsf_Bay</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Tab</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tab</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltab_Strip</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Timing</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tmg</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltmg_Clock</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceActivityNode</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tran</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltran_Node</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceBeginEnd</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trbe</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrbe_Start</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceError</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tre</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltre_Error</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceFile</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trf</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">itrf_TraceFile</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceGarbageCollect</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trgc</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">itrgc_Call</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceLine</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trln</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">strln_Rope</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tro</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltro_Bob</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceRoutine</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trr</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrr_Tiger</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceSQL</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trsql</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrsql_MySQL</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceTree</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trt</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrt_Birch</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceTreeError</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trte</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrte_Err</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceTreeGarbageCollect</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trtgc</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrtgc_Trash</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceTreeLine</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trtl</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrtl_String</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceTreeNode</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trtn</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrtn_Kilt</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceTreeObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trto</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrto_Trace</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceTreeRoutine</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trtr</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrtr_BobGrimmer</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceTreeUser</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">trtu</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltrtu_User</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TraceUser</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tru</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltru_Blue</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Transaction</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tr</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltr_Trans</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Transport</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tp</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltp_Server</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Treeview</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tv</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltv_Directory</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TreeviewItem</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">tvi</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltvi_Node</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">TypeDefinition</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">typdef</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">ltypdef_Details</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">UserObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">uo</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">luo_Control</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">VariableCardinalityDefinition</font><br />
</td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">vcd</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lvcd_Type</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">VariableDefinition</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">vd</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lvd_Sore</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">VerticalScrollBar</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">vsb</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lvsb_Amount</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">Window</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">w</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">w_PleaseWait</font> </td></tr>
<tr> <td valign="top" width="197"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">WindowObject</font> </td> <td valign="top" width="100"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">wo</font> </td> <td valign="top" width="177"><font sans="" serif"=""
color="#0000ff" face=""MS" size="2">lwo_WomanElement</font> </td></tr>
</tbody></table></center></div></td></tr>
</tbody>Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com1tag:blogger.com,1999:blog-3378847535400126333.post-41919058008733046022010-02-26T12:33:00.000-08:002010-03-02T06:26:54.948-08:00Cara mendapatkan DBMS, User database melalui ODBC<b>/*Buat external function*/</b><br />
FUNCTION integer <b>SQLGetInfo </b>(long hconn, integer infotype, ref string infotypeptr, integer bufferlength, ref integer bufferlengthptr) LIBRARY "odbc32.dll"<br />
<br />
<b>/*Buat script*/</b><br />
string ls_dbms, ls_database, ls_user<br />
integer li_length<br />
<br />
CONSTANT integer SQL_DBMS_NAME = 17<br />
CONSTANT integer SQL_DATABASE_NAME = 16<br />
CONSTANT integer SQL_USER_NAME = 47<br />
<br />
long ll_dbhandle<br />
<br />
ls_dbms = space(256)<br />
ls_database = space(256)<br />
ls_user = space(256)<br />
ll_dbhandle = SQLCA.DbHandle()<br />
<br />
SQLGetInfo(ll_dbhandle, SQL_DBMS_NAME, ls_dbms, 255, li_length)<br />
SQLGetInfo(ll_dbhandle, SQL_DATABASE_NAME, ls_database, 255, li_length)<br />
SQLGetInfo(ll_dbhandle, SQL_USER_NAME, ls_user, 255, li_length)<br />
<br />
MessageBox("Current DBMS" , trim(ls_dbms))<br />
MessageBox("Current DATABASE" , trim(ls_database))<br />
MessageBox("Current USER" , trim(ls_user))Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-1178283491452134892010-02-26T12:14:00.000-08:002012-06-23T16:24:10.745-07:00Mengganti huruf pertama menjadi kapitalSemisal kita mempunyai inputan data "luv piyut" dan kita ingin data inputan tersebut menjadi "Luv Piyut" maka kita bisa menggunakan fungsi <b>WordCap()</b> seperti tips berikut :<br />
<br />
String ls_nama,ls_hasil<br />
<br />
ls_nama = "luv piyut"<br />
<br />
ls_hasil = dw_1.Describe ( "Evaluate('WordCap(~"" + ls_nama + "~")',0)")<br />
<br />
Silahkan lihat hasilnya...:)Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-18961468223085846322010-02-26T11:57:00.000-08:002010-03-02T06:26:54.964-08:00Menentukan lama waktu execute sebuah scriptUntuk menguji lama waktu yang diperlukan dalam meng-execute sebuah potongan script kita bisa menggunakan fungsi <b>CPU()</b><br />
<br />
Long ll_start,ll_waktu<br />
<br />
ll_start = CPU()<br />
<br />
/*<br />
** Script yang diexecute<br />
*/<br />
<br />
ll_waktu = CPU() - ll_startJosanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-48211098088060232832010-02-26T11:26:00.000-08:002010-03-02T06:26:54.974-08:00Menentukan Nilai RGBProgram Contoh dibawah ini akan menggunakan funsi <b>MOD <b></b></b>untuk memisahkan warna merah, biru dan hijau<br />
<br />
1. Buat aplikasi baru dalam Powerbuilder<br />
2. Buat window baru<br />
3. Tambahkan Control Commandbutton dan StaticText pada window<br />
4. Tambahkan script berikut pada event Commandbutton Click()<br />
<br />
Long c, gc<br />
Integer R, G, B<br />
<br />
C= st_1.BackColor<br />
gc = rgb(0,1,0)<br />
R = Mod(c, gc)<br />
C = C / gc<br />
G = Mod(c, gc)<br />
C = C / gc<br />
B = Mod(c, gc)<br />
<br />
MessageBox ( "Nilai RGB", "Merah =" + String (R) + 'Green = "+ String (G) +" Blue = "+ String (B)) <br />
<br />
Jalankan program sampel dan klik tombol.<br />
Sebuah pesan akan muncul yang menunjukkan nilai-nilai merah, hijau dan biru yang mewakili StaticText properti BackColor.Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-80963333122234501952010-02-26T11:08:00.000-08:002010-03-02T06:26:54.978-08:00Membaca file lebih besar dari 32.765 bytesFungsi FileRead terbatas dalam membaca file hanya sampai 32.765 bytes saja, hal ini bisa diatasi<br />
<br />
blob lbl_data<br />
blob lbl_temp<br />
long ll_file<br />
<br />
ll_file = Fileopen("mybigfile.txt",streammode!)<br />
<br />
DO WHILE FileRead(ll_file,lbl_temp) > 0<br />
lbl_data += lbl_temp<br />
LOOP<br />
<br />
FileClose(ll_file)Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-50429625919147021762010-02-26T10:43:00.000-08:002010-02-26T10:43:19.646-08:00Menampilkan atau menyembunyikan Desktop dan TaskbarBeberapa aplikasi mengharuskan pengguna tidak dapat mengakses taskbar atau desktop ketika menjalankan aplikasi kita. Kami akan memblokir akses ke taskbar atau desktop dengan memanggil Windows API. <br />
<br />
//Deklarasikan 2 Function berikut :<br />
<br />
Function long <b>FindWindowExA </b>( long hWnd, long hWndChild, ref string lpszClassName, ref string lpszWindow) library "user32"<br />
Function long <b>ShowWindow </b>(long hWnd, long nCmdShow ) library "user32"<br />
<br />
//Tambahkan script berikut :<br />
<br />
//Konstanta untuk <b>ShowWindow()</b><br />
Constant Long SW_HIDE = 0<br />
Constant Long SW_NORMAL = 1<br />
Constant Long SW_SHOWMINIMIZED = 2<br />
Constant Long SW_SHOWMAXIMIZED = 3<br />
Constant Long SW_SHOWNOACTIVATE = 4<br />
Constant Long SW_SHOW = 5<br />
Constant Long SW_MINIMIZE = 6<br />
Constant Long SW_SHOWMINNOACTIVE = 7<br />
Constant Long SW_SHOWNA = 8<br />
Constant Long SW_RESTORE = 9<br />
Constant Long SW_SHOWDEFAULT = 10<br />
--------------------------------------------------------<br />
<br />
//Mencari nama Windows Shell<br />
String ls_ShellViewWnd = "Progman"<br />
String ls_ShellTaskBarWnd = "Shell_TrayWnd"<br />
String ls_Null<br />
<br />
// Local<br />
Long ll_HTaskBar, ll_HDeskTop<br />
<br />
// Hide Taskbar<br />
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )<br />
ShowWindow( ll_HTaskBar, SW_HIDE )<br />
<br />
// Hide Desktop<br />
ll_HDeskTop = FindWindowExA( 0, 0, ls_ShellViewWnd, ls_Null )<br />
ShowWindow( ll_HDeskTop, SW_HIDE )<br />
<br />
// Tunda untuk memulihkan<br />
MessageBox( 'Pause', 'Lihat Perbedaannya !' )<br />
<br />
// Show Taskbar<br />
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )<br />
ShowWindow( ll_HTaskBar, SW_SHOW )<br />
<br />
// Show Desktop<br />
ll_HDeskTop = FindWindowExA( 0, 0, ls_ShellViewWnd, ls_Null )<br />
ShowWindow( ll_HDeskTop, SW_SHOW )Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com0tag:blogger.com,1999:blog-3378847535400126333.post-31580297411166890532010-02-26T10:14:00.000-08:002010-02-26T10:14:51.074-08:00Membuat Function tanggal akhir bulan1. Buat argument ad_date dengan tipe Date<br />
2. Pilih Return tipe nya dengan tipe data Date<br />
2. Buat script berikut<br />
<br />
<b>int </b>li_retdays, li_month, li_year<br />
<br />
li_month = Month(ad_date)<br />
li_year = year(ad_date)<br />
<br />
IF li_month < 12 THEN<br />
li_month ++<br />
ELSE<br />
li_month = 1<br />
li_year ++<br />
END IF<br />
<br />
// Membuat tanggal awal<br />
ld_newdate = date(li_year),li_month,1)<br />
<br />
// membuat tanggal akhir<br />
ld_previousMonthLastDay = day(relativedate(ld_newdate, -1)) <br />
<br />
Return(ld_previousMonthLastDay)Josanthttp://www.blogger.com/profile/09979569063508938828noreply@blogger.com3