From 255d90a1db73bf9e4c25fae6ef5e991534d94565 Mon Sep 17 00:00:00 2001 From: Jigsy <34282672+Jigsy1@users.noreply.github.com> Date: Wed, 3 Aug 2022 22:20:56 +0000 Subject: [PATCH] Add files via upload --- Octal/FrmOct.frm | 89 +++++++++++++++++++++++++++++++++++++++++++++++ Octal/Octal.exe | Bin 0 -> 20480 bytes Octal/Octal.vbp | 40 +++++++++++++++++++++ Octal/Octal.vbw | 1 + 4 files changed, 130 insertions(+) create mode 100644 Octal/FrmOct.frm create mode 100644 Octal/Octal.exe create mode 100644 Octal/Octal.vbp create mode 100644 Octal/Octal.vbw diff --git a/Octal/FrmOct.frm b/Octal/FrmOct.frm new file mode 100644 index 0000000..41b517b --- /dev/null +++ b/Octal/FrmOct.frm @@ -0,0 +1,89 @@ +VERSION 5.00 +Begin VB.Form FrmOct + BorderStyle = 1 'Fixed Single + Caption = "Octal Translator" + ClientHeight = 3720 + ClientLeft = 45 + ClientTop = 330 + ClientWidth = 4680 + LinkTopic = "Form1" + MaxButton = 0 'False + ScaleHeight = 3720 + ScaleWidth = 4680 + StartUpPosition = 2 'CenterScreen + Begin VB.CommandButton CmdClose + Caption = "&Close" + Height = 375 + Left = 3600 + TabIndex = 3 + Top = 3240 + Width = 975 + End + Begin VB.CheckBox ChkBreak + Caption = "&Break up output" + Height = 330 + Left = 120 + TabIndex = 2 + Top = 3275 + Width = 2295 + End + Begin VB.TextBox TxtOutput + BackColor = &H80000004& + Height = 1455 + Left = 120 + Locked = -1 'True + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 1 + Top = 1680 + Width = 4455 + End + Begin VB.TextBox TxtInput + Height = 1455 + Left = 120 + MultiLine = -1 'True + ScrollBars = 2 'Vertical + TabIndex = 0 + Top = 120 + Width = 4455 + End +End +Attribute VB_Name = "FrmOct" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Private Sub ChkBreak_Click() + TxtOutput.Text = OctCode(TxtInput.Text) +End Sub + +Private Sub CmdClose_Click() + End +End Sub + +Private Sub Form_Terminate() + End + ' `-> I doubt this has any use; but just incase... +End Sub + +Private Sub Form_Unload(Cancel As Integer) + End + ' `-> I doubt this has any use; but just incase... +End Sub + +Private Sub TxtInput_Change() + TxtOutput.Text = OctCode(TxtInput.Text) +End Sub + +Function OctCode(OctString As String) As String + Dim Code As String, I As Integer + For I = 1 To Len(OctString) + Code = Code & Oct(Asc(Mid(OctString, I, 1))) + If ChkBreak.Value = 1 Then + Code = Code & " " + End If + Next + OctCode = RTrim(Code) +End Function + +' EOF diff --git a/Octal/Octal.exe b/Octal/Octal.exe new file mode 100644 index 0000000000000000000000000000000000000000..d4646dddb6e8076e1231eba0fe02ebea89be48f1 GIT binary patch literal 20480 zcmeHO4RBP~bw0aVp~aP@ML`%+3JaDoaX{6d71_YBNLp1QTIsER7RMD4i?q@TB(1V< z7i5oJ8zm)4tEn~P4W+J#31Kn>3#9V; zo%`O~UHt%_vEz2qcf>jOo^#JV=iKw|yVAYy;(GWnr4f+@s3=6kC>b1r-kPv(*2?c^ z(Mt<|x@y=|`_olT{w~?x7YuX;y*>6eZ*OlPWZ&tt2gAMgu3md(eWSf6(C*8>^Ugc+ zG}DLv^4dGEz5myPI#z#hZ15-Gzj5VRQLeu7HBmNnwfR{`k4SP7)tb_%^ztuv>asXx zoBqJGfXEIBBcLn?#0D&2&Y{-9^LR}_E(J)Ske7`UnS}rh{s|&VjTLP~C2NS*a@|2R zx=<5-gkmk6+POb`jo!jee#qA!Li?3vs;=my#iw_(6Ya=v_lCSIxC2-KWF0P3z(F*U zAC!Y_kclxsAoRFQ0S89;=U+Ehr@C=9ddfYn(t`ZT+S(LVqiSTp$bgXnBLhYTj0_kV zFfw3dz{r4+0V4zdM>Fu_C*AS`R<~T}Z;;>hOLE6ulKda1>g1il2KhR<vye;@55$Lr-6Am0RemB}qvncZ^!SKad8^-Ho0z5Bdw`ORZ>vU8~G$g7MoIko9zrEPYH$nqCan!rzMW%nwTA4kc0_uj4Q z<)h37|LuDm^lRV?K;<6E# zo)DA-9TxO}pp}BQ3;L3vCj}i8)GBDTpz8!35p=1brv$AP^f5v61RWA|Kv0{YnSwqf z=wd9QV;RzIKj z+s>aqyem_cnotDWeZj_1eOt)e-4yip%H7^jASjxZ*9*z=?u&u{`d&OxbIkYUeM`Rg z)HnW_*4J(Q<<;6FuYRtuZumPJ9<2XP@v)9K7kxLA{+4$9?5nEbThkk8u49!2R2A%j zYr4~9BN2iS)1nE2esWTlFp z_KNO+>>~@#oYrVnTh@upH`Df-7NwDrRs=;e6#cu)gFf$WN{8n)qG}KK*#qHFUpPeR z{q$Pq2iC2o95cGyhc0Ogsi{9yuQr>_IHDS`^wZ%5or_*f&oR+m%2M-sMM+x?Rg0BX zYkJv`8A|;mlt?Hk=qf>Jc3L5t12*#3uXIqs8V60{T+UkHpe2hSM|mH$&=#to2T^+PxJyyiQyYcIOWilE=hGhANqxey zL4Kby!1GUsb(kN+E3ondShgH|$4@rB^o4u>>Q7#IamA@O23Ng(2WBq+JfzJtz3&O| zJm(kk1PAb|*7)eixO}gx;UYxL6q!i|A6*_B{Y(i^XRLsS#zfR?4_~dz%z%h zm3-^-$I@RocXe&(z1i>l>-)kX)A6Rdzv=wf@eJ>#pI@(=xs)c>D7eqxG&OzwxZn2e zGAn(y_)9NWJlG;>XZlrL-9EX+)zuaZ$bpWK-P0w9z1{Z4P`JG-(Bdh7pbVrmzrMB{ zc03@9wej=z;mFO3<^smk0`5D@Qp7JfF`Wbg?>z>FQD(5{8*g_|Ik6_wK-G!(O!t*`PP1$sM$mHbQ(Hyd}ln zQRvyBcT$tHoDmH)Uyx2|J4$9fw-p5iqB}p|8Sf&b8#UbmlscyRlEC0s ztpNUePw&sVsi4bu;QivY;a`dz#C3lE$Fw@X`-ct+{5MmizSVoZ4uv_+DS$?hxAFLB|#beFq-3`0U zN-l325pT>jF1eZKt>pe6EsboS_Wy<5LGQ1PHOFJl^9=|b3Tax0=CPP_yg^EKSbpYA z)M=HXR>f_NI;W$qi>+U5kK75b^rzAP-2SSC4kzFi`L`zWKgPp#TBD=;e_@Kart@w{ z5pXu8!J_2yruVFKnvH)Lryt5+{1f&!@iF+bs!6@Y_>%MaGW+}gJ)gJT{Rz+KCocX7 zQ#3K92@6i~)kt_c`nZ+X0Lc<{*`m#vk?{FQI36jCnx#m1JQ5y@ghwOc;Yj#IBs>%e z4@O?@$5I%1xmwUlUKVrt3@AFPQs>)D4Sa8XyBt;ZxtV$RX* zAHEi89*|;Bu{C$hIs6KKgHVHX_8=SPea~6vTWkdG&mLqYtAj|%t%Zx2YZyzIyFtn2 zqbW(r<+G`di1TF3c_QW-lH3SZ$sJ2t9#oZ2NU`Q&gf)s~C0)r~%KF(@iMAN9!y6XKOgoc3@I%;)j$QcX4GcKz>F<^b9=k<}|FnFdBsz5yHuUSSyy*m8h* zz*1l)bozk~)a!sdfxW=TfJcB&1BZcc0LOusfacF&?+IKDTn8)%HUT?;n_=rwlwSe1 z<8bY3D4zqq1bhWJ3Va)Q4#+V3u2XA8OXBK2pHl`hUc|A)Hq}G)F&;3d6YX3waUBQIy3fPtMUZiF=fju+5N+ zi@o74uUgEJFTII;?M>umkV{)&51$54T7+qOs1jF%QPufD@Z4YLPdbSv@Xb@_hpM5U z(ym%znVu7rk+o7U{J zZ$?bBqh&oiZfQ5dPYr(T=;enG9uwcx_MyfaAw*#Z>bJM;xTVdvxWmFzKH8j=k7&5I z1-J=Vh*9u2vKHL@HsLnA5AEECN7RR?Il4}G<1bHj^v9y#di1MDs}G~KBdP#A1mV@E zaUIa!E8t$T%C99%b-rGmn(7xP9Y6-F6)p7s@We-qR zoGV$E)Iv}e+!E9{5X&LlS;hJ@g3*s;0JG=8eYjR3;ub>@W8gg5fes+&l3@Vv>-;c) zMzkO=q5wtpBj*VgKR!65WFX5r975JJkbMDo5)2u8Re{PS+Y`K|uJgLBPlg{HO!b%K z_>nPp>5|?)lVfSJZ7!$x`d=#bQ6@Jl z%G6BbGq{=a94`rjR;Wypq9ecC^8m-Yai4N#dgbKi>5M65dL?k*l=9#3eJebzOigc6 rrp}yJCO2+IdHZX