1: import java.awt.*;
2: import java.awt.event.*;
3: import java.sql.*;
4: import javax.swing.*;
5: import javax.swing.table.*;
6: public class HapusDataBos1 extends JFrame{
7: JLabel lNim = new JLabel("NIM");
8: JLabel lNama = new JLabel("Nama");
9: JLabel lNohp = new JLabel("No HP");
10: JTextField tNim = new JTextField();
11: JTextField tNama = new JTextField();
12: JTextField tNohp = new JTextField();
13: Connection konek;
14: JScrollPane panelGulung = new JScrollPane();
15: JTable tabel = new JTable();
16: DefaultTableModel modeleTabel;
17: public HapusDataBos1(){
18: super("Menghapus Data Bos-Bos");
19: inisialisasiGUI();
20: }
21: public static void main (String args[]){
22: HapusDataBos1 data = new HapusDataBos1();
23: data.setVisible(true);
24: }
25: public void inisialisasiGUI(){
26: int lebarJendela = 400;
27: int tinggiJendela = 450;
28: Dimension Layar = Toolkit.getDefaultToolkit().getScreenSize();
29: int awalJendX = (Layar.width-lebarJendela)/2;
30: int awalJendY = (Layar.height-tinggiJendela)/2;
31: setSize(lebarJendela,tinggiJendela);
32: setLocation(awalJendX,awalJendY);
33: setResizable(false);
34: setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
35: this.setLayout(null);
36: lNim.setLocation(110,60);
37: lNim.setSize(60,25);
38: tNim.setLocation(160,60);
39: tNim.setSize(150,25);
40: lNama.setLocation(110,90);
41: lNama.setSize(60,25);
42: tNama.setLocation(160,90);
43: tNama.setSize(150,25);
44: lNohp.setLocation(110,120);
45: lNohp.setSize(60,25);
46: tNohp.setLocation(160,120);
47: tNohp.setSize(150,25);
48: JButton hapus = new JButton(" Hapus ");
49: hapus.setLocation(110,180);
50: hapus.setSize(200,40);
51: Object[] baris = {"Nim", "Nama", "Nomor HP"};
52: modeleTabel = new DefaultTableModel(null, baris);
53: panelGulung.setBounds(new Rectangle(15,225,365,175));
54: tabel.setModel(modeleTabel);
55: panelGulung.getViewport().add(tabel);
56: add(panelGulung);
57: tabel.addMouseListener(new MouseAdapter() {
58: // Proses saat TABEL di klik
59: public void mouseClicked(MouseEvent e) {
60: dariTabeldiLayarkeTextField();
61: }
62: });
63: add(lNim);
64: add(tNim);
65: add(lNama);
66: add(tNama);
67: add(lNohp);
68: add(tNohp);
69: add(hapus);
70: hapus.addActionListener( new ActionListener(){
71: public void actionPerformed(ActionEvent e) {
72: aksitombol();
73: }
74: });
75: koneksiDatabase();
76: pindahkanTabeldiServerKeTabeldiLayar();
77: }
78: public void aksitombol(){
79: prosesHapusData();
80: }
81: public void koneksiDatabase (){
82: try{
83: Class.forName("org.postgresql.Driver");
84: System.out.println("Drivernya sudah ketemu.");
85: try{
86: konek = DriverManager.
87: /* getConnection("jdbc:postgresql://127.0.0.1/pangkalan?user=nanungnurzula&password=masuksurga");*/
88: getConnection("jdbc:postgresql://localhost:5432/pangkalan?user=nanungnurzula&password=masuksurga");
89: System.out.println("Koneksi berhasil.");
90: }catch(SQLException sqle){
91: System.out.println(sqle);
92: System.out.println("Koneksi gagal.");
93: System.exit(0);
94: }
95: }catch(ClassNotFoundException cnfe){
96: System.out.println(cnfe);
97: System.out.println("Drivernya belum ketemu.");
98: }
99: }
100: public void pindahkanTabeldiServerKeTabeldiLayar(){
101: try {
102: String SQLe = "select * from databos";
103: Statement perintah = konek.createStatement();
104: ResultSet hasile = perintah.executeQuery(SQLe);
105: while (hasile.next()) {
106: String nime = hasile.getString("nim");
107: String namane = hasile.getString("nama");
108: String nohpne = hasile.getString("nohp");
109: String[] dataYgDidapat = {nime,namane,nohpne};
110: modeleTabel.addRow(dataYgDidapat);
111: }
112: }catch( Exception e) {/* kalo salah dicuekin */}
113: }
114: public void dariTabeldiLayarkeTextField() {
115: int baris = tabel.getSelectedRow();
116: tNim.setText(modeleTabel.getValueAt(baris,0).toString());
117: tNama.setText(modeleTabel.getValueAt(baris,1).toString());
118: tNohp.setText(modeleTabel.getValueAt(baris,2).toString());
119: }
120: public void hapusIsiTabelYangAda(){
121: int jmlBaris = modeleTabel.getRowCount();
122: for (int i=0; i<jmlBaris; i++){
123: modeleTabel.removeRow(0);
124: }
125: }
126: public void prosesHapusData(){
127: try {
128: String SQLe = "DELETE FROM databos WHERE nim ='"+tNim.getText()+"'";
129: PreparedStatement stat = konek.prepareStatement(SQLe);
130: stat.executeUpdate();
131: hapusIsiTabelYangAda();
132: pindahkanTabeldiServerKeTabeldiLayar();
133: tNim.setText("");
134: tNama.setText("");
135: tNohp.setText("");
136: }catch(SQLException se){/* kalo salah dicuekin */}
137: }
138: }
1: import java.awt.*;
2: import java.awt.event.*;
3: import java.sql.*;
4: import javax.swing.*;
5: import javax.swing.table.*;
6: public class EditDataBos extends JFrame{
7: JLabel lNim = new JLabel("NIM");
8: JLabel lNama = new JLabel("Nama");
9: JLabel lNohp = new JLabel("No HP");
10: JLabel lKec = new JLabel("Kecamatan");
11: JLabel lKab = new JLabel("Kabupaten");
12: JTextField tNim = new JTextField();
13: JTextField tNama = new JTextField();
14: JTextField tNohp = new JTextField();
15: JTextField tKec = new JTextField();
16: JTextField tKab = new JTextField();
17: Connection konek;
18: JScrollPane panelGulung = new JScrollPane();
19: JTable tabel = new JTable() {
20: public boolean isCellEditable(int row, int column){
21: return false;
22: }
23: };
24: DefaultTableModel modeleTabel;
25: public EditDataBos(){
26: super("Melengkapi Data Bos-Bos");
27: inisialisasiGUI();
28: }
29: public static void main (String args[]){
30: EditDataBos data = new EditDataBos();
31: data.setVisible(true);
32: }
33: public void inisialisasiGUI(){
34: int lebarJendela = 600;
35: int tinggiJendela = 600;
36: Dimension Layar = Toolkit.getDefaultToolkit().getScreenSize();
37: int awalJendX = (Layar.width-lebarJendela)/2;
38: int awalJendY = (Layar.height-tinggiJendela)/2;
39: setSize(lebarJendela,tinggiJendela);
40: setLocation(awalJendX,awalJendY);
41: setResizable(false);
42: setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
43: this.setLayout(null);
44: lNim.setLocation(110,60);
45: lNim.setSize(60,25);
46: tNim.setLocation(220,60);
47: tNim.setSize(150,25);
48: tNim.setFocusable(false);
49: lNama.setLocation(110,90);
50: lNama.setSize(60,25);
51: tNama.setLocation(220,90);
52: tNama.setSize(150,25);
53: tNama.setFocusable(false);
54: lNohp.setLocation(110,120);
55: lNohp.setSize(60,25);
56: tNohp.setLocation(220,120);
57: tNohp.setSize(150,25);
58: tNohp.setFocusable(false);
59: lKec.setLocation(110,150);
60: lKec.setSize(110,25);
61: tKec.setLocation(220,150);
62: tKec.setSize(150,25);
63: lKab.setLocation(110,180);
64: lKab.setSize(110,25);
65: tKab.setLocation(220,180);
66: tKab.setSize(150,25);
67: JButton hapus = new JButton(" Ganti ");
68: hapus.setLocation(110,240);
69: hapus.setSize(260,40);
70: Object[] baris = {"Nim", "Nama", "Nomor HP","Kecamatan","Kabupaten"};
71: modeleTabel = new DefaultTableModel(null, baris);
72: panelGulung.setBounds(new Rectangle(15,325,565,225));
73: tabel.setModel(modeleTabel);
74: panelGulung.getViewport().add(tabel);
75: add(panelGulung);
76: tabel.addMouseListener(new MouseAdapter() {
77: // Proses saat TABEL di klik
78: public void mouseClicked(MouseEvent e) {
79: dariTabeldiLayarkeTextField();
80: }
81: });
82: add(lNim);
83: add(tNim);
84: add(lNama);
85: add(tNama);
86: add(lNohp);
87: add(tNohp);
88: add(lKec);
89: add(tKec);
90: add(lKab);
91: add(tKab);
92: add(hapus);
93: hapus.addActionListener( new ActionListener(){
94: public void actionPerformed(ActionEvent e) {
95: aksitombol();
96: }
97: });
98: koneksiDatabase();
99: pindahkanTabeldiServerKeTabeldiLayar();
100: }
101: public void aksitombol(){
102: prosesHapusData();
103: }
104: public void koneksiDatabase (){
105: try{
106: Class.forName("com.mysql.jdbc.Driver");
107: System.out.println("Drivernya sudah ketemu.");
108: try{
109: konek = DriverManager.
110: getConnection("jdbc:mysql://localhost:3306/mondaypahing?user=root&password=");
111: System.out.println("Koneksi berhasil.");
112: }catch(SQLException sqle){
113: System.out.println(sqle);
114: System.out.println("Koneksi gagal.");
115: System.exit(0);
116: }
117: }catch(ClassNotFoundException cnfe){
118: System.out.println(cnfe);
119: System.out.println("Drivernya belum ketemu.");
120: }
121: }
122: public void pindahkanTabeldiServerKeTabeldiLayar(){
123: try {
124: String SQLe = "select * from databos";
125: Statement perintah = konek.createStatement();
126: ResultSet hasile = perintah.executeQuery(SQLe);
127: while (hasile.next()) {
128: String nime = hasile.getString("nim");
129: String namane = hasile.getString("nama");
130: String nohpne = hasile.getString("nohp");
131: String kecane = hasile.getString("kecamatan");
132: String kabune = hasile.getString("kabupaten");
133: String[] dataYgDidapat = {nime,namane,nohpne,kecane,kabune};
134: modeleTabel.addRow(dataYgDidapat);
135: }
136: }catch( Exception e) {/* kalo salah dicuekin */}
137: }
138: public void dariTabeldiLayarkeTextField() {
139: tNim.setText("");
140: tNama.setText("");
141: tNohp.setText("");
142: tKec.setText("");
143: tKab.setText("");
144: int baris = tabel.getSelectedRow();
145: tNim.setText(modeleTabel.getValueAt(baris,0).toString());
146: tNama.setText(modeleTabel.getValueAt(baris,1).toString());
147: tNohp.setText(modeleTabel.getValueAt(baris,2).toString());
148: tKec.setText(modeleTabel.getValueAt(baris,3).toString());
149: tKab.setText(modeleTabel.getValueAt(baris,4).toString());
150: }
151: public void hapusIsiTabelYangAda(){
152: int jmlBaris = modeleTabel.getRowCount();
153: for (int i=0; i<jmlBaris; i++){
154: modeleTabel.removeRow(0);
155: }
156: }
157: public void prosesHapusData(){
158: try {
159: String SQLe = "update databos set kecamatan = ?, kabupaten = ? WHERE nim ='"+tNim.getText()+"'";
160: PreparedStatement stat = konek.prepareStatement(SQLe);
161: stat.setString(1,tKec.getText());
162: stat.setString(2,tKab.getText());
163: stat.executeUpdate();
164: hapusIsiTabelYangAda();
165: pindahkanTabeldiServerKeTabeldiLayar();
166: tNim.setText("");
167: tNama.setText("");
168: tNohp.setText("");
169: tKec.setText("");
170: tKab.setText("");
171: }catch(SQLException se){/* kalo salah dicuekin */}
172: }
173: }
| 4-May-2013 | 13-May-2013 | |
| Tensi | 153/83 | |
| Pulse | 93/m | 89/m |
| Gula | 386 Mg/dl | 252 Mg/dl |
| Asam Urat | Lo | |
| Kolestrol | 231 Mg/dl | 225 Mg/dl |
| Trigliserid | 381 Mg/dl |
| 4-Juni-2013 | |
| Tensi | 141 |
| Pulse | 80/m |
| Gula | 215 Mg/dl |
| Asam Urat | |
| Kolestrol | 213 Mg/dl |
| Trigliserid |
1: /* Ord Volume by Peter Bjarheim
2: Rev - 11-12-07
3: Adjust "zig percent change" so that each swing last from 5 to 30 days
4: (the the percentage, the more sigificant the swing is).
5: Peak Volume Extreme Detection:
6: ->Sometimes several days around the true swing price extreme, a higher volume
7: extreme has been encountered.
8: Back testing suggests that these swing volumes while rare, do occur and are
9: significant.
10: ----> Rules For Trading from http://www.ord-oracle.com/
11: This software is designed to pick out the swings in a stock and then measure
12: the force between the swings. The
13: force is the amount of volume between the swings that pushes the stock in an
14: up-mode or down-mode. Stocks trend
15: in the direction of the highest volume. Stocks correct or consolidate on
16: lighter volume. By measuring the volume
17: between the swings and comparing to previous swings, one can "See" the force of
18: a particular move developing in the
19: stock. In an uptrend the stock should have higher volume on the rally phase
20: than the correction phase. In a
21: downtrend the stock should have higher volume on the declining phase than the
22: up correction phase. With that in
23: mind, we have developed this software to do just that. Keep in mind that this
24: software measures volume force in a
25: stock and is not implied to be a stand-alone tool to pick every turn in a
26: stock. The Ord-volume software is designed
27: to help identify the probable direction by the volume flow the stock has. Other
28: factors of the stock may push it in a
29: different direction.
30: 1. To pick the strongest stock (in up-trend), average daily volume should
31: shrink near 50% on correction phase
32: compared to the rally phase.
33: 2. To pick the weakest stocks (in down-trend) average daily volume should
34: shrink near 50% on up phase compared to
35: the declining phase.
36: Definition of a "Swing". A "Swing" is a price high or low where the stock
37: changes direction.
38: Definition of "Ord-Volume". "Ord-volume" measures the average volume between
39: "Swings".
40: Definition of "Ord-Volume Low". "Ord-Volume Low" is a down-leg in a stock.
41: Definition of "Ord-Volume High". "Ord-Volume High" is an up-leg in a stock.
42: 3. A buy signal is triggered when a stock closes above a previous important
43: "Ord-Volume low" where the current
44: "Ord-volume low" shrinks near 50% or greater against the "Important "Ord-volume
45: low"". An "Important
46: "Ord-volume Low" is when that low marks a bottom where the equity starts a
47: sideways consolidation.
48: 4. A sell signal is triggered when a stock closes below a previous important
49: "Ord-Volume High" where the current
50: "Ord-Volume High" shrinks near 50% or greater against the "Important
51: "Ord-Volume High"". An "Important
52: "Ord-Volume High"" is when that high marks a top where the equity starts a
53: sideways consolidation.
54: 5. Target price Projections:
55: 5.1 An upside target for a buy signal will be the previous "Swing High". If
56: volume is equal or greater on the test of the
57: previous high then the next higher swing high will be the target and so on.
58: 5.2 A downside target after a sell signal will be the previous "Swing Low". If
59: volume is equal or greater than the
60: previous "Swing Low" then the next lower swing will be the target and so on.
61: */
62: swingDays = 0;
63: swingVol = 0;
64: ordVol = 0;
65: upswingSignal = 0;
66: downswingSignal = 0;
67: accumulatedVolume = 0;
68: accumulatedDays = 0;
69: arrayHasSignal = 0;
70: zigPercentage = Param("ZigZag Percent", 10, 2, 50);
71: trendZig = Zig(C, zigPercentage);
72: action = Status("action");
73: midPointY = 0;
74: midPointValue = 0;
75: peakVolumeExtremeDetectionDays = Param("Peak Vol. Days", 6, 1, 20); //3 days
76: before and 3 days after a peak
77: daysBeforeAndAfterForPeakVolume = round(peakVolumeExtremeDetectionDays/2);
78: peakVolume = 0;
79: colorOrdVolume = ParamColor("Ord Vol. Info.", colorGrey50);
80: colorZig = ParamColor("ZigZag", colorGold);
81: colorPeakUp = ParamColor("Support Info.", colorGreen);
82: colorPeakDown = ParamColor("Resistance Info.", colorRed);
83: scalingFactor = 0.1;
84: function volumeInMillions(inVolume)
85: {
86: volInM = inVolume/1000000;
87: return NumToStr(volInM, 1.2, False) + " m";
88: }
89: function getPeakVolume(daysToCheck, nowDay)
90: {
91: returnPeakVolume = V[nowDay];
92: dayNumberBefore = (nowDay) - daysToCheck;
93: dayNumberAfter = (nowDay) + daysToCheck;
94: //find Max swing Volume
95: if( dayNumberBefore > 0 AND dayNumberAfter < BarCount )
96: {
97: returnPeakVolume = V[dayNumberBefore];
98: //_TRACE("Start returnPeakVolume = " + returnPeakVolume);
99: for( j = dayNumberBefore; j < dayNumberAfter; j++ )
100: {
101: if(returnPeakVolume < V[j])
102: {
103: returnPeakVolume = V[j];
104: }
105: //_TRACE("returnPeakVolume = " + returnPeakVolume);
106: }
107: }
108: else if( dayNumberBefore > 0 AND dayNumberAfter >= BarCount )
109: {
110: returnPeakVolume = V[dayNumberBefore];
111: //_TRACE("Start returnPeakVolume = " + returnPeakVolume);
112: for( j = dayNumberBefore; j < BarCount; j++ )
113: {
114: if(returnPeakVolume < V[j])
115: {
116: returnPeakVolume = V[j];
117: }
118: //_TRACE("returnPeakVolume = " + returnPeakVolume);
119: }
120: }
121: else
122: {
123: peakVolume = V[i-1];
124: }
125: return returnPeakVolume;
126: }
127: for( i = 3; i < BarCount; i++)
128: {
129: //initialize parameters
130: arrayHasSignal[i] = 0;
131: //Then we check which way the price goes
132: swingVol = swingVol + V[i-1];//Don't add today since price may have changed
133: direction
134: swingDays = swingDays + 1;
135: if( (trendZig[i] < trendZig[i-1]) AND (trendZig[i-1] > trendZig[i-2]) AND i >
136: 10 )//Changes from up swing to down swing
137: {
138: /*_TRACE("Changes from up swing to down swing, i = " + i);
139: _TRACE("trendZig[i-2] = " + trendZig[i-2]);
140: _TRACE("trendZig[i-1] = " + trendZig[i-1]);
141: _TRACE("trendZig[i] = " + trendZig[i]);*/
142: downswingSignal[i-1] = 0;
143: upswingSignal[i-1] = 1;
144: ordVol[i-1] = swingVol/swingDays;
145: accumulatedVolume[i-1] = swingVol;
146: accumulatedDays[i-1] = swingDays;
147: arrayHasSignal[i-1] = 1;
148: if(action == actionIndicator)
149: {
150: midPointValue = i - round(swingDays/2) - 1;
151: midPointY = trendZig[midPointValue];
152: peakVolume = getPeakVolume(daysBeforeAndAfterForPeakVolume, i - 1);
153: PlotText("(" + volumeInMillions(ordVol[i-1]) + ")", midPointValue,
154: midPointY, colorOrdVolume);
155: PlotText(NumToStr(H[i-1], 1.1, False) + " (" + volumeInMillions(peakVolume)
156: + ")", i-4, trendZig[i-1] * 1.02, colorPeakUp);
157: }
158: swingVol = 0;
159: swingDays = 0;
160: }
161: if( (trendZig[i] > trendZig[i-1]) AND (trendZig[i-1] < trendZig[i-2]) AND i >
162: 10 )//Changes from down swing to up swing
163: {
164: downswingSignal[i-1] = 1;
165: upswingSignal[i-1] = 0;
166: ordVol[i-1] = swingVol/swingDays;
167: accumulatedVolume[i-1] = swingVol;
168: accumulatedDays[i-1] = swingDays;
169: arrayHasSignal[i-1] = 1;
170: if(action == actionIndicator)
171: {
172: midPointValue = i - round(swingDays/2) - 1;
173: midPointY = trendZig[midPointValue];
174: peakVolume = getPeakVolume(daysBeforeAndAfterForPeakVolume, i - 1);
175: PlotText("(" + volumeInMillions(ordVol[i-1]) + ")", midPointValue,
176: midPointY, colorOrdVolume);
177: PlotText(NumToStr(L[i-1], 1.1, False) + " (" + volumeInMillions(peakVolume)
178: + ")", i-4, trendZig[i-1] * 0.95, colorPeakDown);
179: }
180: swingVol = 0;
181: swingDays = 0;
182: }
183: if( i == BarCount - 1)//add last signal too
184: {
185: swingVol = swingVol + V[i];//Remember to add today also
186: swingDays = swingDays + 1;
187: if(trendZig[i] < trendZig[i-1])//is down swing
188: {
189: downswingSignal[i] = 1;
190: upswingSignal[i] = 0;
191: ordVol[i] = swingVol/swingDays;
192: accumulatedVolume[i] = swingVol;
193: accumulatedDays[i] = swingDays;
194: arrayHasSignal[i] = 1;
195: }
196: if(trendZig[i] > trendZig[i-1])//is up swing
197: {
198: downswingSignal[i] = 0;
199: upswingSignal[i] = 1;
200: ordVol[i] = swingVol/swingDays;
201: accumulatedVolume[i] = swingVol;
202: accumulatedDays[i] = swingDays;
203: arrayHasSignal[i] = 1;
204: }
205: if(action == actionIndicator)
206: {
207: midPointValue = i - round(swingDays/2) - 1;
208: midPointY = trendZig[midPointValue];
209: PlotText("(" + volumeInMillions(ordVol[i]) + ")", midPointValue, midPointY,
210: colorOrdVolume);
211: }
212: }
213: }
214: if(action == actionExplore)
215: {
216: //Filter = 1;
217: Filter = arrayHasSignal;
218: //AddColumn(trendZig , "trendZig ", 1.2);
219: AddColumn(C, "Swing Up", 1.2, colorDefault, IIf(upswingSignal, colorPeakUp,
220: colorDefault));
221: AddColumn(C, "Swing Down", 1.2, colorDefault, IIf(downswingSignal,
222: colorPeakDown, colorDefault));
223: AddColumn(ordVol, "Ord Vol.", 1.0);
224: AddColumn(accumulatedDays, "Swing Days", 1.0);
225: AddColumn(accumulatedVolume, "Tot. Swing Vol.", 1.0);
226: }
227: else if(action == actionIndicator)
228: {
229: Plot(trendZig, "Ord Vol ZigZag", colorZig);
230: //Scale the axis so we can read the numbers
231: Plot(trendZig + (trendZig * scalingFactor), "", colorRed, styleNoDraw);
232: Plot(trendZig - (trendZig * scalingFactor), "", colorBlue, styleNoDraw);
233: }
234: ///////////////selesai//////////////////////////// sumber http://amibrokerindonesia.blogspot.com/2010/02/re-komunitas-amibroker-afl-alligator_02.html 1: //TODO:
2: //1. Remember F, AO, AC and Zone Add Ons signals and hits
3: //2. Integrate squat bars with exit signals somehow.
4: //3. five magic bullets - for taking profit
5: //Alligator lines
6: //---------------
7: //The Blue balance line is where the price would be on this time frame if there were no new incoming information,
8: //in other words, the market only moves when there is Chaos present.
9: AlligatorBlue=Ref(Wilders(Avg,13),-8);
10: Plot(AlligatorBlue, "Jaw", colorDarkBlue, styleLine | styleThick);
11: AlligatorRed=Ref(Wilders(Avg,8),-5);
12: Plot(AlligatorRed, "Teeth", colorRed, styleLine | styleThick);
13: AlligatorGreen=Ref(Wilders(Avg,5),-3);
14: Plot(AlligatorGreen, "Leeps", colorGreen, styleLine | styleThick);
15: //The PURPLE line is a 5 bar SIMPLE moving average of the bar’s CLOSE offset 3 bars into the future
16: PurpleLine = MA(Ref(C,-3),5);
17: if( ParamToggle("Show Purple Line", "No|Yes", 0))
18: { Plot(PurpleLine , "Purple", colorViolet, styleLine | styleThick);
19: }
20: //AO
21: //---------------
22: AO = MA( Avg,5) - MA( Avg , 34);
23: AOUpBar = AO > Ref(AO, -1);
24: AODownBar = AO < Ref(AO, -1);
25: //AC
26: //---------------
27: MAAvg34=MA( Avg , 34);
28: MAAvg5 = MA( Avg,5);
29: MADiff = MAAvg5 - MAAvg34;
30: AC = MA(MADiff - MA(MADiff, 5), 5);
31: ACUpBar = AC > Ref(AC, -1);
32: ACDownBar = AC < Ref(AC, -1);
33: //Squat Bar
34: //---------
35: //Squat bars are a battle of the bulls and the bears, with lots of buying and selling but little price movement.
36: //A squat bar will be one of the top three OR bottom three bars 85% of the time at the end of a trend.
37: //While all trends end with a squat, all squats are NOT the end of a trend.
38: MarketFacilitionIndex =(H-L)/V;
39: SquatBar = MarketFacilitionIndex < Ref(MarketFacilitionIndex, -1) AND Volume > Ref(Volume, -1);
40: ShowSquatBars = ParamToggle("Show Squat Bars", "No|Yes", 1);
41: //Price Bar
42: //---------
43: GreenBar = AOUpBar AND ACUpBar;
44: RedBar = AODownBar AND ACDownBar;
45: PriceBarColor = IIf(GreenBar, colorBrightGreen , IIf(RedBar, colorRed, colorGrey40));
46: PriceBarColor = IIf(ShowSquatBars AND SquatBar, colorBlue, PriceBarColor);
47: Plot( C, "Close", PriceBarColor , styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
48: if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
49: {
50: ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
51: }
52: //Fractal up
53: //----------
54: fUp = (Ref(H,-2) > Ref(H, -4)) AND
55: (Ref(H,-2) > Ref(H, -3)) AND
56: (Ref(H,-2) > Ref(H, -1)) AND
57: (Ref(H,-2) > H);
58: var1=ValueWhen(fUp ,Ref(H,-2) ,1);
59: FractalUp=HighestSince(var1 > 0, var1, 1);
60: Plot(FractalUp, "F+",colorLime , styleLine | styleDots);
61: FUpBuyPrice = FractalUp + 0.01;
62: FUpHit = FUpBuyPrice <= H AND FUpBuyPrice >= L;
63: FUpSignalOn = Flip(Ref(FractalUp,-1) != FractalUp, FUpHit);
64: //Looks into the future. This is done only to display Fractal arrow at the right bar.
65: //The calculation of the fractal up is done without looking into the future.
66: PlotShapes(IIf(Ref(FractalUp,2) != Ref(FractalUp,1), shapeSmallUpTriangle, shapeNone), colorGreen,0,Ref(FractalUp,2), 10);
67: //Fractal Down
68: //------------
69: var2=
70: (Ref(L,-2) <= Ref(L, -1)) AND
71: (Ref(L,-2) <= Ref(L, 0)) AND
72: (Ref(L,-2) <= Ref(L, -3)) AND
73: (Ref(L,-2) <= Ref(L, -4));
74: FractalDown=ValueWhen(var2, Ref(L,-2), 1);
75: FDownSellPrice= FractalDown+ 0.01;
76: FDownHit = FDownSellPrice <= H AND FDownSellPrice >= L;
77: FDownSignalOn = Flip(Ref(FractalDown,-1) != FractalDown, FDownHit );
78: Plot(FractalDown, "F-", colorGrey40, styleLine | styleDots);
79: //Looks into the future. This is done only to display Fractal arrow at the right bar.
80: //The calculation of the fractal up is done without looking into the future.
81: PlotShapes(IIf(Ref(FractalDown,2) != Ref(FractalDown,1), shapeSmallDownTriangle, shapeNone), colorRed,0,Ref(FractalDown,2), 10);
82: //Exits
83: //-----
84: Bar5LongExit = Ref(GreenBar, -4) AND Ref(GreenBar, -3) AND Ref(GreenBar, -2) AND Ref(GreenBar, -1) AND GreenBar;
85: Bar5ShortExit = Ref(RedBar, -4) AND Ref(RedBar, -3) AND Ref(RedBar, -2) AND Ref(RedBar, -1) AND RedBar;
86: Bar5LongPrice = LowestSince(Bar5LongExit, L) - 0.01;
87: Bar5LongHit = L <= Ref(Bar5LongPrice, -1);
88: Bar5LongOn = Flip(Bar5LongExit, Bar5LongHit);
89: Bar5ShortPrice = LowestSince(Bar5ShortExit, H) + 0.01;
90: Bar5ShortHit = H >= Ref(Bar5ShortPrice, -1);
91: Bar5ShortOn = Flip(Bar5ShortExit, Bar5ShortHit);
92: GreenLineLongExit = Cross(AlligatorGreen, C);
93: RedLineLongExit = Cross(AlligatorRed, C);
94: GreenLineShortExit = Cross(AlligatorGreen, C);
95: RedLineShortExit = Cross(AlligatorRed, C);
96: //Zones (Add-Ons)
97: //---------------
98: //"Add-On" Buy (Sell):
99: //(1) The Momentum is still going up (down).
100: //(2) The Accelerator is moving up (down).
101: //(3) The Price is closing higher (lower).
102: //It is rare to continue to get over six to eight bars of the same color - No add ons after 5 consecutive bars.
103: AddOnBuy = Ref(GreenBar,-1) AND GreenBar AND C > Ref(C,-1) AND NOT Bar5LongExit;
104: AddOnSell = Ref(RedBar,-1) AND RedBar AND C < Ref(C,-1) AND NOT Bar5ShortExit;
105: //Balance Lines
106: //-------------
107: //1. If we are going toward the Balance Line, we place our Signal at base + two higher highs (lower lows).
108: //2. If we are going away from the Balance Line, we use base + one higher High (lower Low).
109: //3. If the current bar is red (green) and we are above the blue (Green) Balance Line AND looking for Buy (sell)signals
110: // we double the number of lower low (higher high) bars needed.
111: //4. Base Bar is the Lowest High (Highest Low) in buy (sell). Signal Bar is the bar before the base bar.
112: //5. Buy (Sell) stop is defined as the High (Low) + 1 tick of the Signal Bar.
113: //6. As long as the Signal bar itself is above the Balance Line, we act as if the entire formation were above the Balance Line.
114: //7. The buy (sell) stop stays in place unless
115: // (a) it is triggered
116: // OR
117: // (b) another bar with a lower High (Higher Low) is formed, creating a different base bar.
118: //8. You do not sell above the Alligator's mouth and you do not buy below the Alligator's mouth.
119: AboveAll = L > AlligatorRed AND L > AlligatorBLue AND L > AlligatorGreen;
120: BelowAll = H < AlligatorRed AND H < AlligatorBLue AND H < AlligatorGreen;
121: //Buys. Only above balance lines for now
122: LowerHigh = Ref(H, -1) > H;
123: //Double the number of LowerHighs Required on RedBar
124: BuySignalRef = IIf(RedBar, 2, 1);
125: //"BuySignalRef =" +WriteVal(BuySignalRef );
126: //1 or 2 lower highs above balance line
127: BLBuyCondition = Ref(AboveAll,-BuySignalRef) AND LowerHigh AND IIf(RedBar, Ref(LowerHigh,-1) , True);
128: //"BLBuyCondition =" +WriteVal(BLBuyCondition );
129: //Update price if new buy signal is on, otherwise use previous price:
130: BLBuyPrice = LowestSince(BLBuyCondition, Ref(H,-BuySignalRef)+0.01, 1);
131: //"Buy Hit="+WriteVal(H > Ref(BLBuyPrice,-1)) +" at"+WriteVal(Ref(BLBuyPrice,-1));
132: //Keep buy signal on until it is hit or marked is below all balance lines:
133: BLBuySignal = Flip(BLBuyCondition , ((NOT BLBuyCondition) AND H >= Ref(BLBuyPrice,-1)) OR BelowAll);
134: //"BLBuySignal "+WriteVal(BLBuySignal)+" BLBuyPrice="+WriteVal(BLBuyPrice);
135: BLBuyHit = Ref(BLBuySignal, -1) AND (NOT BLBuyCondition) AND H >= Ref(BLBuyPrice,-1);
136: //Note that if new buy signal is after a still valid older signal, we choose the lowest from both of them
137: BLBuyPrice = IIf(Ref(BLBuySignal,-1), Min(BLBuyPrice, Ref(BLBuyPrice,-1)), BLBuyPrice);
138: //Sells. Only below balance lines for now
139: HigherLow = Ref(L, -1) < L;
140: //Double the number of LowerHighs Required on GreenBar
141: SellSignalRef = IIf(GreenBar, 2, 1);
142: //"SellSignalRef =" +WriteVal(SellSignalRef );
143: //1 or 2 higher lows above balance line
144: BLSellCondition = Ref(BelowAll, -SellSignalRef) AND HigherLow AND IIf(GreenBar, Ref(HigherLow,-1) , True);
145: //"BLSellCondition =" +WriteVal(BLSellCondition);
146: //Update price if new sell signal is on, otherwise use previous price:
147: BLSellPrice = HighestSince(BLSellCondition , Ref(L,-SellSignalRef)-0.01, 1);
148: //"Sell Hit="+WriteVal((NOT BLSellCondition) AND L < Ref(BLSellPrice,-1)) +" at"+WriteVal(Ref(BLSellPrice,-1));
149: //Keep buy signal on until it is hit or market is above all balance lines
150: BLSellSignal = Flip(BLSellCondition, ((NOT BLSellCondition) AND L <= Ref(BLSellPrice,-1)) OR AboveAll);
151: //"BLSellSignal"+WriteVal(BLSellSignal)+" BLSellPrice="+WriteVal(BLSellPrice);
152: BLSellHit = Ref(BLSellSignal, -1) AND (NOT BLSellCondition) AND L <= Ref(BLSellPrice,-1);
153: //Note that if new sell signal is after a still valid older signal, we choose the highest from both of them
154: BLSellPrice = IIf(Ref(BLSellSignal,-1), Max(BLSellPrice, Ref(BLSellPrice,-1)), BLSellPrice);
155: //Bars Analysis
156: //-------------
157: Third = (H-L) / 3;
158: Line1 = H - Third;
159: Line2 = L + Third;
160: Half = L + ((H-L) / 2);
161: //After an extreme bar 85% of the time the market will change direction within the next 1-5 bars.
162: ExtremeBarUp = Open > Line1 AND Close > Line1;
163: ExtremeBarDown = Open < Line2 AND Close < Line2;
164: ExtremeBar = ExtremeBarUp OR ExtremeBarDown;
165: //Bullish AND Bearish Bars Inside the mouth do NOT create a Signal.
166: OutsideMouth = NOT ((H < AlligatorBlue AND L > AlligatorGreen) OR (L > AlligatorBlue AND H < AlligatorGreen));
167: //Bullish Divergence Bars
168: BullDivBar = OutsideMouth AND L < Ref(L,-1) AND C > Half;
169: //Bearish Divergence Bars
170: BearDivBar = OutsideMouth AND H > Ref(H, -1) AND C < Half;
171: PlotShapes(IIf(ExtremeBar, shapeSmallCircle ,shapeNone), colorBlue, 0, H, 12);
172: PlotShapes(IIf(BullDivBar, shapeSmallCircle ,shapeNone), colorGreen, 0, L, -12);
173: PlotShapes(IIf(BearDivBar, shapeSmallCircle ,shapeNone), colorRed, 0, H, 12);
174: //Commentary:
175: WriteIf(ExtremeBarUp OR ExtremeBarDown, "Possible Change of direction within the next 1-5 bars. (Extreme Bar)\n","")+
176: "Buy Signals:\n"+
177: WriteIf(FUpSignalOn , "Place Buy Stop if Price rises to" +WriteVal(FUpBuyPrice)+ " or higher. (F+)\n","")+
178: WriteIf(BullDivBar, "Place Buy Stop if Price rises to" +WriteVal(H+0.01)+ " or higher. (Bullish Divergent Bar)\n","")+
179: WriteIf(AddOnBuy, "Place Buy Stop if Price rises to" +WriteVal(H+0.01)+ " or higher. (Zones Add On Buy)\n","")+
180: WriteIf(BLBuySignal,"Place Buy Stop if Price rises to" +WriteVal(BLBuyPrice)+ " or higher. (BL+)\n","")+
181: "Sell Signals:\n"+
182: WriteIf(FDownSignalOn , "Place Sell Stop if Price falls to" +WriteVal(FDownSellPrice)+ " or lower. (F-)\n","")+
183: WriteIf(BearDivBar, "Place Sell Stop if Price falls to" +WriteVal(L-0.01)+ " or lower. (Bearish Divergent Bar)\n","")+
184: WriteIf(AddOnSell, "Place Sell Stop if Price falls to" +WriteVal(L-0.01)+ " or lower. (Zones Add On Sell)\n","")+
185: WriteIf(BLSellSignal,"Place Sell Stop if Price falls to" +WriteVal(BLSellPrice)+ " or lower. (BL-)\n","")+
186: "Hits:\n"+
187: WriteIf(BLBuyHit,"Buy Stop Hit at" +WriteVal(Ref(BLBuyPrice,-1))+ ". (BL+)\n","")+
188: WriteIf(BLSellHit,"Sell Stop Hit at" +WriteVal(Ref(BLSellPrice,-1))+ ". (BL-)\n","")+
189: WriteIf(Ref (FUpSignalOn, -1) AND FUpHit,"Buy Stop Hit at" +WriteVal(Ref(FUpBuyPrice,-1))+ ". (F+)\n","")+
190: WriteIf(Ref (FDownSignalOn, -1) AND FDownHit,"Sell Stop Hit at" +WriteVal(Ref(FDownSellPrice,-1))+ ". (F-)\n","")+
191: WriteIf(Ref(Bar5LongOn , -1) AND Bar5LongHit, "Close all positions Hit at" +WriteVal(Ref(Bar5LongPrice,-1))+ ". (Long Five Consecutive Bars Exit)\n","")+
192: WriteIf(Ref(Bar5ShortOn , -1) AND Bar5ShortHit, "Close all positions Hit at" +WriteVal(Ref(Bar5ShortPrice,-1))+ ". (Short Five Consecutive Bars Exit)\n","")+
193: "Exits:\n"+
194: WriteIf(Bar5LongOn , "Long Five Consecutive Bars Exit Strategy: Close all Long positions if Price falls to" +WriteVal(Bar5LongPrice)+ " or lower.\n","")+
195: WriteIf(Bar5ShortOn, "Short Five Consecutive Bars Exit Strategy: Close all Short positions if Price rises to" +WriteVal(Bar5ShortPrice)+ " or higher.\n","")+
196: WriteIf(GreenLineLongExit, "Green Line Long Exit Strategy: All Long positions should have been closed when Close Price fell below "+WriteVal(AlligatorGreen)+".\n","")+
197: WriteIf(RedLineLongExit, "Red Line Long Exit Strategy: All Long positions should have been closed when Close Price fell below "+WriteVal(AlligatorRed)+".\n","")+
198: WriteIf(GreenLineShortExit, "Green Line Short Exit Strategy: All Short positions should have been closed when Close Price rose above "+WriteVal(AlligatorGreen)+".\n","")+
199: WriteIf(RedLineShortExit, "Red Line Short Exit Strategy: All Short positions should have been closed when Close Price rose aboce "+WriteVal(AlligatorRed)+".\n",""); diambil dari http://www.wisestocktrader.com import java.awt.*;
import java.awt.event.*;
import java.sql.*;
import javax.swing.*;
import javax.swing.table.*;
public class BacaDataBos extends JFrame{
Connection konek;
JScrollPane panelGulung = new JScrollPane();
JTable tabel = new JTable();
DefaultTableModel modeleTabel;
public BacaDataBos(){
super("Baca Data dari Database Server");
inisialisasiGUI();
}
public static void main (String args[]){
BacaDataBos data = new BacaDataBos();
data.setVisible(true);
}
public void inisialisasiGUI(){
int lebarJendela = 400;
int tinggiJendela = 450;
Dimension Layar = Toolkit.getDefaultToolkit().getScreenSize();
int awalJendX = (Layar.width-lebarJendela)/2;
int awalJendY = (Layar.height-tinggiJendela)/2;
setSize(lebarJendela,tinggiJendela);
setLocation(awalJendX,awalJendY);
setResizable(false);
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
this.setLayout(null);
JButton ambil = new JButton(" AMBIL ");
ambil.setLocation(110,180);
ambil.setSize(200,40);
add(ambil);
Object[] baris = {"Nim", "Nama", "Nomor HP"};
modeleTabel = new DefaultTableModel(null, baris);
panelGulung.setBounds(new Rectangle(15,225,365,175));
tabel.setModel(modeleTabel);
panelGulung.getViewport().add(tabel);
add(panelGulung);
ambil.addActionListener( new ActionListener(){
public void actionPerformed(ActionEvent e) {
aksitombol();
}
});
koneksiDatabase();
}
public void koneksiDatabase (){
String namadb = "pangkalan";
String usr = "nanungnurzula";
String psw = "masuksurga";
try{
Class.forName("org.postgresql.Driver");
System.out.println("Drivernya sudah ketemu.");
try{
konek = DriverManager.getConnection("jdbc:postgresql://localhost:5432/"+namadb, usr, psw);
/*getConnection("jdbc:postgresql://localhost:5432/pangkalan", "nanungnurzula", "masuksurga");*/
/*getConnection("jdbc:postgresql://127.0.0.1/pangkalan?user=nanungnurzula&password=masuksurga");*/
/*getConnection("jdbc:postgresql://localhost:5432/pangkalan?user=nanungnurzula&password=masuksurga"); */
System.out.println("Koneksi berhasil.");
}catch(SQLException sqle){
System.out.println(sqle);
System.out.println("Koneksi gagal.");
System.exit(0);
}
}catch(ClassNotFoundException cnfe){
System.out.println(cnfe);
System.out.println("Drivernya belum ketemu.");
}
}
public void aksitombol(){
hapusIsiTabelYangAda();
pindahkanTabeldiServerKeTabeldiLayar();
}
public void hapusIsiTabelYangAda(){
int jmlBaris = modeleTabel.getRowCount();
for (int i=0; i<jmlBaris; i++){
modeleTabel.removeRow(0);
}
}
public void pindahkanTabeldiServerKeTabeldiLayar(){
try {
String SQLe = "select * from databos";
Statement perintah = konek.createStatement();
ResultSet hasile = perintah.executeQuery(SQLe);
while (hasile.next()) {
String nime = hasile.getString("nim");
String namane = hasile.getString("nama");
String nohpne = hasile.getString("nohp");
String[] dataYgDidapat = {nime,namane,nohpne};
modeleTabel.addRow(dataYgDidapat);
}
}catch( Exception e) {/* kalo salah dicuekin */}
}
} 
import java.awt.*;
import java.awt.event.*;
import java.sql.*;
import javax.swing.*;
public class MasukDataBos extends JFrame{
JLabel lNim = new JLabel("NIM");
JLabel lNama = new JLabel("Nama");
JLabel lNohp = new JLabel("No HP");
JTextField tNim = new JTextField();
JTextField tNama = new JTextField();
JTextField tNohp = new JTextField();
Connection konek;
public MasukDataBos(){
super("Memasukan Data Bos-Bos");
inisialisasiGUI();
}
public static void main (String args[]){
MasukDataBos data = new MasukDataBos();
data.setVisible(true);
}
public void inisialisasiGUI(){
int lebarJendela = 400;
int tinggiJendela = 450;
Dimension Layar = Toolkit.getDefaultToolkit().getScreenSize();
int awalJendX = (Layar.width-lebarJendela)/2;
int awalJendY = (Layar.height-tinggiJendela)/2;
setSize(lebarJendela,tinggiJendela);
setLocation(awalJendX,awalJendY);
setResizable(false);
setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
this.setLayout(null);
lNim.setLocation(110,60);
lNim.setSize(60,25);
tNim.setLocation(160,60);
tNim.setSize(150,25);
lNama.setLocation(110,90);
lNama.setSize(60,25);
tNama.setLocation(160,90);
tNama.setSize(150,25);
lNohp.setLocation(110,120);
lNohp.setSize(60,25);
tNohp.setLocation(160,120);
tNohp.setSize(150,25);
JButton masuk = new JButton(" Masuk ");
masuk.setLocation(110,180);
masuk.setSize(200,40);
add(lNim);
add(tNim);
add(lNama);
add(tNama);
add(lNohp);
add(tNohp);
add(masuk);
masuk.addActionListener( new ActionListener(){
public void actionPerformed(ActionEvent e) {
aksitombol();
}
});
koneksiDatabase();
}
public void aksitombol(){
try{
String sql = "Insert Into databos values(?,?,?)";
PreparedStatement stat = konek.prepareStatement(sql);
try{
stat.setString(1,tNim.getText());
stat.setString(2,tNama.getText());
stat.setString(3,tNohp.getText());
stat.executeUpdate();
tNim.setText("");
tNama.setText("");
tNohp.setText("");
}catch(SQLException se){
System.out.println(se);
}
}catch(Exception e){
System.out.println(e);
}
}
public void koneksiDatabase (){
String namadb = "pangkalan";
String usr = "nanungnurzula";
String psw = "masuksurga";
try{
Class.forName("org.postgresql.Driver");
System.out.println("Drivernya sudah ketemu.");
try{
konek = DriverManager.getConnection("jdbc:postgresql://localhost:5432/"+namadb, usr, psw);
/*getConnection("jdbc:postgresql://localhost:5432/pangkalan", "nanungnurzula", "masuksurga");*/
/*getConnection("jdbc:postgresql://127.0.0.1/pangkalan?user=nanungnurzula&password=masuksurga");*/
/*getConnection("jdbc:postgresql://localhost:5432/pangkalan?user=nanungnurzula&password=masuksurga"); */
System.out.println("Koneksi berhasil.");
}catch(SQLException sqle){
System.out.println(sqle);
System.out.println("Koneksi gagal.");
System.exit(0);
}
}catch(ClassNotFoundException cnfe){
System.out.println(cnfe);
System.out.println("Drivernya belum ketemu.");
}
}
}
import javax.swing.JFrame;
import javax.swing.JButton;
import java.awt.Dimension;
import java.awt.Toolkit;
import javax.swing.JPanel;
import java.awt.Color;
import java.awt.event.ActionListener;
import java.awt.event.ActionEvent;
public class MeKuHiSwing {
public static void main(String args[]){
int lebarJendela = 250;
int tinggiJendela = 600;
int lebarPanel = lebarJendela;
int tinggiPanel = tinggiJendela/3;
int lebarTombol = 100;
int tinggiTombol = 30;
int awalTombX = (lebarPanel-lebarTombol)/2;
int awalTombY = (tinggiPanel-tinggiTombol)/2;
Dimension Layar = Toolkit.getDefaultToolkit().getScreenSize();
int lebarLayar = Layar.width;
int tinggiLayar = Layar.height;
int awalJendX = (lebarLayar-lebarJendela)/2;
int awalJendY = (tinggiLayar-tinggiJendela)/2;
final JFrame f = new JFrame("Merah Kuning Hijau");
f.setLayout(null);
f.setLocation(awalJendX,awalJendY);
f.setSize(lebarJendela,tinggiJendela);
f.setVisible(true);
f.setDefaultCloseOperation(javax.swing.JFrame.EXIT_ON_CLOSE);
final JPanel panelAtas = new JPanel();
panelAtas.setSize(lebarPanel,tinggiPanel);
panelAtas.setLocation(0,0);
panelAtas.setBackground(Color.red);
f.add(panelAtas);
final JPanel panelTengah = new JPanel();
panelTengah.setSize(lebarPanel,tinggiPanel);
panelTengah.setLocation(0,tinggiJendela/3);
panelTengah.setBackground(Color.yellow);
f.add(panelTengah);
final JPanel panelBawah = new JPanel();
panelBawah.setSize(lebarPanel,tinggiPanel);
panelBawah.setLocation(0,2*tinggiJendela/3);
panelBawah.setBackground(Color.green);
f.add(panelBawah);
final JButton tombolAtas = new JButton();
tombolAtas.setSize(lebarTombol,tinggiTombol);
tombolAtas.setLocation(awalTombX,awalTombY);
tombolAtas.setLabel("Ceklek");
tombolAtas.setVisible(false);
panelAtas.add(tombolAtas);
panelAtas.setLayout(null);
final JButton tombolTengah = new JButton();
tombolTengah.setSize(lebarTombol,tinggiTombol);
tombolTengah.setLocation(awalTombX,awalTombY);
tombolTengah.setLabel("Ceklek");
tombolTengah.setVisible(false);
panelTengah.add(tombolTengah);
panelTengah.setLayout(null);
final JButton tombolBawah = new JButton();
tombolBawah.setSize(lebarTombol,tinggiTombol);
tombolBawah.setLocation(awalTombX,awalTombY);
tombolBawah.setLabel("Ceklek");
panelBawah.setLayout(null);
panelBawah.add(tombolBawah);
tombolAtas.addActionListener(
new ActionListener(){
public void actionPerformed(ActionEvent e){
f.setTitle("Kuning Hijau Merah");
panelAtas.setBackground(Color.yellow);
panelTengah.setBackground(Color.green);
panelBawah.setBackground(Color.red);
tombolTengah.setVisible(true);
tombolAtas.setVisible(false);
}
}
);
tombolTengah.addActionListener(
new ActionListener(){
public void actionPerformed(ActionEvent e){
f.setTitle("Merah Kuning Hijau");
panelAtas.setBackground(Color.red);
panelTengah.setBackground(Color.yellow);
panelBawah.setBackground(Color.green);
tombolBawah.setVisible(true);
tombolTengah.setVisible(false);
}
}
);
tombolBawah.addActionListener(
new ActionListener(){
public void actionPerformed(ActionEvent e){
f.setTitle("Hijau Merah Kuning");
panelAtas.setBackground(java.awt.Color.green);
panelTengah.setBackground(java.awt.Color.red);
panelBawah.setBackground(java.awt.Color.yellow);
tombolAtas.setVisible(true);
tombolBawah.setVisible(false);
}
}
);
}
}
import java.awt.Frame;
import java.awt.Button;
import java.awt.Dimension;
import java.awt.Toolkit;
import java.awt.Panel;
import java.awt.Color;
import java.awt.event.WindowListener;
import java.awt.event.WindowAdapter;
import java.awt.event.WindowEvent;
import java.awt.event.ActionListener;
import java.awt.event.ActionEvent;
public class MeKuHi{
public static void main(String args[]){
int lebarJendela = 250;
int tinggiJendela = 600;
int lebarPanel = lebarJendela;
int tinggiPanel = tinggiJendela/3;
int lebarTombol = 100;
int tinggiTombol = 30;
int awalTombX = (lebarPanel-lebarTombol)/2;
int awalTombY = (tinggiPanel-tinggiTombol)/2;
Dimension Layar = Toolkit.getDefaultToolkit().getScreenSize();
int lebarLayar = Layar.width;
int tinggiLayar = Layar.height;
int awalJendX = (lebarLayar-lebarJendela)/2;
int awalJendY = (tinggiLayar-tinggiJendela)/2;
final Frame f = new Frame("Merah Kuning Hijau");
f.setLayout(null);
f.setLocation(awalJendX,awalJendY);
f.setSize(lebarJendela,tinggiJendela);
f.setVisible(true);
final Panel panelAtas = new Panel();
panelAtas.setSize(lebarPanel,tinggiPanel);
panelAtas.setLocation(0,0);
panelAtas.setBackground(Color.red);
f.add(panelAtas);
final Panel panelTengah = new Panel();
panelTengah.setSize(lebarPanel,tinggiPanel);
panelTengah.setLocation(0,tinggiJendela/3);
panelTengah.setBackground(Color.yellow);
f.add(panelTengah);
final Panel panelBawah = new Panel();
panelBawah.setSize(lebarPanel,tinggiPanel);
panelBawah.setLocation(0,2*tinggiJendela/3);
panelBawah.setBackground(Color.green);
f.add(panelBawah);
final Button tombolAtas = new Button();
tombolAtas.setSize(lebarTombol,tinggiTombol);
tombolAtas.setLocation(awalTombX,awalTombY);
tombolAtas.setLabel("Ceklek");
tombolAtas.setVisible(false);
panelAtas.add(tombolAtas);
panelAtas.setLayout(null);
final Button tombolTengah = new Button();
tombolTengah.setSize(lebarTombol,tinggiTombol);
tombolTengah.setLocation(awalTombX,awalTombY);
tombolTengah.setLabel("Ceklek");
tombolTengah.setVisible(false);
panelTengah.add(tombolTengah);
panelTengah.setLayout(null);
final Button tombolBawah = new Button();
tombolBawah.setSize(lebarTombol,tinggiTombol);
tombolBawah.setLocation(awalTombX,awalTombY);
tombolBawah.setLabel("Ceklek");
panelBawah.setLayout(null);
panelBawah.add(tombolBawah);
tombolAtas.addActionListener(
new ActionListener(){
public void actionPerformed(ActionEvent e){
f.setTitle("Kuning Hijau Merah");
panelAtas.setBackground(Color.yellow);
panelTengah.setBackground(Color.green);
panelBawah.setBackground(Color.red);
tombolTengah.setVisible(true);
tombolAtas.setVisible(false);
}
}
);
tombolTengah.addActionListener(
new ActionListener(){
public void actionPerformed(ActionEvent e){
f.setTitle("Merah Kuning Hijau");
panelAtas.setBackground(Color.red);
panelTengah.setBackground(Color.yellow);
panelBawah.setBackground(Color.green);
tombolBawah.setVisible(true);
tombolTengah.setVisible(false);
}
}
);
tombolBawah.addActionListener(
new ActionListener(){
public void actionPerformed(ActionEvent e){
f.setTitle("Hijau Merah Kuning");
panelAtas.setBackground(java.awt.Color.green);
panelTengah.setBackground(java.awt.Color.red);
panelBawah.setBackground(java.awt.Color.yellow);
tombolAtas.setVisible(true);
tombolBawah.setVisible(false);
}
}
);
f.addWindowListener(new WindowAdapter(){
public void windowClosing(WindowEvent we){
System.exit(0);
}
});
}
public void actionPerformed(ActionEvent e){}
}
