Arsip: what's logic should i use to fix these, may be someone knows

 
user image
more 11 years ago

johnizzy

look it these : well, i think u know what i mean that... my problem is how i can appear the result of the Ongko and the Abjad with the same time. notes : first i clicked : Ongko's result is = 1, Abjad one is = A second clicked: Ongko's result is = 2, Abjad one is = B third i clicked : Ongko's result is = 3, Abjad one is = C, thanks for help.... ____________ lifes never flat, buts rather gronjal grojal sitik
user image
more 11 years ago

betamax

halo...??? woo agus agus..!!

1. listbox kiri di isi angka 1 sampe 28 (ato berapa abjad yang mau di buat)
2. listbox kanan di isi huruf
3. ketika pada event penekanan / penggantian selected(item) di listbox kiri, tampung nilai yang di pilih.
4. lakukan Cek kondisi pake IF ... else I   ... Else IF  terus sampe abjad selese. event nya di masukan   pada penekanan tombol etoke_hasile.press
5. Met mencoba.
user image
more 11 years ago

Tbawor

bisa juga pakai virtual key code A = 65 B = 66 ... dst
user image
more 11 years ago

johnizzy


1. Those arent list boxs but a pair of memo
2. at first time i click the buttom will be appear the result a number(left memo) and a letter (right memo), u know the number is 1 and the letter is A
both are the first of number and letter.
3. so if i click again the buttom ,left memo would be added 2 and either right memo added the second of letter e.g B
4. the third click ,etc... 
5. i hope the solution is a simple formula and a effectively one
thanks for help...... _______________ lifes is ora roto... buts rodo neko2...
user image
more 11 years ago

johnizzy

@Tbawor: bisa juga pakai virtual key code A = 65 B = 66 ... dst
detail please,its not rational if i have to use the virtual key... i dont needit, i just need the result, how i found the result not else no relation with key. please chek again of my problem, but thanks for attiontion.... actually i can use this formula to get the result of left memo.....
procedure TForm3.EtokeHasileClick(Sender: TObject);
begin
Tag := Tag;
Tag := Tag + 1;
Memo1.Lines.Add(IntToStr(Tag))
end;
so u can give me solution for get the result of right memo
user image
more 11 years ago

betamax

@johnizzy:

1. Those arent list boxs but a pair of memo
2. at first time i click the buttom will be appear the result a number(left memo) and a letter (right memo), u know the number is 1 and the letter is A
both are the first of number and letter.
3. so if i click again the buttom ,left memo would be added 2 and either right memo added the second of letter e.g B
4. the third click ,etc... 
5. i hope the solution is a simple formula and a effectively one
thanks for help...... _______________ lifes is ora roto... buts rodo neko2...
memo malah gampang lagi mungkin. kalo memang sampun di program nggi di cobi mawon..

Prosedur tombol.ditekan
Var : a : Integer;
  Mulai
  a:=a+1;
  IF a = 1 then 
       Mulai
       Selesai
  salah a = 2 then
       Mulai
       Selesai
..dst sampai Z
  Selesai;
Atau Alternatif bisa pakai array 2 dimensi.
user image
more 11 years ago

johnizzy

memo malah gampang lagi mungkin. kalo memang sampun di program nggi di cobi mawon...
Nice Quote brother but i need a dynamic procedure, its a rational logical right, so i still believe that will be there a smart solution, with a simple and effective formula to use.... i use routine of tag to logic the result of left memo with the number result... like my last post before, i hope u ll give the next solution to fix the problem, ______________ life's complicated, buts so simple... so simple the complicated with a simple mind and logical[/quote]
user image
more 11 years ago

deLogic

gak mudeng aku dengan bahasa linggis, maklum wong ndeso... :D

procedure TForm2.Button1Click(Sender: TObject);
var
  NoAkhir : Integer;
begin
  NoAkhir := Memo1.Lines.Count;
  Inc(NoAkhir);
  Memo1.Lines.Add(IntToStr(NoAkhir));
  Memo2.Lines.Add(Chr(64 + NoAkhir));
end;
Catatan: - sebelumnya set property TMemo.ReadOnly = True - sebelumnya set property TMemo.Lines.Text = '' - jumlah abjad terbatas dari A..Z (26), jadi tangani sendiri jika NoAkhir nya lebih dari 26.
user image
more 11 years ago

DelphiExpert

This code is not tested, compile as you can imagine... and fuck-me if you got successfully...

procedure ClickMe(Number, Letter: TStrings);
var Temp: Integer;
begin
  if Number.Count = 0 then
  begin
    Number.Text := '1';
    Letter.Text := 'A';
  end else
  begin
    Temp := StrToIntDef( Number, 0 ) + 1;
    Number.Append(IntToStr(Temp));
    Letter.Append( Chr(Temp + 64) );
  end;
end;
use like this:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClickMe(Memo1.Lines, Memo2.Lines);
end;
user image
more 11 years ago

deLogic

btw pada ''ngeh' gak sih kalo posting ini salah kamar ? :D Sudah dipindahkan dari Vacancy & JobSeeker ke Tip n Trik Pemrograman
more ...
  • Pages:
  • 1
  • 2
  • 3
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com